Ein USB-Joystick, einen USB-Serialadapter und das RN-Control (12 V Versorgungsspannung). Die Hardware und das Windows-Programm sind einwandfrei, es scheitert nur an dem eigenen BASIC-Programm, denn dieses Funktioniert:wie sieht denn die Hardware aus?
Code:$regfile = "m32def.dat" $framesize = 32 $swstack = 32 $hwstack = 64 $crystal = 16000000 $baud = 9600 Dim X As Integer Dim Y As Integer Dim X1 As Word Dim X2 As Word Dim Y1 As Word Dim Y2 As Word Do 'Darauf warten dass irgendwas gesendet wird Input "" , X Input "" , Y 'Die Variablen umskalieren X1 = X + 20 X2 = X1 * 40 Y1 = Y + 20 Y2 = Y1 * 40 'Einen Ton (Tonhöhe = Joystick Position) ausgeben Sound Portd.7 , 10 , X2 Sound Portd.7 , 10 , Y2 LoopDas ist doch die Frage die ich habeKann das so richtig sein?!Code:For X = -1 To -4 Portc.4 = 0 Portc.5 = 0 Portc.6 = 0 Portc.7 = 0 Next X![]()
Liegt es möglicherweise an den For-Schleifen?







Zitieren

Lesezeichen