'© 2004 Christof Rueß - www.hobby-elektronik.de.vu
'Die Verwendung dieses Moduls ist ist Freeware, solange diese Zeilen erhalten bleiben!
Public Type BigChar
Row(0 To 4) As String
End Type
Private RowLength As Long
Function ParseText(Text As String, Optional SmallSpace As Boolean = True) As BigChar
Dim x, y
Dim EachChar As BigChar
Dim BigText As BigChar
For x = 1 To Len(Text)
With EachChar
Select Case Asc(Mid(Text, x, 1))
Case 32: .Row(1) = "99": .Row(2) = "99": .Row(3) = "99": .Row(4) = "99" ' Leerzeichen
Case 33: .Row(1) = "94": .Row(2) = "98": .Row(3) = "95": .Row(4) = "95" ' !
Case 34: .Row(1) = "494": .Row(2) = "595": .Row(3) = "999": .Row(4) = "999" ' "
Case 35: .Row(1) = "494": .Row(2) = "858": .Row(3) = "848": .Row(4) = "595" ' #
Case 36: .Row(1) = "081": .Row(2) = "889": .Row(3) = "287": .Row(4) = "583" ' $
Case 37: .Row(1) = "490": .Row(2) = "903": .Row(3) = "039": .Row(4) = "395" ' %
Case 38: .Row(1) = "041": .Row(2) = "896": .Row(3) = "850": .Row(4) = "252" ' &
Case 39: .Row(1) = "949": .Row(2) = "989": .Row(3) = "999": .Row(4) = "999" ' '
Case 40: .Row(1) = "04": .Row(2) = "89": .Row(3) = "89": .Row(4) = "25" ' (
Case 41: .Row(1) = "41": .Row(2) = "98": .Row(3) = "98": .Row(4) = "53" ' )
Case 42: .Row(1) = "140": .Row(2) = "989": .Row(3) = "392": .Row(4) = "999" ' *
Case 43: .Row(1) = "999": .Row(2) = "989": .Row(3) = "585": .Row(4) = "959" ' +
Case 44: .Row(1) = "9": .Row(2) = "9": .Row(3) = "4": .Row(4) = "3" ' ,
Case 45: .Row(1) = "999": .Row(2) = "444": .Row(3) = "999": .Row(4) = "999" ' -
Case 46: .Row(1) = "9": .Row(2) = "9": .Row(3) = "9": .Row(4) = "5" ' .
Case 47: .Row(1) = "990": .Row(2) = "903": .Row(3) = "039": .Row(4) = "399" ' /
Case 48: .Row(1) = "041": .Row(2) = "808": .Row(3) = "838": .Row(4) = "253" ' 0
Case 49: .Row(1) = "049": .Row(2) = "989": .Row(3) = "989": .Row(4) = "555" ' 1
Case 50: .Row(1) = "041": .Row(2) = "046": .Row(3) = "899": .Row(4) = "555" ' 2
Case 51: .Row(1) = "041": .Row(2) = "906": .Row(3) = "927": .Row(4) = "253" ' 3
Case 52: .Row(1) = "499": .Row(2) = "848": .Row(3) = "998": .Row(4) = "995" ' 4
Case 53: .Row(1) = "444": .Row(2) = "841": .Row(3) = "998": .Row(4) = "253" ' 5
Case 54: .Row(1) = "041": .Row(2) = "841": .Row(3) = "898": .Row(4) = "253" ' 6
Case 55: .Row(1) = "444": .Row(2) = "906": .Row(3) = "989": .Row(4) = "959" ' 7
Case 56: .Row(1) = "041": .Row(2) = "848": .Row(3) = "898": .Row(4) = "253" ' 8
Case 57: .Row(1) = "041": .Row(2) = "848": .Row(3) = "998": .Row(4) = "253" ' 9
Case 58: .Row(1) = "9": .Row(2) = "5": .Row(3) = "4": .Row(4) = "9" ' :
Case 59: .Row(1) = "999": .Row(2) = "959": .Row(3) = "949": .Row(4) = "939" ' ;
Case 60: .Row(1) = "90": .Row(2) = "03": .Row(3) = "21": .Row(4) = "92" ' <
Case 61: .Row(1) = "999": .Row(2) = "555": .Row(3) = "444": .Row(4) = "999" ' =
Case 62: .Row(1) = "19": .Row(2) = "21": .Row(3) = "03": .Row(4) = "39" ' >
Case 63: .Row(1) = "041": .Row(2) = "906": .Row(3) = "959": .Row(4) = "959" ' ?
Case 64: .Row(1) = "": .Row(2) = "": .Row(3) = "": .Row(4) = "" ' @
Case 65, 97: .Row(1) = "041": .Row(2) = "898": .Row(3) = "858": .Row(4) = "595" ' Aa
Case 66, 98: .Row(1) = "441": .Row(2) = "846": .Row(3) = "897": .Row(4) = "553" ' Bb
Case 67, 99: .Row(1) = "041": .Row(2) = "895": .Row(3) = "894": .Row(4) = "253" ' Cc
Case 68, 100: .Row(1) = "441": .Row(2) = "898": .Row(3) = "898": .Row(4) = "553" ' Dd
Case 69, 101: .Row(1) = "444": .Row(2) = "849": .Row(3) = "899": .Row(4) = "555" ' Ee
Case 70, 102: .Row(1) = "444": .Row(2) = "849": .Row(3) = "899": .Row(4) = "599" ' Ff
Case 71, 103: .Row(1) = "041": .Row(2) = "899": .Row(3) = "828": .Row(4) = "253" ' Gg
Case 72, 104: .Row(1) = "494": .Row(2) = "848": .Row(3) = "898": .Row(4) = "595" ' Hh
Case 73, 105: .Row(1) = "444": .Row(2) = "989": .Row(3) = "989": .Row(4) = "555" ' Ii
Case 74, 106: .Row(1) = "444": .Row(2) = "998": .Row(3) = "498": .Row(4) = "253" ' Jj
Case 75, 107: .Row(1) = "494": .Row(2) = "806": .Row(3) = "827": .Row(4) = "595" ' Kk
Case 76, 108: .Row(1) = "499": .Row(2) = "899": .Row(3) = "899": .Row(4) = "555" ' Ll
Case 77, 109: .Row(1) = "190": .Row(2) = "888": .Row(3) = "898": .Row(4) = "595" ' Mm
Case 78, 110: .Row(1) = "494": .Row(2) = "818": .Row(3) = "828": .Row(4) = "595" ' Nn
Case 79, 111: .Row(1) = "041": .Row(2) = "898": .Row(3) = "898": .Row(4) = "253" ' Oo
Case 80, 112: .Row(1) = "441": .Row(2) = "898": .Row(3) = "853": .Row(4) = "599" ' Pp
Case 81, 113: .Row(1) = "041": .Row(2) = "898": .Row(3) = "808": .Row(4) = "255" ' Qq
Case 82, 114: .Row(1) = "441": .Row(2) = "846": .Row(3) = "827": .Row(4) = "595" ' Rr
Case 83, 115: .Row(1) = "041": .Row(2) = "841": .Row(3) = "998": .Row(4) = "253" ' Ss
Case 84, 116: .Row(1) = "444": .Row(2) = "989": .Row(3) = "989": .Row(4) = "959" ' Tt
Case 85, 117: .Row(1) = "494": .Row(2) = "898": .Row(3) = "898": .Row(4) = "255" ' Uu
Case 86, 118: .Row(1) = "494": .Row(2) = "898": .Row(3) = "806": .Row(4) = "239" ' Vv
Case 87, 119: .Row(1) = "494": .Row(2) = "898": .Row(3) = "888": .Row(4) = "392" ' Ww
Case 88, 120: .Row(1) = "494": .Row(2) = "243": .Row(3) = "051": .Row(4) = "595" ' Xx
Case 89, 121: .Row(1) = "494": .Row(2) = "243": .Row(3) = "989": .Row(4) = "959" ' Yy
Case 90, 122: .Row(1) = "444": .Row(2) = "906": .Row(3) = "069": .Row(4) = "555" ' Zz
Case 91: .Row(1) = "44": .Row(2) = "89": .Row(3) = "89": .Row(4) = "55" ' [
Case 92: .Row(1) = "199": .Row(2) = "219": .Row(3) = "921": .Row(4) = "992" ' \
Case 93: .Row(1) = "44": .Row(2) = "98": .Row(3) = "98": .Row(4) = "55" ' ]
Case 94: .Row(1) = "01": .Row(2) = "32": .Row(3) = "99": .Row(4) = "99" ' ^
Case 95: .Row(1) = "999": .Row(2) = "999": .Row(3) = "999": .Row(4) = "555" ' "_"
Case 123: .Row(1) = "944": .Row(2) = "089": .Row(3) = "289": .Row(4) = "955" ' {
Case 124: .Row(1) = "4": .Row(2) = "8": .Row(3) = "8": .Row(4) = "5" ' |
Case 125: .Row(1) = "449": .Row(2) = "981": .Row(3) = "983": .Row(4) = "559" ' }
Case 126: .Row(1) = "010": .Row(2) = "323": .Row(3) = "999": .Row(4) = "999" ' ~
Case 128: .Row(1) = "041": .Row(2) = "841": .Row(3) = "859": .Row(4) = "253" ' €
Case 176: .Row(1) = "01": .Row(2) = "23": .Row(3) = "99": .Row(4) = "99" ' °
Case 196, 228: .Row(1) = "494": .Row(2) = "041": .Row(3) = "848": .Row(4) = "595" ' Ää
Case 214, 246: .Row(1) = "494": .Row(2) = "041": .Row(3) = "898": .Row(4) = "253" ' Öö
Case 220, 252: .Row(1) = "999": .Row(2) = "999": .Row(3) = "999": .Row(4) = "999" ' Üü
End Select
End With
If SmallSpace = True Then
For y = 1 To 4
BigText.Row(y) = BigText.Row(y) & EachChar.Row(y) & "9"
Next
Else
For y = 1 To 4
BigText.Row(y) = BigText.Row(y) & EachChar.Row(y)
Next
End If
Next
ParseText = BigText
End Function
Function Init()
Select Case Lcd.Size
Case 0 To 5: MsgBox "Dieses Modul kann mit dem verwendeten Display nicht verwendet werden!", vbCritical + vbOKOnly
Case 6: RowLength = 16
Case 7: RowLength = 20
Case 8: RowLength = 27
Case 9: RowLength = 40
End Select
Dim OwnSymbol As DspOwnSymbol
With OwnSymbol
.sLine(0) = "00000"
.sLine(1) = "00000"
.sLine(2) = "00000"
.sLine(3) = "00001"
.sLine(4) = "00011"
.sLine(5) = "00111"
.sLine(6) = "01111"
.sLine(7) = "11111"
Lcd.DefineChar 0, OwnSymbol
.sLine(0) = "00000"
.sLine(1) = "00000"
.sLine(2) = "00000"
.sLine(3) = "10000"
.sLine(4) = "11000"
.sLine(5) = "11100"
.sLine(6) = "11110"
.sLine(7) = "11111"
Lcd.DefineChar 1, OwnSymbol
.sLine(0) = "11111"
.sLine(1) = "01111"
.sLine(2) = "00111"
.sLine(3) = "00011"
.sLine(4) = "00001"
.sLine(5) = "00000"
.sLine(6) = "00000"
.sLine(7) = "00000"
Lcd.DefineChar 2, OwnSymbol
.sLine(0) = "11111"
.sLine(1) = "11110"
.sLine(2) = "11100"
.sLine(3) = "11000"
.sLine(4) = "10000"
.sLine(5) = "00000"
.sLine(6) = "00000"
.sLine(7) = "00000"
Lcd.DefineChar 3, OwnSymbol
.sLine(0) = "00000"
.sLine(1) = "00000"
.sLine(2) = "00000"
.sLine(3) = "11111"
.sLine(4) = "11111"
.sLine(5) = "11111"
.sLine(6) = "11111"
.sLine(7) = "11111"
Lcd.DefineChar 4, OwnSymbol
.sLine(0) = "11111"
.sLine(1) = "11111"
.sLine(2) = "11111"
.sLine(3) = "11111"
.sLine(4) = "11111"
.sLine(5) = "00000"
.sLine(6) = "00000"
.sLine(7) = "00000"
Lcd.DefineChar 5, OwnSymbol
.sLine(0) = "11111"
.sLine(1) = "11111"
.sLine(2) = "11111"
.sLine(3) = "11111"
.sLine(4) = "11110"
.sLine(5) = "11100"
.sLine(6) = "11000"
.sLine(7) = "10000"
Lcd.DefineChar 6, OwnSymbol
.sLine(0) = "10000"
.sLine(1) = "11000"
.sLine(2) = "11100"
.sLine(3) = "11110"
.sLine(4) = "11111"
.sLine(5) = "11111"
.sLine(6) = "11111"
.sLine(7) = "11111"
Lcd.DefineChar 7, OwnSymbol
End With
Lcd.ClearDisplay
End Function
Public Function WriteText(BigLcdText As BigChar)
Dim CurrRow As Long
For CurrRow = 1 To 4
Lcd.SetPos CurrRow, 1
For x = 1 To RowLength
Select Case Mid(BigLcdText.Row(CurrRow), x, 1)
Case 0 To 7: Lcd.WriteChar Mid(BigLcdText.Row(CurrRow), x, 1)
Case 8: Lcd.WriteChar 255
Case 9: Lcd.WriteChar 32
End Select
Next x
Next CurrRow
End Function