怎样制GUI?

男朋友

请问要怎样用microsoft visual basic 6.0制如上图的GUI?
-Connect是用来接去 Serial Port的,就是通过Serial Port接收及寄出资料
-能打入的资料只能是号码
-寄出的资料是ACSII码吧了.如下
- 0 = 00001100
- 1 = 10001100
- 2 = 01001100等
-接收的资料如下,
- 00000001=显示Please Enter Password To Lock及 Door Unlocked
- 00000010=显示Please Reenter Password及 Door Unlocked
- 00000100=显示Please Enter Password To Unlock及 Door Locked
-stop bit 是1,start bit是0

希望有人可以帮帮我,因为我对 microsoft visual basic一窍不通.只学过 C Programming 吧了...谢谢...

[ 本帖最后由 男朋友 于 26-11-2006 10:26 PM 编辑 ]

pic

-能打入的资料只能是号码
-寄出的资料是ACSII码吧了.如下
- 0 = 00001100
- 1 = 10001100
- 2 = 01001100等

你要：
0 代表：0011 0000 （0x30）
1 代表：0011 0001 （0x31）
2 代表：0011 0010 （0x32）
9 代表：0011 1001 （0x39）
对吗？


注：Serial port 送出一个byte， 有10bit， Start bit+ 8 databit + Stop bit
我假定你是用FPGA并明白以上的。

希望有人可以帮帮我,因为我对 microsoft visual basic一窍不通.只学过 C Programming 吧了...谢谢...

我帮你起个头了，其他就靠你自己了。
源码下载：lock.zip

男朋友

哇,你差不多帮我做完了....非常谢谢你咧...

原帖由 pic 于 26-11-2006 10:24 PM 发表

你要：
0 代表：0011 0000 （0x30）
1 代表：0011 0001 （0x31）
2 代表：0011 0010 （0x32）
9 代表：0011 1001 （0x39）
对吗？


注：Serial port 送出一个byte， 有10bit， Start bit+ 8 datab ...

对了..0011 0000是binary code.假设是 D7D6D5D4D3D2D1D0 ,电脑寄出ASCII码时会变成 D0D1D2D3D4D5D6D7 的serial sequence.所以我才写成 0000 1100.
请问刚才那个code你帮我限制不能打alphabet吗?因为我的 FPGA只接收数字吧了..

南极星

顺便问一下：
我也是用visual c++ 6.0来做GUI
我得用serial communication 来 interface external devices.
请问有什么class library 是给 serial com 的？？
我知道有 mscom control using active X, CserialPort....

请问哪个容易些？？有没有教如何用serial communication 的网页（step by step）?? 我是beginner, PIC 大哥能教我吗？？急。。

另外，Cserialport 有提到 See the Win32 SDK documentation for further details。 请问哪里可以下载这 win32 sdk 呢？？

谢了

pic

请问刚才那个code你帮我限制不能打alphabet吗?因为我的 FPGA只接收数字吧了..

请加入以下的code：（源码下载已更新）

1. 
   
2. Private Sub txtPassword_Change(Index As Integer)
   
3. 
   
4. ' Exit if text box is blank
   
5. If txtPassword(Index).Text = "" Then Exit Sub
   
6. 
   
7. ' check if number is enter
   
8. If Asc(txtPassword(Index).Text) >= &H30 And Asc(txtPassword(Index).Text) <= &H39 Then
   
9.    
   
10.     ' Auto advanced to next password char
    
11.     If Index < 3 Then
    
12.         txtPassword(Index + 1).SetFocus
    
13.     End If
    
14. Else
    
15.     txtPassword(Index) = ""
    
16. End If
    
17. 
    
18. End Sub
    
19. '==================================================
    
20. Private Sub txtPassword_KeyPress(Index As Integer, KeyAscii As Integer)
    
21. 
    
22. '-------------------------
    
23. ' if <back space> key is press
    
