gprs无线数传模块编程方法(vb)

《gprs无线数传模块编程方法(vb)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、GPRS无线数传模块编程方法（VB）发布时间：2006年6月25日 一、在不同组网方式下的具体设置：要使PC机成为数据中心一般用到的有三种方式：(中心采用Intelnet公网连接、中心采用专线接入、拨号上网方式)不管哪种方式PC机都需要一个固定IP。公网或专线方式的IP为网卡的IP；拨号上网方式的IP为无线Modem的GPRS卡绑定的IP。1、公网方式：因为PC机有了固定的IP，所以在使用的时候，不需要做什么特别的设置就行了，只要将模块的APN名称设为CMNET就行。2、专线方式：PC机由网卡可以登录到数据服务器所在的网络内。具体实现方法：设置PC机的本地连接，（主要是IP

2、地址和网关，网关为数据服务器的网关）设置完成后，可以用Ping命令测试网络是否通。步骤：点击“开始”—“运行”，在‘打开’中输入Ping数据服务器的IP,（如莱芜力创的数据服务器IP为192.168.0.164，输入Ping192.168.0.164）回车。模块的APN名称设为LICHUANG.LW.SD3、拨号上网方式：PC机由无线Modem可以登录到数据服务器所在的网络内。a、无线Modem（调制解调器）有几种?一般情况下，我们使用的有两种，一种为USB连接的，一种为串口连接的。b、怎样设置可以使无线Modem登录到数据服务器所在的网络？先将调制解调器正确连接到计算机上

3、。对调制解调器进行安装：控制面板—添加新硬件—从列表中选择“调制解调器”—选择此调制解调器所使用的端口—在区号中输入‘086’，选择音频，拨打外线区号可以不输入。调制解调器安装完成后，还要诊断一下是否安装正确，安装的调制解调器是否可用。步骤为：控制面板—调制解调器—属性—诊断。对调制解调器进行配置：控制面板—调制解调器—属性—高级，在额外的初始化命令中，如果是使用东营的GPRS卡，则在附加设置中输入（“AT+CGDCONT=1，”IP”,”DYSHL.SD””）如果使用的是力创的GPRS卡，则在附加设置中输入（“AT+CGDCONT=1,”IP”,”LICHUANG.LW.

4、SD””）c、怎样建立拨号连接？正确连接调制解调器后，还要建立拨号连接才可以。详细步骤为：右击‘网上邻居’—属性—建立新连接—选择拨号到专用网络—在输入电话号码时输入‘*99***1#’，其于情况默认点击‘下一步’即可。d、拨号上网方式的IP怎样获得？判断数据中心（无线Modem）的IP，方法有多种：先拨号连接，待拨号连接成功后，在任务栏中右击”拨号连接”的图标,选择’状态’,在弹出的画面中选择’信息’,看一下’客户端IP’就行了。选择开始—运行（输入cmd回车）—输入ipconfig回车，便可以看到拨号连接的IP了。e、5怎样让无线Modem掉线后自动重拨？无线Modem

5、在使用的过程中会出现掉线的情况，因为用户不可能总是关注此时的无线Modem是否掉线了，为了使无线Modem不耽误数据传输，可以将其设置成掉线后自动重拨的功能。具体操作为：先查找到‘拨号连接’（在拨号网络中）—属性—选项在‘拨号选项’中去掉所有的选项，选中‘重拨选项’中的断线重拨即可。在设置时也可以将重拨次数设置的更大一些，比如说10次，不设置也可，用户可根据实际情况来定。在‘重拨选项’中有一项为‘挂断前的空闲时间’，我们一般设置为“从不”。如果设置为某个时间，则连接时间到了该值时便出现掉线的状况。二、一般控件的编写：控件实际上就是类的封装，一个类中可以定义自己的结构、属性、

6、方法、事件。1、结构：PrivateType结构名MyNameasString'''结构中的参数MyAgeasIntegerEndType2、属性：Dimm_GPRSLongAsLongPublicPropertyLetGPRSLong(ByValNewGPRSLongAsLong)'''将表达式的值赋给变量或属性m_GPRSLong=NewGPRSLongPropertyChanged"GPRSLong"'''PropertyChanged方法是通知属性的值已经发生变化EndPropertyPublicPropertyGetGPRSLong()AsLong'''读属性值G

7、PRSLong=m_GPRSLongEndProperty3、方法(函数)：PublicFunctionStartServer(IpAsString,PortAsLong)AsBoolean'''这种方法用户可以使用EndFunctionPrivateSubtcpServer_Close(IndexAsInteger)AsBoolean'''这种方法用户不可以使用,控件本身自己使用EndSub4、事件：PublicEventGetUserID(ByValUser_IdAsString,ByValUserDeal_I