bascom avr单片机温控加Proteus仿真

bascom-avr温控加仿真,适合单片机学习，小项目制作
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:

1. $regfile = "m32def.dat"
   
2. $crystal = 8000000
   
3. $baud = 9600
   
4. Dim Ad As Word , N As Single , V As String * 5 , F As Byte , G As Byte , Spt As Eram Byte , Sp1 As Byte , Flag As Bit
   
5. Dim Flag2 As Bit , Sll As Eram Byte , Slh As Eram Byte , Hy As Eram Byte , Md As Eram String * 5 , Flag3 As Bit , Flag4 As Bit
   
6. Dim Md1 As String * 5 , Sll1 As Byte , Slh1 As Byte , Hy1 As Byte , Alh As Eram Byte , All As Eram Byte , Alh1 As Byte , All1 As Byte
   
7. Dim Hy2 As Byte , Sp2 As Byte , Md2 As String * 5 , Alh2 As Byte , All2 As Byte , V1 As Byte , Ma As Byte , Mb As Byte , Sll2 As Byte , Slh2 As Byte
   
8. Config Debounce = 30
   
9. Config Porta.4 = Output                                     'haeter
   
10. Config Porta.5 = Output                                     'colling
    
11. Config Porta.1 = Output                                     'alarm
    
12. Config Pinb.7 = Input                                       'key security
    
13. Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
    
14. Config Lcd = 16 * 2
    
15. Config Adc = Single , Prescaler = Auto , Reference = Off
    
16. Portb = 255                                                 'pullup internal
    
17. Start Adc
    
18. Deflcdchar 0 , 4 , 14 , 4 , 4 , 4 , 4 , 4 , 4
    
19. Deflcdchar 1 , 4 , 14 , 4 , 4 , 4 , 4 , 4 , 4
    
20. Deflcdchar 2 , 4 , 4 , 4 , 4 , 4 , 14 , 4 , 4
    
21. Cursor Off
    
22. Print "welcom to control temperature"
    
23. '#############################################################
    
24. Do
    
25. Debounce Pinb.0 , 0 , L1 , Sub                              'mode
    
26. Debounce Pinb.2 , 0 , L2 , Sub                              'right,down
    
27. Debounce Pinb.4 , 0 , L3 , Sub                              'top
    
28. Debounce Pinb.6 , 0 , L4 , Sub                              'setup
    
29. Ad = Getadc(0)
    
30. N = Ad * 0.14663
    
31. V = Fusing(n , "#.##")                                      'temperature by format string
    
32. Hy2 = Hy
    
33. Sp2 = Spt                                                   'sp
    
34. Md2 = Md
    
35. Alh2 = Alh
    
36. All2 = All
    
37. V1 = Val(v)                                                 'convert format to byte
    
38. If F = 0 Then
    
39. Cls
    
40. Lcd "T=" ; V ; "C"
    
41. Locate 1 , 11
    
42. Lcd "sp=" ; Sp2
    
43. Locate 2 , 1
    
44. Lcd "md=" ; Md2 ; " " ; "hy=" ; Hy2
    
45. If Porta.1 = 1 Then
    
46. Locate 2 , 14
    
47. Lcd "alm"
    
48. End If
    
49. Waitms 70
    
50. End If
    
51. If V1 > Alh2 Or V1 < All2 Then
    
52. Porta.1 = 1
    
53. Else
    
54. Porta.1 = 0
    
55. End If
    
56. Hy2 = Hy
    
57. Hy2 = Hy2 / 2
    
58. Ma = Sp2 + Hy2
    
59. Mb = Sp2 - Hy2
    
60. If Md2 = "HT" Then                                          'main
    
61. Porta.5 = 0
    
62. If V1 =< Mb Then
    
63. Porta.4 = 1
    
64. Elseif V1 >= Ma Then
    
65. Porta.4 = 0
    
66. End If
    
67. Elseif Md2 = "CL" Then
    
68. Porta.4 = 0
    
69. If V1 >= Ma Then
    
70. Porta.5 = 1
    
71. Elseif V1 =< Mb Then
    
72. Porta.5 = 0
    
73. End If
    
74. End If
    
75. Loop
    
76. End
    
77. '#############################################################
    
78. L1:                                                         'intro mode
    
79. Sll2 = Sll
    
80. Slh2 = Slh
    
81. Print "tempreature=" ; V ; "setpoint=" ; Sp2 ; "mode=" ; Md2 ; "hystrisis" ; Hy2
    
82. Print "alarm high=" ; Alh2 ; "alarm low=" ; All2 ; "setpoint high=" ; Slh2 ; "setpoint low=" ; Sll2
    
