尋找VB6程式碼可以讀取RFID的值

joas

小弟我找了很多書籍，也逛了很多網頁...但是我找不到有成功的程式碼....
有哪位大大可以幫我解決這問題嗎??

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

這是RFID的機器

he01252524

這個太貴了~~
你何不買個大陸的隨插隨用ㄋ~~

這是Omron V系列。

1. 
   
2. Dim Cancelpressed, acknowledged As Boolean, PageNumbers(1 To 30) As Integer
   
3. Dim pagemax As Integer  '¤@­ÓTAGªº³Ì¤j­¶¼Æ¡C
   
4. Dim command As String  '¤G¦ì¼Æ©R¥O½X2
   
5. Dim commandtosend As String '©R¥O¶Ç°e
   
6. Dim appropriatelength As Integer
   
7. Dim Version As String
   
8. Option Explicit
   
9. Private Sub allshow()
   
10. '¨Ï©Ò¦³ªº³]©w­È­P¯à
    
11. Action.Enabled = True
    
12. TagsizeFrame.Enabled = True
    
13. Port.Enabled = True
    
14. DataFormat.Enabled = True
    
15. ByteSelectionFrame.Enabled = True
    
16. Triggertypeframe.Enabled = True
    
17. PageSelection.Enabled = True
    
18. End Sub
    
19. Private Sub allhide()
    
20. 'This makes all the settings frames disabled, so that they cannot be changed (usually during FIFO operations)
    
21. Action.Enabled = False
    
22. TagsizeFrame.Enabled = False
    
23. Port.Enabled = False
    
24. DataFormat.Enabled = False
    
25. ByteSelectionFrame.Enabled = False
    
26. Triggertypeframe.Enabled = False
    
27. PageSelection.Enabled = False
    
28. End Sub
    
29. Private Sub initarray()
    
30. 'This initializes the array of bits for page specification
    
31. 'ªì©l¤Æ©Ò¦³RFID Page bits
    
32. Dim counter As Integer
    
33. For counter = 1 To 30
    
34.    PageNumbers(counter) = 0
    
35. Next
    
36. End Sub
    
37. Function buildopcode() As String
    
38. Dim opcode As String
    
39.    ' set the hex / binary part of the opcode
    
40. If FormatASCII Then
    
41.     opcode = "1"
    
42.     Else: If FormatHEX Then opcode = "0"
    
43.     End If
    
44.     'set the trigger type part of the opcode
    
45. Select Case TriggerType
    
46.     Case "Single Trigger"
    
47.         opcode = opcode + "0"
    
48.     Case "Single Auto"
    
49.         opcode = opcode + "1"
    
50.     Case "FIFO Trigger"
    
51.         opcode = opcode + "8"
    
52.     Case "FIFO Auto"
    
53.         opcode = opcode + "9"
    
54.     Case "FIFO Continue"
    
55.         opcode = opcode + "A"
    
56.     Case "FIFO Repeat"
    
57.         opcode = opcode + "B"
    
58. End Select
    
59. buildopcode = opcode
    
60. End Function
    
61. Function EndCodetext(Code As String) As String
    
62.     'convert the opcode recieved into the description for the opcode
    
63. Select Case Code
    
64.     Case "00"
    
65.         EndCodetext = "Normal End"
    
66.     Case "01"
    
67.         EndCodetext = "Parity Error"
    
68.     Case "11"
    
69.         EndCodetext = "Framing Error"
    
70.     Case "12"
    
71.         EndCodetext = "Overrun Error"
    
72.     Case "14"
    
73.         EndCodetext = "Format Error"
    
74.     Case "18"
    
75.         EndCodetext = "Frame Length Error"
    
76.     Case "70"
    
77.         EndCodetext = "Transmission Error"
    
78.     Case "71"
    
79.         EndCodetext = "Verification Error"
    
80.     Case "72"
    
81.         EndCodetext = "Tag Absence Error"
    
82.     Case "7A"
    
83.         EndCodetext = "Address Specification Error"
    
84.     Case "7B"
    
85.         EndCodetext = "Outside of Write Area Error"
    
86.     Case "7D"
    
87.         EndCodetext = "Write Protection Error"
    
88.     Case "7F"
    
89.         EndCodetext = "ID System Error"
    
90.     Case "7C"
    
91.         EndCodetext = "Antenna Hardware Error"
    
92. End Select
    
93. End Function
    
