Bascom si PT2322 pt2323

[script22]

salut am un sitem orion 5.1 fara telecomanda

el nu are nici un buton are doar un afisor cu 7 segmente

pe care imi arata volumu cand il bag in priza 32

se aude destul de incet

lam desfacut si are 2 integrate

unu selector de canale 5.1

si unu controller de volum bas medii inalte

uC are un atmel seria tip 8051

 

eu vreau sa fac un softulet cu care sa pot sa controlez volumu la care sa ii pun butoane fara telecomanda

 

problema e ca nu merge ce am incercat eu am o placuta de dezovltare cu atmega 16 si un proigramator pe usb

mai jos e programu facut de mine da problema e ca nu merge nu face nimic macar de se auzea ceva

 

 

$regfile = "m16def.dat"                                     'register file for ATmega8515$crystal = 8000000                                          '8MHz crystal$baud = 19200$hwstack = 32$swstack = 8$framesize = 24                                          ' PD0...PD5 pull-up resistor enableConfig Scl = Portc.0Config Sda = Portc.1Config I2cdelay = 20Config Rc5 = Pind.2                                         'pin where is conected ir senzorI2cinitConfig Pina.4 = InputConfig Pina.5 = InputPorta.4 = 1Porta.5 = 1Dim Volum As ByteDim Bas As ByteDim Medii As ByteDim Inalte As ByteDim Plus As Bit                                             'second buttonDim Minus As Bit                                            'third buttonDim Onoff As BitDim Ch_fl As ByteDim Ch_fr As ByteDim Ch_rl As ByteDim Ch_rf As ByteDim Ch_sw As ByteDim Cd_ce As BytePrint "matttttttta"Volum = 228Bas = 8Medii = 8Inalte = 8 Ch_fl = 8 Ch_fr = 8 Ch_rl = 8 Ch_rf = 8 Ch_sw = 8 Cd_ce = 8' pornim pt2323I2csend &H88 , &HFF                                         ' stergem toate registreleI2csend &H88 , &HC7                                         ' e nevoie la pornireI2cstartI2csend &H88 , &H94I2csend &H88 , &HC7                                         ' setam intrarea 6 canaleI2csend &H88 , &HF0                                         ' CH_FL mute ofI2csend &H88 , &HF2                                         ' CH_FR mute ofI2csend &H88 , &HF4                                         ' CH_ce mute of (center)I2csend &H88 , &HF6                                         ' CH_rl mute ofI2csend &H88 , &HX8                                         ' CH_SW mute ofI2csend &H88 , &HFA                                         ' CH_rr mute ofI2csend &H88 , &HD0                                         ' suround efect' toate canalele mute 0xFE' pt2322I2csend &H88 , VolumPrint "test"DoIf Plus = 0 ThenVolum = Volum + 1I2csend &H88 , VolumPrint ; Volum ; " V "End IfIf Minus = 0 ThenDecr VolumI2csend &H88 , VolumVolum = Str(volum)Print ; Volum ; " V "End IfLoop

[nico_2010]

Daca pui si schema de principiu a montajului poate inteleg ceva si te pot ajuta

[Liviu M]

De unde scoti tu date cu primul nibble F (hexa)?

 

I2csend &H88 , &HF0                                         ' CH_FL mute ofI2csend &H88 , &HF2                                         ' CH_FR mute ofI2csend &H88 , &HF4                                         ' CH_ce mute of (center)I2csend &H88 , &HF6                                         ' CH_rl mute ofI2csend &H88 , &HX8                                         ' CH_SW mute ofI2csend &H88 , &HFA                                         ' CH_rr mute of

Daca te uiti in tabelul de la pagina 9, o sa vezi ca datele sunt de la 0x0N la 0xEM, unde M=0..F si N=0..F sunt "nibbelii" de jos.

Presupun, uitandu-ma la table, ca cei 4 biti LSB ai byte-ului de date sunt bitii de configurare, iar cei 4 biti MSB sunt de selectie a functiilor.

Tot din tabel, mie imi iese functia MUTE unica pentru tot chipul si controlata de linia Function Select din tabel, bitul I1 (0x7N, N=0..F).

Pe de alta parte, volumul este o functie "dependenta de canal" - 0x1K canalul FL(prima linie din tabel), 0x2K canalul FR (a doua linie in tabel)... K=0..F.

[script22]