plus

[kemalsa]

tabi var ama bence yeterli değil artı plastaki bircok komut hakında adam akılı bilgimiz yok artı bu konu hakında turkce kaynakta bulamadım plasın help dosyasıda yeterince bilig vermiyor ...

[mhk]

Pic basic plusun , pic basic prodan grafik lcd ye çizgi çizmekten pekte fazla bir farkı yok. Eğer pic basic pro biliyorsan bunu anlayacaksındır. Öğrenmek istediklerini yazabilirsen elimden geldiği kadar açıklamaya çalışırım. Pic basic plus için bir örnek kod göndermiştim. Tekrar yazayım. Pic 16F877 4 Mhz. ve 4x20 LCD ye yazı yazan program.

Include "PROTON_4.INC"          '16 F877 için tanımlama dosyası
basla:
   CLS                   'ekranı temizler
   PRINT at 1,1,"Merhaba Picproje"          '1.satır 1.sütuna yazıyı yazar
   delayms 1000                                          '1000 msn yani 1 sn bekle
   PRINT at 2,1,"Uyeleri"                            '2.satır 1.sütuna yazıyı yazar
   delayms 1000                                          '1000 msn yani 1 sn bekle
   PRINT at 3,1,"Umarim Picbasic Plus"   '3.satır 1.sütuna yazıyı yazar
   delayms 1000                                           '1000 msn yani 1 sn bekle
   PRINT at 4,1,"Prog. begendiniz...."        '4.satır 1.sütuna yazıyı yazar
   delayms 1000                                           '1000 msn yani 1 sn bekle
   
goto basla                      'basla etiketine dön

[mhk]

Grafik Lcd ile ilgili bir örnek. Bu örnek hem proteusta simülasyon edilip hemde tarafımdan uygulanarak denenmiştir.Proteus simulasyonuve pic basic plus dosyası için http://groups.yahoo.com/group/PicProjeUP/ adresinden alabilirsiniz. Oraya upload ettim. Lakin ilk önce bu sayfaya üye olmalısınız.Kullanılan grafik lcd 128x64 pixel   Umarım faydalı olur. İyi çalışmalar.


INCLUDE "Proton_G20.INT"            ' 20MHz Pic 16F877 ve grafik lcd tanımlamaları

Dim Xpos   as Byte        'Xpos  değişkenini byte olarak tanımla
Dim Ypos   as Byte        'Ypos  değişkenini byte olarak tanımla


      Cls                    'ekranı temizle
       Print at 0 , 2 , "Sinus grafigi..."           '0.satır 2.sütna yazıyı yaz.
       
basla:      
cls  
       For Xpos = 0 to 63                     'for döngüsü 0 dan 63 e kadar.
      
      Ypos = SIN Xpos
            Plot Xpos , Ypos           'Xpos ve Ypos değişkenine göre lcd ekrana nokta koy
      Delayms 20                        '20 msn bekle
       Next

        For Xpos = 0 to 63
   
          Ypos = SIN Xpos  
          UnPlot Xpos , Ypos 'Xpos ve Ypos değişkenine göre lcd ekranda nokta sil
          Delayms 10
       Next            
Goto basla
       
Include "FONT.INC"     'Grafik lcd ye yazı yazmak için kullılan yazı tanımlama dosyası