Code:
$regfile = "2313Def.dat"
$crystal = 7372800 '18.08MHc*24=433.92MHc, AVR core 18.08MHc/128 by default
Config Portd = Output
Dim A As Double
Dim B As Double
Dim Pause As Double
dim x as double
Portd = 255
A = 0
Do
X = X + 1
A = Sin(x)
B = 255 - a
Portd.1 = 0
For Pause = 1 To A : Next Pause
Portd.1 = 1
For Pause = 1 To B : Next Pause
If X = 180 Then X = 0
Loop
ich wollt eigentlich einen sinus generator bastel der auf einen pin mir sinus aus gibt und am anderen genau das negativ also sinus 180° phasen versetzt aber ich hab bei dem programm 123% flash used wär froh wenn mir jemand einen tipp geben kann wie man das am einfachsten macht ohne den flash zu überfüllen ich wollt den 2313 nehmen weil ich an dem reichlich leds schon dran hab und der Programmer stecker ist auch schon dran ich will mir keine neu leiterplatte noch zam löten.
mfg thomas
Lesezeichen