Noch ein paar BSACOM Programme:

1. Ein kleines Lauflicht der 4 LEDs:
Code:
'Verwendeter Compiler Bascom V 1.11.9.3
'
'Aufgabe:
'Lauflicht mit den 4 LEDs
'Autor: Pinsel120866
'###################################################

Declare Sub Lauflicht()

$regfile = "m16def.dat"
$crystal = 15000000
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32

Dim I As Integer
Dim N As Integer

Wait 5
Print "**** Lauflicht mit NIBOBee *****"
Print " "

Do
            Call Lauflicht
            Waitms 500
Loop
End

Sub Lauflicht()

   Config Portb.0 = Output
   Config Portb.1 = Output
   Config Portb.2 = Output
   Config Portb.3 = Output
   For N = 1 To 10
      For I = 0 To 3
         Portb.i = 1
         Waitms 500
         Portb.i = 0
      Next I
   Next N
   Config Portb = Input
End Sub
2. Batteriespannung über die serielle Schnittstelle ausgeben:
Code:
'Verwendeter Compiler Bascom V 1.11.9.3
'
'Aufgabe:
'Batteriespannung über RS232 anzeigen
'Autor: Pinsel120866
'###################################################

Declare Sub Batteriespannung()

$regfile = "m16def.dat"
$crystal = 15000000
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32

Const Ref = 5 / 1023                                        'Für Batteriespannungsberechnung
Dim Volt As Single

Wait 5
Print " "
Print "**** Batteriespannung NIBOBee *****"
Print " "

Do
            Call Batteriespannung
            Wait 1
Loop
End

Sub Batteriespannung()
Local W As Word
   Start Adc
   W = Getadc(6)
   Volt = W * Ref
   Print "Die aktuelle Spannung: " ; Volt ; " Volt"

End Sub
3. Werte der Linien-/Bodensensoren über die serielle Schnittstelle ausgeben:
Code:
'Verwendeter Compiler Bascom V 1.11.9.3
'
'Aufgabe:
'Werte der Linien-/Bodensensoren ausgeben
'Autor: Pinsel120866
'###################################################

$regfile = "m16def.dat"
$crystal = 15000000
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32

Declare Sub Linedata()

Dim Linesensl As Integer
Dim Linesensc As Integer
Dim Linesensr As Integer

Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc

Wait 5
Print " "
Print "**** Liniensensorgruppe NIBOBee *****"
Print " "

Do
Call Linedata
Print "Rechts " ; Linesensr ; " Mitte " ; Linesensc ; " Links " ; Linesensl
Wait 1
Loop

End

Sub Linedata()
   Config Portb.4 = Output
   Portb.4 = 1
   Linesensl = Getadc(5)
   Linesensc = Getadc(6)
   Linesensr = Getadc(7)
   Portb.4 = 0
End Sub
Was den Antrieb angeht, bin ich leider noch keinen Schritt weiter.

Ich wende mich nun der Frage zu: "Two Bee(r)s or not two bee(r)s, that's the question!"