Von m2560def.dat in m16def.dat

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

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

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

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

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 ?

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

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

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

Bitte sehr:

Code:

---

$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.