jakis przyklad jak to zrobic nie tacąc tej regulacji jaka daje mi T1?
Edit:
Lol - po 3 piwach dostalem przeblysku...
$regfile = Mega32.def
$crystal = 20000000 '20MHz
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Dim T1 As Integer
Dim Licznik As Integer
Config Portd = Output
T1 = 1
Do
Pwm1a = 1
Pwm1b = 255
Waitms T1
Pwm1a = 16
Pwm1b = 240
Waitms T1
Pwm1a = 32
Pwm1b = 224
Waitms T1
Pwm1a = 48
Pwm1b = 208
Waitms T1
Pwm1a = 64
Pwm1b = 192
Waitms T1
Pwm1a = 72
Pwm1b = 176
Waitms T1
Pwm1a = 88
Pwm1b = 160
Waitms T1
Pwm1a = 112
Pwm1b = 144
Waitms T1
Pwm1a = 128
Pwm1b = 128
Waitms T1
Pwm1a = 144
Pwm1b = 112
Waitms T1
Pwm1a = 160
Pwm1b = 96
Waitms T1
Pwm1a = 176
Pwm1b = 80
Waitms T1
Pwm1a = 192
Pwm1b = 64
Waitms T1
Pwm1a = 208
Pwm1b = 48
Waitms T1
Pwm1a = 224
Pwm1b = 32
Waitms T1
Pwm1a = 240
Pwm1b = 16
Waitms T1
Pwm1a = 255
Pwm1b = 1
Waitms T1
Pwm1a = 240
Pwm1b = 16
Waitms T1
Pwm1a = 224
Pwm1b = 32
Waitms T1
Pwm1a = 208
Pwm1b = 48
Waitms T1
Pwm1a = 192
Pwm1b = 64
Waitms T1
Pwm1a = 176
Pwm1b = 80
Waitms T1
Pwm1a = 160
Pwm1b = 96
Waitms T1
Pwm1a = 144
Pwm1b = 112
Waitms T1
Pwm1a = 128
Pwm1b = 128
Waitms T1
Pwm1a = 112
Pwm1b = 144
Waitms T1
Pwm1a = 96
Pwm1b = 160
Waitms T1
Pwm1a = 80
Pwm1b = 176
Waitms T1
Pwm1a = 64
Pwm1b = 192
Waitms T1
Pwm1a = 48
Pwm1b = 208
Waitms T1
Pwm1a = 32
Pwm1b = 224
Waitms T1
Pwm1a = 16
Pwm1b = 240
Waitms T1
Incr Licznik
If Licznik < 8 Then
Incr T1
Else
Decr T1
If Licznik = 16 Then Set Porta.0
End If
Loop
Tam gdzie set portA BEDZIE prog dalej
Moderowany przez zumek:Proszę poprawić tytuł wiadomości - regulamin p.11
Kod z pierwszego postu, dodać jako załącznik, a nie wklejać na forum > 1400 linii kodu - prosze poprawić.