Hi,
kleiner Tip!
Benutze die Software RS232... als zweite Schnittstelle
musst mal bissl rumspielen ich habs nicht getestet müsst aber laufen.Code:'Microcontroller '------------------ $regfile = "m32def.dat" $crystal = 16000000 $baud = 9600 'I2C Pins '------------------ Config Scl = Portc.0 Config Sda = Portc.1 'I2C LCD-Display '------------------ Const Pcf8574_lcd = &H70 $lib "Lcd_i2c.lib" Dim _lcd_e As Byte _lcd_e = 128 Wait 1 Config Lcd = 16 * 4 Cls Locate 1 , 1 : Lcd "Start R-RTOS." : Wait 1 Locate 1 , 14 : Lcd "." : Wait 1 Locate 1 , 15 : Lcd "." 'RS232 HW und Soft '--------------------- Config Serialin = Buffered , Size = 20 Dim Soft_input As String * 1 Dim Hw_input As String * 1 Hw_input = " " 'software UART einstellen und öffnen Open "comd.2:9600,8,n,1" For Output As #1 Open "comd.3:9600,8,n,1" For Input As #2 On Int1 Soft_uart Enable Int1 Config Int1 = Falling Enable Interrupts Do gosub Hw_uart gosub Soft_uart 'Dein Programm loop '------------------------------------------------------------------------------- '***| HW UART mit Buffer |****************************************************** '------------------------------------------------------------------------------- Hw_uart: If Ischarwaiting() = 1 Then Hw_input = Waitkey() Datenstrom = Datenstrom + Hw_input End If Return '------------------------------------------------------------------------------- '***| Software UART ISR |******************************************************* '------------------------------------------------------------------------------- Soft_uart: Soft_input = Inkey(#2) 'Print #1 , Soft_input Return
Bye Ulli






Zitieren

Lesezeichen