proton+ 16f877li lcd araç hız göstergesi sorunu

[mengu190]

arkadaşlar üç dört gündür uğraşıyorum ama daha bi arpa boyu ilerliyemedim devreyi isis de kurdum girişten osilatör bağlıyorum led blink yapıyor ama hiç bir şekilde göstergede bi değer okuyamıyorum acaba programdamı hata war yoksa ben yanlış osilatör seçtim ondanmı çalıştıramıyorum yardımcı olabilirseni çok memnun kalıcam teşekkürler




kod:

Device 16F877A
Declare XTAL 20
Config XT_OSC , WDT_OFF , PWRTE_ON , BODEN_OFF , LVP_OFF , CPD_OFF, CP_OFF , DEBUG_OFF
ALL_DIGITAL = TRUE

Declare LCD_TYPE 0
Declare LCD_DTPIN PORTB.4
Declare LCD_ENPIN PORTB.3
Declare LCD_RSPIN PORTB.2
Declare LCD_INTERFACE 4
Declare LCD_LINES 2

Dim KMH As Float
Dim Temp_Float As Float
Dim KMHT As DWord
Dim KMH_Last As DWord

TRISC.0 = 1
DelayMS 1000
Cls

Print At 1,5, "KM/Hr"
KMHT = 0

Start:

KMHT = Counter PORTC.0, 250
If KMHT = 0 Then Goto Display
Temp_Float = KMHT
Temp_Float = (Temp_Float * 4) * 7.2
KMH =  Temp_Float / 1000
KMHT = KMH

Display:
   
If KMH_Last <> KMHT Then
Print At 1, 1, DEC3 KMHT
KMH_Last = KMHT
EndIf
   
GoTo Start

[mengu190]

hala güncel

[ferit06]

display kısmını bir kontrol edin... KMHT_last farklı ise KMHT diyorsunuz ve sabit frekanslı bir osilatorden sayım yaptırıyorsunuz. bu durumda ilk yüklemeden sonra hep aynı değer olacağı için bu kısım iş yapmaz. test sinyalinizin frekansı nedir?

[pcb]

Device 16F877A
Declare Xtal 20
Config XT_OSC , WDT_OFF , PWRTE_ON , BODEN_OFF , LVP_OFF , CPD_OFF, CP_OFF , DEBUG_OFF
All_Digital = TRUE

Declare LCD_Type 0
Declare LCD_DTPin PORTB.4
Declare LCD_ENPin PORTB.3
Declare LCD_RSPin PORTB.2
Declare LCD_Interface 4
Declare LCD_Lines 2

Dim KMH As Float
Dim Temp_Float As Float
Dim KMHT As Dword
Dim KMH_Last As Dword
KMHT    =   0
KMH_Last    =   1000

TRISC.0 = 1
DelayMS 1000
Cls

Print At 1,5, "KM/Hr"
KMHT = 0

Start:

KMHT = Counter PORTC.0, 250

    Select  KMHT
    Case    <>  KMH_Last
        KMH_Last = KMHT
        Temp_Float = KMHT
        Temp_Float = (Temp_Float * 4) * 7.2
        KMH =  Temp_Float / 1000
       
        Print At    2,5, Dec KMHT ,  "   "
        Print At    3,1, Dec3 KMH ,  "   "
        DelayMS 10
    GoTo    Start
    EndSelect
    GoTo    Start

[mengu190]

arkadaşlar çok teşekkürederim şuan devre isis üzerinde çalışıyo hafta sonu arabamda deneyip sonucu sizlerle paylaşıcam tekrardan teşekkürler

[Hattusa]

arkadaşlar çok teşekkürederim şuan devre isis üzerinde çalışıyo hafta sonu arabamda deneyip sonucu sizlerle paylaşıcam tekrardan teşekkürler

s.a.
usta sonucu paylaşımınızı bekliyorum.

[ByTEK]

Konu üzerinden uzun zaman geçmiş.. bende böyle bir şey yapmayı düşünüyorum.. Bilgi ve tecrübenizi paylaşırsınız sevinirim..

Kolay gelsin..