求助:vb 变量未定义
来源:百度知道 编辑:UC知道 时间:2024/08/20 21:44:35
初学者好多问题不太懂。按F5运行后,提示变量未定义,(倒数第三行,pic1),请高手指点
下面是程序前面一部分:
Option Explicit
Dim a, b, c As Integer
Dim y As Single '存储AD 转换值
Dim t As Single
Dim var As Variant '用来从接收缓冲区读取数据
Dim rd(7) As Byte '用来存储接收到的一组字节数据
Dim sd(2) As Byte
Dim nowx As Long
Dim maxplotno As Long
Dim prevalue As Single
Dim plotvalue() As Single
Dim plwidth&, plheight&
Private Sub Command2_Click()
MSComm1.PortOpen = False '单击【结束】按钮后触发此事件
End
End Sub
Private Sub Command1_Click() '单击【发送命令】按钮后触发此事件
sd(0) = 1
sd(1) = 3
sd(2) = 7
MSComm1.Output = sd '利用 Output 属性发送 3 个字节的命令
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
plwidth = Pic1.ScaleWidth
plheight = Pic1.ScaleHeight
maxplotno = 30
下面是程序前面一部分:
Option Explicit
Dim a, b, c As Integer
Dim y As Single '存储AD 转换值
Dim t As Single
Dim var As Variant '用来从接收缓冲区读取数据
Dim rd(7) As Byte '用来存储接收到的一组字节数据
Dim sd(2) As Byte
Dim nowx As Long
Dim maxplotno As Long
Dim prevalue As Single
Dim plotvalue() As Single
Dim plwidth&, plheight&
Private Sub Command2_Click()
MSComm1.PortOpen = False '单击【结束】按钮后触发此事件
End
End Sub
Private Sub Command1_Click() '单击【发送命令】按钮后触发此事件
sd(0) = 1
sd(1) = 3
sd(2) = 7
MSComm1.Output = sd '利用 Output 属性发送 3 个字节的命令
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
plwidth = Pic1.ScaleWidth
plheight = Pic1.ScaleHeight
maxplotno = 30
你的Pic1控件估计没命名或根本不存在,
我猜你可能是要做一个PictureBox控件,
那么你的窗体上要加上这个控件,
假如已经有这个控件但还出错,那就检查一下
控件的name属性(F4打开属性面板,通常在右侧)
要为Pic1
哦,还有要附加一点,使用MSComm一定要用
Try Catch 来去除端口被占用的异常可能性
Pic1.ScaleWidth 好像不能用。。。
Pic1.Scaletop
Pic1.Scaleleft 能用