83. If Flag = 0 And Flag2 = 0 Then
    
84. Incr F
    
85. End If
    
86. If F = 1 And Flag = 0 And Flag2 = 0 Then
    
87. Cls
    
88. Locate 1 , 5
    
89. Lcd "setpoint"                                              'mode SP
    
90. Elseif F = 2 And Flag = 0 And Flag2 = 0 Then
    
91. Cls
    
92. Locate 1 , 2
    
93. Lcd "configuration"                                         'mode CFG
    
94. Elseif F = 3 And Flag = 0 And Flag2 = 0 Then
    
95. F = 0                                                       'mode normal
    
96. End If
    
97. Return
    
98. '#############################################################
    
99. L2:
    
100. If F = 2 And Flag2 = 1 And Flag3 = 0 Then                   'right motion to CFG
     
101. If G = 0 Then
     
102. Cls
     
103. Locate 1 , 1
     
104. Lcd Chr(0) ; Chr(0) ; Chr(0)
     
105. Locate 2 , 1
     
106. Lcd "SLL"
     
107. Locate 2 , 5
     
108. Lcd "SLH"
     
109. Locate 2 , 10
     
110. Lcd "MD"
     
111. Locate 2 , 14
     
112. Lcd "HY"
     
113. G = 5
     
114. Elseif G = 5 Then
     
115. Cls
     
116. Locate 1 , 5
     
117. Lcd Chr(0) ; Chr(0) ; Chr(0)
     
118. Locate 2 , 1
     
119. Lcd "SLL"
     
120. Locate 2 , 5
     
121. Lcd "SLH"
     
122. Locate 2 , 10
     
123. Lcd "MD"
     
124. Locate 2 , 14
     
125. Lcd "HY"
     
126. G = 10
     
127. Elseif G = 10 Then
     
128. Cls
     
129. Locate 1 , 10
     
130. Lcd Chr(0) ; Chr(0) ; Chr(0)
     
131. Locate 2 , 1
     
132. Lcd "SLL"
     
133. Locate 2 , 5
     
134. Lcd "SLH"
     
135. Locate 2 , 10
     
136. Lcd "MD"
     
137. Locate 2 , 14
     
138. Lcd "HY"
     
139. G = 15
     
140. Elseif G = 15 Then
     
141. Cls
     
142. Locate 1 , 14
     
143. Lcd Chr(0) ; Chr(0) ; Chr(0)
     
144. Locate 2 , 1
     
145. Lcd "SLL"
     
146. Locate 2 , 5
     
147. Lcd "SLH"
     
148. Locate 2 , 10
     
149. Lcd "MD"
     
150. Locate 2 , 14
     
151. Lcd "HY"
     
152. G = 20
     
153. Elseif G = 20 Then
     
154. Cls
     
155. Locate 1 , 1
     
156. Lcd Chr(0) ; Chr(0) ; Chr(0)
     
157. Locate 2 , 1
     
158. Lcd "ALH"
     
159. Locate 2 , 6
     
160. Lcd "ALL"
     
161. Locate 2 , 13
     
162. Lcd "bake"
     
163. G = 25
     
164. Elseif G = 25 Then
     
165. Cls
     
166. Locate 1 , 6
     
167. Lcd Chr(0) ; Chr(0) ; Chr(0)
     
168. Locate 2 , 1
     
169. Lcd "ALH"
     
170. Locate 2 , 6
     
171. Lcd "ALL"
     
172. Locate 2 , 13
     
173. Lcd "bake"
     
174. G = 30
     
175. Elseif G = 30 Then
     
176. Cls
     
177. Locate 1 , 13
     
178. Lcd Chr(0) ; Chr(0) ; Chr(0)
     
179. Locate 2 , 1
     
180. Lcd "ALH"
     
181. Locate 2 , 6
     
182. Lcd "ALL"
     
183. Locate 2 , 13
     
184. Lcd "bake"
     
185. G = 0
     
186. End If
     
187. Elseif F = 2 And Flag2 = 1 And Flag3 = 1 Then               'intro md
     
188. If Flag4 = 0 Then
     
189. Cls
     
190. Locate 1 , 1
     
191. Lcd Chr(0) ; Chr(0) ; Chr(0)
     
192. Locate 2 , 1
     
193. Lcd "heat"
     
194. Locate 2 , 9
     
195. Lcd "cold"
     
196. Flag4 = 1
     
197. Elseif Flag4 = 1 Then
     
198. Cls
     
199. Locate 1 , 9
     
