Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: sarjaportin datan "kuuntelu"

juffe [02.06.2019 20:43:07]

#

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?

Grez [02.06.2019 20:53:00]

#

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 If

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta