avatar_elektro77

garfik lcd li rf alıcıda ekrana yazma sorunu

Başlatan elektro77, 18 Kasım 2016, 15:36:36

elektro77

Aşağıdaki proton kodları ile ilkönce "1" datasını alıp ekrana yazdırabildim. Fakat "2" datasını gönderdiğimde bir türlü ekrana yazmıyor.
ikincisi ilk önce 2 datasını göndersemde ekrana 1 yazıyor.
Kodların neresinde bir yanlışlık var yardımcı olabilir misiniz.Lütfen

Dim BILGI As Word

main:
SerIn PORTA.0,396,[Wait("UG"),BILGI]

If BILGI=1 Then DelayMS 100:GoTo Label1
If BILGI=2 Then DelayMS 100:GoTo Label2


Label1:
    Print At 0,1,"1"
    DelayMS 100
GoTo main

Label2:
    Print At 1,1,"2"
    DelayMS 100
GoTo main

End
Include "font.inc"
"Eğer bir konuyu öğrenmek istiyorsan o konunun öğretmeni ol; daha iyi öğrenmek istiyorsan o konuda bir kitap yaz; daha da iyi öğrenmek istiyorsan yazdığın kitabi oku"

İlyas KAYA

#1
Gayet normal . Çünkü label1 etiketine hiçbir şart olmadan direk gidiyor.
Kodları şöyle değiştirin

Dim BILGI As Word

main:
SerIn PORTA.0,396,[Wait("UG"),BILGI]

If BILGI=1 Then
DelayMS 100
GoTo Label1
endif

If BILGI=2 Then
DelayMS 100
GoTo Label2
endif

delayms 100

goto main

Label1:
    Print At 0,1,"1"
    DelayMS 100
GoTo main

Label2:
    Print At 1,1,"2"
    DelayMS 100
GoTo main

End
Include "font.inc"


VEYA

Dim BILGI As Word

main:
SerIn PORTA.0,396,[Wait("UG"),BILGI]

If BILGI=1 Then GoTo Label1
If BILGI=2 Then GoTo Label2

delayms 100
goto main

Label1:
    Print At 0,1,"1"
    DelayMS 100
GoTo main

Label2:
    Print At 1,1,"2"
    DelayMS 100
GoTo main

End
Include "font.inc"
Göz odur ki dağ ardını görsün,
Akıl odur ki başa geleceği bilsin.!

elektro77

Her iki dizinide denedim fakat bu sefer ekranda hiç bir şey yazmadı.
"Eğer bir konuyu öğrenmek istiyorsan o konunun öğretmeni ol; daha iyi öğrenmek istiyorsan o konuda bir kitap yaz; daha da iyi öğrenmek istiyorsan yazdığın kitabi oku"

elektro77

Dim BILGI As WORD   Kodunu
Dim BILGI As Byte  olarak değiştirince çalıştı.
Word olarak niye tanımlıyamıyoruz.?
"Eğer bir konuyu öğrenmek istiyorsan o konunun öğretmeni ol; daha iyi öğrenmek istiyorsan o konuda bir kitap yaz; daha da iyi öğrenmek istiyorsan yazdığın kitabi oku"

İlyas KAYA

word olarak bilgi almak içi alt ve üst byte larını ayrı ayrı almanız gerekir. O kısım dikkatimden kaçmış.
Göz odur ki dağ ardını görsün,
Akıl odur ki başa geleceği bilsin.!

Powered by EzPortal