ATNEL tech-forum

Re: Pomoc LED RGB WS2812B wstawka Asm w Bascom

2014-05-13T17:24:57+01:00

[syntax=basic4gl]$regfile = "m328pdef.DAT"
$crystal = 16000000
Config Portd.1 = Output
Pind.1 = 0

Dim A As Word

Dim Green As Byte , Red As Byte , Blue As Byte

Red = 100
Green = 200
Blue = 10

Do

Gosub Rgb0
Wait 1

Loop

'Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Rgb0:
Loadadr Green , X 'załaduj adres zmiennej GREEN do rejestru X

'niestety to też mi nie działa
$asm
; .dseg
; Rsbufor : .byte 16 ; Rezerwuje 16 Bajtów Dla Rsbufor

;ustawić portD na 1 i w zależności od BRCS C=1 tzn bit=1 1=800ns 0=400ns

;-----""------ na 0 ------""----- od BRCS C=0 tzn bit=0 0=400ns 1=800ns

; 12,8=800 13 CYKLI 810ns
; 6,4=400 6 CYKLI 375ns
;150ns Tolerancja 2,4 Cykle

Ldi r16,30 ;ilosc diod LDI laduj do r16

LDI R18,6 ; ilosc diod *3

;Loop6:
ldi ZL,low (Ledy*2) ;adres tabeli w pamięci programu data ledy
ldi ZH,high (Ledy*2)

Loop6:
LPM R17,Z+ ; Kolor 1 Cykl

Ldi r19,8 ;ilosc bitow 1 CYKL

Loop4:

SBI portd,1 ; USTAWIA 1 NA PORCIE D 2 CYKLE
LSL r17 ; 1 CYKL
NOP ; 1 CYKL
; NOP ; 1 CYKL

; nop ;BEZ TYCH NOP lepiej swieci tzn po odłaczeniu (-) nie
; swieci żadna dioda w 1 diodzie a 2 wogóle
;nop
brcs jeden ; jesli 1bit to C=1 jesli 0 to C=0 2 CYKLE lub 1
; SBIS PIND, 3 ' jak bit ustawiony to omiń skok
cbi PORTd,1 ; USTAW 0 NA PORCIE 2 CYKLE

Jeden:

nop
nop
nop
nop
NOP
DEC R19 ; 1 CYKL

cbi PORTd,1 ; ZERUJ NA PORCIE D 2 CYKLE
nop

NOP
NOP
BRNE Loop4 ; 2 Cykle

DEC R18

BRNE LOOP6

NOP

rjmp LOOP8 ; 2 CYKLE

'---------------------------------------------------------------------------------
'---------------------------------------------------------------------------------

Loop8:

$end Asm

Return
End

Ledy:
Data 10 , 0 , 0 , 0 , 255 , 0[/syntax]

------------------------ [ Dodano po: 2 minutach ]

Witam może mi ktoś pomoże udało mi się z DATA pobierać zmienne i wszystkie z 1 diody tzn GRB świecą i działa PWM ale następne nie chcą się zapalać nie mam już nerwów

Statystyki: Napisane przez Maciek 222 — 13 maja 2014, o 17:24

Re: Pomoc LED RGB WS2812B wstawka Asm w Bascom

2014-05-12T14:54:08+01:00

Witam może mi ktoś cokolwiek powie na temat tego kodu - niestety nie mogę sobie poradzić 1 dioda się zapala w różnych PWM-ach i kolorach niestety następna nie chce ani pozostałe - dzięki

Statystyki: Napisane przez Maciek 222 — 12 maja 2014, o 14:54

Re: Pomoc LED RGB WS2812B wstawka Asm w Bascom

2014-05-11T13:09:15+01:00

Dzięki Wam za zwrócenie uwagi na "niewidomego" forumpowicza
i jeśli ktoś może pomódz mi z tym kodem - dzięki

------------------------ [ Dodano po: kilkunastu sekundach ]

sorry "pomóc"

Statystyki: Napisane przez Maciek 222 — 11 maja 2014, o 13:09

Re: Pomoc LED RGB WS2812B wstawka Asm w Bascom

2014-05-11T12:39:34+01:00

to może ja wstawie
[syntax=basic4gl]$regfile = "m328pdef.DAT"
$crystal = 16000000
Config Portd.1 = Output
Pind.1 = 0

Dim A As Word

Dim Green As Byte , Red As Byte , Blue As Byte

Red = 100
Green = 200
Blue = 10

Do

Gosub Rgb0
Wait 1

Loop

'Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Rgb0:
Loadadr Green , X 'załaduj adres zmiennej GREEN do rejestru X
'niestety to też mi nie działa
$asm

;ustawić portD na 1 i w zależności od BRCS C=1 tzn bit=1 1=800ns 0=400ns
;-----""------ na 0 ------""----- od BRCS C=0 tzn bit=0 0=400ns 1=800ns
;Ldi R17,(X) ; Kolor 1 Cykl

Ldi r16,30 ;ilosc diod LDI laduj do r16
;ldi r17,255 ;kolor
INC R16
LDI R18,3

Loop6:
; ldi ZL,low [Ledy*2] ;adres tabeli w pamięci programu
; ldi ZH,high [Ledy*2] niestety taki zapis nie kompiluje mi Bascom

