Shop OBEX P1 Docs P2 Docs Learn Events
PropBasic Driver for EA eDip LCD — Parallax Forums

PropBasic Driver for EA eDip LCD

FriedVFriedV Posts: 77
edited 2011-10-07 20:40 in Propeller 1
This is a small Testprogramm / Driver for this nice but somewhat pricy LCD.
Use as you seem fit at your own risk.
The character set is a bit excotic, therefore the translation table in the output routine.
Mind that LCD_Print expects a string, so LCD_Print "A" will not work, LCD_Print "A\000" will.
[code]'
' File...... TestLCD.pbas
' Author.... fgvissel 07.10.2011
' Test f

Comments

  • FriedVFriedV Posts: 77
    edited 2011-10-07 20:40
    @Bean
    Here is an example from the AVR BasCom Compiler for the case statement.
    Perhaps it could be implemented in the same way in PropBasic: 
    [COLOR=#000080][FONT=Courier New][B]Do[/B][/FONT][/COLOR]
 
 [COLOR=#000080][FONT=Courier New][B]Input[/B][/FONT][/COLOR][COLOR=#008080][FONT=Courier New]"Enter value (0-255)  "[/FONT][/COLOR][COLOR=#ff0000][FONT=Courier New],[/FONT][/COLOR][FONT=Courier New] I[/FONT]
 [COLOR=#000080][FONT=Courier New][B]Select [/B][/FONT][/COLOR][COLOR=#000080][FONT=Courier New][B]Case[/B][/FONT][/COLOR][FONT=Courier New] I[/FONT]
 [COLOR=#000080][FONT=Courier New][B]Case[/B][/FONT][/COLOR][FONT=Courier New] 1 [/FONT][COLOR=#ff0000][FONT=Courier New]:[/FONT][/COLOR][COLOR=#000080][FONT=Courier New][B]Print[/B][/FONT][/COLOR][COLOR=#008080][FONT=Courier New]"1"[/FONT][/COLOR]
 [COLOR=#000080][FONT=Courier New][B]Case[/B][/FONT][/COLOR][FONT=Courier New] 2 [/FONT][COLOR=#ff0000][FONT=Courier New]:[/FONT][/COLOR][COLOR=#000080][FONT=Courier New][B]Print[/B][/FONT][/COLOR][COLOR=#008080][FONT=Courier New]"2"[/FONT][/COLOR]
 [COLOR=#000080][FONT=Courier New][B]Case[/B][/FONT][/COLOR][FONT=Courier New] 3 [/FONT][COLOR=#000080][FONT=Courier New][B]To[/B][/FONT][/COLOR][FONT=Courier New] 5 [/FONT][COLOR=#ff0000][FONT=Courier New]:[/FONT][/COLOR][COLOR=#000080][FONT=Courier New][B]Print[/B][/FONT][/COLOR][COLOR=#008080][FONT=Courier New]"3-5"[/FONT][/COLOR]
 [COLOR=#000080][FONT=Courier New][B]Case [/B][/FONT][/COLOR][COLOR=#000080][FONT=Courier New][B]Is[/B][/FONT][/COLOR][COLOR=#ff0000][FONT=Courier New]>=[/FONT][/COLOR][FONT=Courier New] 10 [/FONT][COLOR=#ff0000][FONT=Courier New]:[/FONT][/COLOR][COLOR=#000080][FONT=Courier New][B]Print[/B][/FONT][/COLOR][COLOR=#008080][FONT=Courier New]">= 10"[/FONT][/COLOR]
 [COLOR=#000080][FONT=Courier New][B]Case [/B][/FONT][/COLOR][COLOR=#000080][FONT=Courier New][B]Else[/B][/FONT][/COLOR][COLOR=#ff0000][FONT=Courier New]:[/FONT][/COLOR][COLOR=#000080][FONT=Courier New][B]Print[/B][/FONT][/COLOR][COLOR=#008080][FONT=Courier New]"Not in Case  statement"[/FONT][/COLOR]
 [COLOR=#000080][FONT=Courier New][B]End [/B][/FONT][/COLOR][COLOR=#000080][FONT=Courier New][B]Select[/B][/FONT][/COLOR]
 [COLOR=#000080][FONT=Courier New][B]Loop[/B][/FONT][/COLOR]
 [COLOR=#000080][FONT=Courier New][B]End[/B][/FONT][/COLOR]
    Cheers Friedrich
Sign In or Register to comment.