Das neue Board - Robotikhardware.de

'##############################################################' ********* Übliche bei RN-Steuerung ***************Declare Sub Init_digitalanzeige()Declare Sub Ziffer_digitalanzeige(byval Ziffernummer As Byte , Byval Zahl As Byte , ByvalDezimalpunkt As Byte)Declare Sub Zahl_digitalanzeige(byval Zahl As Integer)Declare Function Rn_sendefunkbefehl(byval Funkbefehl As String) As ByteDeclare Function Rn_empfange_funkstring(dat As String) As Byte$regfile = "m32def.dat"$hwstack = 82 '80$framesize = 68 ' 64$swstack = 68 '44$crystal = 7372800$baud = 19200'QuarzfrequenzConfig Scl = Portc.0Config Sda = Portc.1'Ports fuer IIC-BusConfig Pinb.2 = InputPortb.2 = 1Taste1 Alias Pinb.2Config Pinb.5 = InputPortb.5 = 1Taste2 Alias Pinb.5Config Pinb.6 = InputPortb.6 = 1Taste3 Alias Pinb.6Config Pinb.3 = OutputAlarmgeber Alias Portb.3Config Pinb.4 = OutputRelais1 Alias Portb.4Config Pinc.7 = OutputRelais2 Alias Portc.7Config Pinc.2 = OutputLedgruen Alias Portc.2Config Pinc.3 = OutputLedgelb Alias Portc.3Config Pinc.4 = OutputLedrot Alias Portc.4Config Pinc.6 = OutputAusgang_ua Alias Portc.6Config Pinc.5 = OutputAusgang_ub Alias Portc.5Const Slave_digi = &H70Sound Portb.7 , 400 , 450Sound Portb.7 , 400 , 250Sound Portb.7 , 400 , 450' ********* Übliche bei RN-Steuerung Ende***************Config Serialin = Buffered , Size = 120Config Serialout = Buffered , Size = 120Enable Interrupts'BEEP'BEEP'BEEP