'-------------------------------------------------------------------------------
' ARDUINO-LCDTEST.BAS
' Also tested with ARDUINO NANO V3.0
' (c) 1995-2014, MCS Electronics
' This is a sample file for the Mega328P based ARDUINO board
' Select Programmer 'ARDUINO' , 57600 baud and the proper COM port
'-------------------------------------------------------------------------------
' Compiler version :2.0.7.9
' Compiler build :2.0.7.9.002
' IDE version :2.0.7.9.001
' Windows OS :Windows 10 Pro
' Windows SP :
' Company :
' Owner :xxx
' Windows dir :C:\Windows
' App data dir :C:\Users\xxx\AppData\Local\MCS Electronics\BASCOM-AVR
' System dir :C:\Windows\system32
'-------------------------------------------------------------------------------
' LCD DISPLAY 20 x 4 von Joy It
' ARDUINO nano v3 von Joy It
$regfile = "m328pdef.dat"
$crystal = 16000000
$baud=9600
$lib "Lcd_i2c.lib" 'ersetzt die Standard LCD Library
Const Pcf8574_lcd = &H40 'I2C Adresse
Config LCD = 20*4
Led Alias Portb.5
Config Led = Output
Config Scl = Portc.5 'I2C SCL Pin
Config Sda = Portc.4 'I2C SDA Pin
Dim I As Byte
Dim _lcd_e As Byte
_lcd_e = 128 'LCD im 4-Bit Mode betreiben
print "lcd test"
Cls 'loesche das LCD Display
waitms 500
'Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
'Lcd "Hello Welt" 'String auf Display anzeigen
Do
Wait 1
Toggle LED
loop
End
'!!! DAS PROGRAMM WIRD ANSTANDSLOS COMPELIERT = FEHLER / WARNUNG
'!!! LAUFEN TUT ES NICHT, KEIN BLINKEN KEINE TEXT AUSGABE
'!!! WENN DIE LCD BEFEHLE MIT ' AUSGEBLENDET WERDEN
'!!! WIRD TEXT AUSGEGEBEN UND DIE LED BLINKT
'!!! ALLEIN CLS OHNE ' REICHT ZUR NICHT FUNKTION !!!
'!!! ICH BIN AN VERZWEIFELN, FINDE DEN FEHLER NICHT
'!!! FÜR JEDE SACHLICHE HILFE BIN ICH SEHR DANKBAR
' ARDUINO-LCDTEST.BAS
' Also tested with ARDUINO NANO V3.0
' (c) 1995-2014, MCS Electronics
' This is a sample file for the Mega328P based ARDUINO board
' Select Programmer 'ARDUINO' , 57600 baud and the proper COM port
'-------------------------------------------------------------------------------
' Compiler version :2.0.7.9
' Compiler build :2.0.7.9.002
' IDE version :2.0.7.9.001
' Windows OS :Windows 10 Pro
' Windows SP :
' Company :
' Owner :xxx
' Windows dir :C:\Windows
' App data dir :C:\Users\xxx\AppData\Local\MCS Electronics\BASCOM-AVR
' System dir :C:\Windows\system32
'-------------------------------------------------------------------------------
' LCD DISPLAY 20 x 4 von Joy It
' ARDUINO nano v3 von Joy It
$regfile = "m328pdef.dat"
$crystal = 16000000
$baud=9600
$lib "Lcd_i2c.lib" 'ersetzt die Standard LCD Library
Const Pcf8574_lcd = &H40 'I2C Adresse
Config LCD = 20*4
Led Alias Portb.5
Config Led = Output
Config Scl = Portc.5 'I2C SCL Pin
Config Sda = Portc.4 'I2C SDA Pin
Dim I As Byte
Dim _lcd_e As Byte
_lcd_e = 128 'LCD im 4-Bit Mode betreiben
print "lcd test"
Cls 'loesche das LCD Display
waitms 500
'Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
'Lcd "Hello Welt" 'String auf Display anzeigen
Do
Wait 1
Toggle LED
loop
End
'!!! DAS PROGRAMM WIRD ANSTANDSLOS COMPELIERT = FEHLER / WARNUNG
'!!! LAUFEN TUT ES NICHT, KEIN BLINKEN KEINE TEXT AUSGABE
'!!! WENN DIE LCD BEFEHLE MIT ' AUSGEBLENDET WERDEN
'!!! WIRD TEXT AUSGEGEBEN UND DIE LED BLINKT
'!!! ALLEIN CLS OHNE ' REICHT ZUR NICHT FUNKTION !!!
'!!! ICH BIN AN VERZWEIFELN, FINDE DEN FEHLER NICHT
'!!! FÜR JEDE SACHLICHE HILFE BIN ICH SEHR DANKBAR