سلام دوستان
من یه برنامه نوشتم ومیخوام برای اولین بار که میکرو روشن میشه ،سه تا متغیرهام ،مقدار صفر داشته باشن وبعدازاون با توجه به برنامه این مقدار دوباره ودوبارهها پاک ونوشته میشه
چطورمیشه اینکارو کرد
اینم برنامم::::::: :angry:
$regfile = "m32def.dat"
$Crystal=4000000
$hwstack=40
$swstack=16
$framesize = 32
Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.6 , Db7 = Pinb.3 , E = Pinb.5 , Rs = Pinb.4
Dim X As Byte
Dim Y As Byte
Dim Z As Byte
Dim X0 As Eram Byte
Dim Y1 As Eram Byte
Dim Z2 As Eram Byte
Config Int0 = Rising
Config Int1 = Rising
Config Int2 = Rising
Enable Int0
Enable Int1
Enable Int2
Enable Interrupts
On Int0 W
On Int1 R
On Int2 Ch
Do
X = X0
Y = Y1
Z = Z2
Cls
Lcd X
Waitms 100
Cls
Lcd Y
Waitms 100
Cls
Lcd Z
waitms 100
Loop
End
W:
X = X0
Y = Y1
Z = Z2
Incr X
Decr Y
Decr Z
X0 = X
Y1 = Y
Z2 = Z
Return
R:
X = X0
Y = Y1
Z = Z2
Incr Z
Decr X
Decr Y
X0 = X
Y1 = Y
Z2 = Z
Return
Ch:
X = X0
Y = Y1
Z = Z2
Incr Y
Decr X
Decr Z
X0 = X
Y1 = Y
Z2 = Z
Return
من یه برنامه نوشتم ومیخوام برای اولین بار که میکرو روشن میشه ،سه تا متغیرهام ،مقدار صفر داشته باشن وبعدازاون با توجه به برنامه این مقدار دوباره ودوبارهها پاک ونوشته میشه
چطورمیشه اینکارو کرد
اینم برنامم::::::: :angry:
$regfile = "m32def.dat"
$Crystal=4000000
$hwstack=40
$swstack=16
$framesize = 32
Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.6 , Db7 = Pinb.3 , E = Pinb.5 , Rs = Pinb.4
Dim X As Byte
Dim Y As Byte
Dim Z As Byte
Dim X0 As Eram Byte
Dim Y1 As Eram Byte
Dim Z2 As Eram Byte
Config Int0 = Rising
Config Int1 = Rising
Config Int2 = Rising
Enable Int0
Enable Int1
Enable Int2
Enable Interrupts
On Int0 W
On Int1 R
On Int2 Ch
Do
X = X0
Y = Y1
Z = Z2
Cls
Lcd X
Waitms 100
Cls
Lcd Y
Waitms 100
Cls
Lcd Z
waitms 100
Loop
End
W:
X = X0
Y = Y1
Z = Z2
Incr X
Decr Y
Decr Z
X0 = X
Y1 = Y
Z2 = Z
Return
R:
X = X0
Y = Y1
Z = Z2
Incr Z
Decr X
Decr Y
X0 = X
Y1 = Y
Z2 = Z
Return
Ch:
X = X0
Y = Y1
Z = Z2
Incr Y
Decr X
Decr Z
X0 = X
Y1 = Y
Z2 = Z
Return
دیدگاه