UV-låda. Med bilder!!

newbadboy · Inlägg av **newbadboy** » 5 februari 2007, 11:57:30

Tjabba, har själv fixat till en uvlåda med Pic16f628. Men jag har satan i det inte kunnat hitta ngn lämplig låda att bygga in grejerna i,

Vart skall man leta. Självklart är en gammal scanner mest lämplig men jag har letat så länge att jag snart bygger in skiten i et smörpaket. Frustrerande när allt annars är färdigt....

bengt-re · Inlägg av **bengt-re** » 5 februari 2007, 12:27:31

Jag plockade sönder min gamla scanner i veckan jag - väntar bara på tillfälle att åka och köpa delar för UV-bitarna. Har du mer info om hur du gjort din elektronik?

newbadboy · Inlägg av **newbadboy** » 5 februari 2007, 13:29:23

javisst, jag har bara ingenstans att lägga upp bilderna, sen kommer nog många att tycka att C-koden är dum och primitiv men den funkar vid första anblick, ska försöka knåpa ihop ngt vettigt och lägga ut det på ngt sätt, vet inte hur bara...

bengt-re · Inlägg av **bengt-re** » 5 februari 2007, 13:32:27

Spelar ingen roll vad det är för färg på katten så länge den fångar råttor.....

[ALV] · Inlägg av **[ALV]** » 5 februari 2007, 13:48:16

du kan skicka bilderna till mig så kan jag lägga upp dom tillfälligt.
maila till richardisberg@gmail.com

newbadboy · Inlägg av **newbadboy** » 5 februari 2007, 14:29:35

ljuvligt... kommer inom snar framtid

...

Skickar även med en bild på mitt projekt innan.. min Wisp!!

newbadboy · Inlägg av **newbadboy** » 5 februari 2007, 15:02:12

Detta är eg mitt första verkliga projekt med PIC så ni får bortse från programmet. Fast jag e rätt nöjd själv ändå. Nedan följer koden till styrningen. Skriven i mikroC

---------------------------------------------------------

Kod: Markera allt

  
// Styrkrets mha 16F628 till UV-låda, extern 4Mhz Xtal

#define Set PORTA.F2
#define Reset PORTA.F3
#define Start PORTA.F4
#define RelayOut PORTA.F1

int k=0;

void main(){

             VRCON = 0x00;         //Vref av
             CMCON = 0b00000111;   //Komparator av
             TRISA = 0b11111101;   //PortA bit1 utgång, andra in
             TRISB = 0;            //PortB utgång



                            while(1){


                                RelayOut=0;  //Relä av

                                if(Set==0){
                                delay_ms(250);  //Motverka kontaktstuds
                                k++;
                                }

                                if(Reset==0)    //Inställning av tid, samtidig
                                k=0;            //visning på led display

                                if(k==10)
                                k=0;
                                        
                                if(k==0)
                                PORTB=0xC0;
                                
                                if(k==1)
                                PORTB=0xF9;
                                
                                if(k==2)
                                PORTB=0xA4;
                                
                                if(k==3)
                                PORTB=0xB0;
                                
                                if(k==4)
                                PORTB=0x99;
                                
                                if(k==5)
                                PORTB=0x92;
                                
                                if(k==6)
                                PORTB=0x83;
                                
                                if(k==7)
                                PORTB=0xF8;
                                
                                if(k==8)
                                PORTB=0x80;
                                
                                if(k==9)
                                PORTB=0x98;
                                


                                if(Start==0){

                                        while(k>=1){
                                        RelayOut=1;  //Relä på
                                        PORTB.F7=0;  //Tänd Dp
                                        
                                        
                                        delay_ms(10000); //60s fördröjning
                                        if(Reset==0)     //mellan varje
                                           k=0;          //nedräkning

                                        delay_ms(10000);
                                        if(Reset==0)
                                           k=0;

                                        delay_ms(10000);
                                        if(Reset==0)
                                           k=0;

                                        delay_ms(10000);
                                        if(Reset==0)
                                           k=0;

                                        delay_ms(10000);
                                        if(Reset==0)
                                           k=0;

                                        delay_ms(10000);
                                        if(Reset==0)
                                           k=0;
                                           
                                        k--;
                                
                                        if(k==1)
                                        PORTB=0xF9;

                                        if(k==2)
                                        PORTB=0xA4;

                                        if(k==3)
                                        PORTB=0xB0;

                                        if(k==4)
                                        PORTB=0x99;

                                        if(k==5)
                                        PORTB=0x92;

                                        if(k==6)
                                        PORTB=0x83;

                                        if(k==7)
                                        PORTB=0xF8;

                                        if(k==8)
                                        PORTB=0x80;

                                        if(k==9)
                                        PORTB=0x98;


                                
                                
                                
                                
                                }
                                
                                
                                
                                
                                
                                }

                                        
                                        
             
             }
             
  }

[/code]

DragonOrb · Inlägg av **DragonOrb** » 5 februari 2007, 18:13:26

Om du lägger din kod innanför [*code] [*/code] (utan stjärnor) så blir det mycket lättare att se.

newbadboy · Inlägg av **newbadboy** » 5 februari 2007, 21:17:47

Kretskortet. Har man ingen UVlåda blir det experimentkort.
http://devianbay.com/~rille/karsim/UV-l ... stkort.jpg

Avancerat CAD program.
http://devianbay.com/~rille/karsim/UV-l ... schema.JPG

Sist min WISP.
http://devianbay.com/~rille/karsim/UV-lada/WISP.jpg

Tack ALV

bengt-re · Inlägg av **bengt-re** » 5 februari 2007, 22:18:16

Tjusigt - när du har mönsterkortstillverkningen igång så kan du göra riktiga kort till den

newbadboy · Inlägg av **newbadboy** » 5 februari 2007, 23:11:09

Så sant, fast det lär jag nog iof inte orka. Nu ska jag bara hitta ngt att bygga in skiten i...

[ALV] · Inlägg av **[ALV]** » 6 februari 2007, 14:46:36

bara för att medela så har dessa bilder kållats på väääälldans många gånger:P

newbadboy · Inlägg av **newbadboy** » 6 februari 2007, 16:25:51

pheer · Inlägg av **pheer** » 6 februari 2007, 20:56:15

Bilderna fungerar inte...

newbadboy · Inlägg av **newbadboy** » 6 februari 2007, 21:18:38

Skumt inte för mig heller... vi får avvakta ett tag