VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2698|回复: 6

[求助] 谁来帮帮我,内容请看帖子(已经改好了)

[复制链接]
发表于 2015-6-24 11:19:06 | 显示全部楼层 |阅读模式
20金钱
本帖最后由 jiwei79 于 2015-6-25 09:34 编辑

还是关于把固定电话的来电显示在显示器上显示的问题,现在是在网上搞了个USB猫,接上后用系统里的超级终端在有电话打入时就可以出来电的日期、时间、号码
,但是在网上找了好多用VB做的来电显示程序都无法显示日期、时间、号码,有没有会做这个的,教下我,谢谢了。

附件: 您需要 登录 才可以下载或查看,没有帐号?立即注册
 楼主| 发表于 2015-6-24 14:07:12 | 显示全部楼层
已经改好了,太好了,能显示了。
回复

使用道具 举报

 楼主| 发表于 2015-6-24 14:08:23 | 显示全部楼层
'设置Modem端口
   MSComm1.CommPort = 3   改成3就行了
回复

使用道具 举报

 楼主| 发表于 2015-6-24 20:13:17 | 显示全部楼层
但是又有问题了,如果接了猫打开程序是没有问题的,但是如果没接猫,打开程序后这句会提示出错:MSComm1.PortOpen = True 无效的端口号
有没有办法搞个通用的,能自动判断电脑接没接猫?
回复

使用道具 举报

发表于 2015-6-25 13:36:07 | 显示全部楼层
判断下能连接的串口号。
  1. Option Explicit
  2.     Dim a As Integer
  3.     Dim blnAutoSendFlag As Boolean
  4.     Dim openFlag As Boolean

  5. Private Sub Form_Load()
  6.     MSComm1.Settings = "9600,n,8,1"
  7.     MSComm1.InputMode = comInputModeBinary      '采用二进制传输
  8.     MSComm1.InBufferCount = 0   '清空接受缓冲区
  9.     MSComm1.OutBufferCount = 0  '清空传输缓冲区
  10.     MSComm1.RThreshold = 1      '产生MSComm事件
  11.     MSComm1.InBufferSize = 1024
  12.     Shape1.FillStyle = 0
  13.     OpenPortNum
  14. End Sub

  15. Private Sub OpenPortNum()
  16.     On Error GoTo uerror
  17.     For a = 1 To 16
  18.         MSComm1.CommPort = a
  19.         MSComm1.PortOpen = True
  20.         If MSComm1.PortOpen = True Then
  21.             Print "可用Com号= "; a
  22.             MSComm1.PortOpen = False
  23.         End If
  24.     Next
  25.     Exit Sub
  26. uerror:
  27.     Print "出错或占用Com号= "; a
  28.     Resume Next
  29. End Sub

  30. Private Sub MSComm1_OnComm()
  31.     Dim bytSj() As Byte
  32.     Select Case MSComm1.CommEvent
  33.     Case 2
  34.         If MSComm1.InBufferCount > 0 Then
  35.         End If
  36.         bytSj = MSComm1.Input
  37. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2015-6-25 19:41:48 | 显示全部楼层
谢谢版主,我明天到单位试下
回复

使用道具 举报

 楼主| 发表于 2015-6-26 10:15:05 | 显示全部楼层
zdingyun 发表于 2015-6-25 13:36
判断下能连接的串口号。


试了下,1、不管是在猫的端口是打开或不打开的情况下,都不会有提示 2、就算不接上猫,也不会有提示。 好象还是不大行。但也要谢谢版主。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-5 12:19

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表