Tuş takımında lcd ye çok basamaklı sayı girişi

as hocam sagolsaın artık gına geldı gercekten bu ısten.. yalnız ben goremedım galiba eklemeyı unutmussun :)
 
muratmert4 hocam bilgilerin için teşekkür ederim.programı inrdirdim.projemde önemli bir noktada katkınız oldu..:)
 
Benzer bir uygulama yapmıştım. Tuş okuma kodları aşağıdadır..
temp uzunlugunu kontrol ederek istedigin hane kadar değişkeni tutabilirsin.
procedure tus_oku;
begin
kp := 0;
while ( kp = 0 ) do
kp := Keypad_Key_Click();
case kp of
1: begin temp := temp + '1'; end; // 1
2: begin temp := temp + '2'; end; // 2
3: begin temp := temp + '3';end; // 3
5: begin temp := temp + '4'; end; // 4
6: begin temp := temp + '5'; end; // 5
7: begin temp := temp + '6'; end; // 6
9: begin temp := temp + '7'; end; // 7
10: begin temp := temp + '8'; end; // 8
11: begin temp := temp + '9'; end; // 9
13: begin temp := '';Lcd_out(2,1,' ');end; // * SIL TUSU
14: begin temp := temp + '0'; end; // 0
end;
Lcd_Out(2,1,temp);
end;
 

Forum istatistikleri

Konular
128,964
Mesajlar
922,133
Kullanıcılar
451,157
Son üye
AZK01

Yeni konular

Geri
Üst