سلام
نام : نقاشی حرفه ای با PCF8833
کار کرد : داری 5 کلید برای کنترول می باشد که کلید متصل به
پایه 28 برای اضافه کردن به X
پایه 27 برای کم کردن X
پایه 26 برای اضافه کردن به Y
پایه 25 برای کم کردن Y
پایه 24 برای تغییر رنگ (که سه رنگ داره داشتم رنگاش رو بیشتر میکردم که میکرو دیگه پروگرام نشد :cry2: )
*****************************************
مختصات در پایین ال سی دی قابل دیدن است
رنگ در پایین ال سی دی قابل روید می باشد
برنامه :
اگه یه میکرو دیگه پیدا کردم کار بردش رو افزایش می دهم
فونت 16*16 همراه با برنامه :
http://up98.org/upload/server1/02/j/wnut888cxbppvns1tpws.rar
نام : نقاشی حرفه ای با PCF8833
کار کرد : داری 5 کلید برای کنترول می باشد که کلید متصل به
پایه 28 برای اضافه کردن به X
پایه 27 برای کم کردن X
پایه 26 برای اضافه کردن به Y
پایه 25 برای کم کردن Y
پایه 24 برای تغییر رنگ (که سه رنگ داره داشتم رنگاش رو بیشتر میکردم که میکرو دیگه پروگرام نشد :cry2: )
*****************************************
مختصات در پایین ال سی دی قابل دیدن است
رنگ در پایین ال سی دی قابل روید می باشد
برنامه :
کد:
$regfile = "m8def.dat" $crystal = 8000000 $lib "lcd-pcf8833.lbx" Config Graphlcd = Color , Controlport = Portd , Cs = 3 , Rs = 0 , Scl = 2 , Sda = 1 Setfont Color16x16 Config Portc = Input Declare Sub Touch Declare Sub Co Dim X As Byte Dim Y As Byte Dim C As Byte Dim C1 As Byte Set Portc.5 Set Portc.4 Set Portc.3 Set Portc.2 Set Portc.1 Ddrc = 0 Cls Do Call Touch Call Co Pset X , Y , C1 Box(0 , 100) -(100 , 131) , &B11111111 Box(100 , 100) -(131 , 131) , C1 Lcdat 100 , 0 , "X" ; X , &B11100000 , &B00011100 Lcdat 117 , 0 , "Y" ; Y , &B11100000 , &B00011100 Waitms 300 Loop End Sub Touch If Pinc.5 = 0 Then Incr X End If If Pinc.4 = 0 Then Decr X End If If Pinc.3 = 0 Then Incr Y End If If Pinc.2 = 0 Then Decr Y End If If Pinc.1 = 0 Then Incr C End If If X > 131 Then X = 131 End If If Y > 100 Then Y = 100 End If End Sub '== Q: Sub Co If C = 0 Then C1 = &B11100000 End If If C = 1 Then C1 = &B00011100 End If If C = 2 Then C1 = &B00000011 End If If C > 2 Then C = 0 Goto Q: End If End Sub $include "color16x16.font"
فونت 16*16 همراه با برنامه :
http://up98.org/upload/server1/02/j/wnut888cxbppvns1tpws.rar
دیدگاه