94. Function pageformat() As String
    
95. Dim string1, string2, string3, string4 As String
    
96. Dim count1, count2, count3, count4, count, multiplier As Integer
    
97. 'Determine the decimal equivalent of the 8 bit groups for the page specification
    
98. multiplier = 4
    
99. For count = 1 To 6
    
100.     count1 = count1 + (PageNumbers(count) * multiplier)
     
101.     multiplier = multiplier * 2
     
102. Next
     
103. multiplier = 1
     
104. For count = 7 To 14
     
105.     count2 = count2 + (PageNumbers(count) * multiplier)
     
106.     multiplier = multiplier * 2
     
107. Next
     
108. multiplier = 1
     
109. For count = 15 To 22
     
110.     count3 = count3 + (PageNumbers(count) * multiplier)
     
111.     multiplier = multiplier * 2
     
112. Next
     
113. multiplier = 1
     
114. For count = 23 To 30
     
115.     count4 = count4 + (PageNumbers(count) * multiplier)
     
116.     multiplier = multiplier * 2
     
117. Next
     
118. 'Determine the Hex equavilent of the page specifications
     
119. string1 = Hex(count1)
     
120.   If Len(string1) = 1 Then string1 = "0" + string1
     
121. string2 = Hex(count2)
     
122.   If Len(string2) = 1 Then string2 = "0" + string2
     
123. string3 = Hex(count3)
     
124.   If Len(string3) = 1 Then string3 = "0" + string3
     
125. string4 = Hex(count4)
     
126.   If Len(string4) = 1 Then string4 = "0" + string4
     
127. pageformat = string4 + string3 + string2 + string1
     
128. End Function
     
129. Private Sub ByteAcknowledge_Click()
     
130. 'sets the acknowledged flag for FIFO Continue Operations
     
131. acknowledged = True
     
132. End Sub
     
133. Private Sub Bytes128_Click()
     
134. 'Sets the tag parameters for 128 Byte tags
     
135. pagemax = 14
     
136. VScroll1.Min = 14
     
137. VScroll3.Min = 111
     
138. VScroll2.Min = pagemax - Val(StartPage) + 1
     
139. If Val(StartPage.Text) > pagemax Then StartPage.Text = pagemax
     
140. End Sub
     
141. Private Sub Bytes256_Click()
     
142. 'Sets the tag parameters for 256 Byte tags
     
143. pagemax = 30
     
144. VScroll1.Min = 30
     
145. VScroll3.Min = 240
     
146. VScroll2.Min = pagemax - Val(StartPage) + 1
     
147. If Val(StartPage.Text) > pagemax Then StartPage.Text = pagemax
     
148. End Sub
     
149. Private Sub Bytewrite_Click()
     
150. 'Makes the appropriate frames visible when Byte Write is selected
     
151. ByteSelectionFrame.Visible = True
     
152. Triggertypeframe.Visible = True
     
153. ByteWriteButton.Enabled = True
     
154. ByteWriteCancel.Enabled = False
     
155. DataFormat.Visible = True
     
156. PageSelection.Visible = False
     
157. WriteDataFrame.Visible = False
     
158. ReadDataFrame.Visible = False
     
159. ByteWriteFrame.Visible = True
     
160. StringSent.Text = ""
     
161. StringRec.Text = ""
     
162. ResponseCodeNumber.Text = ""
     
163. ResponseCodeDescription.Text = ""
     
164. End Sub
     
165. Private Sub ByteWriteButton_Click()
     
166. Dim startingaddress As String
     
167. Dim opcodeforbytewrite, bytebuffer As String
     
168. Dim byteendcode As String
     
169. Dim satisfied As Boolean
     
170. 'Performs the sending of data for a Byte Write operation
     
171. If Not MSComm1.PortOpen Then MSComm1.PortOpen = True
     
172. Cancelpressed = False
     
173. acknowledged = False
     
174. ByteWriteButton.Enabled = False
     
175. ByteWriteCancel.Enabled = True
     
176. If Int(Len(ByteWriteData.Text) / 2) <> (Len(ByteWriteData.Text) / 2) Then ByteWriteData.Text = ByteWriteData.Text + "0"
     
177. startingaddress = Hex(StartingByte.Text)
     
178. If Len(startingaddress) = 1 Then startingaddress = "0" + startingaddress
     
179. opcodeforbytewrite = buildopcode
     
