Форум РадиоКот

Код: Выделить всё

$regfile = "m1280def.dat"
 $lib "lcd4e2.lib"
 '$lib "lcd4e2.lbx"
 $crystal = 16000000
 $hwstack = 32
 $swstack = 32
 $framesize = 24
 'Bascom kennt keine Display mit 27 * 4 Zeichen, daher 40 * 4 verwenden
 Config Lcd = 40 * 4


 Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.0 , _
 Db7 = Porta.2 , E = Porta.3 , Rs = Porta.1 , E2 = Porta.6
 Initlcd
 Cls

 ' Systemvariable der LCD-Bibliothek (wichtig, bloß nicht ändern)
 Dim ___lcdno As Byte 'ohne LIB
 Dim ___lcde As Byte 'Mit LIB

 ' wählt die beiden oberen Zeilen aus
 ___lcde = 0

 ' löscht die beiden oberen Zeilen
 Cls
 ' wählt die obere Zeile aus
 Upperline
 ' schreibt in die erste Zeile an Position 3
 Locate 1 , 2
 ' den Text in Anführungszeichen
 Lcd "Zeile 1"
 ' wählt die zweite Zeile aus
 Lowerline
 ' schreibt in die zweite Zeile an Position 2
 Locate 2 , 2
 ' in diesem Fall den Inhalt der Variablem mit dem Namen Variable
 Lcd "Zeile 2"
 ' unterdrückt den Cursor
 Cursor Off

 ' wählt die beiden unteren Zeilen aus
 ___lcde = 1
 Waitms 100
 Cls
 Thirdline
 Locate 3 , 1
 Lcd "Zeile 3"
 Fourthline
 Locate 4 , 1
 Lcd "Zeile 4"
 Cursor Off

Код: Выделить всё

'Установка и сохранение в eeprom мк, выключения Q2

   Cls
   Ay = 0
   X1 = A
   Do
   If X1 > 10 Then X1 = 7
   If X1 < 7 Then X1 = 10
   Locate 1 , 1
   Lcd "[ BГІop їeјѕ. ]"
   Locate 2 , 1
   Lcd "Teјѕ. іє».: " ; X1 ; "  "
   Вверх_вниз
   Tem1 = X1
   Loop Until Ay = 1
    A = Tem1

'*******************************************************************************
'Установка и сохранение в eeprom мк, включения Q2

   Cls
   Ay = 0
   X1 = B
   Do
   If X1 > 10 Then X1 = 4
   If X1 < 4 Then X1 = 10
   Locate 1 , 1
   Lcd "[ BГІop їeјѕ. ]"
   Locate 2 , 1
   Lcd "Teјѕ. іГє».: " ; X1 ; "  "
   Вверх_вниз
   Tem2 = X1
   Loop Until Ay = 1
    B = Tem2

'***