Elektronischer Koordinaten-Anzeiger auf Atmel-Basis

'============================================================
'
' ******************************************
' ***                                    ***
' ***  Koordinatenanzeige mit 7-Segment  ***
' ***                                    ***
' ******************************************
'
' µC: ATtiny2313
' +Ub:  V
' I:  µA
'
'============================================================

$regfile = "ATtiny2313.DAT"
$crystal = 128000                                           'Frequenz des Oszillators

Config Portb = &B00000011                                   'Pinb.1 und .2 auf 'Ausgang', Rest auf 'Eingang' schalten
Portb = &B11111100
                                          'Pullups zuschalten, außer für Pinb.1 und .2

Config Portd = Output


Rem Stop Adc                                                    'A/D-Wandler abschalten, um Strom zu sparen
Stop Ac                                                     'Analog-Komparator abschalten, um Strom zu sparen

Dim Text1 As String * 40
Dim A As Byte
Dim B As Byte
Dim Buchstabe As String * 1
Dim C As Byte
Dim Led_ladezustand As Bit
Dim Hell As Bit
Dim Hell_2 As Byte

Text1 = "N 48 11 958  E 11 33 271   "                       'Dieser Text wird ausgegeben


Do

 Gosub Led_abfrage
    If Led_ladezustand = 0 Then Hell = 1                    'Bei Licht Merker setzen
    If Hell = 1 And B < 255 Then B = B + 1                  'Wenn Merker gesetzt wurde, Zähler für Lichtdauer erhöhen (bis max. 255)
    If Led_ladezustand = 1 And Hell = 1 And B < 30 Then     'Wenn es wieder dunkel ist und der Lichtimpuls nur kurz war, dann blinken
       Hell_2 = 0
       For C = 0 To 5
         Gosub Led_abfrage
         If Led_ladezustand = 0 Then Hell_2 = Hell_2 + 1
       Next B
       If Hell_2 < 1 Then Gosub Ausgeben
       Hell = 0
       B = 0
    End If


    If Led_ladezustand = 1 Then                             'Bei Dunkelheit Merker und Zähler für Lichtdauer löschen
        Hell = 0
        B = 0
    End If

Loop


Ausgeben:
For A = 1 To Len(text1)
Buchstabe = Mid(text1 , A , 1)
B = Asc(buchstabe) - $30
C = Lookup(b , Daten)
If Buchstabe = " " Then C = 0
Portd = C
Waitms 300
Portd = 0
Waitms 300
Next
Return



Led_abfrage:
    Portb.1 = 1                                             'Portb.1 auf +Ub schalten, um die LED zu 'laden'
    Waitus 1                                                'Ladezeit 1 µs, kann ggf. noch verkleinert werden
    Config Portb.1 = Input                                  'Portb.1 nun zwecks Abfrage der LED-Ladung auf 'Eingang' schalten
    Portb.1 = 0                                             'Pullup abschalten, sonst geht's nicht!
    Waitms 100                                              'Entladezeit 100 ms - je kleiner, je unempfindlicher
    Led_ladezustand = Pinb.1                                'Ladezustand einlesen: '1' -> dunkel, '0' -> hell
    Config Portb.1 = Output                                 'Portb.1 wieder auf Ausgang schalten
Return

End


Daten:
Data 126 , 72 , 61 , 109 , 75 , 103 , 119 , 76 , 127 , 111 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 95 , 115 , 54 , 121 , 55 , 23 , 111 , 83 , 18 , 0 , 0 , 50 , 91 , 81 , 113 , 0 , 0 , 17 , 0 , 19 , 122