۲۱-خرداد-۱۳۹۴, ۱۲:۱۱:۰۶
سلام دوستان یه کد ساده دارم می خوام تبدیلش کنم به برنامه نویسی کد ویژن لطفا کمکم کنید.اینم کدش :
کد:
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Cls
Cursor Off
Home : Lcd "dor meter"
'---------------
Dim I As Long
Dim S As Single
'-----------------
Config Portc.5 = Input
Config Timer1 = Timer , Prescale = 1024
St:
Do
Timer1 = 0
Bitwait Pinc.5 , Set
Start Timer1
Bitwait Pinc.5 , Reset
Do
If Pinc.5 = 1 Then
Stop Timer1
I = Timer1
S = 0.000128 * I
S = S * 60
I = S
" ";Locate 2 , 1 : Lcd "dor" ; I
Wait 1
Goto St
End If
Loop
Loop
End