BASCOM LCD 20*4

'--------------------------------------------------------------------------

' Compilerinstruktionen und Compilerdirektiven

'--------------------------------------------------------------------------

$regfile = "m128def.dat"

$crystal = 16000000

$hwstack = 64

$swstack = 64

$framesize = 64

$baud = 9600

'--------------------------------------------------------------------------

' Definition von Ressourcen

'--------------------------------------------------------------------------

Pwr_all Alias Portg.0                                       ' Relais 12 Volt für alles

Pwr_tft Alias Portg.1

Pwr_video Alias Portb.7

Pwr_xbee Alias Porte.2

Pwr_gps Alias Portc.6

Pwr_lcd Alias Portg.3                                       ' LCD GND

Tft1 Alias Portb.5

Tft2 Alias Portb.3

Tft3 Alias Portb.1

Tft4 Alias Porte.7

Tft5 Alias Porte.5

Led_gruen Alias Portd.6                                     ' link-LED

Ledduo_rot Alias Portd.5                                    ' Duo-LED für Battery-Status rot und grüen

Ledduo_gruen Alias Portd.7

Lcd_led Alias Porte.3                                       ' LCD-Beleuchtung

Bit0 Alias Portd.1

Bit1 Alias Portd.4

Bit2 Alias Portd.0

Piezo Alias Portg.4                                         ' Piezo

Joy_taster_rechts Alias Pinf.0                              ' Taster Joystick rechts

Joy_taster_links Alias Pinf.2                               ' Taster Joystick links

'--------------------------------------------------------------------------

' Definition von Konstanten

'--------------------------------------------------------------------------

Const Adc_multi = 0.0048828125                              ' = 5.0 / 1024.0 -> ADC auflösen

Const Timerstartwert1 = 36735

'--------------------------------------------------------------------------

' Definition von Variablen und Datentypen

'--------------------------------------------------------------------------

'---- Command senden ----

Dim Cmd As Byte

'---- Betriebsspannung messen ----

Dim Spannung As Word

Dim Battery_orig As Single

Dim Battery As String * 5

'---- Commands einlesen ----

Dim Dollarzeicheneingang As Byte                            'Beginn des Datenstrings mit Dollarzeichen

Dim Teildaten(14) As String * 20                            ' Array mit den extrahierten Daten

Dim Anzahl As Byte

Dim Datenstring As String * 40

Dim Datenkopf As String * 7

'---- LCD Darstellung ----

Dim Lcd_command As String * 20

Dim Lcd_voltage As String * 20

Dim Lcd_temperatur As String * 20

Dim Lcd_gps As String * 20

'---- Link-Flag ----

Dim Connect As Bit

'---- GPS RS232 TTl einlesen ----

Dim Gelesen As Byte                                         'eingelesenes Zeichen

Dim Teilstring(14) As String * 12

Dim Anzahl2 As Byte

Dim Gpsdaten As String * 98

Dim Header As String * 6

Dim Stunde As Byte

Dim Tempstring As String * 2

'---- Sekundenzähler/Timer ---

Dim Sec1 As Word                                            ' Variable für Timer1

Dim Sec0 As Word

'---- ADC Joysticks ----

Dim Joy_links_y As Word                                     ' Y-Achse LINKS

Dim Joy_links_x As Word                                     ' X-Achse LINKS

Dim Joy_rechts_y As Word                                    ' Y-Achse RECHTS

Dim Joy_rechts_x As Word                                    ' X-Achse RECHTS

'---- LCd Menü ----

'--------------------------------------------------------------------------

' Konfiguration und Basiseinstellungen

'--------------------------------------------------------------------------

'---- RS232 Software GPS ----

' RS232 Hardware

Config Serialin = Buffered , Size = 110                     ' konfig serial in

Open "COMC.0:9600,8,N,1" For Input As #1                    ' PC.2 = RxD SoftUART / GPS

Open "COMC.2:9600,8,N,1" For Output As #2                   ' PC.3 = TxD SoftUART / GPS

'---- ADC ----

Config Adc = Single , Prescaler = Auto , Reference = Avcc   'ADC Wandler definieren

'---- Timer ----

Config Timer1 = Timer , Prescale = 256                      ' für zähler Timer1 konfigurieren

Config Timer3 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1       ' für led und kontrast timer3

'---- Outputs ----

Config Pwr_all = Output

Config Pwr_video = Output

Config Pwr_tft = Output

Config Pwr_xbee = Output

Config Pwr_gps = Output

Config Pwr_lcd = Output

Config Led_gruen = Output

Config Ledduo_rot = Output

Config Ledduo_gruen = Output

Config Lcd_led = Output

Config Bit0 = Output

Config Bit1 = Output

Config Bit2 = Output

Config Tft1 = Output

Config Tft2 = Output

Config Tft3 = Output

Config Tft4 = Output

Config Tft5 = Output

'---- Joysticks ----

Config Joy_taster_links = Input

Config Joy_taster_rechts = Input

Pwr_lcd = 0                                                 ' LCD einschalten

Wait 2

'---- LCD ----

Config Lcd = 20 * 4

Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.0 , Db6 = Porte.6 , Db7 = Porte.4 , E = Portb.4 , Rs = Portb.6

Cursor Off

Deflcdchar 0 , 32 , 32 , 21 , 14 , 4 , 4 , 4 , 4            ' Link-Zeichen

Deflcdchar 1 , 32 , 14 , 31 , 31 , 31 , 31 , 31 , 31        ' battery-full

Deflcdchar 2 , 32 , 14 , 31 , 17 , 17 , 31 , 31 , 31        ' battery-half

Deflcdchar 3 , 32 , 14 , 31 , 17 , 17 , 17 , 17 , 31        ' battery empty

'---- Interrupts ----

Enable Interrupts

Enable Timer1

Enable Timer3

On Timer1 Timer1_isr

Start Adc

'--------------------------------------------------------------------------

' Init

'--------------------------------------------------------------------------

Pwr_all = 1                                                 ' Relais für POWER ON einschalten

Waitms 250

Bit0 = 1                                                    ' Kanal für 5,8 Ghz alles zunächst high

Bit1 = 1

Bit2 = 1

Pwr_xbee = 1                                                ' XBee einschalten ON

Pwr_gps = 1                                                 ' GPS Modul einschalten ON

Led_gruen = 1                                               ' Led-grün OFF

Ledduo_rot = 0                                              ' Duo-LEDs OFF

Ledduo_gruen = 0

                                            '

Lcd_led = 0                                                 ' LCD-Beleuchtung ON

Connect = 0                                                 ' connect-flag = 0

Sec1 = 0                                                    ' sec1-Zähler = 0

Battery_orig = 12                                           ' zunächst von voller Batterie 12 Volt ausgehen

Tft1 = 1

Tft2 = 1

Tft3 = 1

Tft4 = 1

Tft5 = 1

Pwr_tft = 1                                                 ' TFT einschalten ON

Pwr_video = 0                                               '1                                               ' 5,8 Ghz einschalten ON

Sound Piezo , 220 , 227

Waitms 125

Sound Piezo , 220 , 227

Waitms 125

Sound Piezo , 220 , 227

Waitms 125

Wait 1

' Begrüßung

Cls

Cursor Off

Locate 1 , 1

Lcd "KaprigControlRxZ1"

Locate 2 , 1

Lcd "KaprigControlRxZ2"

Locate 3 , 1

Lcd "KaprigControlRxZ3"

Locate 4 , 1

Lcd "KaprigControlRxZ4"

'--------------------------------------------------------------------------

' Hauptprogramm

'--------------------------------------------------------------------------

Cls

Do

Loop

End