Progettazione software per cubo led 4x4x4

[Galaxi93]

No, era solo per sapere, so benissimo quello che devo fare. Il mio "problema", se così si può chiamare, è che devo fare una schedina da attaccare al programmatore che mi dia i vari segnali con uno spinotto che ho su tutte le demo-board. Tutto qui!
Per fortuna non ho avuto problemi con l'installazione del software e il PC mi ha subito riconosciuto il PICkit 2.

Ci sto mettendo tanto, perché ho provato a verniciare di nero la piastra millefori, giusto per abbinare i colori con il programmatore!

Con il cubo sono a buon punto (una faticaccia a saldare tutti i led!!). Adesso vi posto qualche immagine dei led. Giusto il tempo di tirarle giù dalla macchina e upparle.

[Galaxi93]

Eccole (non sono bellissime...):

http://img188.imageshack.us/img188/9682/dsc00002oac.jpg
http://img265.imageshack.us/img265/1313/dsc00005n.jpg
http://img195.imageshack.us/img195/5418/dsc00006tzc.jpg
http://img32.imageshack.us/img32/9868/dsc00008qcg.jpg
http://img31.imageshack.us/img31/5893/dsc01897q.jpg

[Galaxi93]

Ecco altre due foto:
http://img145.imageshack.us/img145/6233/dsc00014whg.jpg
http://img361.imageshack.us/img361/4845/dsc00017s.jpg


Sono riuscito ad programmare!! Questo programmatore è comodissimo, posso programmare tenendo attaccato i vari moduli (con il precedente facevano "interferenza"), e poi mi basta premere un pulsante per alimentare il circuito e testare il programma senza toccare niente!! (con l'altro dovevo staccare il programmatore, collegare il modulo led e accendere).
Ho provato il programma ee... non va... Ora non ho tempo ne voglia, ma domani lo riscrivo da capo perché sta diventando un vero casino.

Saluti,
Davide.

[Galaxi93]

Mi sono bloccato in questo punto:

Codice: Seleziona tutto

//Converte le coordinate in un numero compreso tra 0 e 63. (se si vuole
//convertire solo x e y, mettere a zero z).
char conv_n(char x,char y,char z)
     {
     char xy, n;
     xy=(y<<2)+x;
     n=(z<<4)+xy;
     return n;
     }

//Eleva un numero compreso tra 0 e 15
char conv_elevazione (char n)
     {
     int elev;
     elev=1<<n;
     return elev;
     }

//Questa variabile accende un led date le coordinate.
void acc_led(char x, char y, char z)
     {
     unsigned int xy;
     xy = conv_n(x,y,0);
     porta = conv_elevazione(z);
     xy = conv_elevazione(xy);
     portb = xy/255;
     portc = xy&255;
     }

Ho provato a simulare il programma con MikroC per vedere che valore assumevano le variabili, e ho scoperto che quando xy deve essere "elevato" (nella funzione "conv_elevazione") per un numero superiore al 7, si azzera. Come mai? La variabile è int, quindi non è ha 16 bit??

[posta10100]

Prova a postare il codice assembly generato per la funzione "conv_elevazione"... da li si vede cosa fa realmente!

[Galaxi93]

Ecco qua:

Codice: Seleziona tutto

$00B1   $   _conv_elevazione:
;Cubo_led_v08.c,46 ::       char conv_elevazione (char n)
;Cubo_led_v08.c,49 ::       elev=1<<n;
$00B1   $1303         BCF   STATUS, RP1
$00B2   $1283         BCF   STATUS, RP0
$00B3   $0829         MOVF   FARG_conv_elevazione+0, 0
$00B4   $00F2         MOVWF   STACK_2
$00B5   $3001         MOVLW   1
$00B6   $00F0         MOVWF   STACK_0
$00B7   $3000         MOVLW   0
$00B8   $00F1         MOVWF   STACK_0+1
$00B9   $0872         MOVF   STACK_2, 0
$00BA   $   L_conv_elevazione_5:
$00BA   $1903         BTFSC   STATUS, Z
$00BB   $28C1         GOTO   L_conv_elevazione_6
$00BC   $0DF0         RLF   STACK_0, 1
$00BD   $0DF1         RLF   STACK_0+1, 1
$00BE   $1070         BCF   STACK_0, 0
$00BF   $3FFF         ADDLW   255
$00C0   $28BA         GOTO   L_conv_elevazione_5
$00C1   $   L_conv_elevazione_6:
;Cubo_led_v08.c,50 ::       return elev;
;Cubo_led_v08.c,51 ::       }
$00C1   $0008         RETURN

