Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Moi,
taas ongelmaa pukkaa.
Minulla tulee sarjaportista Double tyyppistä dataa kerran sekunnissa muuttujaan esim(0.00, 0.01, 0.05, 1.14, 1.14, 1.14, 1.14, 1.14)
Millä keinolla voisin tuota dataa tarkastella niin että kun se pysyy 10sekuntia vakiona eli ei muutu arvo mihinkään, niin tapahtuisi tallennus?
Teet pari muuttujaa, esim.
Dim LastValue as Double 'Mikä oli viimeisin arvo Dim LastChangeTime as Double 'Mikä oli viimeisin arvo
Sitten kun luet sen, niin mikäli se muuttui edellisestä, nollaat lastchangen
Muuttuja = Lukevakoodi
if LastChangeTime > Timer then LastChangeTime = Timer 'Timer nollautuu vuorokauden vaihtuessa
If (LastValue = Muuttuja) Then
'Muuttuja on sama kun viimeksikin
If (Timer - LastChangeTime) > 10 Then
'Muuttuja ei ole muuttunut 10 sekuntiin
TallennaArvo() 'TODO: Lisää tämä koodi
End If
Else
'Muuttujan arvo vaihtui:
'Nollataan laskuri
LastChangeTime = Timer
'Kirjataan nykyinen arvo viimeksi saaduksi
LastValue = Muuttuja
End IfAihe on jo aika vanha, joten et voi enää vastata siihen.