Mega8 soll bei 5V Signal schalten

Hallo

Ich bin in Bascom noch ein ziemlicher Anfänger.
Nun es ist so, dass mein MEga8 bei einem 5V Signal am Eingang dann die Motoren schalten soll.

Wie muss ich das programmieren...
Momentan sieht das ganze so aus:

Code:

---

$regfile = "m8def.dat"                                   
$crystal = 3686411                                         

Ddrd = &B11110000                                       
Ddrc = &B00000000





Do

Loop

  If Pinc.2 = 1 Then                                   

    Portd.4 = 0
    Portd.7 = 0

    Portd.6 = 1
    Portd.5 = 1
    Waitms 2000
  End If

End

---

Mein AVR lässt das aber kalt, der macht da überhaupt nix wenn ein 5V Signal an PC2 kommt

du solltest in den else teil packen dass die ganzen ports wieder zurückgesetzt werden, ebenso nach den 2 sekunden wartezeit... sonst schaltet der avr ein mal und dann nie wieder...

alternativ so:

Do

Loop

If Pinc.2 = 1 Then

Portd.4 = 0
Portd.7 = 0

Portd.6 = 1
Portd.5 = 1
Waitms 2000
End If

Portd.4 = 0
Portd.7 = 0

Portd.6 = 0
Portd.5 = 0
End

hallo,
was macht die "do loop" Anweisung am anfang?
das heißt, der mega führt nur das aus, was zwischen "do" und "loop" steht, also nix.
wenn das Prog. einmal ablaufen soll, das "do loop" weglassen, wenn es immer wieder laufen soll, dann "do" am Anfang, "loop" am Ende des abzuarbeitenden Progs.
mfg ralf

also insgesamt so:


Do

If Pinc.2 = 1 Then

Portd.4 = 0
Portd.7 = 0

Portd.6 = 1
Portd.5 = 1
Waitms 2000
End If

Portd.4 = 0
Portd.7 = 0

Portd.6 = 0
Portd.5 = 0

loop


End[/quote]

Danke, nun geht es :)