2004年11月 VB大版内专家分月排行榜第二2004年10月 VB大版内专家分月排行榜第二
2004年11月 VB大版内专家分月排行榜第二2004年10月 VB大版内专家分月排行榜第二
本帖子已过去太久远了，不再提供回复功能。今天，我刚接触了vb语言，就像做一个简单的计算器，可是不知道如何写各按钮的代码，希望各高手帮忙完成我的第一个vb程序，谢谢
楼主发言：1次 发图：0张 | 更多
　　计算机光要加减乘除的那种吗？　　先在窗口添加一个textbox文本框名字是textbox1，再添加一个标签，属性text：（为一个空格）名字是label1，再加一个textbox文本框，名字是textbox2，加标签，名字是label2，属性text：“=”（引号不算），在后面加一个文本框，名字为textbox3.下一行添加五个按钮，名字分别是Button1（属性text：加），Button2（属性text：减）.……最后一个是，清空，按钮　　双击Button1，输入代码：dim a,b,c as single(回车!)a=textbox1.text(!)b=textbox2.text（!）a+b=c(!),textbox3=c(!)　　后面分别点击不同的按钮，把“+”改成“-”，“*”“/”行了　　双击最后按钮输入textbox1=&&(!)textbox2=&&(!)textbox3=&&就ok了，累死我了呵呵（！）表示回车昂
　　双击Button2，输入代码：dim a,b,c as single(回车!)label1.text=&-&(!)a=textbox1.text(!)b=textbox2.text（!）a-b=c(!),textbox3=c　　这是减按钮的。　　双击Button3，输入代码：dim a,b,c as single(回车!)label1.text=&*&(!)a=textbox1.text(!)b=textbox2.text（!）a*b=c(!),textbox3=c　　这是乘按钮的。　　双击Button4，输入代码：dim a,b,c as single(回车!)label1.text=&/&(!)a=textbox1.text(!)b=textbox2.text（!）a+b=c(!),textbox3=c　　这是除按钮的。　　加号按钮的加上label1.text=&+&(!)这个代码昂　　　　
　　我可以给你做 　　　　qq：
　　去买本VB入门的书自己看着做...假如想学VB的话.　　不想学纯粹为完成任务,给50块找个人做下好了...
　　我写的那个不对吗，高手们，帮忙改改
　　string类型的如何加减?NUM才差不多吧...
<span class="count" title="
<span class="count" title="万
请遵守言论规则，不得违反国家法律法规回复(Ctrl+Enter)3009人阅读
工作笔记（67）
技术文章（63）
&&&&&&&& 最近在使用VB写一个自动化控制的程序时,碰到了下面的问题,在程序中我要将一串字符串命令通过串口发送到下位机,为了对发送/接收的数据进行更准确的判断,还使用了CRC16校验方法来对要发送的命令来进行校验,&即在命令的后面再加上2个字节的校验码,但在实际调试时却发现,下位机收到的2个字节的校验码均为0,心中对这个现象一直不解,出错的代码如下:
&&& Dim CRC16 As New CRCCom&&& 'CRC16校验的COM组件&&& Dim nCrcValue As Long
&&& cmdMsg = &&&&& CRC16.GetCrc16Value cmdMsg, nCrcValue&&& cmdMsg = cmdMsg & Chr(nCrcValue / 256) & Chr(nCrcValue Mod 256)&&&&&&& MSC1.Settings = strBaud&&& mPort = nPort&&& MSC1.InputMode = comInputModeText&&& MSC1.OutBufferCount = 0&&&&MSC1.PortOpen = True&&& MSC1.Output = cmdMsg
&&&&&&& 上面这段代码执行后,下位机收到的&&后面2个字节均为0,经过查阅资料,我发现Chr这个函数在转换大于128的数时,转换后就是变为0,难怪下位机老是报错,解决的办法有2种,一是使用VC来封装一个串口通讯的COM来完成串口通讯的工作,同时将数据校验也放在里面进行,VB程序只负责具体的命令和数据的处理,可是这个工作量不小,另一个办法是试一下MSComm控件能不能支持在已经打开串口之后随时变换发送的模式(即是采用文本模式还是二进制模式),如果可以的话我就可以先使用文本模式于是我想到了先使用文本模式将&&发送出去,然后再使用二进制模式将校验得到的2个字节以字节数组的方式发送出去,经过测试,果然可以这样进行,这就给了我很大的方便了,修改测试过后的代码如下:
&&& Dim CRC16 As New CRCCom&&& 'CRC16校验的COM组件&&& Dim nCrcValue As Long&&& Dim byCrcValue(1) As Byte&&& &&& CRC16.GetCrc16Value cmdMsg, nCrcValue&&& byCrcValue(0) = Chr(nCrcValue / 256)&&& byCrcValue(1) = Chr(nCrcValue Mod 256)
&&& cmdMsg = &&&&& CRC16.GetCrc16Value cmdMsg, nCrcValue&&& cmdMsg = cmdMsg & Chr(nCrcValue / 256) & Chr(nCrcValue Mod 256)&&&&&&& MSC1.Settings = strBaud&&& mPort = nPort&&& MSC1.OutBufferCount = 0&&&&MSC1.PortOpen = True
&&& MSC1.InputMode = comInputModeText&&& MSC1.Output = cmdMsg&&& MSC1.InputMode = comInputModeBinary&&& MSC1.Output = byCrcValue
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：214831次
积分：2985
积分：2985
排名：第9976名
原创：48篇
转载：112篇
评论：41条
(2)(5)(10)(3)(14)(1)(1)(1)(2)(2)(2)(1)(4)(8)(6)(1)(2)(12)(1)(10)(6)(4)(8)(8)(9)(6)(31)}