PCB ASSISTANT LAMINATOR CONTROL:
To make smart looking PCB's, all you need is: A computer, a laser printer, copper clad board, etchant, A3/A4 laminating machine and some glossy photo paper. You can buy special film for making PCB's, but I have found that the glossy paper gives better results. I use photo quality glossy paper for inkjet printers.
I got an A3/A4 laminating machine for about $40(N 8000) in the computer store last week, for my sine wave mother board production, and i needed to produce a total sum of 50 pcs control boards for a new consumer of mine... then, i got tried of the forward and the reverse of a single control board for about 25 times to get it done... well, i was able to press about 12pcs in 2 days... then i taught of making a pcb assistant laminator control with a lcd display...
Use a laser printer to print the image on the glossy side of the photo paper. Clean the copper clad board with steel wool or very fine wet sandpaper. Dry the board thoroughly. Make sure that the board is clean and free from fingerprints. Place the photo paper face down on the copper clad board. Use masking tape to hold the paper in position. Don't use vinyl tape. Place the board on a flat surface. You will be using a very hot iron, so don't use the dining room table. I use the back of an old telephone directory. Use a hot clothes iron to transfer the track pattern from the paper to the copper board. Don't be afraid to use lots of heat and pressure. Allow the board to cool. Don't be tempted to lift the paper. Put the board in a container full of warm soapy water. After about twenty minutes the paper will begin to dissolve and disintegrate. Carefully remove the paper from the copper board. Rinse under a cold tap to remove paper residue. You may need to touch up any broken tracks with an etch resist pen. I use a fine Staedtler laundry marker.
VIDEO: =https://youtu.be/cbb-fya8asU
The featuring M.C.U is the pic16f876a:
Circuit
Simulation test
Control board
Pcb design 1
Pcb design 2
Old design
New design 1
New design 2
New design 3
New design 4
Code written in picbasic pro
'****************************************************************
'* Name : LAMINATING MACHINE.BAS *
'* Author : AKINSINMIDE IMOLEAYO *
'* Notice : Copyright (c) 2015 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 5/31/2015 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
'F876A
Define OSC 4 ' 4MHz crystal used
' Define ADCIN parameters
Define ADC_BITS 10 ' Set number of bits in result
Define ADC_CLOCK 3 ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50 ' Set sampling time in uS
'--------------[LCD DEFINES]----------------------
DEFINE LCD_DREG PORTC ' LCD Data bits on PORTC
DEFINE LCD_DBIT 4 ' PORTB starting address
DEFINE LCD_RSREG PORTC ' LCD RS bit on PORTC
DEFINE LCD_RSBIT 2 ' LCD RS bit address
DEFINE LCD_EREG PORTC ' LCD E bit on PORTC
DEFINE LCD_EBIT 3' LCD E bit address
DEFINE LCD_BITS 4 ' LCD in 4-bit mode
DEFINE LCD_LINES 2
'-------------[PORT INITIALIZATION]-----------------
TRISA = 001111 ' Set PORTA as INPUT AND OUTPUT
ADCON1 = %10000010 ' Set PORTA analog and right justify result
PORTB = 000000 'set PORTB as output
TRISB = 001111 'set TRISB as both input and output
'VARIABLE ------------------------------
A VAR WORD : A = 0
B VAR WORD : B = 0
LED_FLASH VAR BYTE
BT VAR WORD : BT = 0
BT1 VAR WORD : BT1 = 0
BT2 VAR WORD : BT2 = 0
UNIT VAR WORD [40] : UNIT = 0
L_UNIT VAR WORD : L_UNIT = 0
W_UNIT VAR WORD : W_UNIT = 0
R_UNIT VAR WORD : R_UNIT = 0
RUN_UNIT VAR WORD : RUN_UNIT = 0
COUNTEXIT VAR WORD : COUNTEXIT = 0
COUNTOK VAR WORD : COUNTOK = 0
COUNTRUN VAR WORD : COUNTRUN = 0
COUNT_EXIT VAR WORD : COUNT_EXIT = 0
L0 var word : L0 = 0
'----------- [PORT B] -------------
BUZZER VAR PORTB.7
FORWARD VAR PORTB.6
BACKWARD VAR PORTB.5
ON_OFF VAR PORTB.4
OK_KEY VAR PORTB.3
EXIT_KEY VAR PORTB.2
UP_KEY VAR PORTB.1
DOWN_KEY VAR PORTB.0
'----------- [PORT C] -------------
WORKING_LED VAR PORTC.0
FINISHED VAR PORTC.1
BUZZ_DELAY CON 120
'---------[LCD INITIALIZATION]-----------
LCDOUT $FE,1 ' CLEAR SCREEN
LCDOUT $FE,2
PAUSE 1000 ' Wait 1 second
LOADING:
'FOR LED_FLASH = 0 TO 5
HIGH WORKING_LED : PAUSE 600
LOW WORKING_LED : PAUSE 300
'NEXT LED_FLASH
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 200
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 200
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 2
'---------------[ PROGRAM START HERE ]--------------------
MAIN: pause 10
high ON_OFF
LCDOUT $FE,1 ' CLEAR SCREEN
pause 200
LCDOUT "*****************"
LCDOUT $FE, $C0 : LCDOUT "|ACE TECHNOLOGY|" : PAUSE 2000 : LCDOUT $FE,1
LCDOUT " LAMINATING PCB "
LCDOUT $FE, $C0 : LCDOUT " PRO. ASSISTANT " : PAUSE 2000 : LCDOUT $FE,1
' ::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MEASURE:
LCDOUT $FE,1 ' CLEAR SCREEN
PAUSE 2
LOW BACKWARD
PAUSE 120
LCDOUT "PLEASE ENTER PCB"
LOW FINISHED : low WORKING_LED : HIGH FORWARD
GET_LENGTH:
pause 50 : GOSUB GET_KEY
L_UNIT = UNIT
LCDOUT $FE, $C0 : LCDOUT "LENGTH(S): " , DEC2 UNIT ," CM" : PAUSE 100
IF OK_KEY = 0 THEN
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 2
GOTO GET_WIDTH1
ENDIF
GOTO GET_LENGTH
GET_WIDTH1: PAUSE 2
UNIT = 0
GET_WIDTH:
pause 50 : GOSUB GET_KEY
W_UNIT = UNIT
LCDOUT $FE, $C0 : LCDOUT "WIDTH(S) : " , DEC2 UNIT ," CM" : PAUSE 100
IF OK_KEY = 0 THEN
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 2
GOTO START1
ENDIF
GOTO GET_WIDTH
GET_KEY:
PAUSE 50
IF UP_KEY = 0 THEN
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 2
UNIT = UNIT + 1
IF UNIT => 40 THEN UNIT = 40 'maximun no of times
ENDIF
PAUSE 50
IF DOWN_KEY = 0 THEN
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 2
IF UNIT =< 0 THEN
UNIT = 0
GOTO GET_KEY
ENDIF
UNIT = UNIT - 1
ENDIF
PAUSE 50
IF EXIT_KEY = 0 THEN
COUNT_EXIT = COUNT_EXIT + 1
IF COUNT_EXIT = 2 THEN
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 10
GOTO REMOVE
ENDIF
ENDIF
RETURN
START1:
low FORWARD
LOW FINISHED : low WORKING_LED
LCDOUT $FE,1 ' CLEAR SCREEN
START:
PAUSE 2
LCDOUT "LENGTH(S): " , DEC2 L_UNIT ," CM"
LCDOUT $FE, $C0 : LCDOUT "WIDTH(S) : " , DEC2 W_UNIT ," CM" : PAUSE 1200
LCDOUT $FE,1 ' CLEAR SCREEN
FOR COUNTOK = 0 TO 10
LCDOUT " PRESS OK "
LCDOUT $FE, $C0 : LCDOUT " TO CONTINUE ": PAUSE 120
IF OK_KEY = 0 THEN
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 3000
GOTO RUN
ENDIF
NEXT COUNTOK
LCDOUT $FE,1 ' CLEAR SCREEN
FOR COUNTEXIT = 0 TO 10
LCDOUT " PRESS EXIT "
LCDOUT $FE, $C0 : LCDOUT " TO CANCEL ": PAUSE 120
IF EXIT_KEY = 0 THEN
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 10
GOTO MEASURE
ENDIF
NEXT COUNTEXIT
LCDOUT $FE,1 ' CLEAR SCREEN
GOTO START
RUN:
LCDOUT $FE,1 ' CLEAR SCREEN
PAUSE 2 : UNIT = 0
LCDOUT " PRESS OK !!! "
GET_RUN:
pause 10 : GOSUB GET_KEY
LCDOUT $FE, $C0 : LCDOUT "COUNT: " , DEC2 UNIT ," TIMES"
IF OK_KEY = 0 THEN
RUN_UNIT = UNIT
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 2
LCDOUT $FE,1 ' CLEAR SCREEN
GOTO LAMINATE
ENDIF
GOTO GET_RUN
LAMINATE : ' laminating starts here
LOW FINISHED : high WORKING_LED : LOW FORWARD
PAUSE 1500
LCDOUT $FE,1 ' CLEAR SCREEN
IF RUN_UNIT < 1 THEN GOTO DONE
LCDOUT "<<< WORKING. >>>"
LOW FINISHED : HIGH WORKING_LED
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 3000
HIGH FORWARD : PAUSE 4000
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 2
LOW FORWARD : PAUSE 4000
'|||||||||||||||||||||||||||||||||||||||||||||||||
' CALCULATE MOVEMENT
L_UNIT = L_UNIT - 1
A = 1580 * L_UNIT
B = 1000
'||||||||||||||||||||||||||||||||||||||||||||||||
RUN_LAMINATE:
FOR COUNTRUN = 1 TO RUN_UNIT
LCDOUT "<<< WORKING. >>>"
LCDOUT $FE, $C0 : LCDOUT "COUNT ON : " , DEC2 COUNTRUN,"/",dec2 RUN_UNIT
IF EXIT_KEY = 0 THEN
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 2
LCDOUT $FE,1 ' CLEAR SCREEN
UNIT = 0
L_UNIT = 0
W_UNIT = 0
R_UNIT = 0
LCDOUT $FE, $C0 : LCDOUT " TASK CANCELLED " : PAUSE 2500
GOTO MEASURE
ENDIF
MOVE_FORWARD:
HIGH FORWARD : PAUSE A
LOW FORWARD : PAUSE B
MOVE_BACKWARD:
HIGH BACKWARD : PAUSE A
LOW BACKWARD : PAUSE B
LCDOUT $FE,1 ' CLEAR SCREEN
pause 1000
NEXT COUNTRUN
REMOVE:
L0 = 0
LOW FINISHED : high WORKING_LED : LOW FORWARD
PAUSE 800
LCDOUT $FE,1 ' CLEAR SCREEN
PAUSE 200
HIGH BACKWARD
LCDOUT " PLEASE WAIT !!!"
LCDOUT $FE, $C0 : LCDOUT " EJECTING BOARD "
for L0 = 0 to 12 ' BLINK AND ROLL BACK DELAY
lcdout $fe,$8
pause 450
lcdout $fe,$c
pause 500
next L0
LOW BACKWARD
pause 500
COUNT_EXIT = 0 :L0 = 0
COUNTOK = 0 : COUNTEXIT = 0
LCDOUT $FE,1 ' CLEAR SCREEN
DONE:
HIGH BUZZER : PAUSE BUZZ_DELAY : LOW BUZZER :PAUSE 300
HIGH FINISHED : LOW WORKING_LED : low FORWARD
'LCDOUT " PRESS EXIT!!! "
LCDOUT " TASK COMPLETED "
HIGH BACKWARD
FOR COUNTOK = 0 TO 10
LCDOUT $FE, $C0 : LCDOUT " <<OK>> TO REDO ": PAUSE 120
IF OK_KEY = 0 THEN
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 1200
LOW BACKWARD
PAUSE 1000
LOW FORWARD
PAUSE 2000
L_UNIT = L_UNIT + 1
GOTO LAMINATE ' LAMINATED AGAIN
ENDIF
NEXT COUNTOK
FOR COUNTEXIT = 0 TO 10
LCDOUT $FE, $C0 : LCDOUT "<EXIT> TO CANCEL": PAUSE 120
IF EXIT_KEY = 0 THEN
HIGH BUZZER :PAUSE BUZZ_DELAY :LOW BUZZER :PAUSE 1200
LOW BACKWARD
UNIT = 0
L_UNIT = 0
W_UNIT = 0
R_UNIT = 0
PAUSE 1000
LOW FINISHED : low WORKING_LED : HIGH FORWARD : PAUSE 1000
LCDOUT $FE,1 ' CLEAR SCREEN
PAUSE 300 : GOTO MEASURE
ENDIF
NEXT COUNTEXIT
GOTO DONE
END
CODE: https://www.dropbox.com/s/ewoa62jzrqusc7a/laminate%20code.txt?dl=0
HEX: https://onedrive.live.com/redir?resid=7B2431F2BDE45654!110&authkey=!AMetcTYhV7fHyUw&ithint=file%2cHEX
PCB: https://onedrive.live.com/redir?resid=7B2431F2BDE45654!108&authkey=!AByhjoC4T7mEsf4&ithint=file%2cpdf
Comments
Post a Comment