Re: PWM - BASCOM



Masz problem? Zapytaj na forum elektroda.pl

Poprzedni Następny
Wiadomość
Spis treści
From: Marek Lewandowski <nospamabuse_at_nospam_poczta.onet.pl>
Subject: Re: PWM - BASCOM
Date: Tue, 20 May 2003 22:40:06 +0200


KEN wrote:

NIE MOGE URUCHOMIĆ GENERATORA PWM. PODŁĄCZYŁEM SE LEDA DO PORTU PD5
(OC1A) SKONFIGUROWAŁEM WSZYSTKO WEDŁÓG HELPA, ZMIENIAM WARTOŚĆ
PARAMETRU PWM1A A LED SWIECI NA MAXA I NIC
WIEC JEZEL KTOS BAWIL SIE GENERATOREM PWM NA AT90S8535 W BASCOMIE
NIECH PODESLE JAKIES PROCEDURKI!
DZIEKI!!!!

nie krzycz.
--
Marek Lewandowski ICQ# 10139051/GG# 154441
locustXpoczta|onet|pl
http://locust.republika.pl
[! Odpowiadaj pod cytatem. Tnij cytaty. Podpisuj posty. !]

========
Path: news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!not-for-mai

Poprzedni Następny
Wiadomość
Spis treści
From: "Omega" <Leszek_Wieczorek_at_nospam_poczta.onet.pl>
Subject: Re: PWM - BASCOM
Date: Wed, 21 May 2003 00:12:09 +0200


U mnie działa bez problemów
coś pewnie sknociłeś

Leszek Wieczorek

'****Obsługa timera - generowanie napięcia przy pomocy modulacji
PWM**********
'podłącz wyjście PWM (pin D.5) do wejścia układu całkującego
$crystal = 8000000
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 8
Dim K As Byte , Krok As Word
Start Timer1
'współczynnik wypełnienia będzie się zmieniał w całym zakresie
'napięcie wyjściowe PWM będzie od 30V do 0V

Do ' to jest główna pętla
Gosub Narastanie
Gosub Opadanie
Loop

End

Narastanie:
For K = 1 To 255
Pwm1a = K
Waitms 100
Next K
Return

Opadanie:
For K = 255 To 1 Step -1
Pwm1a = K
Waitms 100
Next K
Return



========
Path: news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mai