مشکل کیپد در BASCOM

[3xbox.mohammad]

سلام
میخواستم با بسکام دو عدد را یکی برای تایمم و دیگری برای تاخیر پر کنم عدد اول مشکلی پیش نمی اید اما وقتی عدد دوم را میخوام بگیرم نمیشه برنامم رو چطور بنویسم>؟


$regfile = "m16def.dat"
$crystal = 8000000
Config Kbd = Portb , Delay = 200 , Debounce = 100
Config Portd = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim T As Byte
Dim R As Byte
Dim Count As Word
Dim Second As Byte


Main:
Cls
Locate 1 , 6
Lcd "Time :"
Do
A = Getkbd()
A = Lookup(a , Key)
Select Case A
Case Is < 10:
B = B * 10
B = B + A
Locate 2 , 7 : Lcd B ; " "
Case 15:
Goto Del
Case 13:
B = B / 10
Locate 2 , 7 : Lcd B ; " "
End Select
Loop



Del:
Cls
Locate 1 , 6
Lcd "delay :"
Do
C = Getkbd()
C = Lookup(c , Key)
Select Case C
Case Is < 10:
D = D * 10
D = D + C
Locate 2 , 7 : Lcd B ; " "
Case 15:
Goto Motor
Case 13:
D = D / 10
Locate 2 , 7 : Lcd B ; " "
End Select
Loop

[khast khodaiebehnam]

پاسخ : مشکل کیپد در BASCOM

با این باید مشکلت حل بشه






$regfile = "m16def.dat"
$crystal = 8000000
Config Kbd = Portb , Delay = 200 , Debounce = 100
Config Portd = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim T As Byte
Dim R As Byte
Dim Count As Word
Dim Second As Byte


Main:
Cls
Locate 1 , 6
Lcd "Time :"
Do
A = Getkbd()
A = Lookup(a , Key)
Select Case A
Case Is < 10:
B = B * 10
B = B + A
Locate 2 , 7 : Lcd B ; " "
If C = 15 Then
Cls
Locate 1 , 6
Lcd "delay :"
Do
C = Getkbd()
C = Lookup(c , Key)

If C < 10 Then
D = D * 10
D = D + C
Locate 2 , 7 : Lcd B ; " "
End If
If C = 15 Then
Goto Motor
If C = 13 Then
D = D / 10
Locate 2 , 7 : Lcd B ; " "
End If
If C = 13 Then
B = B / 10
Locate 2 , 7 : Lcd B ; " "
End If

End If
Loop





Loop



یه lable اضاف داشتی که دستش نزدم_motor

[3xbox.mohammad]

پاسخ : مشکل کیپد در BASCOM

با این باید مشکلت حل بشه






$regfile = "m16def.dat"
$crystal = 8000000
Config Kbd = Portb , Delay = 200 , Debounce = 100
Config Portd = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim T As Byte
Dim R As Byte
Dim Count As Word
Dim Second As Byte


Main:
Cls
Locate 1 , 6
Lcd "Time :"
Do
A = Getkbd()
A = Lookup(a , Key)
Select Case A
Case Is < 10:
B = B * 10
B = B + A
Locate 2 , 7 : Lcd B ; " "
If C = 15 Then
Cls
Locate 1 , 6
Lcd "delay :"
Do
C = Getkbd()
C = Lookup(c , Key)

If C < 10 Then
D = D * 10
D = D + C
Locate 2 , 7 : Lcd B ; " "
End If
If C = 15 Then
Goto Motor
If C = 13 Then
D = D / 10
Locate 2 , 7 : Lcd B ; " "
End If
If C = 13 Then
B = B / 10
Locate 2 , 7 : Lcd B ; " "
End If

End If
Loop





Loop



یه lable اضاف داشتی که دستش نزدم_motor

ممنون ولی End Select
لازم نیست ؟
خطا میگیره

[khast khodaiebehnam]

پاسخ : مشکل کیپد در BASCOM

اره دوست عزیز .حق با شماست .من کامپایل نکرده بودم
شرمنده دوست عزیز .یه کم کوتاهی کردم.ببخش

[3xbox.mohammad]

پاسخ : مشکل کیپد در BASCOM

اره دوست عزیز .حق با شماست .من کامپایل نکرده بودم
شرمنده دوست عزیز .یه کم کوتاهی کردم.ببخش

شما استاد ما هستی این چه حرفیه اقا
من شرمنده ؟حالا خطاها رو چطور رفع کنم