[list]سلام دوستان
کسی از شما دوستان میتونه لطف بکنه این برنامه به زبان بیسیک رو به سی تبدیل کنه ؟
پیشاپیش ممنونم
کسی از شما دوستان میتونه لطف بکنه این برنامه به زبان بیسیک رو به سی تبدیل کنه ؟
پیشاپیش ممنونم
- [li][pre]$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
Config Timer0 = Counter , Edge = Rising
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Enable Interrupts
Enable Timer1
Enable Timer0
Config Lcd = 16 * 2 : Cursor Off
Dim A As Word , B As Word , D As Single , Dama As Byte , Dn As Byte
Dim Ap As Word , Astr As String * 10
Dim Dstr As String * 10
Cls
Lcd " IN THE NAME OF "
Locate 2 , 1
Lcd " GOD"
Wait 3
Cls
Lcd " Masoud Abbasi"
Locate 2 , 1
Lcd " 9979229305"
Wait 4
Cls
Start Timer0
'---------------------------------
Do
A = Getadc(3)
Pwm1b = A
Ap = A
If Ap > 1000 Then Ap = 1000
Ap = Ap / 10
If Ap < 5 Then PWM1B=0
B = Getadc(2)
D = B * 5
D = D / 1024
D = D / 0.01
Dama = D
Dn = Round(d)
Select Case D
Case Is < 20:
Pwm1a = 0
Case Is < 20:
Pwm1a = 0
Case 20 To 26:
Pwm1a = 600
Case 26 To 30:
Pwm1a = 730
Case 30 To 35:
Pwm1a = 900
Case Is > 35:
Pwm1a = 1023
End Select
Waitms 250
Stop Timer0
Cls
Lcd "SPEED: " ; Timer0 ; " RPS"
Locate 2 , 1
Lcd "L:" ; Ap ; "%"
Locate 2 , 9
Lcd "T:" ; Dn ; "'C"
Print "FAN SPEED:" ; Timer0 ; "RPS"
Print "LIGHT:" ; Ap ; " %"
Print "TEMP: " ; Dn ; "'C"
Waitms 400
Timer0 = 0
Start Timer0
Loop
- End[/pre][/li]
[li][/li]
دیدگاه