Lütfen Yardım Edin

[yiit.syl]

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.

[mehmet]

Bir döngü içerisinde Print komutunu kullanabilirsiniz...

[Maxim]

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

[ete]

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

[yiit.syl]

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.

[mehmet]

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...

[yiit.syl]

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 ?