protonda glcd ye değişkene bağlı olarak resim basmak_?

[muhittin_kaplan]

' Display text and graphics on a graphic LCD

		Include "PROTON_G4.INT" 
	    OPTIMISER_LEVEL = 2
		 
		WARNINGS = OFF        
        
' Set up some Variables
        
        Dim Xpos	As	Byte
        Dim	Ypos		As	Byte
        Dim Xpos2	As	Byte
        Dim	Ypos2		As	Byte

        DelayMS 400
Tekrar: 
        Xpos2=4
        For Ypos=32 To 0 Step -1
            Ypos2=Ypos-2
                Call Ciz
            DelayMS 500
            'Call Sil
        Next
       GoTo Tekrar 
Ciz:   
        ;PİLİN UCUNU ÇİZMEK İÇİN
        Plot 0+Ypos2,1+Xpos2
        Plot 0+Ypos2,2+Xpos2
        Plot 0+Ypos2,3+Xpos2
        Plot 0+Ypos2,4+Xpos2
        Plot 0+Ypos2,5+Xpos2
        Plot 1+Ypos2,1+Xpos2
        Plot 1+Ypos2,2+Xpos2
        Plot 1+Ypos2,3+Xpos2
        Plot 1+Ypos2,4+Xpos2
        Plot 1+Ypos2,5+Xpos2
        ;PİLİN UCUNU ÇİZMEK İÇİN

        
            
        Plot 0+Ypos,1+Xpos
        Plot 0+Ypos,2+Xpos
        Plot 0+Ypos,3+Xpos
        Plot 0+Ypos,4+Xpos
        Plot 0+Ypos,5+Xpos
        Plot 0+Ypos,6+Xpos
        Plot 0+Ypos,7+Xpos
        Plot 0+Ypos,8+Xpos
        Plot 0+Ypos,9+Xpos
        Plot 0+Ypos,10+Xpos
        Plot 0+Ypos,11+Xpos
        Plot 0+Ypos,12+Xpos
        Plot 1+Ypos,1+Xpos
        Plot 1+Ypos,2+Xpos
        Plot 1+Ypos,3+Xpos
        Plot 1+Ypos,4+Xpos
        Plot 1+Ypos,5+Xpos
        Plot 1+Ypos,6+Xpos
        Plot 1+Ypos,7+Xpos
        Plot 1+Ypos,8+Xpos
        Plot 1+Ypos,9+Xpos
        Plot 1+Ypos,10+Xpos
        Plot 1+Ypos,11+Xpos
        Plot 1+Ypos,12+Xpos 
        Return
Sil:
        UnPlot 0+Ypos,1+Xpos
        UnPlot 0+Ypos,2+Xpos
        UnPlot 0+Ypos,3+Xpos
        UnPlot 0+Ypos,4+Xpos
        UnPlot 0+Ypos,5+Xpos
        UnPlot 0+Ypos,6+Xpos
        UnPlot 0+Ypos,7+Xpos
        UnPlot 0+Ypos,8+Xpos
        UnPlot 0+Ypos,9+Xpos
        UnPlot 0+Ypos,10+Xpos
        UnPlot 0+Ypos,11+Xpos
        UnPlot 0+Ypos,12+Xpos
        UnPlot 1+Ypos,1+Xpos
        UnPlot 1+Ypos,2+Xpos
        UnPlot 1+Ypos,3+Xpos
        UnPlot 1+Ypos,4+Xpos
        UnPlot 1+Ypos,5+Xpos
        UnPlot 1+Ypos,6+Xpos
        UnPlot 1+Ypos,7+Xpos
        UnPlot 1+Ypos,8+Xpos
        UnPlot 1+Ypos,9+Xpos
        UnPlot 1+Ypos,10+Xpos
        UnPlot 1+Ypos,11+Xpos
        UnPlot 1+Ypos,12+Xpos

        Return 
        
        End

Sil Konumunu Kullanmadım Deneyerk İstediğinizi yapabilirsiniz sanırım.

[mustafa_cmbz]

ben buradaki mantığı anlayamadım kodu derlediğimde de en başta bir çizgi çıkıyor ve en sonda da biraz daha uzun bir çizgi çıkıyor animasyonu başlatında yukarıya doğru yükseliyor...iyi çalışmalar...

[muhittin_kaplan]

yapılan şudur
Ypos Değerleri Değişken Degerler (bunu For next döngüsü le değiştiriyorum) Buna bağlı olarak Plotları Koyuyor.
Siz Burada Y Değişkenlerine İstediğiniz Değeri Yada Döngünün Max Durumunu Düzenleyerek pilin büyüklüğünü ayarlayabilirsiniz.

[mustafa_cmbz]

nedense ben ekranda pil göremedim....

bunun dışında vermiş olduğunuz program ile fast lcd de oluşturduğum karakterin bmp dosyasını alıp dönüştürüyorum.ama programı çok kasıyor...bu daha çok minik uyuglamalar için geçerli olabilir...bunun dışında bana daha pratik bir çözüm gerekli sanırım bunuda circle komutu ile yapacağım gibi duruyor ama sadece bu komutla da bir pil simgesi çizip içindekini hareket ettirmek gerekiyor ama bu komutla ilede pil komple hareket edecek...

lcdnin üzerindeki pixellerin adreslerini nasıl elde ederiz arakdaşlar mesela kendimiz çizmek istesek..._?

bunların dışında normal resim vs. gibi bişey bassak olmazmı mesela pil 10v ise 1. resim yansısın ekrana eğer pil 9v ise 2. resim yansısın resme...bu şekilde yapamazmıyız_? acaba aslında bana bu şekilde bişey lazım gibi geliyor çünki devamlı pili ölçmiyeceğim belirli aralıklar ile ölçüm yaptıracağım...yoksa diğer dişlemleri yaptıramam...kolay gelsin..

[muhittin_kaplan]

Pilin Büyüklüğü Nedir ?

[mustafa_cmbz]

tmm şu an oldu fakat çok amatörce bişi en sonunda pilin başı kayboluyor...onun dışında pil kendisi uzuyor...ben pili sabit yapıp içini hareket ettirmek için uğraşıyorum...kolay gelsin..