Atmega8 Bascom Programmierung

[Zexon (Gast)]

Hallo ich hab vor kurzen mir ein Pollin Evu Board gekauft , ich hab das 
beispiel Testtool auf einen Atmega8 gespielt. Jetzt möchte ich aber gern 
das wenn man auf denn 1. Taster drückt das dass LED Blinkt bis der 
Taster wieder gedrückt wird hab schon im Forum gesucht aber nicht 
passendes gefunden.

So würde das ausschauen Taster LED An Taster LED AUS

$regfile = "m8def.dat"                                      'Atmega = m8def.dat

$crystal = 8000000                                          'Externen Quarz (8MHz)

Dim A As Byte                                               'Variablen
Dim B As Byte

Ddrd = &B11100000                                           'definieren der verwendeten Ports ( 1 = ausgang; 0= eingang)
Portd = &B00000000                                          'definieren der einzelnen Pins an einem Port ( 0= low level; 1= high level)

Main
Do

  If Pind.2 = 1 Then

  Toggle Portd , 5
  Bitwait Pind.2 , Reset

  End If




Loop

Kann mir jemand vl ein Beispiel geben, ich komm nicht drauf wie man das 
machen kann -.- würde mir sehr weiterhelfen, sry bin noch Anfänger  ;)

MFG Zexon

[danst (Gast)]

Hi,

du musst nur die Zeile mit dem Bitwait auskommentieren. Außerdem würde 
ich eine kleine Pause einlegen, um den Taster zu entprellen. Dafür 
gibt's in Bascom auch einen Befehl "debounce".

$regfile = "m8def.dat"                                      'Atmega = m8def.dat

$crystal = 8000000                                          'Externen Quarz (8MHz)

Dim A As Byte                                               'Variablen
Dim B As Byte
Dim Zustand As Bit

Ddrd = &B11100000                                           'definieren der verwendeten Ports ( 1 = ausgang; 0= eingang)
Portd = &B00000000                                          'definieren der einzelnen Pins an einem Port ( 0= low level; 1= high level)

Main

Do

  If Pind.2 = 1 Then
  waitms 25
  Toggle Portd , 5
                                         'Bitwait Pind.2 , Reset

  End If



Loop

Gruß Daniel

[danst (Gast)]

ups, du willst es ja blinken lassen.

$regfile = "m8def.dat"                                      'Atmega = m8def.dat

$crystal = 8000000                                          'Externen Quarz (8MHz)

Dim A As Byte                                               'Variablen
Dim B As Byte
Dim Zustand As Bit

Ddrd = &B11100000                                           'definieren der verwendeten Ports ( 1 = ausgang; 0= eingang)
Portd = &B00000000                                          'definieren der einzelnen Pins an einem Port ( 0= low level; 1= high level)

Main

Do

  If Pind.2 = 1 Then
     do
       Toggle Portd.5
       wait 1                                        'blinken im Sekunden TAkt
     loop until pind.2 = 1
     Portd.5 = 0
  End If

Loop

eleganter ist die Programmierung der Pause mittels eines Timers, da der 
Controller sonst blockiert wird

Gruß Daniel