AVR: ADC-Wert auf intel. alphanumerischen Display (nicht LCD!)

'*** ADC - Messung

Sub Hdsp_befehl_messung(byval Cycles As Byte):

Local X_local As Word

Dim Ad As Word

Dim C As Word

Dim Ca As String * 1

Dim Cb As String * 1

Config ADC = Single , Prescaler = Auto , Reference = Avcc

Const D = 5 / 1023                                      '5V Avcc / 1023 ADC-Wert

Start ADC

 Do

  For X_local = 1 To Cycles

   Ad = Getadc(0)

   C = Ad * D

   Ca = Str(low(c))

   Cb = Str(high(c))

   Char_buffer(1) = " "

   Char_buffer(2) = " "

   Char_buffer(3) = " "

   Char_buffer(4) = " "

   Char_buffer(5) = Cb

   Char_buffer(6) = "."

   Char_buffer(7) = Ca

   Char_buffer(8) = "V"

   Call Hdsp_befehl_write_chars

  Next

 Loop

End Sub

'*** CHAR_BUFFER AUFS DISPLAY SCHREIBEN ****************************************

Sub Hdsp_befehl_write_chars:

Local X_local As Byte

Local Y_local As Byte

   Reset Hdsp_wr

   For X_local = 0 To 7

      Hdsp_a0 = X_local.0                                   'A0 - A2 geben die Position des zu schreibenden Zeichens an (0 bis 7)

      Hdsp_a1 = X_local.1                                   'Daher übernehmen wir einfach die Bits von X_local

      Hdsp_a2 = X_local.2

      Hdsp_a3 = 1                                           'BIT 3 muss 1 sein für CHARACTER RAM

      Hdsp_a4 = 1                                           'BIT 4 muss 1 sein für CHARACTER RAM

      Y_local = X_local + 1                                 'Da Arrays immer mit 1 anfangen noch y_local benutzen...

      If Asc(char_buffer(y_local)) < 144 Then               'Wir haben 128 + 16 Zeichen

         Hdsp_data = Asc(char_buffer(y_local))

         Reset Hdsp_ce                                      'Mit CE das Display zum Übernehmen von Adresse + Daten bringen

         Set Hdsp_ce

      End If

   Next

   Set Hdsp_wr

End Sub