Code:
:'-------------------------------------------------------------------------------
' (c) 2004, MCS Electronics
' M169_LCD.BAS demonstrates LCD butterfly driver
'-------------------------------------------------------------------------------
$regfile = "m169def.dat"
$crystal = 8000000
$baud = 9600
$lib "lcd_butterfly.lbx"
'you need to dim this byte
Dim _butterfly_digit As Byte
Dim S As String * 6
Dim I As Byte
Dim Taster_nummer As Byte
Dim Pulses As Word , Periods As Word
Pulses = 256 : Periods = 100 'set variables
Speaker Alias Portb.5 'define port pin
Declare Sub Taster_1_routine
Declare Sub Taster_2_routine
Declare Sub Taster_3_routine
Declare Sub Taster_4_routine
Declare Sub Taster_5_routine
Config Pinb.4 = Input
Portb.4 = 1
Config Pinb.6 = Input
Portb.6 = 1
Config Pinb.7 = Input
Portb.7 = 1
Config Pine.2 = Input
Porte.2 = 1
Config Pine.3 = Input
Porte.3 = 1
'Config Serialin = Buffered , Size = 12
Restart:
Cls
S = "AVR"
Cls : Lcd "BASCOM" : Wait 2
Cls : Lcd S : Wait 1
Do
For I = 1 To 5
Taster_nummer = I
Select Case Taster_nummer
Case 1 : Debounce Pinb.6 , 0 , Taster_1_routine , Sub
Case 2 : Debounce Pinb.7 , 0 , Taster_2_routine , Sub
Case 3 : Debounce Pinb.4 , 0 , Taster_3_routine , Sub
Case 4 : Debounce Pine.2 , 0 , Taster_4_routine , Sub
Case 5 : Debounce Pine.3 , 0 , Taster_5_routine , Sub
End Select
Next
Loop
End
Sub Taster_1_routine
Gosub Tastenquittung
Cls : Lcd "NORD"
Print "NORD"
End Sub
Sub Taster_2_routine
Gosub Tastenquittung
Cls : Lcd "SUED"
Print "SUED"
End Sub
Sub Taster_3_routine
Gosub Tastenquittung
Cls : Lcd "SELECT";
End Sub
Sub Taster_4_routine
Gosub Tastenquittung
Cls : Lcd "WEST";
Print "WEST"
End Sub
Sub Taster_5_routine
Gosub Tastenquittung
Cls : Lcd "OST"
Print "OST"
End Sub
Tastenquittung:
Sound Speaker , Pulses , Periods 'make some noise
Return
Lcd_butterfly_data:
Data 0% ' space
Data 0% ' !
Data 0% '""
Data 0% ' #
Data 0% '$
Data 0% ' %
Data 0% ' &
Data 0% ' '
Data 0% ' (
Data 0% ' )
Data 0% ' *
Data 0% ' +
Data 0% ' ,
Data 0% ' -
Data 0% ' .
Data 0% '/
Data &H5559% ' 0
Data &H0118% '1
Data &H1E11% ' 2
Data &H1B11% ' 3
Data &H0B50% ' 4
Data &H1B41% ' 5
Data &H1F41% '6
Data &H0111% ' 7
Data &H1F51% ' 8
Data &H1B51% '9
Data 0% ':
Data 0% ';
Data 0% '<
Data 0% '=
Data 0% '>
Data 0% '?
Data 0% '@
Data &H0F51% ' A
Data &H3991% , &H1441% , &H3191% , &H1E41% , &H0E41% , &H1D41% , &H0F50% , &H2080% , &H1510% , &H8648% , &H1440% , &H0578%
Data &H8570% , &H1551% , &H0E51% , &H9551% , &H8E51% , &H9021% , &H2081% , &H1550% , &H4448% , &HC550% , &HC028% , &H2028% , &H5009%
hier das Hex-File dazu:
Lesezeichen