24. If KeyAscii = 8 Then
    
25.     txtPassword(Index).Text = ""
    
26.     ' Auto advanced to next password char
    
27.     If Index > 0 Then
    
28.         txtPassword(Index - 1).SetFocus
    
29.     End If
    
30. End If
    
31. 
    
32. '-------------------------
    
33. ' if <Enter> is press
    
34. If KeyAscii = 13 Then
    
35.     ' Back to previous password char
    
36.     If Index > 0 Then
    
37.         Call cmdSend_Click ' Send when enter is press
    
38.     End If
    
39. End If
    
40. 
    
41. End Sub
    

复制代码

pic

原帖由 南极星 于 27-11-2006 12:28 AM 发表
顺便问一下：
我也是用visual c++ 6.0来做GUI
我得用serial communication 来 interface external devices.
请问有什么class library 是给 serial com 的？？
我知道有 mscom control using active X, Cseria ...

请问哪个容易些？？

用MSComm ActiveX比较容易。

有没有教如何用serial communication 的网页（step by step）??

Google：MScomm tutorial 应该可以找到一大堆。

我学MSComm时是看VB6 的MSComm tutorial， 看example学的。
Visual C++ 我没有，也不熟悉。

男朋友

原帖由 pic 于 27-11-2006 09:31 AM 发表

请加入以下的code：（源码下载已更新）

Private Sub txtPassword_Change(Index As Integer)

' Exit if text box is blank
If txtPassword(Index).Text = "" Then Exit Sub

' check if numb ...

我还想问你最后一样东西...那个send是打一个号码按一次send,还是打完四个才send?因为是四个号码一组才能去next state...每个号码怎样加delay呢?因为stop bit过后没停下,怕我的FPGA跑久后会开始有问题.就是讲:

0(8 bits data)1 (delay 1ms)0(8 bits data) 1 (delay 1ms)0(8 bits data) 1 (delay 1ms)0(8 bits data)1

0 start bit
1 stop bit
一个 8 bits data就是一个号码了...谢谢

[ 本帖最后由 男朋友 于 27-11-2006 02:30 PM 编辑 ]

pic

原帖由 男朋友 于 27-11-2006 10:06 AM 发表


我还想问你最后一样东西...那个send是打一个号码按一次send,还是打完四个才send?因为是四个号码一组才能去next state...每个号码怎样加delay呢?因为stop bit过后没停下,怕我的FPGA跑久后会开始有问题.就是讲: ...

打完四个才send。

1. 
   
2. ' For Sleep command
   
3. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
4. 
   
5. #If Win32 Then
   
6.     Private Declare Function GetTickCount Lib "kernel32" () As Long
   
7. #Else
   
8.     Private Declare Function GetTickCount Lib "kernel" () As Long
   
9. #End If
   
10. 
    
11. 
    
12.    Call Sleep(1) ' delay (1ms)
    
13. 
    

复制代码

男朋友

原帖由 pic 于 27-11-2006 04:26 PM 发表

打完四个才send。


' For Sleep command
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

#If Win32 Then
    Private Declare Function GetTickCount Lib " ...

不好意思,是加在哪里?我放下去会有error的...

pic

原帖由 男朋友 于 27-11-2006 07:48 PM 发表



不好意思,是加在哪里?我放下去会有error的...

加在cmdSend_Click 和第一行。

1. 
   
2. ' For Sleep command
   
3. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
4. 
   
5. Private Sub cmdConnect_Click()
   
6.    ' Use COM1.
   
7.    MSComm1.CommPort = 1
   
8.    ' 9600 baud, no parity, 8 data, and 1 stop bit.
   
9.    MSComm1.Settings = "9600,N,8,1"
   
10.    ' Tell the control to read 1 byte buffer when Input
    
11.    ' is used.
    
12.    MSComm1.InputLen = 1
    
13.    ' Open the port.
    
14.    MSComm1.PortOpen = True
    
