HRSIn 'den gelen veriyi analiz etme?

[forumsad]

arkadaşların yardımıyla artık seri portdan veri gönderip veri alabiliyorum

çeşitli denemeler yapıyorum sorum şu seri porta 11001101 şeklinde bir string veri gönderiyorum bu veriyi Hserin ile alıyorum
lcd ye yazdırıyorum sorun yok

sorunum şu gelen ilk veri 1 mi 1 ise ledi yak şeklinde bir mantıkla gelen 8 bit veriyi ayrıştırıp ona göre işlem yaptırmam lazım

bu ayrıştırmayı nasıl yaparız
If SerString[1]=1 Then GoTo yak1  'bu şekilde denedim ama olmadı

saygılarımla

Dim SerString[8] As Byte

Loop: 
 HRSIn Str SerString\8         ' Fill the first 8-bytes of the array
 Print Str SerString\8        ' Display the 8-character string.

If SerString[1]=1 Then GoTo yak1
GoTo Loop                  ' Loop forever



yak1:
PORTC.0=1
GoTo Loop

[z]

If SerString[1]=1 Then GoTo yak1

degilde If SerString[1]=49 Then GoTo yak1

yaz. ASCI 1 rakaminin decimal karsiligi 49 dur.

[forumsad]

If SerString[1]=49 Then GoTo yak1  yazınca oldu çok teşekkürler hocam

[isikyasar]

If SerString[1]=49 Then GoTo yak1

elimde 3 adet serstring var. nasıl yapmam gerekir. çıkamadım işin içinden.

If serstring[78],serstring[79],serstring[80] = 65, 66, 67  Then

bu şekilde olmadığını denedim gördüm.

If serstring[78],serstring[79],serstring[80] = "ABC" Then   ' Böylede olmadı.

[OG]

If serstring[78] = 65 then
If serstring[79] = 66 then
  If serstring[80] = 67 then
   GoTo yak1
  endif
endif
endif
mesaj birleştirme:: 17 Ekim 2013, 00:35:34
Şu syntax da olur ama diğerinden çok daha fazla kod üretir,

If serstring[78] = 65 and serstring[79] = 66 and serstring[80] = 67 then GoTo yak1

[isikyasar]

Öncelikle teşekkürler.

Az önce şu şekilde denedim   If serstring[78] = 65 and serstring[79] = 66 and serstring[80] = 67 then GoTo yak1 
Seri veriyi okumada bazen çok nadir de olsa strinleri atlıyor. yani ilk baştaki stringleri okuyamıyor.

[OG]

If serstring[78] = 65 and serstring[79] = 66 and serstring[80] = 67 then GoTo yak1 

Bu satırın geleni okumakla ilgisi yok, eldeki var olan değişkenlere uygulanmış bir şart. Okuma işi bu şarttan önce yapılır.

[isikyasar]

anladım.

teşekkürler OG