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:
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
Je nachdem, wieviele Motoren du angeschlossen hast, kannst du ja evtl. wieder einen Timer ausschalten.
Die Werte habe ich von HTerm aus gesendet, ohne LF, nur mit CR am Ende.
Gruß
Chris
Lesezeichen