15.    
    
16.     MsgBox "Connected", vbInformation
    
17. 
    
18. End Sub
    
19. 
    
20. Private Sub cmdExit_Click()
    
21. End
    
22. End Sub
    
23. 
    
24. Private Sub cmdSend_Click()
    
25. 
    
26. If MSComm1.PortOpen = False Then
    
27.     MsgBox "Please connect.", vbCritical
    
28.     Exit Sub
    
29. End If
    
30. Dim x
    
31. ' Send password to controller
    
32. For x = 0 To 3
    
33.     MSComm1.Output = txtPassword(Index).Text
    
34.     Call Sleep(1) ' delay approx 1ms
    
35. Next x
    
36. 
    
37. MsgBox "Data send", vbInformation
    
38. End Sub
    
39. 
    
40. Private Sub Timer1_Timer()
    
41. '- 00000001=??Please Enter Password To Lock? Door Unlocked
    
42. '- 00000010=??Please Reenter Password? Door Unlocked
    
43. '- 00000100=??Please Enter Password To Unlock? Door Locked
    
44. 
    
45. Dim word
    
46. ' If there is data in buffer
    
47. If MSComm1.InBufferCount > 0 Then
    
48.     word = MSComm1.Input
    
49. Else
    
50.     Exit Sub
    
51. End If
    
52. 
    
53. word = Left(word, 1)
    
54. 
    
55. If word = &H1 Then '00000001
    
56.     lblStatus.Caption = "Please Enter Password To Lock"
    
57.     txtStatus.Text = "Door Unlocked"
    
58. End If
    
59. 
    
60. If word = &H2 Then '00000010
    
61.     lblStatus.Caption = "Please Reenter Password"
    
62.     txtStatus.Text = "Door Unlocked"
    
63. End If
    
64. 
    
65. If word = &H4 Then '00000100
    
66.     lblStatus.Caption = "Please Enter Password To Unlock"
    
67.     txtStatus.Text = "Door Locked"
    
68. End If
    
69. 
    
70. 
    
71. 
    
72. End Sub
    
73. 
    
74. 
    
75. Private Sub txtPassword_Change(Index As Integer)
    
76. 
    
77. ' Exit if text box is blank
    
78. If txtPassword(Index).Text = "" Then Exit Sub
    
79. 
    
80. 
    
81. ' check if number is enter
    
82. If Asc(txtPassword(Index).Text) >= &H30 And Asc(txtPassword(Index).Text) <= &H39 Then
    
83.    
    
84.     ' Auto advanced to next password char
    
85.     If Index < 3 Then
    
86.         txtPassword(Index + 1).SetFocus
    
87.     End If
    
88. Else
    
89.     txtPassword(Index) = ""
    
90. End If
    
91. 
    
92. End Sub
    
93. 
    
94. Private Sub txtPassword_KeyPress(Index As Integer, KeyAscii As Integer)
    
95. 
    
96. '-------------------------
    
97. ' if <back space> key is press
    
98. If KeyAscii = 8 Then
    
99.     txtPassword(Index).Text = ""
    
100.     ' Auto advanced to next password char
     
101.     If Index > 0 Then
     
102.         txtPassword(Index - 1).SetFocus
     
103.     End If
     
104. End If
     
105. 
     
106. '-------------------------
     
107. ' if <Enter> is press
     
108. If KeyAscii = 13 Then
     
109.     ' Back to previous password char
     
110.     If Index > 0 Then
     
111.         Call cmdSend_Click ' Send when enter is press
     
112.     End If
     
113. End If
     
114. 
     
115. End Sub
     
116. 
     

复制代码

男朋友

原帖由 pic 于 27-11-2006 10:17 PM 发表

加在cmdSend_Click 和第一行。


' For Sleep command
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub cmdConnect_Click()
   ' Use COM1.
   MS ...

哦...谢谢你..你住马六甲吧...得空请你喝茶