lcd ekranda 1234 sayısını nasıl yazdırabilirim

Başlatan emreemre, 23 Nisan 2015, 14:54:18

dedim

Device =16F877AXtal  4TRISB=%00000111Dim TUS  As Byte Dim SIRA  As Byte Dim SAYI  As Word Declare  LCD_Type ALPHA   ; LCD type - alphanumericDeclare  LCD_DTPin  PORTD.4   ; LCD data portDeclare  LCD_ENPin  PORTD.3   ; E lineDeclare  LCD_RSPin  PORTD.2   ; RS lineDeclare  LCD_Interface 4   ; Word length of the tyre of dataDeclare  LCD_Lines   2   ; LCD lines numberSymbol YATAY_A= PORTB.4Symbol YATAY_B= PORTB.5Symbol YATAY_C= PORTB.6Symbol YATAY_D= PORTB.7Symbol DIKEY_1= PORTB.0Symbol DIKEY_2= PORTB.1Symbol DIKEY_3= PORTB.2CMCON=7OPTION_REG.7=0TUS=0DelayMS  200Print At 1,1,"SIFRE GIR"Print At 2,1,"SIFRE=>        "BASLA:PORTB =254YATAY_A=0If DIKEY_1=0 Then  TUS=1:GoSub EKRAN  While DIKEY_1=0:WendEndIfIf DIKEY_2=0 Then  TUS=2:GoSub EKRAN  While DIKEY_2=0:WendEndIf        If DIKEY_3=0 ThenTUS=3:GoSub EKRANWhile DIKEY_3=0WendEndIfHigh YATAY_AYATAY_B=0If DIKEY_1=0 ThenTUS=4:GoSub EKRANWhile DIKEY_1=0WendEndIfIf DIKEY_2=0 ThenTUS=5:GoSub EKRANWhile DIKEY_2=0WendEndIfIf DIKEY_3=0 ThenTUS=6:GoSub EKRANWhile DIKEY_3=0WendEndIfHigh YATAY_BYATAY_C=0If DIKEY_1=0 ThenTUS=7:GoSub EKRANWhile DIKEY_1=0WendEndIfIf DIKEY_2=0 ThenTUS=8:GoSub EKRANWhile DIKEY_2=0WendEndIfIf DIKEY_3=0 ThenTUS=9:GoSub EKRANWhile DIKEY_3=0WendEndIfHigh YATAY_CYATAY_D=0If DIKEY_1=0 Then'Tus=11:THEN PROGRAMA_GIRISWhile DIKEY_1=0WendEndIfIf DIKEY_2=0 ThenTUS=0:GoSub EKRANWhile DIKEY_2=0WendEndIfIf DIKEY_3=0 ThenSAYI=SAYI/10Print At 2,(11+SIRA)," "SIRA=SIRA-1While DIKEY_3=0WendEndIfHigh YATAY_DDelayMS 100GoTo BASLAEKRAN:SAYI=SAYI*10+TUSATLA:Print At 2,(8+SIRA),"*"SIRA=SIRA+1If SIRA=4 Then SIRA=0ReturnEnd


ete ustam kusuruma bakma code tag nasıl yapılıyor bilmedigim den dolayı mecburen böyle gönderdim.
emreemre bunu protonda denermısın.istedigin bunun gibi mi??

ETE EDIT: MESAJ EKRANINDA YUKARIDA ÜZERİNDE "#" İŞARETİ OLAN BUTON "KOD EKLE" BUTONUDUR. ONA BASINCA {code] {/code] ŞEKLİNDE BİR EKLENTİ YAPAR MESAJA İKİ KÖŞELİ PARANTEZ ARASINA KOD'U EKLEMENİZ GEREKİR.
SONUÇTA ŞUNU GÖRMENİZ GEREKİYOR ;
{CODE] SİZİN KODUNUZ {/code]

dedim

Device =16F877AXtal  4TRISB=%00000111Dim TUS  As Byte Dim SIRA  As Byte Dim SAYI  As Word Declare  LCD_Type ALPHA   ; LCD type - alphanumericDeclare  LCD_DTPin  PORTD.4   ; LCD data portDeclare  LCD_ENPin  PORTD.3   ; E lineDeclare  LCD_RSPin  PORTD.2   ; RS lineDeclare  LCD_Interface 4   ; Word length of the tyre of dataDeclare  LCD_Lines   2   ; LCD lines numberSymbol YATAY_A= PORTB.4Symbol YATAY_B= PORTB.5Symbol YATAY_C= PORTB.6Symbol YATAY_D= PORTB.7Symbol DIKEY_1= PORTB.0Symbol DIKEY_2= PORTB.1Symbol DIKEY_3= PORTB.2CMCON=7OPTION_REG.7=0TUS=0DelayMS  200Print At 1,1,"SIFRE GIR"Print At 2,1,"SIFRE=>        "BASLA:PORTB =254YATAY_A=0If DIKEY_1=0 Then  TUS=1:GoSub EKRAN  While DIKEY_1=0:WendEndIfIf DIKEY_2=0 Then  TUS=2:GoSub EKRAN  While DIKEY_2=0:WendEndIf        If DIKEY_3=0 ThenTUS=3:GoSub EKRANWhile DIKEY_3=0WendEndIfHigh YATAY_AYATAY_B=0If DIKEY_1=0 ThenTUS=4:GoSub EKRANWhile DIKEY_1=0WendEndIfIf DIKEY_2=0 ThenTUS=5:GoSub EKRANWhile DIKEY_2=0WendEndIfIf DIKEY_3=0 ThenTUS=6:GoSub EKRANWhile DIKEY_3=0WendEndIfHigh YATAY_BYATAY_C=0If DIKEY_1=0 ThenTUS=7:GoSub EKRANWhile DIKEY_1=0WendEndIfIf DIKEY_2=0 ThenTUS=8:GoSub EKRANWhile DIKEY_2=0WendEndIfIf DIKEY_3=0 ThenTUS=9:GoSub EKRANWhile DIKEY_3=0WendEndIfHigh YATAY_CYATAY_D=0If DIKEY_1=0 Then'Tus=11:THEN PROGRAMA_GIRISWhile DIKEY_1=0WendEndIfIf DIKEY_2=0 ThenTUS=0:GoSub EKRANWhile DIKEY_2=0WendEndIfIf DIKEY_3=0 ThenSAYI=SAYI/10Print At 2,(11+SIRA)," "SIRA=SIRA-1While DIKEY_3=0WendEndIfHigh YATAY_DDelayMS 100GoTo BASLAEKRAN:SAYI=SAYI*10+TUSATLA:Print At 2,(8+SIRA),"*"SIRA=SIRA+1If SIRA=4 Then SIRA=0ReturnEnd

dedim

tesekkür ederim ete ustam bundan sonra bu sekılde gönderirim.

emreemre

kardeşim verdigin programda silme tuşu iki defaya mahsus çalışıyor ama ben hepsini silicegim oyüzden sıkıntı  kolay gelsin

Powered by EzPortal