200. Lcd Chr(0) ; Chr(0) ; Chr(0)
     
201. Locate 2 , 1
     
202. Lcd "heat"
     
203. Locate 2 , 9
     
204. Lcd "cold"
     
205. Flag4 = 0
     
206. End If
     
207. Elseif F = 1 And Flag = 1 Then                              'down
     
208. Decr Sp1
     
209. Cls
     
210. Locate 1 , 7
     
211. Lcd Chr(1) ; Chr(2)
     
212. Locate 2 , 1
     
213. Lcd "setpoint=" ; Sp1
     
214. Elseif F = 7 Then
     
215. Decr Sll1
     
216. Cls
     
217. Locate 1 , 7
     
218. Lcd Chr(1) ; Chr(2)
     
219. Locate 2 , 1
     
220. Lcd "sp level low=" ; Sll1
     
221. Elseif F = 8 Then
     
222. Decr Slh1
     
223. Cls
     
224. Locate 1 , 7
     
225. Lcd Chr(1) ; Chr(2)
     
226. Locate 2 , 1
     
227. Lcd "splevel high=" ; Slh1
     
228. Elseif F = 9 Then
     
229. Decr Hy1
     
230. Cls
     
231. Locate 1 , 7
     
232. Lcd Chr(1) ; Chr(2)
     
233. Locate 2 , 1
     
234. Lcd "hystrisis=" ; Hy1
     
235. Elseif F = 11 Then
     
236. Decr Alh1
     
237. Cls
     
238. Locate 1 , 7
     
239. Lcd Chr(1) ; Chr(2)
     
240. Locate 2 , 1
     
241. Lcd "alarm high=" ; Alh1
     
242. Elseif F = 12 Then
     
243. Decr All1
     
244. Cls
     
245. Locate 1 , 7
     
246. Lcd Chr(1) ; Chr(2)
     
247. Locate 2 , 1
     
248. Lcd "alarm low=" ; All1
     
249. End If
     
250. Return
     
251. '##########################################################
     
252. L3:                                                         'top
     
253. If F = 1 And Flag = 1 Then
     
254. Incr Sp1
     
255. Cls
     
256. Locate 1 , 7
     
257. Lcd Chr(1) ; Chr(2)
     
258. Locate 2 , 1
     
259. Lcd "setpoint=" ; Sp1
     
260. Elseif F = 7 Then
     
261. Incr Sll1
     
262. Cls
     
263. Locate 1 , 7
     
264. Lcd Chr(1) ; Chr(2)
     
265. Locate 2 , 1
     
266. Lcd "sp level low=" ; Sll1
     
267. Elseif F = 8 Then
     
268. Incr Slh1
     
269. Cls
     
270. Locate 1 , 7
     
271. Lcd Chr(1) ; Chr(2)
     
272. Locate 2 , 1
     
273. Lcd "splevel high=" ; Slh1
     
274. Elseif F = 9 Then
     
275. Incr Hy1
     
276. Cls
     
277. Locate 1 , 7
     
278. Lcd Chr(1) ; Chr(2)
     
279. Locate 2 , 1
     
280. Lcd "hystrisis=" ; Hy1
     
281. Elseif F = 11 Then
     
282. Incr Alh1
     
283. Cls
     
284. Locate 1 , 7
     
285. Lcd Chr(1) ; Chr(2)
     
286. Locate 2 , 1
     
287. Lcd "alarm high=" ; Alh1
     
288. Elseif F = 12 Then
     
289. Incr All1
     
290. Cls
     
291. Locate 1 , 7
     
292. Lcd Chr(1) ; Chr(2)
     
293. Locate 2 , 1
     
294. Lcd "alarm low=" ; All1
     
295. End If
     
296. Return
     
297. '##########################################################
     
298. L4:                                                         'setup
     
299. If F = 1 And Flag = 0 Then
     
300. Cls
     
301. Lcd "please change sp"
     
302. Locate 2 , 1
     
303. Lcd "by key top/down"
     
304. Wait 1
     
305. Cls
     
306. Sp1 = Spt
     
307. Locate 1 , 7
     
308. Lcd Chr(1) ; Chr(2)
     
309. Locate 2 , 1
     
310. Lcd "setpoint=" ; Sp1
     
311. 
     
312. ……………………
     
313. 
     
314. …………限于本文篇幅 余下代码请从51黑下载附件…………
     

复制代码

所有资料51hei提供下载:
bascon温控加仿真.zip (327.63 KB, 下载次数: 19)

2021-5-5 11:27 上传

点击文件名下载附件
下载积分: 黑币 -5