Ldi R17,10 ; Kolor 1 Cykl
Ldi r19,8 ;ilosc bitow 1 CYKL

; 12,8=800 13 CYKLI 810ns
; 6,4=400 6 CYKLI 375ns
;150ns Tolerancja 2,4 Cykle
Loop4:
SBI portd,1 ; USTAWIA 1 NA PORCIE D 2 CYKLE
lsl r17 ; 1 CYKL
NOP ; 1 CYKL
NOP ; 1 CYKL
brcs jeden ; jesli 1bit to C=1 jesli 0 to C=0 2 CYKLE lub 1

cbi PORTd,1 ; USTAW 0 NA PORCIE 2 CYKLE

Jeden:

nop
nop
nop
nop
NOP
DEC R19 ; 1 CYKL

cbi PORTd,1 ; ZERUJ NA PORCIE D 2 CYKLE

NOP
NOP
BRNE Loop4 ; 2 Cykle
DEC R18

BRNE LOOP6

NOP

rjmp LOOP8 ; 2 CYKLE

Ledy:
.db 10 , 20 , 30
'---------------------------------------------------------------------------------
'---------------------------------------------------------------------------------

Loop8:

$end Asm
Return[/syntax]

Statystyki: Napisane przez OdeOn — 11 maja 2014, o 12:39

Re: Pomoc LED RGB WS2812B wstawka Asm w Bascom

2014-05-11T11:30:53+01:00

@Maciek 222 co do znaczników "Syntax"
Edytuj swój post z kodem
w edytrze zaznacz kod i naciśnij Ctrl+x następnie
wybierz z listy rozwijanej "SYNTAX wybierz" (zaraz nad oknem edycji)
"Basic (bascom)" i wciśnij klawisze Ctrl+v.

Statystyki: Napisane przez Zaba — 11 maja 2014, o 11:30

Re: Pomoc LED RGB WS2812B wstawka Asm w Bascom

2014-05-11T10:21:09+01:00

kurcze nie wiem jak to się robi

------------------------ [ Dodano po: 56 minutach ]

Może mi ktoś pomoże zapala mi się tylko 1 dioda i wszystkie kolory następne nie chcą - dzięki

Statystyki: Napisane przez Maciek 222 — 11 maja 2014, o 10:21

Re: Pomoc LED RGB WS2812B wstawka Asm w Bascom

2014-05-11T10:15:33+01:00

Wstaw to w znacznikach
[syntax] i użyj tabulatorów bo jest strasznie nieprzejrzyste

Statystyki: Napisane przez Mateo193 — 11 maja 2014, o 10:15

Pomoc LED RGB WS2812B wstawka Asm w Bascom

2014-05-11T08:40:40+01:00

Witam sorry jestem początkujący i nie mogę sobie poradzić ze wstawką w ASM w Bascom j/w
oto co wypociłem

$regfile = "m328pdef.DAT"
$crystal = 16000000
Config Portd.1 = Output
Pind.1 = 0

Dim A As Word

Dim Green As Byte , Red As Byte , Blue As Byte

Red = 100
Green = 200
Blue = 10

Do

Gosub Rgb0
Wait 1

Loop

'Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Rgb0:
Loadadr Green , X 'załaduj adres zmiennej GREEN do rejestru X
'niestety to też mi nie działa
$asm

;ustawić portD na 1 i w zależności od BRCS C=1 tzn bit=1 1=800ns 0=400ns
;-----""------ na 0 ------""----- od BRCS C=0 tzn bit=0 0=400ns 1=800ns
;Ldi R17,(X) ; Kolor 1 Cykl

Ldi r16,30 ;ilosc diod LDI laduj do r16
;ldi r17,255 ;kolor
INC R16
LDI R18,3

Loop6:
; ldi ZL,low [Ledy*2] ;adres tabeli w pamięci programu
; ldi ZH,high [Ledy*2] niestety taki zapis nie kompiluje mi Bascom

Ldi R17,10 ; Kolor 1 Cykl
Ldi r19,8 ;ilosc bitow 1 CYKL

; 12,8=800 13 CYKLI 810ns
; 6,4=400 6 CYKLI 375ns
;150ns Tolerancja 2,4 Cykle
Loop4:
SBI portd,1 ; USTAWIA 1 NA PORCIE D 2 CYKLE
lsl r17 ; 1 CYKL
NOP ; 1 CYKL
NOP ; 1 CYKL
brcs jeden ; jesli 1bit to C=1 jesli 0 to C=0 2 CYKLE lub 1

cbi PORTd,1 ; USTAW 0 NA PORCIE 2 CYKLE

Jeden:

nop
nop
nop
nop
NOP
DEC R19 ; 1 CYKL

cbi PORTd,1 ; ZERUJ NA PORCIE D 2 CYKLE

NOP
NOP
BRNE Loop4 ; 2 Cykle
DEC R18

BRNE LOOP6

NOP

rjmp LOOP8 ; 2 CYKLE

Ledy:
.db 10 , 20 , 30
'---------------------------------------------------------------------------------
'---------------------------------------------------------------------------------

Loop8:

$end Asm
Return

jeśli ktoś z kolegów mógłby mi pomóc to bym był wdzięczny (ewentualnie wyprowadził na dobre tory

Statystyki: Napisane przez Maciek 222 — 11 maja 2014, o 08:40