Hier nog een klein projectje van mij. Ik heb laatst een laser graveer machine gekocht om een een beetje mee te experimenteren. En dit is het eerste resultaat.
Ik heb op de achterkant van een spiegel een camera ge graveert en er verlichting achter gemaakt. De verlichting bestaat uit een led strip die tussen de beide spiegels geplakt is.
Het geheel bestaat uit een spiegel aan de achterkant voor de reflectie van het licht en een gegraveerde spiegel aan de voorkant. Het geheel in een lijstje gemaakt, dus ook wat houtbewerking gedaan. In de voet zit een PIC-12F683 voor het selecteren van de kleuren, in totaal 7 kleuren.
Het selecteren van de kleuren doe ik met een stylus pen, ik heb een klein magneetje in het rubber dopje gedaan en daar bedien ik het reedrelais mee.
Spiegel in het lijstje.
Printplaat voor verlichting.
Ik heb helaas geen foto van de bestukte print, ik kwam later op het idee om het hier te plaatsen.
Software.
Device = 12F683
Xtal 4
Config INTRC_OSC_NOCLKOUT,_
WDT_OFF,_
PWRTE_ON,_
MCLRE_OFF,_
CP_OFF,_
CPD_OFF,_
BOREN_ON,_
IESO_OFF,_
FCMEN_OFF
All_Digital TRUE
Symbol S1 = GPIO.4
Symbol UIT_1 = GPIO.0
Symbol UIT_2 = GPIO.1
Symbol UIT_3 = GPIO.2
Dim TELLER As Byte
Dim BIT_1 As Bit
DelayMS 1000
Clear
GPIO = %000000
TRISIO = %010000
TELLER = 0
UIT_1 = 0
UIT_2 = 0
UIT_3 = 0
BIT_1 = 0
START:
If S1 = 1 Then
BIT_1 = 1
DelayMS 100
EndIf
If BIT_1 = 1 Then
If S1 = 0 Then
TELLER = TELLER + 1
DelayMS 100
BIT_1 = 0
GoSub RUN
EndIf
EndIf
GoTo START
RUN:
If TELLER = 0 Then
UIT_1 = 0
UIT_2 = 0
UIT_3 = 0
EndIf
If TELLER = 1 Then
UIT_1 = 1
UIT_2 = 0
UIT_3 = 0
EndIf
If TELLER = 2 Then
UIT_1 = 0
UIT_2 = 1
UIT_3 = 0
EndIf
If TELLER = 3 Then
UIT_1 = 1
UIT_2 = 1
UIT_3 = 0
EndIf
If TELLER = 4 Then
UIT_1 = 0
UIT_2 = 0
UIT_3 = 1
EndIf
If TELLER = 5 Then
UIT_1 = 1
UIT_2 = 0
UIT_3 = 1
EndIf
If TELLER = 6 Then
UIT_1 = 0
UIT_2 = 1
UIT_3 = 1
EndIf
If TELLER = 7 Then
UIT_1 = 1
UIT_2 = 1
UIT_3 = 1
EndIf
If TELLER = 8 Then
TELLER = 0
UIT_1 = 0
UIT_2 = 0
UIT_3 = 0
EndIf
If BIT_1 = 0 Then
If S1 = 0 Then
Return
EndIf
EndIf
GoTo RUN
End
Dit is het gebruikte graveer apparat.