180. MSComm1.Output = "04" + opcodeforbytewrite + startingaddress + ByteWriteData.Text + Chr$(13)
     
181. StringSent.Text = "04" + opcodeforbytewrite + startingaddress + ByteWriteData.Text
     
182. satisfied = False
     
183. allhide
     
184. Do
     
185. bytebuffer = ""
     
186.    Do
     
187.      DoEvents
     
188.      bytebuffer = bytebuffer & MSComm1.Input
     
189.     Loop Until InStr(bytebuffer, Chr$(13)) Or Cancelpressed
     
190.   If Not Cancelpressed Then StringRec.Text = Left(bytebuffer, Len(bytebuffer) - 1)
     
191. 'parse out end code
     
192. If Not Cancelpressed Then byteendcode = Left(bytebuffer, 2)
     
193. If Not Cancelpressed Then ResponseCodeNumber.Text = byteendcode
     
194. If Not Cancelpressed Then ResponseCodeDescription.Text = EndCodetext(byteendcode)
     
195.      
     
196. If TriggerType = "Single Auto" Or TriggerType = "Single Trigger" Then satisfied = True
     
197. If TriggerType = "FIFO Trigger" Then satisfied = True
     
198. If TriggerType = "FIFO Continue" And Cancelpressed Then satisfied = True
     
199. If TriggerType = "FIFO Repeat" And Cancelpressed Then satisfied = True
     
200. If TriggerType = "FIFO Auto" Then satisfied = True
     
201. If TriggerType = "FIFO Continue" And (Not Cancelpressed) And byteendcode = "00" Then Beep
     
202. If TriggerType = "FIFO Continue" And (Not Cancelpressed) Then
     
203.     Do
     
204.       DoEvents
     
205.       ByteAcknowledge.Visible = True
     
206.     Loop Until acknowledged Or Cancelpressed
     
207.     End If
     
208. If acknowledged Then
     
209.     MSComm1.Output = "11" + Chr$(13)
     
210.     ResponseCodeNumber.Text = ""
     
211.     StringRec.Text = ""
     
212.     ResponseCodeDescription.Text = ""
     
213. End If
     
214. acknowledged = False
     
215. ByteAcknowledge.Visible = False
     
216. If (Not Cancelpressed) And ResponseCodeNumber.Text = "00" Then Beep
     
217. Loop Until satisfied
     
218. allshow
     
219.      
     
220.      
     
221. Cancelpressed = False
     
222. 
     
223. MSComm1.PortOpen = False
     
224. ByteWriteButton.Enabled = True
     
225. ByteWriteCancel.Enabled = False
     
226. End Sub
     
227. Private Sub ByteWriteCancel_Click()
     
228. Dim inbuffer As String
     
229. Cancelpressed = True
     
230. MSComm1.Output = "13" + Chr(13)
     
231. Do
     
232. DoEvents
     
233.    inbuffer = inbuffer & MSComm1.Input
     
234.     Loop Until InStr(inbuffer, Chr$(13))
     
235. End Sub
     
236. Private Sub CancelRead_Click()
     
237. Dim inbuffer As String
     
238. Cancelpressed = True
     
239. MSComm1.Output = "13" + Chr(13)
     
240. Do
     
241. DoEvents
     
242.    inbuffer = inbuffer & MSComm1.Input
     
243.     Loop Until InStr(inbuffer, Chr$(13))
     
244. End Sub
     
245. 
     
246. Private Sub ReadAcknowledge_Click()
     
247. 'sets acknowledged flag for FIFO Continue operations
     
248. acknowledged = True
     
249. End Sub
     
250. Private Sub Readtag_Click()
     
251. Dim Hold As Integer, Temp As String, Buffer As String
     
252. Dim count As Integer
     
253. Dim pagespecification, endcode As String
     
254. Dim opcodeforread As String  '2 digit option code
     
255. Dim satisfied As Boolean
     
256. 
     
257. initarray 'sets array of page markers to 0
     
258. For count = Val(StartPage) To (Val(StartPage) + Val(NumberofPages) - 1)
     
259.   PageNumbers(count) = 1
     
260.   Next
     
261.         
     
262. pagespecification = pageformat()
     
263. If Not MSComm1.PortOpen Then MSComm1.PortOpen = True
     
264. Cancelpressed = False
     
265. acknowledged = False
     
266. Readtag.Enabled = False
     
267. CancelRead.Enabled = True
     
268.     'Build string to send
     
