Moin.
Hab ein kleines Problem mit dem angehängten Programm.
Der Pin INT0 (PD2) wird mit einem 4,7k-Widerstand auf Masse gezogen; Impuls ist ein 5V-Puls.
Kurze Beschreibung:
Das Programm ist ein Drehzahlmesser, der aus den Impulsen der Zündspule die Drehzahl errechnen und auf einem 4stelligen 7-Seg. Display anzeigen soll.
Nach dem Selbsttest, bei dem nacheinander alle Segmente einzeln durchlaufen, soll die Zeit zwischen 2 Impulsen gemessen werden. Dieser Abstand wird dann in die Drehzahl umgerechnet. Läuft der Timer über (Motor steht, Drehzahl zu langsam), dann soll auf dem Display "----" erscheinen. Ansonsten die 4-stellige Drehzahl mit evtl führenden Nullen.
Ohne Impuls erscheint nach dem Selbsttest auch die "----"
Bei Eingang eines Impulses startet der AVR aber neu.
Stimmt da Softwaretechnisch was nicht?
MfG
Code:
Code:
$regfile = "m8def.dat"
$crystal = 8000000
'$prog &HFF , &HE1 , &HD9 , &H00
$framesize = 32
$swstack = 32
$hwstack = 32
'7 Segmente
Config Pinc.5 = Output : Ledsega Alias Portc.5
Config Pinc.4 = Output : Ledsegb Alias Portc.4
Config Pinc.3 = Output : Ledsegc Alias Portc.3
Config Pinc.2 = Output : Ledsegd Alias Portc.2
Config Pinc.1 = Output : Ledsege Alias Portc.1
Config Pinc.0 = Output : Ledsegf Alias Portc.0
Config Pinb.5 = Output : Ledsegg Alias Portb.5
'Segmentauswahl
Config Pind.5 = Output : Z1 Alias Portd.5
Config Pind.6 = Output : Z2 Alias Portd.6
Config Pind.7 = Output : Z3 Alias Portd.7
Config Pinb.0 = Output : Z4 Alias Portb.0
'Timer-Config
Enable Interrupts
Config Timer1 = Timer , Prescale = 8
On Timer1 Isrtimer1
Timer1 = 0
Enable Timer1
'Interrupt
Config Int0 = Rising
Enable Int0
On Int0 Isrint0
'Variablen & Subs
Declare Sub Getsegs
Dim Ledchar As String * 1
Dim Char1 As String * 1
Dim Char2 As String * 1
Dim Char3 As String * 1
Dim Char4 As String * 1
Dim Sega As Bit
Dim Segb As Bit
Dim Segc As Bit
Dim Segd As Bit
Dim Sege As Bit
Dim Segf As Bit
Dim Segg As Bit
Dim Ziffer As Word
Dim Ledstring As String * 4
Dim Messbeginn As Long
Dim Messende As Long
Dim Taktdauer As Long
Dim Drehzahl As Double
'Hier Selbsttest; aus Übersichtlichkeitsgründen rausgenommen
Do
Char1 = Mid(ledstring , 1 , 1)
Char2 = Mid(ledstring , 2 , 1)
Char3 = Mid(ledstring , 3 , 1)
Char4 = Mid(ledstring , 4 , 1)
For Ziffer = 1 To 4
If Ziffer = 1 Then
Z1 = 1 : Z2 = 0 : Z3 = 0 : Z4 = 0
Ledchar = Char1
End If
If Ziffer = 2 Then
Z1 = 0 : Z2 = 1 : Z3 = 0 : Z4 = 0
Ledchar = Char2
End If
If Ziffer = 3 Then
Z1 = 0 : Z2 = 0 : Z3 = 1 : Z4 = 0
Ledchar = Char3
End If
If Ziffer = 4 Then
Z1 = 0 : Z2 = 0 : Z3 = 0 : Z4 = 1
Ledchar = Char4
End If
Getsegs
If Sega = 1 Then
Ledsega = 1 : Waitms 1 : Ledsega = 0 : End If
If Segb = 1 Then
Ledsegb = 1 : Waitms 1 : Ledsegb = 0 : End If
If Segc = 1 Then
Ledsegc = 1 : Waitms 1 : Ledsegc = 0 : End If
If Segd = 1 Then
Ledsegd = 1 : Waitms 1 : Ledsegd = 0 : End If
If Sege = 1 Then
Ledsege = 1 : Waitms 1 : Ledsege = 0 : End If
If Segf = 1 Then
Ledsegf = 1 : Waitms 1 : Ledsegf = 0 : End If
If Segg = 1 Then
Ledsegg = 1 : Waitms 1 : Ledsegg = 0 : End If
Next
Loop
Sub Getsegs
Select Case Ledchar
Case "0"
Sega = 1 : Segb = 1 : Segc = 1 : Segd = 1 : Sege = 1 : Segf = 1 : Segg = 0
Case "1"
Sega = 0 : Segb = 1 : Segc = 1 : Segd = 0 : Sege = 0 : Segf = 0 : Segg = 0
Case "2"
Sega = 1 : Segb = 1 : Segc = 0 : Segd = 1 : Sege = 1 : Segf = 0 : Segg = 1
Case "3"
Sega = 1 : Segb = 1 : Segc = 1 : Segd = 1 : Sege = 0 : Segf = 0 : Segg = 1
Case "4"
Sega = 0 : Segb = 1 : Segc = 1 : Segd = 0 : Sege = 0 : Segf = 1 : Segg = 1
Case "5"
Sega = 1 : Segb = 0 : Segc = 1 : Segd = 1 : Sege = 0 : Segf = 1 : Segg = 1
Case "6"
Sega = 1 : Segb = 0 : Segc = 1 : Segd = 1 : Sege = 1 : Segf = 1 : Segg = 1
Case "7"
Sega = 1 : Segb = 1 : Segc = 1 : Segd = 0 : Sege = 0 : Segf = 0 : Segg = 0
Case "8"
Sega = 1 : Segb = 1 : Segc = 1 : Segd = 1 : Sege = 1 : Segf = 1 : Segg = 1
Case "9"
Sega = 1 : Segb = 1 : Segc = 1 : Segd = 1 : Sege = 0 : Segf = 1 : Segg = 1
Case "-"
Sega = 0 : Segb = 0 : Segc = 0 : Segd = 0 : Sege = 0 : Segf = 0 : Segg = 1
Case "B" ' = Blank
Sega = 0 : Segb = 0 : Segc = 0 : Segd = 0 : Sege = 0 : Segf = 0 : Segg = 0
Case "L"
Sega = 0 : Segb = 0 : Segc = 0 : Segd = 1 : Sege = 1 : Segf = 1 : Segg = 0
Case "o"
Sega = 0 : Segb = 0 : Segc = 1 : Segd = 1 : Sege = 1 : Segf = 0 : Segg = 1
End Select
End Sub
Isrint0:
Messende = Timer1
Taktdauer = Messende - Messbeginn
Drehzahl = 30 / Taktdauer ' 2 Takte pro Umdrehung
Drehzahl = Fix(drehzahl)
Ledstring = Str(drehzahl)
'Länge auf 4 Zeichen anpassen
If Len(ledstring) = 1 Then Ledstring = "000" + Ledstring
If Len(ledstring) = 2 Then Ledstring = "00" + Ledstring
If Len(ledstring) = 3 Then Ledstring = "0" + Ledstring
If Len(ledstring) > 4 Then Ledstring = Right(ledstring , 4)
Timer1 = 0
Messbeginn = Timer1
Return
Isrtimer1:
'Bei Überlauf (= Motor steht) Display auf "----"
Ledstring = "----"
Return
End
Berechtigungen
Zitieren
Lesezeichen