lcd keypad yazdırma sorunu

bahdiyarusta · 06 Haziran 2014, 20:51:58

merhaba.
bir devremde tuş takımı kullanmam gerekti ilk defa kullanacagım maktıken bi şeyler yazdım ama bir yerde takıldım.
şimdi ter tuşa bastığımda bastığım tuş değeri ekranda yazıyor ama mesela ben ekrana 3589 değerini girmek istiyorum.
3e basıyorum 5 e basıyorum ekrandaki 3 silinip 5 yazıyor ben 3589 şeklinde yazmak istiyorum bunu nasıl yapabilirim

teşekkürler...

MS_59 · 06 Haziran 2014, 21:14:27

SAYI=SAYI*10+TUS
LCDOUT $FE,$80,"SAYI=",DEC4 SAYI

Bu şekilde yapabilirsin
buradaki TUS değişkeni keypad bilgisini temsil eder SAYI ise ekrana verilen bilgiyi

bahdiyarusta · 06 Haziran 2014, 21:17:02

BASLA:
PORTD.0=1
IF PORTC.0=1 THEN SAYAC=1
IF PORTC.1=1 THEN SAYAC=2
IF PORTC.2=1 THEN SAYAC=3
PORTD=0
PORTD.1=1
IF PORTC.0=1 THEN SAYAC=4
IF PORTC.1=1 THEN SAYAC=5
IF PORTC.2=1 THEN SAYAC=6
PORTD=0
PORTD.2=1
IF PORTC.0=1 THEN SAYAC=7
IF PORTC.1=1 THEN SAYAC=8
IF PORTC.2=1 THEN SAYAC=9
PORTD=0
PORTD.3=1
IF PORTC.0=1 THEN SAYAC=10
IF PORTC.1=1 THEN SAYAC=0
IF PORTC.2=1 THEN SAYAC=11
PORTD=0
LCDOUT $FE,1, "SISTEM BASLIYOR"
LCDOUT $FE,$C0,"DEGER:",#SAYAC
PAUSE 200
GOTO BASLA
END

BENİM KODLARIM BUNLAR BURDA NEREYE EKLEYECEĞİM O SATIRLARI

MS_59 · 06 Haziran 2014, 21:21:14

BASLA: 
   PORTD.0=1
   IF PORTC.0=1 THEN SAYAC=1
   IF PORTC.1=1 THEN SAYAC=2
   IF PORTC.2=1 THEN SAYAC=3
   PORTD=0
   PORTD.1=1
   IF PORTC.0=1 THEN SAYAC=4
   IF PORTC.1=1 THEN SAYAC=5
   IF PORTC.2=1 THEN SAYAC=6
   PORTD=0
   PORTD.2=1
   IF PORTC.0=1 THEN SAYAC=7
   IF PORTC.1=1 THEN SAYAC=8
   IF PORTC.2=1 THEN SAYAC=9
   PORTD=0
   PORTD.3=1
   IF PORTC.0=1 THEN SAYAC=10
   IF PORTC.1=1 THEN SAYAC=0
   IF PORTC.2=1 THEN SAYAC=11
   PORTD=0   
   SAYI=SAYI*10+SAYAC                   
   LCDOUT $FE,$80,"SAYI=",DEC4 SAYI  
   PAUSE 200
   GOTO BASLA
   END

bahdiyarusta · 06 Haziran 2014, 21:26:58

OLMADI HOCAM .
TUşun birine basınca ekran uçup gidiyor.

MS_59 · 06 Haziran 2014, 21:31:00

nasıl yani isis ve programın tamamını eklede bende bakayım

bahdiyarusta · 06 Haziran 2014, 21:36:20

şemam bu hocAm tuşa bi basıyorum uçup gidiyor...

bahdiyarusta · 06 Haziran 2014, 21:41:58

DÜZELTTİM HOCAM,,,,

BASLA:
PORTD.0=1
IF PORTC.0=1 THEN SAYAC=1:GOSUB EKRAN
IF PORTC.1=1 THEN SAYAC=2:GOSUB EKRAN
IF PORTC.2=1 THEN SAYAC=3:GOSUB EKRAN
PORTD=0
PORTD.1=1
IF PORTC.0=1 THEN SAYAC=4:GOSUB EKRAN
IF PORTC.1=1 THEN SAYAC=5:GOSUB EKRAN
IF PORTC.2=1 THEN SAYAC=6:GOSUB EKRAN
PORTD=0
PORTD.2=1
IF PORTC.0=1 THEN SAYAC=7:GOSUB EKRAN
IF PORTC.1=1 THEN SAYAC=8:GOSUB EKRAN
IF PORTC.2=1 THEN SAYAC=9:GOSUB EKRAN
PORTD=0
PORTD.3=1
IF PORTC.0=1 THEN SAYAC=10:GOSUB EKRAN
IF PORTC.1=1 THEN SAYAC=0:GOSUB EKRAN
IF PORTC.2=1 THEN SAYAC=11:GOSUB EKRAN
PORTD=0
LCDOUT $FE,1, "SISTEM BASLIYOR"
LCDOUT $FE,$C0,"DEGER:",DEC4 SAYI
PAUSE 200
GOTO BASLA
EKRAN:
SAYAC1=SAYAC1+1
IF SAYAC1=5 THEN SAYI=0:SAYAC1=0:SAYAC=0
SAYI=SAYI*10+SAYAC
RETURN
END
doğru kodlar

MS_59 · 06 Haziran 2014, 22:05:09

BASLA: 
   PORTD.0=1
   IF PORTC.0=1 THEN SAYAC=1
   IF PORTC.1=1 THEN SAYAC=2
   IF PORTC.2=1 THEN SAYAC=3
   IF PORTC>0 THEN GOSUB EKRAN
   PORTD=0
   PORTD.1=1
   IF PORTC.0=1 THEN SAYAC=4
   IF PORTC.1=1 THEN SAYAC=5
   IF PORTC.2=1 THEN SAYAC=6
   IF PORTC>0 THEN GOSUB EKRAN
   PORTD=0
   PORTD.2=1
   IF PORTC.0=1 THEN SAYAC=7
   IF PORTC.1=1 THEN SAYAC=8
   IF PORTC.2=1 THEN SAYAC=9
   IF PORTC>0 THEN GOSUB EKRAN
   PORTD=0
   PORTD.3=1
   IF PORTC.0=1 THEN SAYAC=10
   IF PORTC.1=1 THEN SAYAC=0
   IF PORTC.2=1 THEN SAYAC=11
   IF PORTC>0 THEN GOSUB EKRAN
   PORTD=0   
   
   PAUSE 200
   GOTO BASLA
   
EKRAN:
   SAYI=SAYI*10+SAYAC                   
   LCDOUT $FE,$80,"SAYI=",DEC4 SAYI
   WHILE PORTC>0 :WEND 
   RETURN

Senin yazdığın kodlarda ekran sürekli silinip yeniden yazılıyor bu doğru değil
verdiğm kodlar daha düzgün çalışacaktır

bahdiyarusta · 06 Haziran 2014, 22:33:01

ANLADIM HOCAM haklısınız... düzelltim çok teşekkür ederim...
kodları derlerken bi hata çıkıyor altta ama hex kodunu veriyor anlamadım nedir bu