مشکل در بسکام(اضطراری)

[alikiller990]

سلام به دوستان عزیز.
کد برنامه ی ماشین حساب ساده به زبان بیسیک رو دارم که توی پروتئوس درست اجرا میشه ولی وقتی مدارو میبندم این عبارت به صورت چشمک زن ظاهر میشه:
0+0=0.0
من تازه کارم و خیلی وارد نیستم شاید از چیزهای پیش پا افتاده باشه که من بلد نیستم مثلا فیوز بیت ها و اینا
کد و عکس رو هم قرار میدم.

$regfile = "m16adef.dat"
$crystal = 1000000
Dim A As Word
Dim A1 As Word
Dim A2 As Word
Dim A3 As Word
Dim X As String * 2
Dim B As Word
Dim B1 As Word
Dim B2 As Word
Dim B3 As Word
Dim D As Single
Dim K1 As Byte
Dim K2 As Byte
Dim C As Byte
Config Kbd = Portb , Debounce = 50 , Delay = 100
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2

'*********************************

Main:

C = 0
Cls
Locate 1 , 5
Lcd "WELCOME"

'*********************************

Pro1:

K1 = Getkbd()
If K1 = 16 Then Goto Pro1
K2 = Lookup(k1 , Dat)
If K2 >= 10 Then
If K2 = 40 Then Goto Main
If K2 = 50 Then Goto Pro1
C = 0
Goto Pro3
End If

Incr C

If C = 1 Then
A1 = K2
A = A1
End If

If C = 2 Then
A2 = K2
A = A1 * 10
A = A + A2
End If

If C = 3 Then
A3 = K2
A1 = A1 * 100
A2 = A2 * 10
A = A1 + A2
A = A + A3
End If

Cls
Lcd A
If C = 3 Then
C = 0

'*********************************

Pro2:

K1 = Getkbd()
If K1 = 16 Then Goto Pro2
K2 = Lookup(k1 , Dat)
If K2 < 10 Then Goto Pro2
If K2 = 40 Then Goto Main
If K2 = 50 Then Goto Pro2
Goto Pro3
End If
Waitms 100
Goto Pro1

'*********************************

Pro3:

K2 = K2 / 10
Decr K2
X = Lookupstr(k2 , Sdat)
Cls
Lcd A ; X
Wait 1

'*********************************

Pro4:

K1 = Getkbd()
If K1 = 16 Then Goto Pro4
K2 = Lookup(k1 , Dat)
If K2 >= 10 Then
If K2 = 40 Then Goto Main
C = 0
Goto Pro6
End If

Incr C

If C = 1 Then
B1 = K2
B = B1
End If

If C = 2 Then
B2 = K2
B = B1 * 10
B = B + B2
End If

If C = 3 Then
B3 = K2
B1 = B1 * 100
B2 = B2 * 10
B = B1 + B2
B = B + B3
End If

Cls
Lcd A ; X ; B
If C = 4 Then

'*********************************

Pro5:

K1 = Getkbd()
If K1 = 16 Then Goto Pro5
K2 = Lookup(k1 , Dat)
If K1 <> 50 Then Goto Pro5
C = 0
Goto Pro6
End If
Waitms 100
Goto Pro4

'*********************************

Pro6:

Select Case X

Case Is = "/"
D = A / B

Case Is = "*"
D = A * B

Case Is = "-"
D = A - B

Case Is = "+"
D = A + B

End Select

Cls
Lcd A ; X ; B ; "=" ; D
Wait 1

'*********************************

Pro7:

K1 = Getkbd()
If K1 = 16 Then Goto Pro7
Goto Main

'*********************************

Dat:

Data 7 , 8 , 9 , 10 , 4 , 5 , 6 , 20 , 1 , 2 , 3 , 30 , 40 , 0 , 50 , 60

'*********************************

Sdat:

Data "/" , "*" , "-" , "ON" , "=" , "+"

لینک عکس
http://uploadkon.ir/fl/d/Njk4NjI%3D

[gmaissam]

پاسخ : مشکل در بسکام(اضطراری)

سلام لطفا فایل پرو تئوس را بزارید...