---

bir yürüyen ışık yapacağım ama bu hızı ayarlanabilen bir yürüyen ışık olcak.PIC16F877 kullanacağım.RB0-----RB7 sekiz tane led olcak. RA0 da ise bir tane potansiyemetre olacak. Ve bu potansiyemetre ile hızını ayarlanacak. Proteus da devre şemasını çizdim.PIC BASIC' de yazılacak olan program için yardımcı olursanız sevinirim.
Çok teşekkürler.

---

---

dostum bu komutları kullanabilirsin pic basic protonda yazılmıştır kodlar basicin diğer derleyicilerini kullanmıyorum kodları incele anlamadığın şeyler olursa gine sorarsan yardımcı olmaya çalıırım
Device = 16F877
XTAL 4
Declare ADIN_RES 8
Declare ADIN_TAD FRC
Declare ADIN_STIME 50
Dim time As Byte
Dim i As Byte
Output PORTB
Input PORTA
Clear PORTB
main:
Set PORTB.0
For i=0 To 7
time = ADIn 0
DelayMS time*5
PORTB = PORTB << 1
Next
GoTo main

---

Başa dön

---

re

arkadaşım hız ayarlamak için pwm kontrol uygula
çünkü en mantıklısı o olur.

yani pwm deki clock aralıklarını belirleyerek hız ayarlayabilirsin

ama eğer bu işi RA0 portundan potansiyometre ile uygulayacaksan analog bilgiyi dijital bilgiye çevirmen gerekir.

yani ADC kullanmak zorundasın direkt potansiyometreyle olmaz

soracağın şeylere yardım ederim

iyi çalışmalar

---

Başa dön

---

bkemer arkadaşım programı yazıp gönderrmşsin önecelikle çok teşekkür ederim.Protonda çalıştı sorun yok ama ben code studio da yazmam gerek bazı şeyleri benim kullanıdığım derleyici kabul etmiyor mesela set in karşılığı ne bu konuda bilgin varsa yardımını bekliyorum.
ilgilendiğin için çok teşekkür ede.rim

---

Başa dön

---

Device = 16F877 'hangi pic olduğunun devlaresi
XTAL 4 'kristal deklaresi
Declare ADIN_RES 8 'adc sonucunun kaç bit olacağı deklaresi
Declare ADIN_TAD FRC 'adc saat kaynağı seçiçi bizimki dahili rc
Declare ADIN_STIME 50 'dahili kapasitör şarj deklaresi
Dim time As Byte 'değişken tanımları
Dim i As Byte 'değişken tanımları
Output PORTB 'portb çıkış
Input PORTA 'porta giriş
Clear PORTB 'portb ye $00 yazıldı
main:
Set PORTB.0 'portbye %00000001 yüklendi
For i=0 To 7
time = ADIn 0 'porta.0 dan dönüşüm yapıldı
DelayMS time*5 'dünüşüm miktarının 5 katı milisaniye beklenildi
PORTB = PORTB << 1 'portb 1 adım sola kaydırıldı
Next '7 kez kaydıktan sonra maine geri dönülüp yeniden portb.0 set edildi
GoTo main 'dünişim 7 kes yapıldıktan sonra portb 000000000 olur bunun için set portb.o gidilmişti
'gecikme değeri hem potla hemde delayms time*5 deki 5 in değişmesiylede olur
kolay gelsin

---

Başa dön

---

Opamp ile Dc Voltajdan Üçgen Dalga Üreteci(50hz)

arkadaslar elinizde Opamp ile Dc Voltajdan Üçgen Dalga Üreteci(50hz) var mı?
devre şemasını ve elemanlarıda net bir şekilde belirtetirseniz sevinirim

opamp olarak LM 741 kullanılan bir devre olursa daha iyi..diğer opamp çeşitleri de kabulumdür.

şimdiden ilgilenen arkadaslara tesekkür ediyorum..

---

Başa dön

---

bunun yeri burası mı?

arkadaşım benim açtığım konuya ceavp verilecek yere mi yazılır bu sen daha onunu nereye yazılacağını bilmiyorsun burda sana kimse cevap vermez. Türkçe bilmeyen bile nerde konu açılacağını bilir.......

---

Başa dön