Von m2560def.dat in m16def.dat

[Zardest]

Ich brauche diesen code auf meinen atmega 16 aber diese zeile versteht der nicht "Config Com4 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 "
wie ändere ich sie auf atmega16 um das die funktionen bleiben ?

der gesamte code

$prog , 255 , &B11011001 ,                                  'Quarz an / Teiler aus / Jtag aus
$regfile = "m2560def.dat"
$hwstack = 82                                               '80
$framesize = 68                                             ' 64
$swstack = 68                                               '44
$crystal = 16000000                                         'Quarzfrequenz

Config Pind.5 = Output
Led Alias Portd.5

Config Com4 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Open "com4:" For Binary As #4                               'USB Buchse

Config Servos = 1 , Servo1 = Portd.4 , Reload = 10
Config Portd = Output

Enable Interrupts

Wait 2


Dim X As Integer


Do
       'Darauf warten dass irgendwas gesendet wird
      Input #4 , "" , X Noecho

      If X > 29 Then
         If X < 161 Then
                 Servo(1) = X
                 X = 0
         End If
      End If

      If X = 255 Then
         Led = 0
      End If

      If X = 256 Then
         Led = 1
      End If

      Print #4 , X
Loop

mfg Zardest

[peterfido]

Du kannst ein SoftUart einsetzen. Denn der Atmega16 hat nur einen HardwareUART.

[Zardest]

das heißt ?
danke trotzdem für deine antword ersteinmal

[Zardest]

Achsoo ja ne platine mit einem max232 hab ich mir mal gemacht das geht auch nur halt wie schreibe ich das dafür passend um ?

[Tido]

Hi,
die Zeile weglassen und alle "#4 ," im Code löschen!?

[Zardest]

Häää letztes mal ging das trotzdem nicht
danke an alle !!

[Zardest]

kann jetzt aber nich über RS232 die daten von x änder wie mach ich das denn jetzt ?

[Thomas E.]

Bitte sehr:

$prog , 255 , &B11011001 ,                                  'Quarz an / Teiler aus / Jtag aus
$regfile = "m16def.dat"
$hwstack = 82                                               '80
$framesize = 68                                             ' 64
$swstack = 68                                               '44
$crystal = 16000000                                         'Quarzfrequenz
$baud = 9600

Config Pind.5 = Output
Led Alias Portd.5


Config Servos = 1 , Servo1 = Portd.4 , Reload = 10
Config Portd = Output

Enable Interrupts

Wait 2


Dim X As Integer


Do
       'Darauf warten dass irgendwas gesendet wird
      Input X

      If X > 29 Then
         If X < 161 Then
                 Servo(1) = X
                 X = 0
         End If
      End If

      If X = 255 Then
         Led = 0
      End If

      If X = 256 Then
         Led = 1
      End If

      Print  X
Loop

Die nun verwendete Hardware UART liegt auf den Pins RXD und TXD.