ATNEL tech-forum

Re: jak przerobić program

2013-02-17T21:41:30+01:00

Temat do zamknięcia

Statystyki: Napisane przez ZeNeK — 17 lut 2013, o 21:41

Re: jak przerobić program

2013-02-01T21:44:06+01:00

Po pierwsze ten kawałek powinien wyglądać tak:

Code:

Software_pwm:
 
Incr Reference                                              'zmienna referencyjna
if Reference = 100 then reference = 0
 
If Reference > R Then : Set Portb.1 : Else : Reset Portb.1 : End If       'red
 
If Reference > G Then : Set Portb.0 : Else : Reset Portb.0 : End If       'green
 
If Reference > B Then : Set Portb.2 : Else : Reset Portb.2 : End If       'blue
 
Return

Teraz masz regulację od 0 do 100% jasności.

Statystyki: Napisane przez matrix — 1 lut 2013, o 21:44

Re: jak przerobić program

2013-02-01T21:22:51+01:00

Nie mam pojęcia do ilu liczy timer ,nie ja pisałem ten program.

Statystyki: Napisane przez ZeNeK — 1 lut 2013, o 21:22

Re: jak przerobić program

2013-01-30T17:06:00+01:00

Może zapytam jeszcze raz

matrix napisał(a):

To ja może zapytam od ilu do ilu liczy Ci timer? A raczej w jakim zakresie zmienia Ci zmienną?
Bo nie bardzo mogę znaleźć w programie. Zdaje się że między innymi tu masz drobny kłopot a w zasadzie błąd.
Podejrzewam że w tej wersji program też nie działa Ci jak należy.

Statystyki: Napisane przez matrix — 30 sty 2013, o 17:06

Re: jak przerobić program

2013-01-29T23:09:11+01:00

Mam diody w obudowie PLCC4 ze wspólną anodą i nie da się ich inaczej podłączyć.

Statystyki: Napisane przez ZeNeK — 29 sty 2013, o 23:09

Re: jak przerobić program

2013-01-29T18:02:43+01:00

A po co przerabiać program?
Wystarczy inaczej wpiąć diody i będą działać.
Nie narysuje Ci schematu bo nie mam na lapku Eagla ale popatrz dokładnie na schemat i pomyśl na pewno wykombinujesz jak to zrobić.

Statystyki: Napisane przez Pier — 29 sty 2013, o 18:02

Re: jak przerobić program

2013-01-28T20:01:56+01:00

Statystyki: Napisane przez matrix — 28 sty 2013, o 20:01

Re: jak przerobić program

2013-01-28T09:56:24+01:00

Dzięki za podpowiedź ale niestety nic to nie daje.

Taką podpowiedź dostałem od autora tego urządzenia

"Niestety NPNy odwrócą fazę więc zmiany w programie są konieczne. Jest to trochę rozległe, generalnie polega to na tym że tam gdzie 255 to w pełni zapalona dioda, a 0 to całkowicie zgaszona, to trzeba te wartości poodwracać. Również wszystkie dekrementacje i inkrementacje, 3 zmiennych przypisanych do diodek. Łatwiej będzie kupić odpowiednie diody i nie kombinować "

ale jak pozmamieniam inkrementacje i dekrementacje to też jakieś cyrki sie robią

Statystyki: Napisane przez ZeNeK — 28 sty 2013, o 09:56

Re: jak przerobić program

2013-01-27T19:31:13+01:00

nie znam się na bascomie ale zmieniłbym to

[syntax=basic4gl]
If Reference > R Then : Set Portb.1 : Else : Reset Portb.1 : End If 'red

If Reference > G Then : Set Portb.0 : Else : Reset Portb.0 : End If 'green

If Reference > B Then : Set Portb.2 : Else : Reset Portb.2 : End If 'blue[/syntax]

na [syntax=basic4gl]
If Reference > R Then : Reset Portb.1 : Else : Set Portb.1 : End If 'red
[/syntax]

to spowoduje 'negacje' sygnałów do wersji oryginalnej

