güç kaynağı ekranı

[ipek]

proton ile Güc kaynağı monitor'u yapmaya çalıştım olduda. proteusta
tek bir uyarı mesajı alıyorum sanal dünyada istediğim gibi çalışıyor.fakat sık sorulan problemlerin biri ile karşılaştım lcd displey pcb'ye kurduğum zaman çok değişiyor (flicker-titreşme) özellikle noktanın sağ tarafı okunamayacak hale geliyor birde volt yazısı düşük voltajlarda öteleniyor...

Device 16F877
Declare XTAL 4

Declare ADIN_RES 10                 ' 10-bit result required 
Declare ADIN_TAD FRC              ' RC OSC chosen 
Declare ADIN_STIME 50             ' Allow 50us sample time 

Declare LCD_TYPE 0                     ' Type of LCD Used is Alpha
Declare LCD_DTPIN PORTB.0         ' The control bits B4,B5,B6,B7           4
Declare LCD_RSPIN PORTB.5         ' RS pin on B2    b5
Declare LCD_ENPIN PORTB.4         ' E pin on B3
Declare LCD_INTERFACE 4             ' Interface method is 4 bit

Print $FE,1
DelayMS 1000

       
       Print $FE,$2, " Deneme-1 "
       Print $FE,$C0," Deneme-2"
       
DelayMS 1000     


PORTB_PULLUPS True

Dim Result1 As Float
Dim Result2 As Float

Dim Last_Result1 As Float
Dim Last_Result2 As Float

Symbol Input1 = PORTA.0
Symbol Input2 = PORTA.1 

TRISA = %00000011                     ' Configure AN0 (PORTA.0+1) as an input 

ADCON1 = %10000000                 ' Set analogue input, Vref is Vdd

Main:

Result1 = ADIn 0                             ' Grab A0's digital value
DelayUS 1                                       ' Allow internal capacitors to charge
Result2 = ADIn 1                             ' Grab A1's digital value

Result1 = Result1 * 5 / 1023              ' Scale it to volts  ---------  5   volt max
Result2 = Result2 * 30 / 1023                 ' 

If Last_Result1 <> Result1 Then       ' Check if value has changed
    Print At 1, 1, DEC2 Result1, "     Amper "       ' If it has, display new data
    Last_Result1 = Result1                     ' and update last value
EndIf

If Last_Result2 <> Result2 Then        ' Check if value has changed
    Print At 2, 1, DEC2 Result2, "    Volts "        ' If it has, display new data
    Last_Result2 = Result2                      ' and update last value
EndIf

GoTo Main                                        ' Loop for ever

gerekli dosyalar
http://rapidshare.com/files/100083796/proje-ps.rar.html

acaba lcd ayaklarını değiştirdiğim icin proton lcd rutinini çağırmadım ondan mı oldu?? kolay gelsin...

[OG]

Ekrana veriliş çok hızlı değilmi hocam. Hangi ölçü aleti bu kadar sık ekranlama yapıyor, hangi göz bunu takip edebiliyor ki?

GoTo Main ' Loop for ever  önüne bir gecikme koysanız.

delayms 100 ' veya delayms 200 veya daha fazla
GoTo Main ' Loop for ever

gibi.

[ipek]

OG 200ms'de İlaç işe yaradı Sayende bir şey öğrendik delay'ı her yerde denemiştim bir orayı pas geçmişim ..Sağolasın...

[kemalguler]

İpek hocam, müsadenizle güç kaynagı ekranı projenizi okulda güç kaynağına takıp kullanmak istiyorum.Sanal ortamda akım çekilmez iken ampermetre 0.05 A gösteriyor.Gerçek uygulamada akım 0 olarak görülebilir mi?MCSP'de derleme yaparken (bas) dosyası hata mesajı veriyor.Sizden ricam OG hocamın belirttiği düzenlemeyi de yaptıktan sonra hex dosyasını tekrar verebilir misiniz.

[a.zorba]

musaade edermı bılemem ama düzenlenmış hex aşagıda.
http://rapidshare.com/files/100681088/vmeter.rar.html

[ipek]

Müsaade ne demek saygılar sitenin kuruluş amacı bu bu arada ilk basic denemem. Proton'da  sample olarak verilen dosyaları amaca uygun düzenlemeye çalıştım (oynadım)bir kaç yıl sonra ETE ustaya asistan olmaya adayım... :lol:

[kemalguler]

Akım çekilmez iken ampermetrenin 0 göstermesi gerekirken 0.05A gösteriyor.Bunun düzeltilebilmesi mümkün müdür?Aynı durum volt gösteriminde de var.