Laufschrift mit Bascom

**Jul-ian** · 15.03.2006, 13:41

Ich hab das Programm mal ein wenig erweitert.
Mit einem Schalter kann ich nun entscheiden, ob es von links anch rechts oder umgekehrt laufen soll.
Wegen der Laufzeit des Programms merkt man eine Änderung am Schalter erst, wenn eine der While-Schleifen durchgelaufen ist. Das macht mir aber nichts.
Dafür habe ich aber ein anderes Problem:
In der ersten Zeile läuft die Schrift, aber in der zweiten soll dauerhaft "Links n. Rechts" oder "Rechts n. Links" je nach Schalterstellung eingeblendet werden.
So wie ich es aktuell im Programm stehen hab, blinkt es nur gaaaanz kurz auf (ist ja auch logisch). Kann ich sowas auch dauerhaft anzeigen?

Mein Programm:

Code:

'Settings'
$regfile = "m8def.dat"
$crystal = 4000000
Config Lcd = 16 * 2

'Input/Output'
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
Config Lcdbus = 4
Config Portc.0 = Input
Config Portc.1 = Output
Portc.0 = 1

'Program'
 Cls
 Dim I As Integer
 Dim L As Integer
 Dim S As String * 6
 Dim T As String * 22
 Dim Z As String * 22
 S = "JULIAN"


Do
 Cls
 If Pinc.0 = 1 Then
  Portc.1 = 1
  Locate 2 , 1
  Lcd "Links n. Rechts"
  T = "                " + S
  L = Len(t)
  I = 1
  While I <= L
   Cls
   Locate 1 , 1
   Z = Right(t , I) : Lcd Z
   Incr I
   Waitms 200
  Wend
  Wait 1
 Else
  Portc.1 = 0
  Locate 2 , 1
  Lcd "Rechts n. Links"
  T = "                " + S
  L = Len(t)
  While L > -1
   Cls
   Locate 1 , 1
   Z = Right(t , L) : Lcd Z
   Decr L
   Waitms 200
  Wend
  Wait 1
 End If
 Loop
End