(http://s23.postimg.cc/7x9hqnalz/image.jpg) (http://postimg.cc/image/7x9hqnalz/)
Forumda yeniyim eğer konuyu yanlış yerde açtıysam kusura bakmayın. Proton İDE programında bi yerde sıkıştım kaldım ne yaptıysam bulamadım hatayı programın kullanılışınıda pek bilmiyorum açıkcası.Neyse çok uzatmayayım. Yazdığım Program Bu
'LM35'in sıcaklığını ölçen ve LCD de gösteren uygylama
Device 16F877A
Xtal 4
'Giriş-Çıkış Ayarları
TRISD=%00000000
TRISA.0=1
PORTD=%11111111
'ADC Ayarı(analog ve dijital bacakların ayarlanması)
ADCON1=%10000010
Adin_Res 10
Adin_Tad FRC
Adin_Stime 50
'LCD Bacak Tanımlaması
Declare LCD_DTPin PORTD.4
Declare LCD_ENPin PORTE.1
Declare LCD_RSPin PORTE.0
Declare LCD_RWPin PORTB.2
Declare LCD_Interface 4
Declare LCD_Lines 2
'Program
Dim Sicaklik As Word
Dim hesap1 As Float
Dim hesap2 As Float
Print At 1,1," LM35 "
DelayMS 500
Cls
basla:
Sicaklik=ADIn 0
DelayUS 50
hesap1=(0.0048828125*Sicaklik)*1000
hesap2=(hesap1/10)
Print At 1,1, "SICAKLIK:"
Print At 1,10,Dec1 hesap2," C "
DelayMS 50
Dim S As Byte
hesap2=S
If S>=2 Then
Print At 2,1,">"
EndIf
GoTo basla
program lm35 değerini sıcaklığa çevirerek lcd ekranda görüntülememi sağlıyor buraya kadar sıkıntı yok zaten.
Benim programa eklemek istediğim şey ise 2 derecede bir lcd de büyüktür işareti görünsün ve her 2 derecede 1 büyüktür işareti daha konulsun yan yana örneğin;
sıcaklık 10 derece olunca >>>>> 5 tane büyüktür işareti konulsun
programda if li kısımda bunu denemeye çalıştım ama başaramadım bana yardımcı olabilirseniz çok memnun olurum.
devrenin isis görüntüsünüde yukarıda paylaştım.
Bir döngü içerisinde Print komutunu kullanabilirsiniz...
protonun yüklü olduğu yerde örnek dosyalar var
samples klasörü içinde
orada BarGraph.bas dosyası işini görecek
>>>> gibi kabaca değilde
direk grafik şeklinde sağa doğru çubuk çıkarabilirsin
böyle yani
(http://www.seetron.com/apps/images/bargraf3.jpg)
Print at 2,1, REP "<"\(hesap2/2)
Rep komutu repeat yani tekrarla ifadesinin kısaltılmış halidir. Kendisinden sonra gelen karekteri slash dan sonra gelen rakam ise tekrarlanacak adeti belirler.
Böyelce hesaplanan sıcaklığın yarısı kadar adet de < işareti yaz denilince istek yerine gelmiş olur.
Komut çalışmaz ise şöyle de yapılabilir
Adet=hesap2/2
For X=0 to adet
Print at 2,1+X,"<"
Next
Ete
Hepinize çok teşekkür ederim. Ete hocam dediğin gibi yaptım işe yaradı beni büyük bir dertten kurtardın çok sağol yardımın için. Bir sorum daha olacak size sıcaklık artarken ekranda < işareti ekleniyor.Ama sıcaklık düşerken < işareti eksilmiyor onun için ne yapmam gerekiyor.
Arttığını ve azaldığını ayıracak iki şart oluşturun,
@ete Hoca' nın söylediğini, bu iki şart içine yazın.
Artanda '<' işareti azalanda 'boşluk' işareti ilave edin...
Alıntı yapılan: mehmet - 16 Nisan 2015, 14:21:09
Arttığını ve azaldığını ayıracak iki şart oluşturun,
@ete Hoca' nın söylediğini, bu iki şart içine yazın.
Artanda '<' işareti azalanda 'boşluk' işareti ilave edin...
Programda yeniyim şart oluşturma da falan sıkıntı yaşıyorum hakim olmadığım için örnek bir kod yazabilir misiniz acaba ?