RSS

16X2 LCD Check on Bascom

20 Jun

$regfile = “m16def.dat”
$crystal = 8000000

Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdmode = Port
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portc.5 , Rs = Portc.4
Dim A As Integer
Do
Cls                                                         ‘clear the LCD display
Lcd ” ***Abhishek***”                                       ‘display this at the top line
Wait 1
Lowerline                                                   ‘select the lower line
Wait 1
Lcd “The Evil Genius”                                       ‘display this at the lower line
Wait 1
For A = 1 To 10
  Shiftlcd Right                                            ‘shift the text to the right
  Waitms 150                                                ‘wait a moment
Next
For A = 1 To 10
  Shiftlcd Left                                             ‘shift the text to the left
  Waitms 150                                                ‘wait a moment
Next
Wait 1
Cls                                                         ‘clear the LCD display
Lcd “mastering in to”                                       ‘display this at the top line
Wait 1
Lowerline                                                   ‘select the lower line
Wait 1
Lcd ” ride the world”                                       ‘display this at the lower line
Wait 1
For A = 1 To 10
  Shiftlcd Right                                            ‘shift the text to the right
  Waitms 150                                                ‘wait a moment
Next
For A = 1 To 10
  Shiftlcd Left                                             ‘shift the text to the left
  Waitms 150                                                ‘wait a moment
Next
Loop

End

Advertisements
 
3 Comments

Posted by on June 20, 2010 in AVR

 

3 responses to “16X2 LCD Check on Bascom

  1. chapel pa system equipment

    October 10, 2012 at 4:05 am

    It’s a shame you don’t have a donate button! I’d most certainly donate to this brilliant blog! I suppose for now i’ll settle for bookmarking and adding your RSS feed to my Google
    account. I look forward to fresh updates and will share this site with my Facebook group.

    Chat soon!

     
  2. Tyrone

    June 1, 2013 at 11:31 pm

    You could definitely see your expertise in the article you write.
    The world hopes for even more passionate writers like
    you who are not afraid to mention how they believe.
    Always go after your heart.

     
  3. Addison Nieves

    January 25, 2014 at 2:50 pm

    After study a few of the blog posts in your web site now,
    and I actually like your approach of blogging. I bookmarked it to my bookmark web site listing and
    shall be checking again soon. Pls check out my web
    site as nicely and let me know what you think.

     

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
%d bloggers like this: