(درس و مشق فعالیتمو تو انجمن کم کرده)
$regfile = "m32def.dat"
$crystal = 8000000
'------------------------------------------------------------------------------------------
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.1 , _
Db6 = Portc.0 , Db7 = Portd.7 , E = Portc.3 , Rs = Portc.4
Config Lcd = 16 * 2
Cursor Off : Cls
Dim B As Byte
Dim Aaa As Long , Bbb As Byte
Dim V As Word , W As Single , X As Byte , Y As String * 6 , V1 As Single
Dim Z As Word , I As Single , X1 As Byte , Y1 As String * 5 , I1 As Single
'-------------------------------------------------------------------------------------------
Config Pinb.1 = Input
Portb.1 = 1
B = 0
'-------------------------------------------------------------------------------------------
Locate 1 , 1
Lcd "YAVAR MOHANDES"
Locate 2 , 1
Lcd "09115506309"
Wait 2
Cls
Locate 1 , 1
Lcd "09115506309"
Locate 2 , 2
Lcd "S.C.N.CO v3"
Wait 3 : Cls
'-------------------------------------------------------------------------------------------
Config Timer1 = Counter , Edge = Rising
Config Timer2 = Timer , Async = On , Prescale = 128
Enable Timer2
Enable Ovf2
On Ovf2 Sky
'-------------------------------------------------------------------------------------------
Enable Interrupts
Enable Timer1
On Ovf1 Pulsecount
Start Timer2
'-------------------------------------------------------------------------------------------
Config Adc = Single , Prescaler = Auto
Enable Adc
Goto Sectic
'-------------------------------------------------------------------------------------------
Sky:
Cursor Off
Stop Timer2
Stop Timer1
'Cls : Home
Aaa = Bbb * 65536
Aaa = Aaa + Counter1
Locate 1 , 1
Lcd " "
Locate 1 , 1
Lcd "Freq: " ; Aaa ; " HZ "
Bbb = 0
Counter1 = 0
Start Timer2
Start Timer1
Return
'--------------------------------------------------------------------------------------------
Pulsecount:
Incr Bbb
Counter1 = 0
Return
'--------------------------------------------------------------------------------------------
Sectic:
Do
Incr B
Select Case B
Case 1:
Start Adc : V = Getadc(0) : Waitms 100 : Stop Adc
W = V / 28.416
Y = Fusing(w , "#.##")
V1 = Val(y)
Goto Sectic
Case 2:
Start Adc : Z = Getadc(1) : Waitms 100 : Stop Adc
I = Z / 106
Y1 = Fusing(i , "#.##")
I1 = Val(y1)
B = 0
Goto Onlcd
End Select
Loop
End
'--------------------------------------------------------------------------------------------
Onlcd:
Goto Showi
'--------------------------------------------------------------------------------------------
Showi:
Locate 2 , 1
Lcd " "
Locate 2 , 1
If V1 => 10 Then
Lcd "V:" ; Y ; "V"
Else
Lcd "V:" ; Y ; "V" ; " "
End If
Locate 2 , 9
If I1 => 10 Then
Lcd "I:" ; Y1 ; "A"
Else
Lcd "I:" ; Y1 ; "A" ; " "
End If
Waitms 250
Goto Onlcd
(درس و مشق فعالیتمو تو انجمن کم کرده)
دیدگاه