kay مثل اینکه بوقم ها ولی خبر نداشتیم (ولی باید شروع کرد, بنده علاقه شدید دارم امیدوارم که استعدادمم خودشو کم کم نشون بده),
oo: oo:
$regfile = "m16def.dat"
$crystal = 12000000
Config Kbd = Portb , Debounce = 50
$sim
'----------------
Dim My_kbd As Byte , Count As Byte
Dim Total As Single , True As Long , Half As Single , Reserve As Single , Reserve2 As Single
'----------------
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6
Config Lcd = 20 * 4
Cursor Off
Main:
Total = 0
True = 0
Half = 0
Count = 1
Do
Get_again:
My_kbd = Getkbd()
My_kbd = Lookup(my_kbd , My_data)
If My_kbd > 15 Then Goto Get_again
'chek if * pressed go to ashaar
If My_kbd > 9 Then
If My_kbd = 12 Then Goto Ashaar
End If
If True = 0 Then
True = My_kbd
Else
True = True * 10
True = True + My_kbd
End If
Cls
Lcd "True" ; True
Lowerline
Lcd "kbd" ; My_kbd
Loop
Ashaar:
Cls
Lcd True ; ".00"
Do
Get_again2:
My_kbd = Getkbd()
My_kbd = Lookup(my_kbd , My_data)
If My_kbd > 15 Then Goto Get_again2
'chek if * pressed go to ashaar
If My_kbd > 9 Then
If My_kbd = 12 Then
Cls
Home
Total = True + Half
Lcd "TOTAL IS " ; Total
Wait 5
End If
End If
Reserve = My_kbd
Reserve2 = 10 ^ Count
Reserve = Reserve / Reserve2
Half = Half + Reserve
Incr Count
Cls
Home
Total = True + Half
Lcd "TOTAL IS " ; Total
Lowerline
'Lcd "half " ; Half
Loop
Goto Main
'Cls
'Lcd B
'Waitms 50
My_data:
Data 1 , 2 , 3 , 10 , 4 , 5 , 6 , 11 , 7 , 8 , 9 , 13 , 12 , 0 , 14 , 15
oo: جریان چیه؟؟؟$regfile = "m16def.dat" $crystal = 8000000 '-------------------------------------- Config Kbd = Portd , Debounce = 50 '-------------------------------------- Dim A As Byte Dim B As Single Dim C As Single Dim D As Single Dim E As Single Dim F As Single Dim G As Single Dim H As Single Dim I As Single Dim J As Single Dim K As Single Dim M As Single Dim N As Byte Dim Y As Byte '-------------------------------------- B = 0 N = 2 Y = 1 F = 0 '-------------------------------------- One: A = Getkbd() A = Lookup(a , My_data) If A = 12 Then Goto Two If A > 9 Then Goto One If B = 0 Then B = A Else B = B * 10 B = B + A End If Cls Lcd B Incr Y Waitms 50 Goto One Two: Locate 1 , Y Lcd ". " Waitms 50 Incr Y Goto Three Three: Do A = Getkbd() A = Lookup(a , My_data) If A = 1 Then Goto Four If A = 2 Then Goto Four If A = 3 Then Goto Four If A = 4 Then Goto Four If A = 5 Then Goto Four If A = 6 Then Goto Four If A = 7 Then Goto Four If A = 8 Then Goto Four If A = 9 Then Goto Four If A = 0 Then Incr Y C = 10 ^ N D = 1 / C E = B + D Cls Lcd E 'Locate 1 , Y 'Lcd " " Incr N Waitms 50 End If Goto Three Loop Four: F = A G = F * D H = E + G Cls Lcd H Waitms 50 Goto Five Five: Do A = Getkbd() A = Lookup(a , My_data) If A > 9 Then Goto Five If A = 0 Then Goto Six If A = 1 Then Goto Six If A = 2 Then Goto Six If A = 3 Then Goto Six If A = 4 Then Goto Six If A = 5 Then Goto Six If A = 6 Then Goto Six If A = 7 Then Goto Six If A = 8 Then Goto Six If A = 9 Then Goto Six Six: M = A I = 10 ^ N J = M / I K = H + J Incr N Cls Lcd K Waitms 50 M = 0 Loop My_data: Data 1 , 2 , 3 , 10 , 4 , 5 , 6 , 11 , 7 , 8 , 9 , 13 , 12 , 0 , 14 , 15
oo: 
:cry:فکر کنم در عمل حله,درسته؟؟
oo: جریان چیه؟؟؟ 
دیدگاه