[FONT=Yekan]$regfile = "m8adef.dat"[/FONT]$crystal = 1000000
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Config Portd = Output
Config Portb = Output
Dim A As Integer , B As Single , C As Integer , D As Integer , F As Integer , V As Bit
Dim T As Byte
Dim H As Integer
Dim O As Integer
Dim P As Integer
Dim G As Eram Integer
Dim J As Integer
Dim K As Integer
Cursor Off
Cls
Asli:
H = G
O = H - 2
P = H + 2
Do
A = Getadc(0)
B = A * 5
B = B / 1023
C = B - 2.73
K = C
If K =< O Then Reset Portb.1
If K => P Then Set Portb.1
Debounce Pinc.2 , 1 , Moteghayer
Debounce Pinc.3 , 1 , Moteghayer
If C >= 0 Then
V = 0
F = C
End If
If C < 0 Then
V = 1
F = C * -1
End If
Locate 1 , 1
Lcd A
Locate 1 , 6
Lcd B
Locate 2 , 1
Lcd F
Locate 2 , 6
Lcd D
Reset Portb.6
Set Portb.7 : D = F Mod 10 : Gosub Np
Waitms 2
Reset Portb.7
Set Portb.6 : D = F / 10 : Gosub Np
Waitms 2
Loop
End
Np:
Portd = Lookup(d , 7seg)
Portd.7 = V
Waitms 4
Return
7seg:
Data &B1000000 , &B1111001 , &B0100100 , &B0110000 , &B0011001
Data &B0010010 , &B0000010 , &B1111000 , &B0000000 , &B0010000
Moteghayer:
J = H
T = 0
Do
Incr T
If T > 200 Then Goto Save_h
Debounce Pinc.2 , 1 , Afzayesh_h
Debounce Pinc.3 , 1 , Kahesh_h
Reset Portb.6
If J < 0 Then
J = J * -1
End If
Set Portb.7 : D = J Mod 10 : Gosub Np
Waitms 10
Reset Portb.7
Set Portb.6 : D = J / 10 : Gosub Np
Waitms 10
If H < 0 Then
V = 1
End If
If H > 0 Then
V = 0
End If
Loop
Afzayesh_h:
Incr H
Goto Moteghayer
Kahesh_h:
Decr H
Goto Moteghayer
Save_h:
G = H
[FONT=Yekan]Goto Asli[/FONT]
دیدگاه