Hi,
hier ist mein Code. Genauso hab ichs getestet, also ganz einfach gehalten:
Code:
' E4V12 mit ATMEGA8 @ 8Mhz intern
'---------------------------------------------------------
'$sim
$regfile = "m8def.dat"
$crystal = 8000000
'---------------------------------------------------------
Config Pinc.0 = Input 'ADC freier Eingang
Config Pinc.1 = Input 'ADC "winkelsensor"
Config Pinc.5 = Input 'ADC Current Sense VNH2SP30
Config Pind.2 = Input 'freier I/O input
Config Pind.4 = Input 'freier I/O input
Config Pind.6 = Input 'freier I/O input
Config Pinb.0 = Input 'freier I/O input (ICP)
Config Pinb.1 = Input 'Hochschalten
Config Pinb.2 = Input 'Runterschalten
Config Pinb.3 = Output 'Motor IN A
Config Pinb.4 = Output 'Motor IN B
Config Pinb.5 = Output 'ZU Relais
'---------------------- Variablen -----------------------------------
'++++++++++++++++ Hauptprogramm +++++++++++++++++++++++++++++++++
Portb.2 = 1
Do
If Pinb.2 = 0 Then
Portb.5 = 1
Waitms 300
Portb.5 = 0
End If
If Pinb.1 = 0 Then
Portb.5 = 1
Waitms 300
Portb.5 = 0
End If
Loop
'+++++++++++++++++++++++++++++++++++++++++++++++++
End
Lesezeichen