Ich hab hab ja nur 1 modul, auf der anderen seite läuft ein virtueller com port.
hier mal das programm:
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Enable Interrupts
Dim A As Byte
Config Pinc.6 = Output 'Linker Motor Kanal 1
Config Pinc.7 = Output 'Linker Motor Kanal 2
Config Pind.4 = Output 'Linker Motor PWM
Config Pinb.0 = Output 'Rechter Motor Kanal 1
Config Pinb.1 = Output 'Rechter Motor Kanal 2
Config Pind.5 = Output 'Rechter Motor PWM
Config Pina.0 = Output 'LenkServo kalibrieren
Config Servos = 1 , Servo1 = Porta.0 , Reload = 10 'LenkServo anzahl 4
Servo(1) = 115 'LenkServo mittig ausrichten
Do
A = Inkey()
If A > 0 Then
Select Case A
Case 56 'Das ist der ASCII Code für Taste "8"
Sound Portd.7 , 400 , 450
Print "Schnell vorwärts"
Portc.6 = 1 'bestimmt Richtung
Portc.7 = 0 'bestimmt Richtung
Portd.4 = 1 'Linker Motor EIN
Case 50 'Das ist der ASCII Code für Taste "2"
Sound Portd.7 , 400 , 650
Print "Schnell rückwärts"
Portc.6 = 0 'bestimmt Richtung
Portc.7 = 1 'bestimmt Richtung
Portd.4 = 1 'Linker Motor EIN
Case 53 'Das ist der ASCII Code für Taste "5"
Sound Portd.7 , 400 , 550
Print "Motor abbremsen"
Portd.4 = 0 'Linker Motor aus
Case 52 'Das ist der ASCII Code für Taste "4"
Sound Portd.7 , 400 , 750
Print "Links lenken"
Servo(1) = 90
Case 54 'das Ist Der Ascii Code Für Taste "6"
Sound Portd.7 , 400 , 850
Print "Rechts lenken"
Servo(1) = 200
Case 51 'das Ist Der Ascii Code Für Taste "3"
Sound Portd.7 , 400 , 950
Print "Gerade aus"
Servo(1) = 115
Case 48 'das Ist Der Ascii Code Für Taste "0"
Sound Portd.7 , 400 , 350
Print "Lüftung an"
Portb.0 = 1 'bestimmt Richtung rechter Motor
Portb.1 = 0 'bestimmt Richtung rechter Motor
Portd.5 = 1 'rechter Motor EIN
Case 49 'das Ist Der Ascii Code Für Taste "1"
Sound Portd.7 , 400 , 350
Print "Lüftung aus"
Portb.0 = 0 'bestimmt Richtung rechter Motor
Portb.1 = 1 'bestimmt Richtung rechter Motor
Portd.5 = 0 'rechter Motor EIN
Case Else
Print "Kommando nicht bekannt"
End Select
End If
Loop
Lesezeichen