hy leute

hab mir gestern den l293d vom c geholt und heute alles mal zusammengestöpselt.
http://focus.ti.com/lit/ds/symlink/l293d.pdf

der en eingang vom 293 hängt über 10k auf vcc (5v)
die motoransteuerung erfolgt über pd5/ pd6

in das programm hab ich ne zusätzliche abfrage für einen 2. taster eingebaut bzw das programm mit einer "rolo runter" subroutine erweitert

das ganze arbeitet eigentlich so wie es soll, nur ab & zu schaltet sich der motor ein, hab mal ein handy hingehalten und nen anruf getätigt aber da tut sich nichts, denk mal es liegt eventuell an der verdrahtung, da noch alles ein bisschen kreuz & quer liegt.

jedenfalls es funktioniert mal im groben so wie ich mir das seit langem gedacht hab.
taste 1 // motor links
taste2 // motor rechts

hier mal das programm
Code:
$regfile = "m8def.dat"
$baud = 9600
$crystal = 8000000

Set Pinb.2
Set Pinb.1
Config Pind.5 = Output
Config Pind.6 = Output




'LCD-Ausgabe
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0

Config Lcd = 16 * 2


'' Interrupt Int0 config


Config Int0 = Falling
On Int0 Irq0
Enable Interrupts
Enable Int0

Dim Irq0 As Word


Do

Cls
Cursor Off

Lcd Irq0
Print



''abfrage ob taste gedrückt & Kontrolle ob irq0 noch nicht über 800
Abfrage:

If Pinb.2 = 0 Then
Waitms 250

If Pinb.2 = 0 Then
Gosub Runter
  Else
End If
End If
Waitms 100

If Pinb.1 = 0 Then
Waitms 250

If Pinb.1 = 0 Then
Gosub Rauf
  Else
End If
End If
Waitms 100



If Irq0 > 10 Then
Gosub Halt
Irq0 = 0
Else

End If

 Loop


'' bei Int0 wird irq0 um 1 erhöht
Irq0:
Incr Irq0
Return

'' wenn 800 impulse ereicht dann motor stopp
Halt:
Reset Portd.5
Reset Portd.6
waitms 100
Return

'' wenn 800 interruptimpulse noch nicht erreicht sind motor läuft weiter
Rauf:
Set Portd.5
Reset Portd.6
Waitms 100
Return

Runter:
Reset Portd.5
Set Portd.6
Waitms 100
Return
werd dem nächst den motor aufs fenster montieren und das rolo montieren, muss mir noch ein bisschen gedanken machen über die montierung.

eventuell werd ich vielleicht doch noch endschalter einbaunen sicherheitshalber, oder vielleicht genügt es ja wenn ich abgeschiermte leitungen verwende um störsignale zu vermeiden.

jedenfalls ein dank an alle die mir bei der realisierung geholfen haben!!!
hab in einem monat echt viel über meinen mega8 dazugelernt!!!! )))

mfg
piri

ps. weitere dokumentation folgt!