Sida 1 av 3
UV-låda. Med bilder!!
Postat: 5 februari 2007, 11:57:30
av newbadboy
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....
Postat: 5 februari 2007, 12:27:31
av bengt-re
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?
Postat: 5 februari 2007, 13:29:23
av newbadboy
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...
Postat: 5 februari 2007, 13:32:27
av bengt-re
Spelar ingen roll vad det är för färg på katten så länge den fångar råttor.....
Postat: 5 februari 2007, 13:48:16
av [ALV]
du kan skicka bilderna till mig så kan jag lägga upp dom tillfälligt.
maila till
richardisberg@gmail.com
Postat: 5 februari 2007, 14:29:35
av newbadboy
ljuvligt... kommer inom snar framtid
...
Skickar även med en bild på mitt projekt innan.. min Wisp!!
Postat: 5 februari 2007, 15:02:12
av newbadboy
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]
Postat: 5 februari 2007, 18:13:26
av DragonOrb
Om du lägger din kod innanför [*code] [*/code] (utan stjärnor) så blir det mycket lättare att se.
Postat: 5 februari 2007, 21:17:47
av newbadboy
Postat: 5 februari 2007, 22:18:16
av bengt-re
Tjusigt - när du har mönsterkortstillverkningen igång så kan du göra riktiga kort till den
Postat: 5 februari 2007, 23:11:09
av newbadboy
Så sant, fast det lär jag nog iof inte orka. Nu ska jag bara hitta ngt att bygga in skiten i...
Postat: 6 februari 2007, 14:46:36
av [ALV]
bara för att medela så har dessa bilder kållats på väääälldans många gånger:P
Postat: 6 februari 2007, 16:25:51
av newbadboy
Postat: 6 februari 2007, 20:56:15
av pheer
Bilderna fungerar inte...
Postat: 6 februari 2007, 21:18:38
av newbadboy
Skumt inte för mig heller... vi får avvakta ett tag