光驱打印机.docx
- 文档编号:12261097
- 上传时间:2023-04-17
- 格式:DOCX
- 页数:22
- 大小:1.59MB
光驱打印机.docx
《光驱打印机.docx》由会员分享,可在线阅读,更多相关《光驱打印机.docx(22页珍藏版)》请在冰豆网上搜索。
光驱打印机
心动的朋友们请看下面的详细制作步骤:
第一步、准备一个旧的光驱,驱动激光头的组件有步进电机和直流电机两种如下图:
左侧的为步进电机驱动的,右侧的为直流电机驱动的,步进电机精度好做出来的打印机效果也好,直流电机精度打印的效果一般。
第二步、把驱动激光头的骨架从光驱上去下只留下如下图所示的部分待用:
第三步:
制作打印机的简易打印头驱动部分和固定油墨笔的部分,本打印机的打印头为油墨笔。
把光盘托盘的驱动部分锯下来做打印头的机动部分。
用大于笔直径的管在侧面钻一个小孔,再用AB胶粘上一个螺丝帽,用来夹紧油墨笔。
第四步:
接下来制作打印头的支架部分。
第五步:
驱动电路板和电路图
第六步:
完成品
作品展示:
本作品的软件部分是难点,原作者用java编写了一个可以生产打印代码的软件如下图:
下边的是原作者使用basic语言写的程序:
1DefineCONF_WORD=0x3f70
2AllDigital'TodoslospinesdelPORTAcomoE/S
3TRISA=0x00
4TRISB=0x00'ConfiguroelPORTBcompletocomosalida.
5
6Symbolmotorpen1=PORTA.0
7Symbolmotorpen2=PORTA.1
8Symbolmotora1=PORTB.0
9Symbolmotora2=PORTB.1
10Symbolmotorb1=PORTB.2
11Symbolmotorb2=PORTB.3
12Symbolbobina1=PORTB.4
13Symbolbobina2=PORTB.5
14Symbolbobina3=PORTB.6
15Symbolbobina4=PORTB.7
16
17PORTB=0x00
18PORTA=0x00
19DimsleeptimeAsByte
20DimsleeppapAsByte
21DimcambioAsBit
22DimfilaAsByte
23Dimfila2AsByte
24Dimfila3AsByte
25Dimfila4AsByte
26Dimfila5AsByte
27DimbipoAsByte
28
29bipo=1
30sleeppap=2
31
32fila=255
33fila2=255
34fila3=255
35fila4=255
36fila5=255
37
38cambio=True
39
40inicio:
41botones:
42
43Gosubavanzarmotor1
44Gosubavanzarmotor1
45Gosubecribirletra
46Gosubecribirletra
47fila=0
48fila2=0
49fila3=0
50fila4=0
51fila5=0
52Gosubecribirletra
53Gosubecribirletra
54
55'acaempiezaelcodigo
56
57'acaterminaelcodigo
58
59fila=0
60fila2=0
61fila3=0
62fila4=0
63
64Gotobotones
65
66End
67
68ecribirletra:
69
70Iffila5.7=TrueThen
71Gosubbajarlapicera
72Endif
73Gosubmoverhorizontal
74Iffila5.6=TrueThen
75Gosubbajarlapicera
76Endif
77Gosubmoverhorizontal
78Iffila5.5=TrueThen
79Gosubbajarlapicera
80Endif
81Gosubmoverhorizontal
82Iffila5.4=TrueThen
83Gosubbajarlapicera
84Endif
85Gosubmoverhorizontal
86Iffila5.3=TrueThen
87Gosubbajarlapicera
88Endif
89Gosubmoverhorizontal
90Iffila5.2=TrueThen
91Gosubbajarlapicera
92Endif
93Gosubmoverhorizontal
94Iffila5.1=TrueThen
95Gosubbajarlapicera
96Endif
97Gosubmoverhorizontal
98Iffila5.0=TrueThen
99Gosubbajarlapicera
100Endif
101Gosubmoverhorizontal
102Iffila4.7=TrueThen
103Gosubbajarlapicera
104Endif
105Gosubmoverhorizontal
106Iffila4.6=TrueThen
107Gosubbajarlapicera
108Endif
109Gosubmoverhorizontal
110Iffila4.5=TrueThen
111Gosubbajarlapicera
112Endif
113Gosubmoverhorizontal
114Iffila4.4=TrueThen
115Gosubbajarlapicera
116Endif
117Gosubmoverhorizontal
118Iffila4.3=TrueThen
119Gosubbajarlapicera
120Endif
121Gosubmoverhorizontal
122Iffila4.2=TrueThen
123Gosubbajarlapicera
124Endif
125Gosubmoverhorizontal
126Iffila4.1=TrueThen
127Gosubbajarlapicera
128Endif
129Gosubmoverhorizontal
130Iffila4.0=TrueThen
131Gosubbajarlapicera
132Endif
133Gosubmoverhorizontal
134Iffila3.7=TrueThen
135Gosubbajarlapicera
136Endif
137Gosubmoverhorizontal
138Iffila3.6=TrueThen
139Gosubbajarlapicera
140Endif
141Gosubmoverhorizontal
142Iffila3.5=TrueThen
143Gosubbajarlapicera
144Endif
145Gosubmoverhorizontal
146Iffila3.4=TrueThen
147Gosubbajarlapicera
148Endif
149Gosubmoverhorizontal
150Iffila3.3=TrueThen
151Gosubbajarlapicera
152Endif
153Gosubmoverhorizontal
154Iffila3.2=TrueThen
155Gosubbajarlapicera
156Endif
157Gosubmoverhorizontal
158Iffila3.1=TrueThen
159Gosubbajarlapicera
160Endif
161Gosubmoverhorizontal
162Iffila3.0=TrueThen
163Gosubbajarlapicera
164Endif
165Gosubmoverhorizontal
166Iffila2.7=TrueThen
167Gosubbajarlapicera
168Endif
169Gosubmoverhorizontal
170Iffila2.6=TrueThen
171Gosubbajarlapicera
172Endif
173Gosubmoverhorizontal
174Iffila2.5=TrueThen
175Gosubbajarlapicera
176Endif
177Gosubmoverhorizontal
178Iffila2.4=TrueThen
179Gosubbajarlapicera
180Endif
181Gosubmoverhorizontal
182Iffila2.3=TrueThen
183Gosubbajarlapicera
184Endif
185Gosubmoverhorizontal
186Iffila2.2=TrueThen
187Gosubbajarlapicera
188Endif
189Gosubmoverhorizontal
190Iffila2.1=TrueThen
191Gosubbajarlapicera
192Endif
193Gosubmoverhorizontal
194Iffila2.0=TrueThen
195Gosubbajarlapicera
196Endif
197Gosubmoverhorizontal
198Iffila.7=TrueThen
199Gosubbajarlapicera
200Endif
201Gosubmoverhorizontal
202Iffila.6=TrueThen
203Gosubbajarlapicera
204Endif
205Gosubmoverhorizontal
206Iffila.5=TrueThen
207Gosubbajarlapicera
208Endif
209Gosubmoverhorizontal
210Iffila.4=TrueThen
211Gosubbajarlapicera
212Endif
213Gosubmoverhorizontal
214Iffila.3=TrueThen
215Gosubbajarlapicera
216Endif
217Gosubmoverhorizontal
218Iffila.2=TrueThen
219Gosubbajarlapicera
220Endif
221Gosubmoverhorizontal
222Iffila.1=TrueThen
223Gosubbajarlapicera
224Endif
225Gosubmoverhorizontal
226Iffila.0=TrueThen
227Gosubbajarlapicera
228Endif
229Gosubvolvertodo
230Gosubavanzarmotor1
231Return
232
233bajarlapicera:
234motorpen1=1
235motorpen2=0
236WaitMs102
237motorpen1=0
238motorpen2=1
239WaitMs102
240motorpen1=0
241motorpen2=0
242WaitMs102
243Return
244
245moverhorizontal:
246bipo=bipo+1
247Ifbipo=5Thenbipo=1
248PORTB=0
249motora1=1
250motorb1=1
251WaitMssleeppap
252PORTB=0
253motora1=1
254motorb2=1
255WaitMssleeppap
256PORTB=0
257motora2=1
258motorb2=1
259WaitMssleeppap
260PORTB=0
261motora2=1
262motorb1=1
263WaitMssleeppap
264PORTB=0
265Return
266
267moverhorizontalatras:
268bipo=bipo+1
269Ifbipo=5Thenbipo=1
270PORTB=0
271motora2=1
272motorb1=1
273WaitMs6
274PORTB=0
275motora2=1
276motorb2=1
277WaitMs6
278PORTB=0
279motora1=1
280motorb2=1
281WaitMs6
282PORTB=0
283motora1=1
284motorb1=1
285WaitMs6
286PORTB=0
287Return
288
289volvertodo:
290DimyAsByte
291Fory=0To41
292motora2=1
293motorb1=1
294WaitMssleeppap
295PORTB=0
296motora2=1
297motorb2=1
298WaitMssleeppap
299PORTB=0
300motora1=1
301motorb2=1
302WaitMssleeppap
303PORTB=0
304motora1=1
305motorb1=1
306WaitMssleeppap
307PORTB=0
308Nexty
309PORTB=0
310Return
311
312avanzarmotor1:
313Ifcambio=TrueThen
314cambio=False
315Else
316cambio=True
317Endif
318
319Ifcambio=TrueThen
320PORTB=0
321bobina1=1
322WaitMssleeptime
323PORTB=0
324bobina1=1
325bobina2=1
326WaitMssleeptime
327PORTB=0
328bobina2=1
329WaitMssleeptime
330PORTB=0
331bobina2=1
332bobina3=1
333WaitMssleeptime
334PORTB=0
335Else
336PORTB=0
337bobina3=1
338WaitMssleeptime
339PORTB=0
340bobina3=1
341bobina4=1
342WaitMssleeptime
343PORTB=0
344bobina4=1
345WaitMssleeptime
346PORTB=0
347bobina4=1
348bobina1=1
349WaitMssleeptime
350PORTB=0
351Endif
352Return
353
354retrocedermotor1:
355Ifcambio=TrueThen
356cambio=False
357Else
358cambio=True
359Endif
360Ifcambio=TrueThen
361PORTB=0
362bobina4=1
363WaitMssleeptime
364PORTB=0
365bobina3=1
366bobina4=1
367WaitMssleeptime
368PORTB=0
369bobina3=1
370WaitMssleeptime
371PORTB=0
372bobina2=1
373bobina3=1
374WaitMssleeptime
375PORTB=0
376Else
377PORTB=0
378bobina2=1
379WaitMssleeptime
380PORTB=0
381bobina2=1
382bobina1=1
383WaitMssleeptime
384PORTB=0
385bobina1=1
386WaitMssleeptime
387PORTB=0
388bobina4=1
389bobina1=1
390WaitMssleeptime
391PORTB=0
392Endif
393Return
复制代码
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 光驱 打印机