SaNaLıN TeK ŞeKLi ŞeKiL ORTaM



WwW.SeKiLOrTaM.FoRuM.St

Sitemize üye olarak hizmetlerimizden en iyi şekilde yararlanabilirsiniz.
SaNaLıN TeK ŞeKLi ŞeKiL ORTaM

HoŞGeLDiNiZ


    çizgi_izleyen_robot

    Paylaş
    avatar
    aultre
    Yönetici
    Yönetici

    <b>Mesaj Sayısı</b> Mesaj Sayısı : 787
    <b>Rep Puanı</b> Rep Puanı : 2296
    <b>Kayıt tarihi</b> Kayıt tarihi : 01/10/09
    <b>Yaş</b> Yaş : 26
    Lakap Lakap : мøşë
    Uyarı Seviyesi : Uyarı Yok
    Ruh Hali :
    <b>Aktiflik</b> Aktiflik :
    100 / 100100 / 100

    <b>Paylaşım</b> Paylaşım :
    100 / 100100 / 100


    Forum Bereketi
    Kişisel İlet/Not Defteri:

    default çizgi_izleyen_robot

    Mesaj tarafından aultre Bir Perş. Kas. 05, 2009 6:53 pm





    Arkadaşlar şekildeki şema denenmiştir. Yazılımını ilerki günlerde göndermeye çalışacam. Motor olarak servo motor kullanmanızı tavsiye ederim. Kolay gelsin...

    '******************************************
    '* Name : ROBOT(CIZGI).BAS *
    '* Author : serdarderici *
    '******************************************
    device=16f84

    TRISA=%00000111
    TRISB=%00000000

    PORTA=0
    PORTB=0

    'SOL SENSOR=A2,ORTA SENSOR=A1,SAG SENSOR=A0
    '
    ' A2 A1 A0
    '
    ' B2(ILERI) B0(ILERI)
    ' SOLMOTOR SAGMOTOR
    ' B3(GERI) B1(GERI)

    MOTORLAR VAR PORTB
    ORTA VAR PORTA.1
    SOL VAR PORTA.2
    SAG VAR PORTA.0

    BASLA:
    PAUSE 1500

    TEST:
    PORTB=0
    IF SOL=0 AND ORTA=0 AND SAG=0 THEN GOTO GERI
    IF SOL=0 AND ORTA=0 AND SAG=1 THEN GOTO SAGMT
    IF SOL=0 AND ORTA=1 AND SAG=1 THEN GOTO SAGMT
    IF SOL=1 AND ORTA=0 AND SAG=0 THEN GOTO SOLMT
    IF SOL=1 AND ORTA=1 AND SAG=0 THEN GOTO SOLMT
    IF SOL=1 AND ORTA=1 AND SAG=1 THEN GOTO ILERI
    IF SOL=0 AND ORTA=1 AND SAG=0 THEN GOTO ILERI
    GOTO TEST

    ILERI:
    MOTORLAR=%01010101
    PAUSE 10
    GOTO TEST
    GERI:
    MOTORLAR=%10101010
    PAUSE 10
    GOTO TEST
    SAGMT:
    MOTORLAR=%00010001
    PAUSE 10
    GOTO TEST
    SOLMT:
    MOTORLAR=%01000100
    PAUSE 10
    GOTO TEST
    END




      Forum Saati Paz Ara. 16, 2018 10:40 am