-
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
-
wie wärs, wenn du das cls rauslässt, und einfach die erste zeile mit nem locate ... : lcd " " überschreibst? ^^
Martin
-
Jetzt wo du's sagst ... =)
