Hallo Forum gemeinde und ein frohe sneues jahr 2016
ich möchte einen 7segment zähler mit 1 stelle also 0-9 Zählen, den code der zählt hab ich ja schon
aber ich wüste nicht wo ich da den taster einfüge und ob es jetzt richtig ist.....
Hier der code
CodeBox BascomAVR
es soll so funktionieren Taser oder kontakt wird geschlossen und zählt einen meher, und immer wieder von vohrne. bitte um rat
Mit Freundtlichen Grüßen
Thorsten Sch.
ich möchte einen 7segment zähler mit 1 stelle also 0-9 Zählen, den code der zählt hab ich ja schon
aber ich wüste nicht wo ich da den taster einfüge und ob es jetzt richtig ist.....
Hier der code
CodeBox BascomAVR
$regfile = "m8def.dat" $crystal = 8000000 $hwstack = 40 $swstack = 16 $framesize = 32 Config Portd.0 = Input Portd.0 = 1 Taster Alias Pind.0 Config Portb = Output Siebensegmentanzeige Alias Portb Dim Ziffer As Byte Dim Dezimalpunkt As Bit Dim I As Byte Do If Taster = 1 Then For Ziffer = 0 To 9' so richtig?????? 'For Ziffer = 0 To 9 Gosub Anzeige Wait 1 Next Ziffer Siebensegmentanzeige = 0 Wait 1 Ziffer = 0 Dezimalpunkt = 1 Gosub Anzeige Wait 1 Siebensegmentanzeige = 0 Dezimalpunkt = 0 Wait 1 Loop End Anzeige: Select Case Ziffer Case 0 : Siebensegmentanzeige = &B01111110 Case 1 : Siebensegmentanzeige = &B00001100 Case 2 : Siebensegmentanzeige = &B10110110 Case 3 : Siebensegmentanzeige = &B10011110 Case 4 : Siebensegmentanzeige = &B11001100 Case 5 : Siebensegmentanzeige = &B11011010 Case 6 : Siebensegmentanzeige = &B11111010 Case 7 : Siebensegmentanzeige = &B00001110 Case 8 : Siebensegmentanzeige = &B11111110 Case 9 : Siebensegmentanzeige = &B11011110 End Select If Dezimalpunkt = 1 Then Siebensegmentanzeige = Siebensegmentanzeige Or &B00000001 Return
es soll so funktionieren Taser oder kontakt wird geschlossen und zählt einen meher, und immer wieder von vohrne. bitte um rat
Mit Freundtlichen Grüßen
Thorsten Sch.