Matlab+VB光学衍射仿真实验系统的设计 第6页

Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlag As Long, ByVal dwExtraInfo As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub VScroll1_Change()

End Sub
Private Sub Command1_Click()
Dim a(0 To 2), e, X
Dim winHwnd As Long, RetVal As Long
a(0) = Val(Text1.Text)
a(1) = Val(Text2.Text)
a(2) = Val(Text3.Text)
e = ys01(a)
Call keybd_event(vbKeySnapshot, 1, 100, 100)
DoEvents
Image1.Picture = Clipboard.GetData(vbCFBitmap)
winHwnd = FindWindow(vbNullString, "Figure 1")
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, &H10, 0&, 0&)
End If原文请加辣.文^论,文'网QQ3249.114
End Sub

Private Sub Command3_Click()
Form2.Hide
Form1.Show
End Sub

Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command7_Click()
Text1.Text = "500"
Text2.Text = "1"
Text3.Text = "1"论文网http://www.751com.cn/
End Sub
3.4.3三级窗体设计
三级窗体由二级窗体右边的按钮点击进入，主要有“实验原理”， “实验内容”，还有“课后思考”。实验原理讲述实验的原理及基础知识，实验内容主要包含实验步骤和实验要求，而课后思考则是提出一些思考题，让学生通过完成该实验后进行解答。下图3-3到图3-5为夫琅禾费单缝衍射的三级窗体界面。
图3-3  实验原理窗体图3-4  实验内容窗体

上一页  [1] [2] [3] [4] [5] [6] 

Matlab+VB光学衍射仿真实验系统的设计 第6页下载如图片无法显示或论文不完整，请联系qq752018766