با عرض سلام و خسته نباشید خدمت همه مهندسین :cry:
$regfile = "m8def.dat"
$crystal = 8000000
$lib "LCD-pcf8833.LBX"
Config Graphlcd = Color , Controlport = Portd , Cs = 0 , Rs = 1 , Scl = 2 , Sda = 3
'=====================================MORADI= ==================================
Const Blue = &B00000011
Const Yellow = &B11111100
Const Red = &B11100000
Const Green = &B00011100
Const Black = &B00000000
Const White = &B11111111
Box(1 , 1) +(0 , 0) , Red
Setfont Color16x16
'============================================ ==================================
Lcdat 1 , 1 , "MORADI" , Green , Red
Waitms 900
Lcdat 4 , 1 , "www.daba.ir" , White , Red
End
M:
$include "color16x16.font"
$include "color8x8.font
$regfile = "m8def.dat"
$crystal = 8000000
$lib "LCD-pcf8833.LBX"
Config Graphlcd = Color , Controlport = Portd , Cs = 0 , Rs = 1 , Scl = 2 , Sda = 3
'=====================================MORADI= ==================================
Const Blue = &B00000011
Const Yellow = &B11111100
Const Red = &B11100000
Const Green = &B00011100
Const Black = &B00000000
Const White = &B11111111
Box(1 , 1) +(0 , 0) , Red
Setfont Color16x16
'============================================ ==================================
Lcdat 1 , 1 , "MORADI" , Green , Red
Waitms 900
Lcdat 4 , 1 , "www.daba.ir" , White , Red
End
M:
$include "color16x16.font"
$include "color8x8.font
دیدگاه