winsock的控件程序,其中端口参数duankounum可以为0-3,
Select Case Index
Case 0
Query(0) = 0
Query(1) = 0
Query(2) = 0
Query(3) = 0
Query(4) = 0
Query(5) = 6
Query(6) = 1
Query(7) = 5
Query(8) = 0
Query(9) = DuanKouNum
Query(10) = &HFF
Query(11) = 0
Case 1
Query(0) = 0
Query(1) = 0
Query(2) = 0
Query(3) = 0
Query(4) = 0
Query(5) = 6
Query(6) = 1
Query(7) = 5
Query(8) = 0
Query(9) = DuanKouNum
Query(10) = &H0
Query(11) = 0
End Select
If Winsock1.State = 7 Then
Winsock1.SendData Query
End If
End If
h: End Sub好使给100分,没废话
Select Case Index
Case 0
Query(0) = 0
Query(1) = 0
Query(2) = 0
Query(3) = 0
Query(4) = 0
Query(5) = 6
Query(6) = 1
Query(7) = 5
Query(8) = 0
Query(9) = DuanKouNum
Query(10) = &HFF
Query(11) = 0
Case 1
Query(0) = 0
Query(1) = 0
Query(2) = 0
Query(3) = 0
Query(4) = 0
Query(5) = 6
Query(6) = 1
Query(7) = 5
Query(8) = 0
Query(9) = DuanKouNum
Query(10) = &H0
Query(11) = 0
End Select
If Winsock1.State = 7 Then
Winsock1.SendData Query
End If
End If
h: End Sub好使给100分,没废话
解决方案 »
- 怎么读取注册表下DisplayName和InstallLocation的值?
- 为什么月亮在运动时闪烁?
- 导出指定列到excel
- 在局域网中打开Access数据库出错,谁来看看
- 怎么把字符串前面和后面的空格去掉?谢谢!
- vb用密码验证方式不能登陆一台sqlserver但是用windows验证却可以,可是当我再回到密码验证方式时奇怪是的是却可以了其间我没改任何东西
- XP是什么的缩写?是什么意思?
- 用VB就被人看不起吗?
- 在程序中引用了pagesetup,页面设置对话筐,程序退出后(所有窗体关闭,程序不终止
- vb编程
- vb 打包自己的dll 找不到
- mschart连接mysql怎么没有显示曲线??还要哪些设置??
http://www.lazarus.freepascal.org/