Kullanıcı Adı: Beni Hatirla?
Şifre:
  Elektronizm > PIC > PIC Projeleri  > pic programında değişiklik yapma
 


Şu an bu konuyu görüntüleyenler
0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Sayfa: [1]
  Yazdır  
Gönderen Konu: pic programında değişiklik yapma  (Okunma Sayısı 352 defa)
14 Eylül 2009, 21:07:28
babaran
er
*

REP: 0

Mesaj Sayısı: 24
Nerden: mersin

Üyelik Bilgileri Offline
« :»

arkadaşlar 'sezerkıran' ın paylaştığı rf kontrollü  robot projesi  fotoğrafçı robot.Ben bu projeyi yapmayı düşünüyorum.
robot atx-34 ve arx-34 ile kurulmuş pic16f84a kullanılmış.Motor sürücüsü ise l293.Birde fotoğraf makinesinin deklanşörüne basması içn röle koyulmuş.ATX-34 pc seriporttan bağlanmış ve bir program aracılığı ile sürücü karta harfler gönderiyor Örneğin programda 'f' harfine basınca röle iletime geçiyor.Şimdi benim yapmak istediğim buna devreye başka bir röle daha eklemek.Bunun için picbasic pro da yazılmış kodlara 'f' harfinin tanıtıldığı gibi başka bir harfi daha tanıtıp başka bir çıkış portuna yönlendirmeyi düşünüyorum.Sİzce doğrumu yapıyorum yada daha farklı bir yol izleyebilirmiyim?

programın kaynak kodu :

INCLUDE "MODEDEFS.BAS"
I VAR BYTE
VERI VAR BYTE
TEKRAR:
SERIN PORTB.1, 16780, VERI
SELECT CASE VERI
CASE "i"
HIGH PORTA.2
LOW PORTA.3
HIGH PORTA.1
LOW PORTA.0
PAUSE 1000
LOW PORTA.2
LOW PORTA.3
LOW PORTA.1
LOW PORTA.0
CASE "g"
LOW PORTA.2
HIGH PORTA.3
LOW PORTA.1
HIGH PORTA.0
PAUSE 1000
LOW PORTA.2
LOW PORTA.3
LOW PORTA.1
LOW PORTA.0
CASE "r"
HIGH PORTA.2
LOW PORTA.3
LOW PORTA.1
LOW PORTA.0
PAUSE 1000
LOW PORTA.2
LOW PORTA.3
CASE "l"
LOW PORTA.2
LOW PORTA.3
HIGH PORTA.1
LOW PORTA.0
PAUSE 1000
LOW PORTA.1
LOW PORTA.0
CASE "x"
LOW PORTA.0
LOW PORTA.1
LOW PORTA.2
LOW PORTA.3
CASE "f"
HIGH PORTB.7
PAUSE 50
LOW PORTB.7
CASE "4"
FOR I=1 TO 50
PULSOUT PORTB.0, 50
PAUSE 15
NEXT I
CASE "6"
FOR I=1 TO 50
PULSOUT PORTB.0, 190
PAUSE 15
NEXT I
CASE "5"
FOR I=1 TO 50
PULSOUT PORTB.0, 125
PAUSE 15
NEXT I
END SELECT
PAUSE 250
GOTO TEKRAR
END
Logged
Sayfa: [1]
  Yazdır  
 
Gitmek istediğiniz yer:  

MySQL Kullanıyor PHP Kullanıyor Elektronizm | Powered by SMF 1.1.13.
© 2005, Simple Machines LLC. All Rights Reserved.
XHTML 1.0 Uyumlu! CSS Uyumlu!
Bu Sayfa 2.203 Saniyede 20 Sorgu ile Oluşturuldu (Pretty URLs adds 0.077s, 2q)

Elektronizm Çöl Atesi v3 by rallyproco