Kód: Egész kijelölése
$regfile = "m16def.dat"
'$regfile = "m32def.dat"
$crystal = 8000000
Config Portd.6 = Output
Config Adc = Free , Prescaler = Auto
Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Portb , Ce = 3 , Cd = 0 , Wr = 2 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 8
Config Int0 = Rising
Config Int1 = Rising
Config Timer1 = Timer , Prescale = 256
Stop Timer1
Timer1 = 34285
Start Adc
Enable Int0
Enable Int1
Enable Timer1
Enable Interrupts
On Timer1 Pulse:
On Int0 Hall_m:
On Int1 Hall_k:
Dim X As Byte
Dim Y As Byte
Dim I As Word
Dim J As Word
Dim I2 As Byte
Dim I3 As Byte
Dim Hely1 As Byte
Dim Hallnumber_m As Word
Dim Hallnumber_k As Word
Dim Rps_k As Word
Dim Rps_m As Word
Dim Rpm As Word
Dim Tapfesz As Single
Dim Szoveg As String * 3
Dim In0 As Word
Dim Megtett_ut As Word
Dim Mehet As Bit
Dim Seb As Byte
Dim Useb As Word
Dim Fordulat As Word
Dim R As Word
Dim Uford As Word
Dim Nullazva As Bit
Declare Function Szamol(n As Word) As Byte
Declare Sub Digitwrite(kiirando As Byte , Hely As Byte)
Declare Sub Fordwrite(kiirando As Byte)
Declare Sub Megtettut
Declare Sub Analogmeres
'Clear the screen will both clear text and graph display
Cls
Cursor Off
Set Portd.6
Waitms 200
Reset Portd.6
Waitms 200
Set Portd.6
Waitms 200
Reset Portd.6
Start Timer1
Line(143 , 1) -(143 , 15) , 255
Line(142 , 1) -(142 , 15) , 255
Showpic 216 , 76 , Kmh
Useb = 255
Uford = 255
'====================================================================
'======================= F Ő P R O G R A M ========================
'====================================================================
Do
'-------- Digitszámkiratás
Seb = Szamol(rps_k)
Locate 3 , 1 : Lcd "seb: " ; Seb ; "km/h "
If Mehet = 1 Then
Useb = Seb
' Reset Nullazva
If Seb < 10 Then
I2 = Seb
Hely1 = 0
Call Digitwrite(i2 , Hely1)
End If
If Seb >= 10 Then
I2 = Seb / 10
Hely1 = 1
Call Digitwrite(i2 , Hely1)
I2 = I2 * 10
I3 = Seb - I2
Hely1 = 0
Call Digitwrite(i3 , Hely1)
End If
End If
'--------------------------------------------
'------- Fordulatszámcsíkkirajzolás ---------
'--------------------------------------------
If Mehet = 1 Then
Fordulat = Rps_m * 60
R = Fordulat / 5.2084
If R > 238 Then R = 238
For J = 1 To 239
Pset J , 1 , 0
Pset J , 2 , 0
Pset J , 3 , 0
Next J
For J = 1 To R
Pset J , 1 , 255
Pset J , 2 , 255
Pset J , 3 , 255
Next J
' Locate 6 , 1 : Lcd "Ford: " ; Fordulat ; "rpm "
Uford = Fordulat
' Locate 7 , 1 : Lcd "Rpm_m: " ; Rps_m ; " Rpm_k: " ; Rps_k ; " "
End If
If Mehet = 1 Then
'Cls
Call Analogmeres
Call Megtettut
End If
Reset Mehet
Loop
End
'====================================================================
'====================================================================
'====================================================================
'Sebesség kirajzolás digitális számjegyekkel
Sub Digitwrite(kiirando As Byte , Hely As Byte)
Local N As Byte
If Hely = 0 Then
N = 160
Else
N = 105
End If
Select Case Kiirando
Case 0 : Showpic N , 25 , Nulla
Case 1 : Showpic N , 25 , Egy
Case 2 : Showpic N , 25 , Ketto
Case 3 : Showpic N , 25 , Harom
Case 4 : Showpic N , 25 , Negy
Case 5 : Showpic N , 25 , Ot
Case 6 : Showpic N , 25 , Hat
Case 7 : Showpic N , 25 , Het
Case 8 : Showpic N , 25 , Nyolc
Case 9 : Showpic N , 25 , Kilenc
End Select
End Sub
'Tápfeszültség mérés-kijelzés
Sub Analogmeres
In0 = Getadc(0)
Tapfesz = In0 * 0.0048828125
Tapfesz = Tapfesz * 2
Szoveg = Fusing(tapfesz , "#.#")
Locate 13 , 1
Lcd "Tap: " ; Szoveg ; "V"
End Sub
'Megtett út kijelzése
Sub Megtettut
Megtett_ut = Rps_k * 0.41 '1.65m a kerék kerülete
Locate 4 , 1 : Lcd "Ut: " ; Megtett_ut ; "m"
End Sub
'Sebesség számítása
Function Szamol(n As Word) As Byte
Local Sebesseg As Single
Local W As Single
Locate 4 , 1 : Lcd N ; " "
W = 6.283185 * 0.26 'W (omega) = 2 * PI * r (fordulatszám)
Sebesseg = W * N 'v = W * n
Sebesseg = Sebesseg * 3.6
Szamol = Sebesseg
End Function
'Időzítőmegszakítás 1s-onként
Pulse:
Stop Timer1
Rps_m = Hallnumber_m
Hallnumber_m = 0
Rps_k = Hallnumber_k
Hallnumber_k = 0
Timer1 = 34285
Set Mehet
Start Timer1
Return
'Motor HALL szenzor megszakítás
Hall_m:
Incr Hallnumber_m
'Locate 3 , 1 : Lcd "1"
Gifr = 64
Return
'Kerék HALL szenzor megszakítás
Hall_k:
Incr Hallnumber_k
Gifr = 128
Return
'--------------------------------------------------------------------
'--------------------------- K É P E K ----------------------------
'Pajy:
'$bgf "pajy.bgf"
'Master:
'$bgf "master.bgf"
Nulla:
$bgf "0.bgf"
Egy:
$bgf "1.bgf"
Ketto:
$bgf "2.bgf"
Harom:
$bgf "3.bgf"
Negy:
$bgf "4.bgf"
Ot:
$bgf "5.bgf"
Hat:
$bgf "6.bgf"
Het:
$bgf "7.bgf"
Nyolc:
$bgf "8.bgf"
Kilenc:
$bgf "9.bgf"
Kmh:
$bgf "kmh.bgf"