269. command = "01"  'Selects write for Command
     
270.     'build opcode
     
271. Buffer = ""
     
272. opcodeforread = buildopcode
     
273. commandtosend = command + opcodeforread + pagespecification
     
274. MSComm1.Output = commandtosend + Chr$(13)
     
275. StringSent.Text = commandtosend
     
276. ResponseCodeNumber.Text = ""
     
277. StringRec.Text = ""
     
278. ResponseCodeDescription.Text = ""
     
279. 'waitforresponse
     
280. satisfied = False
     
281. allhide
     
282. Do
     
283. Buffer = ""
     
284.     Do
     
285.         DoEvents
     
286.         Buffer = Buffer + MSComm1.Input
     
287.         
     
288.     Loop Until InStr(Buffer, Chr$(13)) Or Cancelpressed
     
289.     If Not Cancelpressed Then StringRec.Text = Left(Buffer, Len(Buffer) - 1)
     
290. 'parse out end code
     
291. If Not Cancelpressed Then endcode = Left(Buffer, 2)
     
292. If Not Cancelpressed Then ResponseCodeNumber.Text = endcode
     
293. If Not Cancelpressed Then ResponseCodeDescription.Text = EndCodetext(endcode)
     
294. If (Not Cancelpressed) And (endcode = "00") Then DataRead.Text = Right$(Left$(Buffer, Len(Buffer) - 1), Len(Buffer) - 3)
     
295. If (Not Cancelpressed) And FormatASCII And DataRead.Text = "" Then DataRead.Text = "Please Enter Valid ASCII data on the RFID Tag"
     
296. If TriggerType = "Single Auto" Or TriggerType = "Single Trigger" Then satisfied = True
     
297. If TriggerType = "FIFO Trigger" Then satisfied = True
     
298. If TriggerType = "FIFO Continue" And Cancelpressed Then satisfied = True
     
299. If TriggerType = "FIFO Repeat" And Cancelpressed Then satisfied = True
     
300. If TriggerType = "FIFO Auto" Then satisfied = True
     
301. 'Acknowledge a repeat
     
302. If TriggerType = "FIFO Continue" And (Not Cancelpressed) And endcode = "00" Then Beep
     
303. If TriggerType = "FIFO Continue" And (Not Cancelpressed) Then
     
304.    
     
305.     Do
     
306.      DoEvents
     
307.      ReadAcknowledge.Visible = True
     
308.     Loop Until acknowledged Or Cancelpressed
     
309.     End If
     
310. If acknowledged Then
     
311. MSComm1.Output = "11" + Chr$(13)
     
312. ResponseCodeNumber.Text = ""
     
313. StringRec.Text = ""
     
314. ResponseCodeDescription.Text = ""
     
315. End If
     
316. acknowledged = False
     
317. ReadAcknowledge.Visible = False
     
318. If (Not Cancelpressed) And ResponseCodeNumber.Text = "00" Then Beep
     
319. Loop Until satisfied
     
320. allshow
     
321. Cancelpressed = False
     
322. Readtag.Enabled = True
     
323. CancelRead.Enabled = False
     
324. MSComm1.PortOpen = False
     
325. End Sub
     
326. Private Sub VScroll1_Change()
     
327. StartPage.Text = VScroll1.Value
     
328. VScroll2.Min = pagemax - Val(StartPage) + 1
     
329. If Val(StartPage.Text) > pagemax Then StartPage.Text = pagemax
     
330. End Sub
     
331. Private Sub VScroll2_Change()
     
332. If VScroll2.Value > 16 Then VScroll2.Value = 16
     
333. NumberofPages.Text = VScroll2.Value
     
334. End Sub
     
335. Private Sub VScroll3_Change()
     
336. StartingByte.Text = VScroll3.Value
     
337. End Sub
     
338. Private Sub WriteAcknowledge_Click()
     
339. acknowledged = True
     
340. End Sub
     
341. Private Sub WriteCancel_Click()
     
342. Dim inbuffer As String
     
343. Cancelpressed = True
     
344. MSComm1.Output = "13" + Chr(13)
     
345. Do
     
346. DoEvents
     
347.    inbuffer = inbuffer & MSComm1.Input
     
348.     Loop Until InStr(inbuffer, Chr$(13))
     
349.    
     
350. End Sub
     
351. 
     
352. Private Sub COM1_Click()
     
353. 'Sets the COMM port to 1
     
354. MSComm1.CommPort = 1
     
