Damit versuche ich ein Software UART zu öffnen. Leider bekomm ich 3 Feher in den letzten 2 Zeilen.Code:Readeeprom Baud_com1 , W1 Incr W1 Incr W1 Readeeprom Baud_com2 , W1 Incr W1 Incr W1 Readeeprom Databits_com1 , W1 Incr W1 Readeeprom Databits_com2 , W1 Incr W1 Readeeprom Parity_com1 , W1 Incr W1 Readeeprom Parity_com2 , W1 Incr W1 Readeeprom Stopbits_com1 , W1 Incr W1 Readeeprom Stopbits_com2 , W1 Incr W1 '--- [ Open Communication ports ] ---------------------------------------------- S1 = "COMD.7:" ; Str(baud_com1) ; "," ; Str(databits_com1) ; "," ; Chr(parity_com1) ; "," ; Str(stopbits_com1) Open S1 For Output As #1
Invalid datatype[200]
Variable not dimensioned 200->0
Invalid datatype[0]
Warum?!?
wenn das dein ganzer Code ist kann das gar nicht funktionieren. Dim S1 as (weiß nich)??? Würde eventuell helfen.
Und eventuell würd ich auch erwägen W1 erstmal zu dimeln.
Ist überhaupt notwendig, alles ausm eeprom zu lesen? wenn nicht, würd ichs lassen und es hardcoden.
o
L_
OL
This is Schäuble. Copy Schäuble into your signature to help him on his way to Überwachungsstaat!
http://de.youtube.com/watch?v=qV1cZ6jUeGE
Das mit dem Eprom is notwendigCode:'--- [ Dim. Variables ] -------------------------------------------------------- Dim Address As Byte 'Aktuelle Moduladresse Dim New_address As Byte 'Nach Start eingestellte Moduladresse ! nicht aktuell Dim Channel As Byte 'Aktueller Kanal Dim New_channel As Byte 'Nach Start eingestellter Kanal ! nicht aktuell Dim Baud_com1 As Integer 'Baudrate fuer Com1 Dim Baud_com2 As Integer 'Baudrate fuer Com2 Dim Databits_com1 As Byte 'DataBits fuer Com1 Dim Databits_com2 As Byte 'DataBits fuer Com2 Dim Parity_com1 As Byte 'Parity fuer Com1 Dim Parity_com2 As Byte 'Parity fuer Com2 Dim Stopbits_com1 As Byte 'StopBits fuer Com1 Dim Stopbits_com2 As Byte 'StopBits fuer Com2 Dim Buffer_ps2 As String * 20 'Buffer fuer PS2 Dim Buffer_com1 As String * 20 'Buffer fuer Com1 Dim Buffer_com2 As String * 20 'Buffer fuer Com2 Dim Buffer_radio As String * 20 'Buffer fuer Funkuebertragung Dim Datatosendbuffer(10) As String * 20 'Buffer fuer Daten welche gesendet werden sollen 'Helping Variables Dim I1 As Integer Dim I2 As Integer Dim B1 As Byte Dim B2 As Byte Dim W1 As Byte Dim W2 As Byte Dim S1 As String * 20 '--- [ Constants ] ------------------------------------------------------------- Const Radio_begin = "<" Const Radio_end = ">" '--- [ Read eeram ] ------------------------------------------------------------ '0: Baud_COM1 Word 0 '1: Baud_COM1 Word 1 '2: Baud_COM2 Word 0 '3: Baud_COM2 Word 1 '4: DataBits_COM1 Byte 0 '5: DataBits_COM2 Byte 0 '6: Parity_COM1 Char/Byte 0 '7: Parity_COM2 Char/Byte 0 '8: StopBits_COM1 Byte 0 '9: StopBits_COM2 Byte 0 W1 = 0 Readeeprom Baud_com1 , W1 Incr W1 Incr W1 Readeeprom Baud_com2 , W1 Incr W1 Incr W1 Readeeprom Databits_com1 , W1 Incr W1 Readeeprom Databits_com2 , W1 Incr W1 Readeeprom Parity_com1 , W1 Incr W1 Readeeprom Parity_com2 , W1 Incr W1 Readeeprom Stopbits_com1 , W1 Incr W1 Readeeprom Stopbits_com2 , W1 Incr W1 '--- [ Open Communication ports ] ---------------------------------------------- 'S1 = "COMD.7:" ; Str(baud_com1) ; "," ; Str(databits_com1) ; "," ; Chr(parity_com1) ; "," ; Str(stopbits_com1) Open "COMD.7:9600,8,n,1" For Output As #1 'SUART2.TXD Open "COMD.6:9600,8,n,1" For Input As #2 'SUART2.RXD Open "COMD.5:9600,8,n,1" For Output As #3 'SUART1.TXD Open "COMD.4:9600,8,n,1" For Input As #4 'SUART1.RXD
Besonders die Zeile:Code:Dim W1 As Byte Dim S1 As String * 16 Dim Baud_com1 As Integer Dim Baud_com2 As Integer Dim Databits_com1 As Byte Dim Databits_com2 As Byte Dim Parity_com1 As Byte Dim Parity_com2 As Byte Dim Stopbits_com1 As Byte Dim Stopbits_com2 As Byte Readeeprom Baud_com1 , W1 Incr W1 Incr W1 Readeeprom Baud_com2 , W1 Incr W1 Incr W1 Readeeprom Databits_com1 , W1 Incr W1 Readeeprom Databits_com2 , W1 Incr W1 Readeeprom Parity_com1 , W1 Incr W1 Readeeprom Parity_com2 , W1 Incr W1 Readeeprom Stopbits_com1 , W1 Incr W1 Readeeprom Stopbits_com2 , W1 Incr W1 '--- [ Open Communication ports ] ---------------------------------------------- S1 = "COMD.7:" + Str(baud_com1) + "," + Str(databits_com1) + "," + Chr(parity_com1) + "," + Str(stopbits_com1) 'Open S1 For Output As #1
[/code]Code:S1 = "COMD.7:" + Str(baud_com1) + "," + Str(databits_com1) + "," + Chr(parity_com1) + "," + Str(stopbits_com1)
Hab ich nun überarbeitet.Code:S1 = "COMD.7:" + Str(baud_com1) + "," + Str(databits_com1) + "," + Chr(parity_com1) + "," + Str(stopbits_com1) Open S1 For Output As #2 'SUART2.TXD
Nun bekomme ich vom Compiler 2 mal
External routine not found
und 2 mal
Label not found
Bei beiden handelt sich es um
_FILEOPEN_OUTPUT
_FILECLOSE
Schaft das der Compiler etwa nicht?!?
Kann ich so nicht nachvollziehen. Dazu brauche ich mehr Code
:wall:
Compiliers doch selber mal:
Code:'--- [ Init. Compiler ] -------------------------------------------------------- $regfile = "m32def.dat" 'Chip Mega32 $crystal = 16000000 '16 MHz $baud = 9600 'Baudrate UART0 / Funk '--- [ Init. Devices ] --------------------------------------------------------- '--- [ Dim. Variables ] -------------------------------------------------------- Dim Baud_com1 As Integer 'Baudrate fuer Com1 Dim Baud_com2 As Integer 'Baudrate fuer Com2 Dim Databits_com1 As Byte 'DataBits fuer Com1 Dim Databits_com2 As Byte 'DataBits fuer Com2 Dim Parity_com1 As Byte 'Parity fuer Com1 Dim Parity_com2 As Byte 'Parity fuer Com2 Dim Stopbits_com1 As Byte 'StopBits fuer Com1 Dim Stopbits_com2 As Byte 'StopBits fuer Com2 Dim Buffer_ps2 As String * 20 'Buffer fuer PS2 Dim Buffer_com1 As String * 20 'Buffer fuer Com1 Dim Buffer_com2 As String * 20 'Buffer fuer Com2 Dim Buffer_radio As String * 20 'Buffer fuer Funkuebertragung Dim Datatosendbuffer(10) As String * 20 'Buffer fuer Daten welche gesendet werden sollen Dim Online As Bit 'Is module connected to server Online = 0 'not connected yet Dim Error As Byte 'error? Error = 0 'set module -> no error Dim Voltage As Word 'Betriebsspannung Dim Rssi_adc As Word 'RSSI Dim Rssi_percent As Byte 'RSSI 'Helping Variables Dim I1 As Integer Dim I2 As Integer Dim B1 As Byte Dim B2 As Byte Dim W1 As Byte Dim W2 As Byte Dim S1 As String * 20 '--- [ Constants ] ------------------------------------------------------------- Const Radio_begin = "<" Const Radio_end = ">" '--- [ Read eeram ] ------------------------------------------------------------ '0: Baud_COM1 Word 0 '1: Baud_COM1 Word 1 '2: Baud_COM2 Word 0 '3: Baud_COM2 Word 1 '4: DataBits_COM1 Byte 0 '5: DataBits_COM2 Byte 0 '6: Parity_COM1 Char/Byte 0 '7: Parity_COM2 Char/Byte 0 '8: StopBits_COM1 Byte 0 '9: StopBits_COM2 Byte 0 W1 = 0 Readeeprom Baud_com1 , W1 Incr W1 Incr W1 Readeeprom Baud_com2 , W1 Incr W1 Incr W1 Readeeprom Databits_com1 , W1 Incr W1 Readeeprom Databits_com2 , W1 Incr W1 Readeeprom Parity_com1 , W1 Incr W1 Readeeprom Parity_com2 , W1 Incr W1 Readeeprom Stopbits_com1 , W1 Incr W1 Readeeprom Stopbits_com2 , W1 Incr W1 '--- [ Open Communication ports ] ---------------------------------------------- S1 = "COMD.7:" + Str(baud_com1) + "," + Str(databits_com1) + "," + Chr(parity_com1) + "," + Str(stopbits_com1) Open S1 For Output As #2 'SUART2.TXD Open "COMD.6:9600,8,n,1" For Input As #3 'SUART2.RXD Open "COMD.5:9600,8,n,1" For Output As #4 'SUART1.TXD Open "COMD.4:9600,8,n,1" For Input As #5 'SUART1.RXD
Der Compiler scheint da keine Variablen zu aktzeptieren. Wieso musst du die Werte aus dem EEPROM lesen? ansonsten nimm doch vorgefertigte und je nach dem gespeicherten Wert im EEPROM werden diese dann geöffnet
Es ist notwendig weil es sich dabei um ein Gerät handelt welche diese funktion unterstützen muss.
Zu zweiterem:
Das wäre unprofessionel...müsste aber vom compiler unterstützt werden. Ich werde MCS kontaktieren.
Berechtigungen
Zitieren
Lesezeichen