lcd text
Hallo Tenor und Dino Und Forum Bastler
So habe mich mal an den Code Propiert leider komm ich nul komma null weiter. habe versucht aus code von internet
schalu zu werden....
ach schaut euch das an
Wie was oder wieso geht das nicht......
Daher bitte Um Hilfe
Mit freundtlichen Grüssen
Thorsten Sch.
Hallo Tenor und Dino Und Forum Bastler
So habe mich mal an den Code Propiert leider komm ich nul komma null weiter. habe versucht aus code von internet
schalu zu werden....
ach schaut euch das an
Code:
$regfile "ATtiny2313.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
' ===== Ports initialisieren ======
Config Portb.6 = Output
Led_30 Alias Portb.6
Config Portb.0 = Output ' PB0 --- LED1 (Ausgang)
Led_10 Alias Portb.0
Config Portb.1 = Output ' PB1 --- LED2 (Ausgang)
Led_20 Alias Portb.1
Config Pinb.2 = Input ' PB2 --- Taster1 (Eingang)
Taster1 Alias Pinb.2
Portb.2 = 0
Config Pinb.3 = Input ' PB3 --- Taster2 (Eingang)
Taster2 Alias Pinb.3
Portb.3 = 0
' ===== LCD initialisieren =====
Lcd_db4 Alias Portd.2
Lcd_db5 Alias Portd.3
Lcd_db6 Alias Portd.4
Lcd_db7 Alias Portd.5
Lcd_rs Alias Portb.4
Lcd_e Alias Portb.5
'LCD 4-Bit Modus
Config Lcdpin = Pin , Db4 = Lcd_db4 , Db5 = Lcd_db5 , Db6 = Lcd_db6 , Db7 = Lcd_db7 , E = Lcd_e , Rs = Lcd_rs
Config Lcdbus = 4
'-----------------------------
' const
'-----------------------------
'-----------------------------
' deklarationen
'-----------------------------
Declare Sub An_led
Declare Sub Led1
Declare Sub Init
'-----------------------------
' variablen
'-----------------------------
Dim Lcd_anzeige1 As Byte
Dim Lcd_anzeige2 As Byte
'-----------------------------
' MAIN
'-----------------------------
Call Init
Call Led1
Lcd_anzeige1 = 1
Lcd_anzeige2 = 2
Call An_led
Lcd_anzeige1 = 3
'-----------------------------
'Hauptschleife
'-----------------------------
Do
If Taster1 = 1 Then Gosub Led1
Debounce Taster2 , 1 , An_led , Sub
Loop
Cls
Locate 1 , 1
Select Case Lcd_anzeige1
Case 1 : Lcd "led 10 Blinkt"
Case 2 : Lcd "LED 20 AN"
Case 3 : Lcd "led aus"
End Select
Cls
Locate 1 , 1
Select Case Lcd_anzeige2
Case 1 : Lcd "BLINKT"
Case 2 : Lcd "An Aus An"
Case 3 : Lcd "LED 20 Aus"
End Select
Sub Led1
Lcd_anzeige2 = 1
Waitms 200
Led_10 = 0
Waitms 200
Led_10 = 1
Waitms 200
Led_10 = 0
End Sub
Sub An_led
Lcd_anzeige2 = 2
Led_20 = Not Led_20
Lcd_anzeige1 = 1
Waitms 1
End Sub
Sub Init
Set Led_30
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "TEXT ANZEIGE"
Locate 2 , 1
Lcd "dauer & blink"
Wait 1
End Sub
Return
Wie was oder wieso geht das nicht......
Daher bitte Um Hilfe
Mit freundtlichen Grüssen
Thorsten Sch.