سلام به دوستان عزیز-- آقا من میخوام تو برنامه زیر با زدن کلید 10 در صفحه ماتریسی به زیربرنامه TEST بره و زیر برنامه رشته S را به پورت کام بفرسته-تو زیربرنامه TEST چی باید بنویسم؟؟؟؟یعنی با چه دستوراتی اطلاعاتو به پورت کام میفرسته—مرسی مرسی
اگه توضیح کامل بدین و برنامه ای ک باید بنویسمو بگین ممنون میشم--میگمن گویی باید از آی استفاده کنم چرا و چگونه؟؟,max233
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , Rs = Portb.4 , E = Portb.5
Config Kbd = Porta
Dim S As String * 4
Dim A As Byte
S=" "
Main:
Home
Cls
Waitms 50
Lcd "enter your number:"
Do
A = Getkbd()
If A < 10 Then S = S + Str(a)
If A = 10 Then Goto Test
If A > 11 Then Goto Main
Loop
End
Test:
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
؟؟؟؟؟؟؟؟؟؟؟؟؟؟� �؟؟؟
megsi
اگه توضیح کامل بدین و برنامه ای ک باید بنویسمو بگین ممنون میشم--میگمن گویی باید از آی استفاده کنم چرا و چگونه؟؟,max233
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , Rs = Portb.4 , E = Portb.5
Config Kbd = Porta
Dim S As String * 4
Dim A As Byte
S=" "
Main:
Home
Cls
Waitms 50
Lcd "enter your number:"
Do
A = Getkbd()
If A < 10 Then S = S + Str(a)
If A = 10 Then Goto Test
If A > 11 Then Goto Main
Loop
End
Test:
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
؟؟؟؟؟؟؟؟؟؟؟؟؟؟� �؟؟؟
megsi