355. End Sub
     
356. Private Sub Com2_Click()
     
357. 'Sets the COMM port to 2
     
358. MSComm1.CommPort = 2
     
359. End Sub
     
360. Private Sub Command2_Click()
     
361. 'Exits program
     
362. End
     
363. End Sub
     
364. Private Sub Form_Load()
     
365. 'Initializes variables to defaults
     
366. pagemax = 14   'Number of pages on 128 Byte tag
     
367. VScroll1.Min = 14  'property for page selection
     
368. StartPage.Text = VScroll1.Value
     
369. NumberofPages.Text = VScroll2.Value
     
370. VScroll2.Min = pagemax - Val(StartPage) + 1
     
371. If Val(StartPage.Text) > pagemax Then StartPage.Text = pagemax
     
372. ByteAcknowledge.Visible = False
     
373. ReadAcknowledge.Visible = False
     
374. WriteAcknowledge.Visible = False
     
375. 'Set Version Number
     
376. Version = "Version 1.00"
     
377. versiondisplay.Text = Version
     
378. 
     
379. 'Set default for Port and Tag Size
     
380. Bytes128 = True
     
381. COM1 = True
     
382. FormatHEX = True
     
383. 'Hide all action frames
     
384. WriteDataFrame.Visible = False
     
385. ReadDataFrame.Visible = False
     
386. ByteWriteFrame.Visible = False
     
387. Triggertypeframe.Visible = False
     
388. DataFormat.Visible = False
     
389. PageSelection.Visible = False
     
390. ByteSelectionFrame.Visible = False
     
391. 'Configure Default Port Settings
     
392. MSComm1.CommPort = 1
     
393. MSComm1.Settings = "9600,E,8,1"
     
394. 
     
395. 'Add Items to Write Action List
     
396. TriggerType.AddItem "Single Trigger"
     
397. TriggerType.AddItem "Single Auto"
     
398. TriggerType.AddItem "FIFO Trigger"
     
399. TriggerType.AddItem "FIFO Auto"
     
400. TriggerType.AddItem "FIFO Continue"
     
401. TriggerType.AddItem "FIFO Repeat"
     
402. 
     
403. End Sub
     
404. 
     
405. Private Sub Other_Click()
     
406. 'Enable Other Actions Frame
     
407. ByteWriteFrame.Visible = False
     
408. WriteDataFrame.Visible = False
     
409. ReadDataFrame.Visible = False
     
410. PageSelection.Visible = False
     
411. DataFormat.Visible = False
     
412. Triggertypeframe.Visible = False
     
413. ByteSelectionFrame.Visible = False
     
414. StringSent.Text = ""
     
415. StringRec.Text = ""
     
416. ResponseCodeNumber.Text = ""
     
417. ResponseCodeDescription.Text = ""
     
418. End Sub
     
419. Private Sub Read_Click()
     
420. 'Enable Read Frame
     
421. Readtag.Enabled = True
     
422. CancelRead.Enabled = False
     
423. ByteSelectionFrame.Visible = False
     
424. Triggertypeframe.Visible = True
     
425. DataFormat.Visible = True
     
426. PageSelection.Visible = True
     
427. ByteWriteFrame.Visible = False
     
428. WriteDataFrame.Visible = False
     
429. ReadDataFrame.Visible = True
     
430. StringSent.Text = ""
     
431. StringRec.Text = ""
     
432. ResponseCodeNumber.Text = ""
     
433. ResponseCodeDescription.Text = ""
     
434. End Sub
     
435. Private Sub SendWrite_Click()
     
436. 'Performs the sending of the data on a Page Send command
     
437. Dim Hold As Integer, Temp As String, Buffer As String
     
438. Dim count As Integer
     
439. Dim pagespecification, endcode As String
     
440. Dim test As Integer
     
441. Dim satisfied As Boolean
     
442. 
     
443. Dim opcodeforwrite As String  '2 digit option code
     
444. initarray 'sets array of page markers to 0
     
445. If Not MSComm1.PortOpen Then MSComm1.PortOpen = True
     
446. Cancelpressed = False
     
447. SendWrite.Enabled = False
     
448. WriteCancel.Enabled = True
     
449. acknowledged = False
     
450. For count = Val(StartPage) To (Val(StartPage) + Val(NumberofPages) - 1)
     
451.   PageNumbers(count) = 1
     
452.   Next
     
453.   
     