Statystyki: Napisane przez KBCH — 27 sty 2013, o 19:31

jak przerobić program

2013-01-27T18:21:56+01:00

Witam
Może mnie ktoś naprowadzi jak przerobić program w bascomie

żebym mógł zastosować diody led ze wspólną anodą, wiem że muszę też zmienić tranzystory z PNP na NPN.

ten kod pochodzi z tej stronki [syntax=html4strict]http://mdiy.pl/interaktywna-podstawka-pod-kufel/#more-224[/syntax]
[syntax=basic4gl]

$regfile = "attiny13.dat"
$crystal = 4800000
'$sim
'$tiny
'ustawienia stosu i ramki
$hwstack = 16
$swstack = 8
$framesize = 24

'ustawiam piny jako wyjścia
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output

'pin pomiaru adc z LM35
Config Portb.4 = Input

Config Timer0 = Timer , Prescale = 1
Enable Timer0
'Start Timer0 'BASCOM LECI SOBIE W CH..CHINY, PO POLECENIU "START TIMER" ZATRZYMUJE GO, A BEZ TEGO POLECENIA TIMER DZIAŁA.
On Timer0 Software_pwm

Enable Interrupts

'zmienne kolorów
Dim R As Byte
Dim G As Byte
Dim B As Byte

'zmienne pomocnicze
Dim Reference As Byte
Dim Przejscie As Byte
Dim Temp As Word
Dim Wyl As Bit

'napięcie wyjściowe LM35 to 0V-1V (0*C-100*C), wewnętrzne napięcie odniesienia Vbg to ok.1V (ok, czyli wg dokumentacji 1.0V do 1.2V - ładny rozrzut, pogratulować)
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc

'powitanie "R-G-B", można zaremować jeśli komuś się nie podoba.
R = 255
Waitms 10
R = 0
Waitms 150
G = 255
Waitms 10
G = 0
Waitms 150
B = 255

'_______________________________________________________________________________
Do

Waitms 20 'przy 50ms cała pętla kolorów trwa około 5 minut

If Wyl = 0 Then

Select Case Przejscie

Case 0:
'zapalam B
Incr B
'przy 35*C i powyżej całkowicie zaniknie
Temp = Temp + B
If Temp > 320 Then Przejscie = 1

Case 1:
'gaszę R
If R < 6 Then
Przejscie = 2
Else
Decr R
End If

Case 2:
'zapalam G
Incr G
If G = 150 Then Przejscie = 3

Case 3:
'gaszę B
If B < 6 Then
Przejscie = 4
Else
Decr B
End If

Case 4:
'zapalam R
Incr R
'przy 20*C i poniżej całkowicie zaniknie
Temp = 1000 - Temp
Temp = Temp + R
If Temp > 900 Then Przejscie = 5

Case 5:
'gaszę G
If G < 6 Then
Przejscie = 0
Else
Decr G
End If

End Select

End If

'pomiar temperatury
Temp = Getadc(2)
If Temp > 350 Then Temp = 350
If Temp < 100 Then Temp = 100

'jeśli temperatura pokojowa (temperatury załączania dobierane eksperymentalnie, różnią się niewiele od wartości niżej, (240=ok.22*C)
If Temp > 250 And Temp < 300 Then
If R > 0 Then Decr R 'wygaszam kolory
If G > 0 Then Decr G
If B > 0 Then Decr B
Wyl = 1
End If

'jeśli temperatura napoju
If Temp > 300 Or Temp < 250 Then Wyl = 0

Loop
'_______________________________________________________________________________
Software_pwm:

Incr Reference 'zmienna referencyjna

If Reference > R Then : Set Portb.1 : Else : Reset Portb.1 : End If 'red

If Reference > G Then : Set Portb.0 : Else : Reset Portb.0 : End If 'green

If Reference > B Then : Set Portb.2 : Else : Reset Portb.2 : End If 'blue

Return[/syntax]

Statystyki: Napisane przez ZeNeK — 27 sty 2013, o 18:21