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

[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