'===============================================================================
' ATMEGA88, 11,0592 MHz
' AD > RS232 > Lichtwellenleiter > RS232 > PWM
'===============================================================================
Dim U As Word 'gessener Wert in Digitalzahl umwandeln
Dim D As Byte
'=================Start nach Reset==============================================
$regfile = "m8def.dat"
$baud = 9600
$crystal = 11059200 'Quarz
Open "com1:" For Binary As #1
'===============================================================================
Config Adc = Single , Prescaler = 16 , Refernce = Off 'Pre8...32
Start Adc 'Start Messung
Config Timer1 = Pwm , Prescale = 8 , Pwm = 10 , Compare A Pwm = Clear Down
Start Timer1
Config Portb = Output
Goto Empfaenger
'goto sender
Sender:
Do
D = 27
Put #1 , D
U = Getadc(0)
D = High(u)
Put #1 , D
D = Low(u)
Put #1 , D
Loop
Empfaenger:
Do
Get #1 , D
If D = 27 Then
Get #1 , D
U = D * 256
Get #1 , D
U = U + D
Pwm1a = U
End If
Loop
End
>Also das wäre mein Programm aber irgendwie gibt er die PWM nicht aus hab alles probiert aber irgendwo hab ich da nen denkfehler

(((( ich glaube das aus dem Register auslesen funtz ed so wie ichs gerne hätte.
Aber danke nochmal für die schnelle und gut beschriebene Antwort