454. If FormatASCII Then
     
455. appropriatelength = 8 * NumberofPages
     
456. If Len(WriteData) > appropriatelength Then WriteData = Left(WriteData, appropriatelength)
     
457.    For count = 1 To (appropriatelength - Len(WriteData))
     
458.       WriteData = WriteData + "0"
     
459.       Next
     
460. End If
     
461. If FormatHEX Then
     
462. appropriatelength = 16 * NumberofPages
     
463. If Len(WriteData) > appropriatelength Then WriteData = Left(WriteData, appropriatelength)
     
464.    For count = 1 To (appropriatelength - Len(WriteData))
     
465.       WriteData = WriteData + "0"
     
466.       Next
     
467. End If
     
468.       
     
469. pagespecification = pageformat()
     
470. opcodeforwrite = buildopcode
     
471. commandtosend = "02" + opcodeforwrite + pagespecification + WriteData
     
472. MSComm1.Output = commandtosend + Chr$(13)
     
473. StringSent.Text = commandtosend
     
474. ResponseCodeNumber.Text = ""
     
475. StringRec.Text = ""
     
476. ResponseCodeDescription.Text = ""
     
477. 'waitforresponse
     
478. satisfied = False
     
479. allhide
     
480. 
     
481. Do
     
482. Buffer = ""
     
483.     Do
     
484.       DoEvents
     
485.       Buffer = Buffer & MSComm1.Input
     
486.     Loop Until InStr(Buffer, Chr$(13)) Or Cancelpressed
     
487.    ResponseCodeNumber.Text = ""
     
488. StringRec.Text = ""
     
489. ResponseCodeDescription.Text = ""
     
490.   If Not Cancelpressed Then StringRec.Text = Left(Buffer, Len(Buffer) - 1)
     
491.   If Not Cancelpressed Then endcode = Left(Buffer, 2)
     
492.   If Not Cancelpressed Then ResponseCodeNumber.Text = endcode
     
493.   If Not Cancelpressed Then ResponseCodeDescription.Text = EndCodetext(endcode)
     
494. If TriggerType = "Single Auto" Or TriggerType = "Single Trigger" Then satisfied = True
     
495. If TriggerType = "FIFO Trigger" Then satisfied = True
     
496. If TriggerType = "FIFO Continue" And Cancelpressed Then satisfied = True
     
497. If TriggerType = "FIFO Repeat" And Cancelpressed Then satisfied = True
     
498. If TriggerType = "FIFO Auto" Then satisfied = True
     
499. 'Acknowledge a repeat
     
500. If TriggerType = "FIFO Continue" And (Not Cancelpressed) And endcode = "00" Then Beep
     
501. If TriggerType = "FIFO Continue" And (Not Cancelpressed) Then
     
502.     Do
     
503.    
     
504.     DoEvents
     
505.    
     
506.     WriteAcknowledge.Visible = True
     
507.     Loop Until acknowledged Or Cancelpressed
     
508.     End If
     
509. If acknowledged Then
     
510. MSComm1.Output = "11" + Chr$(13)
     
511. ResponseCodeNumber.Text = ""
     
512. StringRec.Text = ""
     
513. ResponseCodeDescription.Text = ""
     
514. End If
     
515. acknowledged = False
     
516. WriteAcknowledge.Visible = False
     
517. If (Not Cancelpressed) And ResponseCodeNumber.Text = "00" Then Beep
     
518. Loop Until satisfied
     
519. allshow
     
520. satisfied = False
     
521. Cancelpressed = False
     
522. SendWrite.Enabled = True
     
523. WriteCancel.Enabled = False
     
524. MSComm1.PortOpen = False
     
525. End Sub
     
526. Private Sub Write_Click()
     
527.     'Enable Write Frame
     
528.     DataFormat.Visible = True
     
529.     PageSelection.Visible = True
     
530.     ByteSelectionFrame.Visible = False
     
531.     Triggertypeframe.Visible = True
     
532.     SendWrite.Enabled = True
     
533.     WriteCancel.Enabled = False
     
534.     ByteWriteFrame.Visible = False
     
535.     WriteDataFrame.Visible = True
     
536.     ReadDataFrame.Visible = False
     
537.     StringSent.Text = ""
     
538.     StringRec.Text = ""
     
539.     ResponseCodeNumber.Text = ""
     
540.     ResponseCodeDescription.Text = ""
     
541. End Sub
     

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員