سلام دوستان من یه کد ساده دارم که بیسیک و می خوام تبدیلش کنم به c اما مشکل دارم کسی میتونه کمک کنه؟کدش سادس
[code=qbasic]$regfile = "m32def.dat"
$crystal = 8000000
'----------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = _
Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Cursor Off
'-----------
Config Timer1 = Counter , Edge = Rising
Ddrb.1 = 0
Portb.1 = 1
'-------
Config Timer0 = Timer , Prescale = 1024
'---------------
Enable Timer1
Enable Timer0
Enable Interrupts
'---------------------
On Ovf1 Pulse_counter
On Ovf0 Lbl1
'-------------------
Dim A As Long , B As Byte , I As Long
B = 0
'----------------------------
Cls
Locate 1 , 1
Lcd "Frequency meter"
Locate 2 , 1
Lcd "started"
Wait 5
Cls
'-----------------------
Start Timer0
'------------
Do
Loop
End 'end program
'--------------
Lbl1:
Incr I
If I > 30 Then
Stop Timer0
Cls
Home
A = B * 65536
A = A + Counter1
Lcd "frequency:"
Locate 2 , 1
Lcd A ; " HZ"
B = 0
I = 0
Counter1 = 0
Start Timer0
End If
Return
'----------------------
Pulse_counter:
Incr B
Counter1 = 0
Return
[/code]
[code=qbasic]$regfile = "m32def.dat"
$crystal = 8000000
'----------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = _
Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Cursor Off
'-----------
Config Timer1 = Counter , Edge = Rising
Ddrb.1 = 0
Portb.1 = 1
'-------
Config Timer0 = Timer , Prescale = 1024
'---------------
Enable Timer1
Enable Timer0
Enable Interrupts
'---------------------
On Ovf1 Pulse_counter
On Ovf0 Lbl1
'-------------------
Dim A As Long , B As Byte , I As Long
B = 0
'----------------------------
Cls
Locate 1 , 1
Lcd "Frequency meter"
Locate 2 , 1
Lcd "started"
Wait 5
Cls
'-----------------------
Start Timer0
'------------
Do
Loop
End 'end program
'--------------
Lbl1:
Incr I
If I > 30 Then
Stop Timer0
Cls
Home
A = B * 65536
A = A + Counter1
Lcd "frequency:"
Locate 2 , 1
Lcd A ; " HZ"
B = 0
I = 0
Counter1 = 0
Start Timer0
End If
Return
'----------------------
Pulse_counter:
Incr B
Counter1 = 0
Return
[/code]
دیدگاه