Erstes AVR Projekt fertig

[Matthias T. (matthias_199)]

Ja also für die die sich an mich erinnern is alles kla,
für die die das nicht tun uch hab mich zum einstieg in avr und bascom 
einen zähler gebaut der die schüsse meiner Paintbalwaffe zählt.
In der nächsten zeit verbau ich alles in die Waffe dan lad ich vlt noch 
Bilder hoch.

So
Aber was ich jetzt schon präsentieren kann ist der programmcode.

$regfile "m8def.dat"
$crystal = 1000000

Config Portd = Output
Config Portb.0 = Input
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.7 = Output
Portb.0 = 1
Portb.1 = 0
Portb.2 = 1
Portb.7 = 1
Dim Hundert As Byte
Dim Zener As Byte
Dim Einer As Byte
Hundert = 0
Zener = 0
Einer = 0
Dim Pressed As Bit
Pressed = 0
Dim Dis(10) As Byte
Dis(1) = &B00000010
Dis(2) = &B11101010
Dis(3) = &B00110000
Dis(4) = &B10100000
Dis(5) = &B11001100
Dis(6) = &B10000101
Dis(7) = &B00000101
Dis(8) = &B11100010
Dis(9) = &B00000000
Dis(10) = &B10000000
Config Timer0 = Timer , Prescale = 64
Enable Timer0
On Timer0 Anezige_aktuall
Enable Interrupts


Do
   While Pressed = 1
      If Pinb.0 = 1 Then Pressed = 0
      If Pinb.0 = 0 Then Pressed = 1
      Portb.1 = 1
   Wend
   If Pinb.0 = 0 Then
      Pressed = 1
      Einer = Einer + 1
   End If
   If Einer = 10 Then
         Zener = Zener + 1
         Einer = 0
   End If
   If Zener = 10 Then
      Hundert = Hundert + 1
      Zener = 0
   End If
   If Hundert = 10 Then
      Hundert = 0
      Zener = 0
      Einer = 0
   End If
Loop

Anezige_aktuall:
   Portb.1 = 0
   Portb.2 = 1
   Portb.7 = 1
   Portd = Dis(hundert + 1)
   Waitms 4
   Portb.1 = 1
   Portb.2 = 0
   Portb.7 = 1
   Portd = Dis(zener + 1)
   Waitms 4
   Portb.1 = 1
   Portb.2 = 1
   Portb.7 = 0
   Portd = Dis(einer + 1)
Return

Lob un kritik sind erwünscht^^
Wobei ich mich doch darüber freuen würde zu erfahren was ich hätte 
besser machen können.
Und da fragen sich jetz sicher einige warum ich Portb.7 und nicht 3 
benutzt habe.
Nun erstens war ich mir nicht sicher ob das einfach so geht, zweitens 
wollte ich den ISP anschluss nicht he machen oder sonst was schrotten.

MFG Matthias