Arkadaşlar cevap basit sonunda onu da buldum ama program baya baya bi değişti ilgilenen arkadaşların işlerinde faydalı olabilir amacı ile burayada yazmakta fayda gördüm buyrun ...
komutumuz şu Print At 1,1,"murat" şeklinde girdiğimiz meşur komutumuzu şu şekilde esnettik mi halloldu demektir
önce bir değişken oluşturuyoruz adına stun diyelim
dim stun as byte
stun=1 'bunu bir yapıyoruz çünkü ekran 1.stundan başlayacak
işte komut şu şekilde oluyor
basla:
gosub tus_oku
print at 1,stun,basılan_tus
stun=stun+1
goto basla
tus_oku:
xxxx
xxxx
xxxx
return
end
arkadaşlar bu da yetmez diyerek sizlere komple yapılmış ve 11 hane olarak ekrana yazımızı alacak bir programı da yolluyorum neden 11 hane çünkü ülkemizde telefon numaraları 11 hane
'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 07.11.2008 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
Device 16F877A
ADCON1=7
Config XT_OSC , WDT_OFF , PWRTE_OFF , BODEN_OFF , LVP_OFF , CP_OFF , DEBUG_OFF
XTAL=4
Declare LCD_DTPIN PORTB.4''''''''''''LCD BAĞLANTISI''''''''''''''''''''''''''''''''''''''''''''''''''''''
Declare LCD_ENPIN PORTB.3
Declare LCD_RSPIN PORTB.2
Declare LCD_INTERFACE 4
Declare LCD_LINES 4''''''''''''''''''''''''LCD BAĞLANTISI''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TRISD=$0F
Symbol sat_1=PORTD.7''''''''''''''TUŞ TAKIMI BAĞLANTISI''''''''''''''''
Symbol sat_2=PORTD.6
Symbol sat_3=PORTD.5
Symbol sat_4=PORTD.4
Symbol sut_1=PORTD.3
Symbol sut_2=PORTD.2
Symbol sut_4=PORTD.1
Symbol sut_3=PORTD.0''''''''''''''TUŞ TAKIMI BAĞLANTISI''''''''''''''''
DelayMS 750 'LCD AÇILMASI İÇİN
PORTD=0
Dim BASILAN_TUS As Byte
BASILAN_TUS="*"
Dim GERCEK_SAYI As Byte
GERCEK_SAYI=0
Dim STUN As Byte
STUN=1
Dim SATIR As Byte
SATIR=1
Print At 1,1,"TELEFON ARAMA MODULU"
Print At 2,1,"PROJESINDEN ILK"
Print At 3,1,"ORNEK PROGRAM"
Print At 4,1,"<< MURAT YAGCI >>"
DelayMS 5000 : Print $FE,1
BASLA:
GoSub TUS_OKU
GoSub GOSTER
GoTo BASLA
TUS_OKU:
BASILAN_TUS="X"
sat_4=0
sat_3=0
sat_2=0
sat_1=1
If sut_1=1 Then BASILAN_TUS="1":GERCEK_SAYI=1
If sut_2=1 Then BASILAN_TUS="4":GERCEK_SAYI=4
If sut_3=1 Then BASILAN_TUS="7":GERCEK_SAYI=7
If sut_4=1 Then BASILAN_TUS="*"
sat_1=0
sat_2=1
If sut_1=1 Then BASILAN_TUS="2":GERCEK_SAYI=2
If sut_2=1 Then BASILAN_TUS="5":GERCEK_SAYI=5
If sut_3=1 Then BASILAN_TUS="8":GERCEK_SAYI=8
If sut_4=1 Then BASILAN_TUS="0":GERCEK_SAYI=0
sat_2=0
sat_3=1
If sut_1=1 Then BASILAN_TUS="3":GERCEK_SAYI=3
If sut_2=1 Then BASILAN_TUS="6":GERCEK_SAYI=6
If sut_3=1 Then BASILAN_TUS="9":GERCEK_SAYI=9
If sut_4=1 Then BASILAN_TUS="#"
sat_3=0
sat_4=1
If sut_1=1 Then BASILAN_TUS="A"
If sut_2=1 Then BASILAN_TUS="B"
If sut_3=1 Then BASILAN_TUS="C"
If sut_4=1 Then BASILAN_TUS="D"
sat_4=0
Return
GOSTER:
If BASILAN_TUS="X" Or BASILAN_TUS="A" Or BASILAN_TUS="B" Or BASILAN_TUS="C" Or BASILAN_TUS="D" Or BASILAN_TUS="*" Or BASILAN_TUS="#" Then
Return
EndIf
If STUN=0 Then STUN=1
If STUN>11 Then STUN=1
Print At SATIR,STUN,BASILAN_TUS
STUN=STUN+1
DelayMS 150
Return