16F628A İLE RGB DEVRESİ YARDIM

[webmehmet]

TRISB=0
k var byte 
y var byte
m var byte

 basla:
 for k=1 to 3
 pwm portb.0,k,150
 pause 100
 next k
 gosub dongu
 dongu:
 for y=1 to 3
 pwm portb.1,y,150
 pause 100
 next y
 gosub dongu2
 dongu2:
 for m=1 to 3
 pwm portb.2,m,150
 pause 100
 next m
 goto basla
 end

ARKADASLAR BEN ANA RENKLERI CIKARDIM AMA ARA RENKLER ICIN HANGI KOMUTU KULLANMAM LAZIM YADA NASIL BIR YOL IZLEMEM LAZIM

[webmehmet]

:oops: yardım edecek yokmu

[webmehmet]

neyse arkadaslar yine tskk ederim kendimm bi sekilde halletmeye caliscam

[unalmustafa_85]

Ara renkleri elde edebilmen için  pic de  PWM  komutu kullanman lazım .

pic basic den anlar mısın bilmiyorum ama  aşağı da ekledikleri me bi göz gez dir..


start:
  redpin   VAR PORTE.0
  bluepin  VAR PORTE.2
  greenpin VAR PORTE.1

  i VAR BYTE
  j VAR BYTE
  complement VAR BYTE

main:
  HIGH redpin
  LOW bluepin
  PAUSE 100
  'fade from blue to green
     FOR i = 255 TO 0
      complement = 255 - i
      FOR j = 0 TO 5  
          PWM greenpin, i, 1
          PWM bluepin,complement, 1
      NEXT j
      NEXT i

  HIGH bluepin
  LOW greenpin
  'PAUSE 100
  'fade from green to red
  FOR i = 0 TO 255
      complement = 255 - i
      FOR j = 0 TO 5
          PWM bluepin, i, 1
          PWM REDPIN,complement, 1
      NEXT j
      NEXT i

  HIGH greenpin
  LOW redpin
  PAUSE 100
  'fade from red to blue
  FOR i = 0 TO 255
      complement = 255 - i
      FOR j = 0 TO 5
          PWM redpin, i, 1
          PWM bluepin, complement, 1
      NEXT j
      NEXT i

  GOTO main

[webmehmet]

Cok Tsk Ederım cok yardımı dokundu bu programın 2 pını aynı anda nasıll aktıf hale getırmeyıı de ogrenmıs oldummm artık projenın bıtmesıne saatlerkaldıı tskler yeniden allah razı olsun