Hi,
@Bernd:
warum willst du den nochmal ein Layout machen? Ich denke, zum ausprobieren reicht das jetzige doch locker, einzig die kleinen Anschlusspads sind etwas fummelig. Die externen Anschlüsse sind doch eigentlich schon alle festgelegt und passen!? Also ich habe mich, bis auf die 3 LEDs, an deine Vorgaben gehalten und bin schon ein paar mal erfolgreich geflogen![]()
@Willa:
Meinen Code kannst du gerne haben, ist nicht viel dabei:
Je nachdem, wieviele Motoren du angeschlossen hast, kannst du ja evtl. wieder einen Timer ausschalten.Code:$regfile = "xm32a4def.dat" $crystal = 32000000 $framesize = 100 $hwstack = 100 $swstack = 100 $lib "xmega.lib" $external _xmegafix_clear $external _xmegafix_rol_r1014 Config Osc = Disabled , 32mhzosc = Enabled Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1 Declare Sub Serial1charmatch() Config Com2 = 38400 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8 Config Serialin1 = Buffered , Size = 100 , Bytematch = 13 Config Serialout1 = Buffered , Size = 100 Open "COM2:" For Binary As #1 '--Motor Constants-- Const Pwm_mot_off = 20000 Const Pwm_mot_max = 60000 '--PWM Settings-- Config Tcd0 = Pwm , Prescale = 1 , Comparea = Enabled , Compareb = Enabled , Comparec = Enabled , Compared = Enabled , Event_source = Off , Event_action = Off , Event_delay = Disabled , Resolution = 16 Config Tcd1 = Pwm , Prescale = 1 , Comparea = Enabled , Compareb = Enabled , Event_source = Off , Event_action = Off , Event_delay = Disabled , Resolution = 16 Tcd0_cca = Pwm_mot_off '############################## Tcd0_ccb = Pwm_mot_off Tcd0_ccc = Pwm_mot_off Tcd0_ccd = Pwm_mot_off Tcd1_cca = Pwm_mot_off Tcd1_ccb = Pwm_mot_off Dim A As String * 100 Dim B As Word Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled , Hi = Enabled Enable Interrupts Print #1 , "START" Do Loop End Sub Serial1charmatch() Input #1 , A , Noecho B = Val(a) Print #1 , B If B > 0 And B < 65000 Then Tcd0_cca = B Tcd0_ccb = B Tcd0_ccc = B Tcd0_ccd = B Tcd1_cca = B Tcd1_ccb = B End If End Sub
Die Werte habe ich von HTerm aus gesendet, ohne LF, nur mit CR am Ende.
Gruß
Chris







Zitieren


Lesezeichen