[posta10100]

Immagino che stack_0 e stack_2 siano state dichiarate piu` su nel codice, puoi postare anche quella parte?

[Galaxi93]

Il codice è un po' diverso, ma non funziona lo stesso.
Ecco quello che mi hai chiesto (spero che sia giusto):

Codice: Seleziona tutto

; ADDRESS   OPCODE   ASM
; ----------------------------------------------
$0000   $28A7         GOTO   _main
$005E   $   _Div_16x16_S_L:
$005E   $1303         BCF   STATUS, RP1
$005F   $1283         BCF   STATUS, RP0
$0060   $0D71         RLF   STACK_1, W
$0061   $0DF8         RLF   STACK_8, F
$0062   $0DF9         RLF   STACK_9, F
$0063   $0874         MOVF   STACK_4, W
$0064   $02F8         SUBWF   STACK_8, F
$0065   $0875         MOVF   STACK_5, W
$0066   $1C03         BTFSS   STATUS, C
$0067   $0F75         INCFSZ   STACK_5, W
$0068   $02F9         SUBWF   STACK_9, F
$0069   $0DF0         RLF   STACK_0, F
$006A   $0DF1         RLF   STACK_1, F
$006B   $300F         MOVLW   15
$006C   $00FC         MOVWF   STACK_12
$006D   $0D71         RLF   STACK_1, W
$006E   $0DF8         RLF   STACK_8, F
$006F   $0DF9         RLF   STACK_9, F
$0070   $0874         MOVF   STACK_4, W
$0071   $1C70         BTFSS   STACK_0, 0
$0072   $2879         GOTO   $+7
$0073   $02F8         SUBWF   STACK_8, F
$0074   $0875         MOVF   STACK_5, W
$0075   $1C03         BTFSS   STATUS, C
$0076   $0F75         INCFSZ   STACK_5, W
$0077   $02F9         SUBWF   STACK_9, F
$0078   $287E         GOTO   $+6
$0079   $07F8         ADDWF   STACK_8, F
$007A   $0875         MOVF   STACK_5, W
$007B   $1803         BTFSC   STATUS, C
$007C   $0F75         INCFSZ   STACK_5, W
$007D   $07F9         ADDWF   STACK_9, F
$007E   $0DF0         RLF   STACK_0, F
$007F   $0DF1         RLF   STACK_1, F
$0080   $0BFC         DECFSZ   STACK_12, F
$0081   $286D         GOTO   $-20
$0082   $1870         BTFSC   STACK_0, 0
$0083   $288A         GOTO   $+7
$0084   $0874         MOVF   STACK_4, W
$0085   $07F8         ADDWF   STACK_8, F
$0086   $0875         MOVF   STACK_5, W
$0087   $1803         BTFSC   STATUS, C
$0088   $0F75         INCFSZ   STACK_5, W
$0089   $07F9         ADDWF   STACK_9, F
$008A   $0000         NOP
$008B   $0008         RETURN
$00B3   $   _conv_elevazione:
;Cubo_led_v08.c,46 ::       char conv_elevazione (char n)
;Cubo_led_v08.c,47 ::       { return 1<<n; }
$00B3   $1303         BCF   STATUS, RP1
$00B4   $1283         BCF   STATUS, RP0
$00B5   $0822         MOVF   FARG_conv_elevazione+0, 0
$00B6   $00F1         MOVWF   STACK_1
$00B7   $3001         MOVLW   1
$00B8   $00F0         MOVWF   STACK_0
$00B9   $0871         MOVF   STACK_1, 0
$00BA   $   L_conv_elevazione_4:
$00BA   $1903         BTFSC   STATUS, Z
$00BB   $28C0         GOTO   L_conv_elevazione_5
$00BC   $0DF0         RLF   STACK_0, 1
$00BD   $1070         BCF   STACK_0, 0
$00BE   $3FFF         ADDLW   255
$00BF   $28BA         GOTO   L_conv_elevazione_4
$00C0   $   L_conv_elevazione_5:
$00C0   $0008         RETURN
$0004   $   _Div_16x16_S:
$0004   $1303         BCF   STATUS, RP1
$0005   $1283         BCF   STATUS, RP0
$0006   $01FD         CLRF   STACK_13
$0007   $01F9         CLRF   STACK_9
$0008   $01F8         CLRF   STACK_8
$0009   $0871         MOVF   STACK_1, W
$000A   $0470         IORWF   STACK_0, W
$000B   $1903         BTFSC   STATUS, Z
$000C   $3400         RETLW   0
$000D   $0871         MOVF   STACK_1, W
$000E   $0675         XORWF   STACK_5, W
$000F   $00FA         MOVWF   STACK_10
$0010   $1BFA         BTFSC   STACK_10, 7
$0011   $09FD         COMF   STACK_13, F
$0012   $01FB         CLRF   STACK_11
$0013   $1FF5         BTFSS   STACK_5, 7
$0014   $281A         GOTO   $+6
$0015   $09F4         COMF   STACK_4, F
$0016   $09F5         COMF   STACK_5, F
$0017   $0AF4         INCF   STACK_4, F
$0018   $1903         BTFSC   STATUS, Z
$0019   $0AF5         INCF   STACK_5, F
$001A   $1FF1         BTFSS   STACK_1, 7
$001B   $2821         GOTO   $+6
$001C   $09F0         COMF   STACK_0, F
$001D   $09F1         COMF   STACK_1, F
$001E   $0AF0         INCF   STACK_0, F
$001F   $1903         BTFSC   STATUS, Z
$0020   $0AF1         INCF   STACK_1, F
$0021   $0871         MOVF   STACK_1, W
$0022   $0475         IORWF   STACK_5, W
$0023   $00FA         MOVWF   STACK_10
$0024   $1BFA         BTFSC   STACK_10, 7
$0025   $2836         GOTO   $+17
$0026   $205E         CALL   _Div_16x16_S_L
$0027   $187B         BTFSC   STACK_11, 0
$0028   $2849         GOTO   $+33
$0029   $1FFD         BTFSS   STACK_13, 7
$002A   $3400         RETLW   0
$002B   $09F0         COMF   STACK_0, F
$002C   $09F1         COMF   STACK_1, F
$002D   $0AF0         INCF   STACK_0, F
$002E   $1903         BTFSC   STATUS, Z
$002F   $0AF1         INCF   STACK_1, F
$0030   $09F8         COMF   STACK_8, F
$0031   $09F9         COMF   STACK_9, F
$0032   $0AF8         INCF   STACK_8, F
$0033   $1903         BTFSC   STATUS, Z
$0034   $0AF9         INCF   STACK_9, F
$0035   $3400         RETLW   0
$0036   $1FF5         BTFSS   STACK_5, 7
$0037   $2845         GOTO   $+14
$0038   $1BF1         BTFSC   STACK_1, 7
$0039   $2841         GOTO   $+8
$003A   $0871         MOVF   STACK_1, W
$003B   $00F9         MOVWF   STACK_9
$003C   $0870         MOVF   STACK_0, W
$003D   $00F8         MOVWF   STACK_8
$003E   $01F1         CLRF   STACK_1
$003F   $01F0         CLRF   STACK_0
$0040   $2829         GOTO   $-23
$0041   $01F1         CLRF   STACK_1
$0042   $01F0         CLRF   STACK_0
$0043   $0AF0         INCF   STACK_0, F
$0044   $3400         RETLW   0
$0045   $09F1         COMF   STACK_1, F
$0046   $09F0         COMF   STACK_0, F
$0047   $0AFB         INCF   STACK_11, F
$0048   $2826         GOTO   $-34
$0049   $0AF8         INCF   STACK_8, F
$004A   $1903         BTFSC   STATUS, Z
$004B   $0AF9         INCF   STACK_9, F
$004C   $0874         MOVF   STACK_4, W
$004D   $0278         SUBWF   STACK_8, W
$004E   $1D03         BTFSS   STATUS, Z
$004F   $2829         GOTO   $-38
$0050   $0875         MOVF   STACK_5, W
$0051   $0279         SUBWF   STACK_9, W
$0052   $1D03         BTFSS   STATUS, Z
$0053   $2829         GOTO   $-42
$0054   $01F9         CLRF   STACK_9
$0055   $01F8         CLRF   STACK_8
$0056   $0AF0         INCF   STACK_0, F
$0057   $1903         BTFSC   STATUS, Z
$0058   $0AF1         INCF   STACK_1, F
$0059   $1FF1         BTFSS   STACK_1, 7
$005A   $2829         GOTO   $-49
$005B   $0000         NOP
$005C   $34FF         RETLW   255
$005D   $0008         RETURN

[posta10100]

Non era quella la parte che volevo vedere... puoi postare tutto il codice?

[Galaxi93]

puoi postare tutto il codice?

Mi sa che si fa prima :

Codice: Seleziona tutto

;  ASM code generated by mikroVirtualMachine for PIC - V. 8.2.0.0
;  Date/Time: 04/07/2009 21.03.17
;  Info: http://www.mikroe.com


; ADDRESS   OPCODE   ASM
; ----------------------------------------------
$0000   $2850         GOTO   _main
$0062   $   _conv_n:
;Cubo_led_v08.c,37 ::       char conv_n(char x,char y,char z)
;Cubo_led_v08.c,40 ::       xy=(y<<2)+x;
$0062   $1303         BCF   STATUS, RP1
$0063   $1283         BCF   STATUS, RP0
$0064   $082A         MOVF   FARG_conv_n+1, 0
$0065   $00F0         MOVWF   STACK_0
$0066   $0DF0         RLF   STACK_0, 1
$0067   $1070         BCF   STACK_0, 0
$0068   $0DF0         RLF   STACK_0, 1
$0069   $1070         BCF   STACK_0, 0
$006A   $0829         MOVF   FARG_conv_n+0, 0
$006B   $0770         ADDWF   STACK_0, 0
$006C   $00F2         MOVWF   STACK_2
;Cubo_led_v08.c,41 ::       n=(z<<4)+xy;
$006D   $082B         MOVF   FARG_conv_n+2, 0
$006E   $00F0         MOVWF   STACK_0
$006F   $0DF0         RLF   STACK_0, 1
$0070   $1070         BCF   STACK_0, 0
$0071   $0DF0         RLF   STACK_0, 1
$0072   $1070         BCF   STACK_0, 0
$0073   $0DF0         RLF   STACK_0, 1
$0074   $1070         BCF   STACK_0, 0
$0075   $0DF0         RLF   STACK_0, 1
$0076   $1070         BCF   STACK_0, 0
$0077   $0872         MOVF   STACK_2, 0
$0078   $07F0         ADDWF   STACK_0, 1
;Cubo_led_v08.c,42 ::       return n;
;Cubo_led_v08.c,43 ::       }
$0079   $0008         RETURN
$007A   $   _conv_elevazione:
;Cubo_led_v08.c,46 ::       char conv_elevazione (char n)
;Cubo_led_v08.c,47 ::       { return 1<<n; }
$007A   $1303         BCF   STATUS, RP1
$007B   $1283         BCF   STATUS, RP0
$007C   $0829         MOVF   FARG_conv_elevazione+0, 0
$007D   $00F1         MOVWF   STACK_1
$007E   $3001         MOVLW   1
$007F   $00F0         MOVWF   STACK_0
$0080   $0871         MOVF   STACK_1, 0
$0081   $   L_conv_elevazione_4:
$0081   $1903         BTFSC   STATUS, Z
$0082   $2887         GOTO   L_conv_elevazione_5
$0083   $0DF0         RLF   STACK_0, 1
$0084   $1070         BCF   STACK_0, 0
$0085   $3FFF         ADDLW   255
$0086   $2881         GOTO   L_conv_elevazione_4
$0087   $   L_conv_elevazione_5:
$0087   $0008         RETURN
$0033   $   _conv_xyz:
;Cubo_led_v08.c,25 ::       char conv_xyz(char n)
;Cubo_led_v08.c,28 ::       z_led=n>>4;
$0033   $1303         BCF   STATUS, RP1
$0034   $1283         BCF   STATUS, RP0
$0035   $0824         MOVF   FARG_conv_xyz+0, 0
$0036   $00F2         MOVWF   STACK_2
$0037   $0CF2         RRF   STACK_2, 1
$0038   $13F2         BCF   STACK_2, 7
$0039   $0CF2         RRF   STACK_2, 1
$003A   $13F2         BCF   STACK_2, 7
$003B   $0CF2         RRF   STACK_2, 1
$003C   $13F2         BCF   STACK_2, 7
$003D   $0CF2         RRF   STACK_2, 1
$003E   $13F2         BCF   STACK_2, 7
$003F   $0872         MOVF   STACK_2, 0
$0040   $00A0         MOVWF   _z_led
;Cubo_led_v08.c,29 ::       xy=n & 15;
$0041   $300F         MOVLW   15
$0042   $0524         ANDWF   FARG_conv_xyz+0, 0
$0043   $00F1         MOVWF   STACK_1
;Cubo_led_v08.c,30 ::       y_led=xy>>2;
$0044   $0871         MOVF   STACK_1, 0
$0045   $00A1         MOVWF   _y_led
$0046   $0CA1         RRF   _y_led, 1
$0047   $13A1         BCF   _y_led, 7
$0048   $0CA1         RRF   _y_led, 1
$0049   $13A1         BCF   _y_led, 7
;Cubo_led_v08.c,31 ::       x_led=xy & 3;
$004A   $3003         MOVLW   3
$004B   $0571         ANDWF   STACK_1, 0
$004C   $00A2         MOVWF   _x_led
;Cubo_led_v08.c,32 ::       return(x_led,y_led,z_led);
$004D   $0872         MOVF   STACK_2, 0
$004E   $00F0         MOVWF   STACK_0
;Cubo_led_v08.c,33 ::       }
$004F   $0008         RETURN
$0004   $   _acc_led:
;Cubo_led_v08.c,50 ::       void acc_led(char x, char y, char z)
;Cubo_led_v08.c,53 ::       xy = conv_n(x,y,0);
$0004   $1303         BCF   STATUS, RP1
$0005   $1283         BCF   STATUS, RP0
$0006   $0824         MOVF   FARG_acc_led+0, 0
$0007   $00A9         MOVWF   FARG_conv_n+0
$0008   $0825         MOVF   FARG_acc_led+1, 0
$0009   $00AA         MOVWF   FARG_conv_n+1
$000A   $01AB         CLRF   FARG_conv_n+2, 1
$000B   $2062         CALL   _conv_n
$000C   $0870         MOVF   STACK_0, 0
$000D   $00A7         MOVWF   acc_led_xy_L0
;Cubo_led_v08.c,54 ::       porta = 15-conv_elevazione(z);
$000E   $0826         MOVF   FARG_acc_led+2, 0
$000F   $00A9         MOVWF   FARG_conv_elevazione+0
$0010   $207A         CALL   _conv_elevazione
$0011   $0870         MOVF   STACK_0, 0
$0012   $3C0F         SUBLW   15
$0013   $0085         MOVWF   PORTA
;Cubo_led_v08.c,55 ::       a=xy/8;
$0014   $3003         MOVLW   3
$0015   $00F4         MOVWF   STACK_4
$0016   $0827         MOVF   acc_led_xy_L0, 0
$0017   $00F0         MOVWF   STACK_0
$0018   $0874         MOVF   STACK_4, 0
$0019   $   L_acc_led_6:
$0019   $1903         BTFSC   STATUS, Z
$001A   $281F         GOTO   L_acc_led_7
$001B   $0CF0         RRF   STACK_0, 1
$001C   $13F0         BCF   STACK_0, 7
$001D   $3FFF         ADDLW   255
$001E   $2819         GOTO   L_acc_led_6
$001F   $   L_acc_led_7:
;Cubo_led_v08.c,56 ::       b=xy%8;
$001F   $3007         MOVLW   7
$0020   $0527         ANDWF   acc_led_xy_L0, 0
$0021   $00A8         MOVWF   acc_led_b_L0
;Cubo_led_v08.c,57 ::       if (a)
$0022   $0870         MOVF   STACK_0, 0
$0023   $1903         BTFSC   STATUS, Z
$0024   $282C         GOTO   L_acc_led_0
;Cubo_led_v08.c,59 ::       portb=conv_elevazione(b);
$0025   $0828         MOVF   acc_led_b_L0, 0
$0026   $00A9         MOVWF   FARG_conv_elevazione+0
$0027   $207A         CALL   _conv_elevazione
$0028   $0870         MOVF   STACK_0, 0
$0029   $0086         MOVWF   PORTB
;Cubo_led_v08.c,60 ::       portc=0;
$002A   $0187         CLRF   PORTC, 1
;Cubo_led_v08.c,61 ::       }
$002B   $2832         GOTO   L_acc_led_1
$002C   $   L_acc_led_0:
;Cubo_led_v08.c,64 ::       portc=conv_elevazione(b);
$002C   $0828         MOVF   acc_led_b_L0, 0
$002D   $00A9         MOVWF   FARG_conv_elevazione+0
$002E   $207A         CALL   _conv_elevazione
$002F   $0870         MOVF   STACK_0, 0
$0030   $0087         MOVWF   PORTC
;Cubo_led_v08.c,65 ::       portb=0;
$0031   $0186         CLRF   PORTB, 1
;Cubo_led_v08.c,66 ::       }
$0032   $   L_acc_led_1:
;Cubo_led_v08.c,67 ::       }
$0032   $0008         RETURN
$0050   $   _main:
;Cubo_led_v08.c,70 ::       void main(void)
;Cubo_led_v08.c,73 ::       trisa=0;
$0050   $1303         BCF   STATUS, RP1
$0051   $1683         BSF   STATUS, RP0
$0052   $0185         CLRF   TRISA, 1
;Cubo_led_v08.c,74 ::       trisb=0;
$0053   $0186         CLRF   TRISB, 1
;Cubo_led_v08.c,75 ::       trisc=0;
$0054   $0187         CLRF   TRISC, 1
;Cubo_led_v08.c,77 ::       while (1)
$0055   $   L_main_2:
;Cubo_led_v08.c,80 ::       conv_xyz(xyz);
$0055   $1283         BCF   STATUS, RP0
$0056   $0823         MOVF   _xyz, 0
$0057   $00A4         MOVWF   FARG_conv_xyz+0
$0058   $2033         CALL   _conv_xyz
;Cubo_led_v08.c,81 ::       acc_led(x_led,y_led,z_led);
$0059   $0822         MOVF   _x_led, 0
$005A   $00A4         MOVWF   FARG_acc_led+0
$005B   $0821         MOVF   _y_led, 0
$005C   $00A5         MOVWF   FARG_acc_led+1
$005D   $0820         MOVF   _z_led, 0
$005E   $00A6         MOVWF   FARG_acc_led+2
$005F   $2004         CALL   _acc_led
;Cubo_led_v08.c,82 ::       }
$0060   $2855         GOTO   L_main_2
;Cubo_led_v08.c,83 ::       }
$0061   $2861         GOTO   $


Ho finalmente finito il cubo!!! E lo già provato con alcuni programmini. Appena posso carico un video su youtube e lo posto qui.
P.S:non guardare tutto il codice, perché non fa niente (mancano tutte le altre funzioni).