sensör ile otobüse binen ve inen yolcu sayısını hesaplama

[a4tech33]

öncelikle merhabalar  kısa bir sorum olacak picimiz 16f628 olacak 2 tane sensör bağlı girişlere çıkışa ise 1 lcd  bu sensörlerin isimleri sen1 ve sen2 olsun ilk sen1 sonrada sen2 (1) olursa lcd de sayı 1 artacak
ilk sen2 sonrada sen1 (1) olursa lcd de sayı 1 azalacak yardım ederseniz çok sewinirim..

[subram]

sistemi kurmuşsun kafanda anlaşılan. yardım edelim de hangi konuda yardım edecez? ne istediğini daha  açık yazarsan iyi olur.

[eistain_54]

abi yüksek ihtimalle program istiyor. :)Eğer öyleyse yardımcı olmak isterim...

[subram]

arkadaş ne istediğine karar versin yardım ederiz her türlü

[a4tech33]

aynen programı istedim  kendi yazdığım şöyle





symbol yukari= porta.0
symbol asagi= porta.1
sayi var byte
'''''''''''''''''''''''''''

DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_RWREG PORTB
DEFINE LCD_RWBIT 2
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 1
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2


low portb.2
sayi=0
portb=0
porta=1
lcdout $fe,1
pause 200
'''''''''''''''''''''''''''



BASLA:

IF YUKARI=0 then

if ASAGI =0 THEN SAYI=SAYI+1
endif
IF asagi=0 then

if yukari =0 THEN SAYI=SAYI-1
endif



LCDOUT $FE,1 , "sayi =", # SAYI
LCDOUT $FE,2, " sayi=",DEC3 SAYI
PAUSE 100





GOTO BASLA
END



ben böyle yaptım da olmadı yaa bu arada sensör yerine buton kullandım:(

[evreno]

Örnek Programı linkden indirebilirsin

http://hotfile.com/dl/126235341/0a00766/KapiSensor.rar.html

VS2008 projesi PIC e nasıl uyarlanır bilemiyorum
fikir vermesi açısından yaptım

Public Class Form1
    Private T As Integer = 0
    Private Ic As Boolean = False
    Private Dis As Boolean = False
    Private Giren As Integer = 0
    Private Cikan As Integer = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Ic Or Dis Then 'İç Veya Dış Sensör Tetiklenmişse
            If T >= 10 Then '10 döngü sonrasında iptal et (İki Sensörün Tetiklenme zaman farkını belirler)
                T = 0
                Ic = False
                Dis = False
            End If
            If T > 0 Then T += 1
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Ic = True
        If Dis Then
            T = 0
            Ic = False
            Dis = False
            Cikan += 1
            Label1.Text = "Giren : " & Cikan.ToString("N0")
        End If
        T += 1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dis = True
        If Ic Then
            T = 0
            Ic = False
            Dis = False
            Giren += 1
            Label2.Text = "Çıkan : " & Giren.ToString("N0")
        End If
        T += 1
    End Sub
End Class

Kolay Gelsin...

[a4tech33]

agır geldi biraz.. ama genede teşekkür ederimm

[evreno]

ağır geldi derken?
tam anlayamadım sorun nedir?

[a4tech33]

ya hani basic  dilini bildiğimden  bu dili bilmediğimden dolayı anlıyamadım acıkcası biracda proton biliyorum.. ama emek wermişsin ugraşıp yazmışsın çok teşekkür ederim ama basic yada proton dilinde yardım edebilecek arkadaşlar varsa ben her 10dakikada bir   siteye girip bakıyoruum cevaplarınız geldimi diye şimdiden teşekkür ederim..

[evreno]

PIC programlama konusunda pek bilgim yok o yüzden
konuda bilgi sahibi arkadaşlar belki PIC e göre düzenlemiş halini hazırlarlar
rica ederim kolay gelsin

[erhanmete]

otobüse binenleri veya inenleri bu şekilde saymak aslında çok zor bunu hiç düşündünüzmü
mesela adam kapıda kaldı veya tam binerken geri indi veya aynı anda iki kişi binmeye çalıştı
bence sürekli hata yapar. başka bir yol olmalı

[a4tech33]

son derece doğru konusuyorsun ama  ödev gibi birşey diyim.. bunu böyle yapmak gerekiyor  ilk başta kolay oldupğunu düşünmüştüm ama olmadı

[a4tech33]

ama birde  ortada durması sorun olmuyor düşündüğüm kadarıyla 2. sensöründe görmesi  lazım bindi olması için

[erhanmete]

son derece doğru konusuyorsun ama  ödev gibi birşey diyim.. bunu böyle yapmak gerekiyor  ilk başta kolay oldupğunu düşünmüştüm ama olmadı

hımm ödevse ve helede kendin yapıyorsan bundan süper proje olur.
sana da kattığı çok şey olacak.
başarılar dilerim.

[a4tech33]

ufak bir kıvılcım bekliyorum bu siteden bras kıvılcım bulsam gerisini getirebilirim diye düşünüyorum:)