VB温度控制仪代码

'串口初始化

'在窗体的Load事件中加入下列代码对串口进行初始化

Private Sub Form_Load()

https://www.wendangku.net/doc/e67460944.html,mPort = 4

MSComm1.InputMode = 1

MSComm1.Settings = "19200,n,8,1" '波特率9600

MSComm1.PortOpen = True '打开串口

alarm1.FillColor = QBColor(10) '下限报警指示灯初始绿色

alarm2.FillColor = QBColor(10) '上限报警指示灯初始绿色

Text1.TabIndex = 0

Call tabinit '调用表格初始化子程序

End Sub

Private Sub Timer1_Timer()

Label12.Caption = "当前日期：" & Date

End Sub

'周期性地向单片机发送字符get2

Private Sub Timer2_Timer()

MSComm1.Output = Trim(Text1.Text) & "wenducontrol2" '间隔发送标志

Call get_u '获得温度值

End Sub

'读取仪表返回数据串

'获得温度值

Sub get_u()

Dim Inbyte() As Byte

Dim buffer As String

Dim datastr(20) As String '用于存储16进制每一位Inbyte = MSComm1.Input

For i = LBound(Inbyte) To UBound(Inbyte)

buffer = buffer + Hex(Inbyte(i)) + Chr(32)

Next i

'获得16进制每一位

For i = 1 To 5

datastr(i) = Mid(buffer, i + 3, 1)

Next i

'将16进制转换成10进制

If Len(Trim(buffer)) > 2 Then

If datastr(2) = " " And datastr(4) <> " " Then

datatemp(num) = (Val("&H" & "0") * (16 ^ 3) + Val("&H" & datastr(1)) * (16 ^ 2) _

+ Val("&H" & datastr(3)) * (16 ^ 1) + Val("&H" & datastr(4)) * (16 ^ 0)) * 0.1

End If

If datastr(2) = " " And datastr(4) = " " Then

datatemp(num) = (Val("&H" & "0") * (16 ^ 3) + Val("&H" & datastr(1)) * (16 ^ 2) _

+ Val("&H" & "0") * (16 ^ 1) + Val("&H" & datastr(3)) * (16 ^ 0)) * 0.1 End If

If datastr(3) = " " And datastr(5) <> " " Then

datatemp(num) = (Val("&H" & datastr(1)) * (16 ^ 3) + Val("&H" & datastr(2)) * (16 ^ 2) _

+ Val("&H" & datastr(4)) * (16 ^ 1) + Val("&H" & datastr(5)) * (16 ^ 0)) * 0.1

End If

If datastr(3) = " " And datastr(5) = " " Then

datatemp(num) = (Val("&H" & datastr(1)) * (16 ^ 3) + Val("&H" & datastr(2)) * (16 ^ 2) _

+ Val("&H" & "0") * (16 ^ 1) + Val("&H" & datastr(4)) * (16 ^ 0)) * 0.1 End If

ElseIf Len(Trim(buffer)) = 2 Then

datatemp(num) = (Val("&H" & "0") * (16 ^ 3) + Val("&H" & "0") * (16 ^ 2) _

+ Val("&H" & datastr(1)) * (16 ^ 1) + Val("&H" & datastr(2)) * (16 ^ 0)) * 0.1

ElseIf Len(Trim(buffer)) = 1 Then

datatemp(num) = (Val("&H" & "0") * (16 ^ 3) + Val("&H" & "0") * (16 ^ 2) _

+ Val("&H" & "0") * (16 ^ 1) + Val("&H" & datastr(1)) * (16 ^ 0)) * 0.1

End If

'填表格

If datatemp(num) <> 0 Then

Grid.Row = num + 1

Grid.Col = 1: Grid.Text = Trim(Text1.Text)

Grid.Col = 2: Grid.Text = buffer '第1列显示16进制温度值

Grid.Col = 3: Grid.Text = datatemp(num) '第2列显示10进制温度值TempText = Format$(datatemp(num), "0.0") '10进制显示,保留1位小数

Call alarm '调用报警过程num = num + 1 '采集个数

Label10.Caption = "当前值" & num

If num Mod 2 = 0 Then

Grid.BackColor = RGB(255, 255, 0) ' 浅灰

Grid.ForeColor = RGB(255, 0, 0)

Else

Grid.BackColor = RGB(230, 200, 0) ' 兰色

Grid.ForeColor = RGB(0, 0, 255)

End If

Call cal '调用计算极值、平均值子程序

Call draw '调用绘曲线过程If num > 99 Then Call renew '采集个数大于100刷新

End If

End Sub

'由单片机自动控制继电器启闭

Private Sub Option3_Click()

MSComm1.Output = "contrl1" & Trim(Text1.Text) '发自动控制标志End Sub

'由PC机按钮控制继电器启闭

Private Sub Option4_Click()

MSComm1.Output = "contrl2" & Trim(Text1.Text) '发PC控制标志End Sub

'控制继电器1

Private Sub Cmdcontrol1_Click()

If Cmdcontrol1.Caption = "打开继电器1" Then

MSComm1.Output = Trim(Text1.Text) & "open1" '打开继电器1 alarm1.FillColor = QBColor(12)

Cmdcontrol1.Caption = "关闭继电器1"

ElseIf Cmdcontrol1.Caption = "关闭继电器1" Then

MSComm1.Output = Trim(Text1.Text) & "close1" '关闭继电器1

alarm1.FillColor = QBColor(10)

Cmdcontrol1.Caption = "打开继电器1"

End If

End Sub

'控制继电器2

Private Sub Cmdcontrol2_Click()

If Cmdcontrol2.Caption = "打开继电器2" Then

MSComm1.Output = Trim(Text1.Text) & "open2" '打开继电器2 alarm2.FillColor = QBColor(12)

Cmdcontrol2.Caption = "关闭继电器2"

ElseIf Cmdcontrol2.Caption = "关闭继电器2" Then

MSComm1.Output = Trim(Text1.Text) & "close2" '关闭继电器2 alarm2.FillColor = QBColor(10)

Cmdcontrol2.Caption = "打开继电器2"

End If

End Sub

'报警指示

Sub alarm()

If datatemp(num) > 30 Then

alarm1.FillColor = QBColor(12)

End If

If datatemp(num) >= 27 And datatemp(num) <= 50 Then

alarm1.FillColor = QBColor(10)

alarm2.FillColor = QBColor(10)

End If

If datatemp(num) > 50 Then

alarm2.FillColor = QBColor(12)

End If

End Sub

'计算极值、平均值

Sub cal()

On Error GoTo hh

Sum = 0

Max = datatemp(0): Min = Max

For i = 0 To num - 1

If datatemp(i) >= Max Then Max = datatemp(i)

If datatemp(i) <= Min Then Min = datatemp(i)

Sum = Sum + datatemp(i)

Next i

aver = Sum / num

MaxText.Text = Format$(Max, "0.0") '10进制显示,保留1位小数MinText.Text = Format$(Min, "0.0")

AverText.Text = Format$(aver, "0.0")

hh: Exit Sub

End Sub

'绘制温度实时变化曲线

Private Sub draw()

Picture1.Cls

Picture1.DrawWidth = 1

Picture1.BackColor = QBColor(15)

Picture1.Scale (0, 120)-(100, 0) '最高显示6V，100个数据For i = 1 To num - 1

X1 = (i - 1): Y1 = datatemp(i - 1)

X2 = i: Y2 = datatemp(i)

Picture1.Line (X1, Y1)-(X2, Y2), QBColor(12)

Next i

End Sub

'刷新

Private Sub renew()

If DAYIN1 = True Then

Call OutDataToText(Grid)

Call DAYIN

If num = 0 Then Exit Sub

TempText.Text = "": AverText.Text = ""

MinText.Text = "": MaxText.Text = ""

Grid.Clear

Picture1.Cls

For i = 0 To num

datatemp(i) = 0

Next i

num = 0

Call tabinit

Grid.TopRow = 1 '置在第一页Grid.LeftCol = 1

Text1.Text = Str(Val(Text1.Text) + 1)

If Val(Text1.Text) = 19 Then Text1.Text = 16

Timer5.Enabled = True

End Sub

'数据表格初始化

Public Sub tabinit()

Grid.Cols = 4

Grid.Rows = 102

Grid.ColWidth(0) = 500

Grid.ColWidth(1) = 800

Grid.ColWidth(2) = 1400

Grid.ColWidth(3) = 1000

Grid.Col = 0

For i = 1 To 101

Grid.Row = i

Grid.Text = Str$(i)

Next i

Grid.Row = 0

Grid.Col = 0: Grid.Text = "序号"

Grid.Col = 1: Grid.Text = "首标识符"

Grid.Col = 2: Grid.Text = "首标识符&温度值(H)"

Grid.Col = 3: Grid.Text = "温度值(D)"

Grid.TopRow = 1 '置在第一页Grid.LeftCol = 1

End Sub

'当退出程序时，关闭串行口

Private Sub Cmdquit_Click()

Unload Me

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) MSComm1.PortOpen = False '关闭串口

Private Sub Timer3_Timer()

Label13.Caption = "现在时间：" & Time

End Sub

Private Sub Timer5_Timer()

If Grid.Row < 3 And Str(Val(Text1.Text)) <> "18" Then Text1.Text = Str(Val(Text1.Text) + 1) If Grid.Row < 3 And Str(Val(Text1.Text)) = "18" Then Text1.Text = "16"

Timer5.Enabled = False

End Sub

Public Sub OutDataToText(Grid)

Dim s As String

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim strTemp As String

On Error GoTo Ert

Me.MousePointer = 11

On Error Resume Next

DoEvents

Dim FileNum As Integer

FileNum = FreeFile

Open "d:aa.txt" For Output As #FileNum

With Grid

k = .Rows

For i = 0 To k - 1

strTemp = ""

For j = 0 To .Cols - 1

DoEvents

If i = 0 And j < 4 Then

strTemp = strTemp & .TextMatrix(i, j) & "-------------"

Else: strTemp = strTemp & .TextMatrix(i, j) & " ,"

End If

Next j

Print #FileNum, Left(strTemp, Len(strTemp) - 1)

Next i

End With

Close #FileNum

Me.MousePointer = 0

'MsgBox "导出成功"

Ert:

'MsgBox Err.Description

'Me.MousePointer = 0

End Sub

Private Sub DAYIN()

Open "D:\aa.txt" For Binary Access Read As #1

Dim tB() As Byte

ReDim tB(0 To LOF(1) - 1)

Get #1, , tB

Close #1

Dim t$

t = StrConv(tB, vbUnicode)

Printer.FontSize = 11

sit = " ------------- " & "第" & Text1.Text & "从机的数据库文件导出清单-----------"

VB.Printer.Print sit

' Printer.Height = 10 * 567

'Printer.Width = 5 * 567

'Printer.ScaleWidth = 210

'Printer.ScaleHeight = 297

'Printer.ScaleMode = 6 '设置打印的单位

'Printer.PaperSize = vbPRPSA4 '定义纸张大小为A4

Printer.ScaleLeft = -0.75 * 1440

Printer.ScaleTop = -0.5 * 1440

'Printer.CurrentX = 0

' Printer.CurrentY = 0

VB.Printer.Print t

t = " 控制工程系" & "打印日期：" & Date & " 打印时间" & Time

VB.Printer.Print t

VB.Printer.EndDoc

End Sub

vb代码大全

用VB5实现窗口图象缩放、滚动技巧 成都理工学院计算机工程系 洪志全 ---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。 ---- 一、获取图像 ---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。 ---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。 ---- 二、图像缩放 ---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为: PaintPicture Pic,DestX,DestY,DestWidth, DestHeight,ScrX,ScrY,ScrWidth,ScrHeight ---- 其中,Pic 为图片对象, 如图形控件对象等; DestX,DestY为目标图像起始坐标; DestWidth,DestHeight为目标图像幅面尺寸; ScrX,ScrY为源图像起始坐标; ScrWidth,ScrHeight为源图像剪裁尺寸。 ---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或

BYS-30温湿度控制仪使用说明书

B Y S-30温湿度控制仪 使用说明书 -CAL-FENGHAI.-(YICAI)-Company One1

BYS-30型混凝土标准养护室自动控制仪 使 用 说 明 书 浙江华南仪器设备有限公司

浙江华南仪器设备有限公司专业生产销售混凝土标准养护室自动温湿控制仪，混凝土养护室控制仪欢迎您来电咨询混凝土标准养护室自动温湿控制仪，混凝土养护室控制仪的详细信息！浙江华南仪器设备有限公司提供的混凝土标准养护室自动温湿控制仪，混凝土养护室控制仪不仅具有国内外领先的技术水平，更有良好的售后服务和优质的解决方案。 混凝土标准养护室自动温湿控制仪，混凝土养护室控制仪技术电话： BYS-30型混凝土标准养护室自动控制仪是浙江华南仪器设备有限公司自行研发的新一代适用于各水泥厂、水泥制品厂、商品砼搅拌站及建工、交通工程、公路施工单位、科研机构和质检站对标准养护室的温湿度控制，具有操作方便、控制准确等优点。 本控制仪另一特点为三通道设置，常规单通道设置时，可控制20m3以下空间的温湿度，当用户选择二、三通道时只要增加一台或二台加湿加热水箱， 即可控制达 50m3和70 m3空间的温湿度。 一.产品符合GB/T 50081-2002《普通砼力学性能试验方法》和ISO2736、JTGE30-2005等标准的要求。 二.混凝土标准养护室自动控制仪技术指标上海雷韵技术电话：控温范围：10~40℃控温精度： (20℃)±2℃控湿范围：≥95%(相对湿度) 加热功率： kW / kW(常规配置/二通道配置/三通道配置) 制冷功率：≤2kW(用户需自己配备≤3匹单冷空调，不要遥控器，控制回路接入本控制仪) 加湿功率： 60W 电源电压：AC220V±22V 电源频率： 50 Hz±1Hz 三. 混凝土标准养护室自动控制仪结构与工作原理 1、该控制仪由控制箱、加湿器、不锈钢加热水箱和空调(自备)四大部分组成，其温、湿度的控制均由数显仪表自动交换，无须人工控制。 2、工作原理 (1)温控：当养护室内的温度高于控制仪的上限给定值时，控制系统即输出制冷信号，控制单冷空调，外接负载工作，反之，温度低于控制仪的下限给定值时，主机即加热，当达到控制要求时自动恢复到恒温状态，如此反复达到控制温度的目的。用户如果安装的是冷暖型空调，则不能去掉遥控装置，宜把空调调整在目标控制温度的下限，利用本控制仪把温度控制在更精确的状态下。 (2)湿控：当养护室内的湿度低于控制值时，控制系统输出加湿信号，控制主机加湿器工作，室内湿度达到要求后即自动停止工作。控制仪还设置有手动加湿功能，只要按下控制面板上的手动加湿按钮，即可进行人为加湿。 四. 混凝土标准养护室自动控制仪安装及使用方法 1、安装方法 (1)首先将控制箱固定在养护室外,固定位置以方便操作为宜。选择最近位置将温湿度探头放入养护室内并固定好,温湿度传感器分别按编号连接到控制仪。养护室应有良好的保温性和密封性，空间大小符合要求。 (2)然后将主机放于养护室中心位置，用塑料水管将增湿器进水口与自来水管连通，打开水龙头(常开小量)进水能自动控制，水位必须高于电热管，以免电热管脱水烧毁。加热、加湿插头分别插在控制箱的插座上。 (3)单冷空调器安装前需将控制系统拆除，然后将压缩机的电源插头直接连接在制冷插座上。注意：如果安装冷暖型空调，不要把空调接入控制仪，让空调独立运行即可。

VB6.0的小程序计算器

VB6.0的小程序计算器 对于刚入门学习VB6的朋友来说肯定会做些小程序吧，这里就是给大家演示个简单的计算器程序，仅供参考啦。 界面上加减乘除四个按钮分别是cmdAdd、cmdPlus、cmdMultiple、cmdDevide，小数点按钮是cmdDot，负号按钮是cmdMinuse，数字0～9为了偷懒，用了控件数组cmdNumber(0)~ cmdNumber(9)，上面txtShow是显示数字和结果用的，txtOperate是显示中间步骤的。 思路大致是这样，点加减乘除这类操作符的时候，把当前txtShow的值保存在模块变量mstrParam1里，同时把操作符保存到mstrOperate里，按等于号时把先把当前txtShow的值保存在模块变量mstrParam2里，然后对mstrParam1和mstrParam2进行运算，当然要记得设法把String转换成数值进行运算。 转换的过程要注意，这里是用的Variant数据类型，vParam1和vParam2都是Variant 类型，保存的是mstrParam1和mstrParam2的数值。之所以不用integer、long、double 这些标准类型，是因为这些类型都有大小限制，做出来用着不方便，VB最大的整型long才到 2147483647，这意味着计算器的计算结果只能限制在9位到10位。而Variant类型可以支持非常大的数，具体多大不清楚，但起码几十位是能够支持的。另外，最后算完的结果也要做格式化，因为如果数值非常大的话，VB会自动转成科学计数法，所以要用Format函数进行调整。 如果需要源代码的话在我百度空间里留言。https://www.wendangku.net/doc/e67460944.html,/zhaozhigang517

vb科学计算器实验报告

西安科技大学 可视化编程语言实验报告 题目：科学计算器 班级： 学号： 姓名： 2010年11月

复杂型科学计算器的设计与实现实验目的 1．通过本实验，进一步理解Visual Basic的编程方法。 2．提高运用Visual Basic编程的能力。 3．培养对所学知识的综合运用能力。 实验类型 综合型。 实验内容与步骤 一.界面设计。

Command5Caption= 三．程序代码： Dim num1 As Single, num2 As Single Dim fu As Integer Dim sign As Integer Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 sign = Index + 20 Case 10 sign = Index + 20 fu = 1 Case 11 To 14 sign = Index + 20 End Select = "" End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 To 9 = & Index If fu = 0 Then num1 = Val Else num2 = Val

Case 10 = & "-" Case 11 = & "." Case 12 To 18 = "" sign = Index fu = 1 End Select End Sub Private Sub Command3_Click() If =”” then else = Left$, Len - 1) End if End Sub Private Sub Command4_Click() = "" End Sub Private Sub Command5_Click() Dim n As Integer, cf As Single fu = 0: cf = 1 Select Case sign Case 12 = num1 & "+" & num2 = num1 + num2 Case 13 = num1 - num2 Case 14 = num1 * num2 Case 15 = num1 / num2 Case 18 For n = 1 To num2 cf = cf * num1 Next n = cf Case 20 = Sin(num1) Case 21

vb常见题型汇总代码

1.Private Sub Command1_Click() Dim r As Double, c As Double, s As Double Dim pi As Double pi = 3.1415926 r = Val(Text1.Text) c = pi * 2 * r s = pi * r * r Label3.Caption = "圆的周长为" + Str(c) + "厘米" Label4.Caption = "圆的面积为" + Str(s) + "平方厘米" End Sub 2.（5秒5分倒计时） Dim n As Integer Private Sub Command1_Click() If Option1.Value Then n = 5 If Option2.Value Then n = 300 Timer1.Enabled = True Frame1.Enabled = False Command1.Enabled = False End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() n = n - 1 Text1.Text = Str(n \ 60) & "分" & Str(n Mod 60) & "秒" If n <= 0 Then Timer1.Enabled = False Frame1.Enabled = True Text1.Text = "时间到" End If End Sub 3.心想事成 Dim x As Integer Private Sub Command1_Click() Timer1.Enabled = True If Command1.Caption = "开始" Then Timer1.Enabled = True Command1.Caption = "停止" Else Timer1.Enabled = False Command1.Caption = "开始" End If End Sub Private Sub Form_Load() Timer1.Interval = 100 x = -100 End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left + x If Label1.Left <= 0 Then x = 100 If Label1.Left >= Form1.ScaleWidth - Label1.Width Then x = -100 End Sub 4.我的调色板（滚动条） Private Sub Command1_Click() Label5.ForeColor = Label4.BackColor End Sub Private Sub HScroll1_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub 5.字形字体颜色（复选框，单选）Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check1.Value = 1 Then

计算器vb源代码

计算器v b源代码 IMB standardization office【IMB 5AB- IMBK 08- IMB 2C】

计算器vb源代码.txt性格本身没有好坏，乐观和悲观对这个世界都有贡献，前者发明了飞机，后者发明了降落伞。完全版的前后台代码... '请把下面的保存为 VERSION Begin Calculator BorderStyle = 1 'Fixed Single Caption = "计算器" ClientHeight = 2970 ClientLeft = 2580 ClientTop = 1485 ClientWidth = 3270 ClipControls = 0 'False BeginProperty Font Name = "System" Size = Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "":0000 LinkMode = 1 'Source LinkTopic = "Form1" MaxButton = 0 'False PaletteMode = 1 'UseZOrder ScaleHeight = 2970 ScaleWidth = 3270 WhatsThisHelp = -1 'True Begin Number Caption = "7" Height = 480 Index = 7 Left = 120 TabIndex = 7 Top = 600 Width = 480 End

VB课程设计报告+计算器

目录 ●概要设计说明 (3) ●总体设计分析 (3) ●小组成员及分工方法....................................3 -4 ●功能模块图 (4) ●负责模块的程序设计分析 (5) ●负责模快的程序源代码及流程图.....................5-12 ●公共系统使用说明及截图..............................13-16 ●结束语、心得体会 (17) ●课程设计结评分表…………………………………18-19

一、概要设计说明 本组设计的科学计算器具有科学型和标准型两种类型，适合不同需要。科学型中包含弧度与角度的计算，同时兼具2、8、10、16进制的运算。在标准型中，编辑菜单（edit）包含复制（copy）、粘贴（paste）。查看菜单包含标准型（standar）、科学型（scientific）。帮助菜单中包含关于（about）（内含开发制作者信息） 二、总体设计分析（含功能模块图） 一．小组成员分工 1 科学型角度弧度和进制的调用，由小组成员共同完成 2 科学计算器中，x^2,x^3,x^y,1/x,n！,Log按键，及八进制转二 进制，八进制转十进制，由**负责。 3科学计算器中，BackSpance、CE、C和运算符号+、-、*、/、.、-/+、=以及标准型计算器由***负责 4 科学计算器中，sin，cos，tan,Rnd,Exp,ATn按钮以sin/cos/tan 计算时角度和弧度的转换由**负责。 5 科学行计算器中，Copy，Pst，Not，And，Xor，Int，Or， Abe，Exit按钮;将十进制转化为二进制，制转化为十进制，将二进制转化为八进制由**负责。

VB键盘常量大全 256个虚拟键码

Public Const VK_LBUTTON = &H1 Public Const VK_RBUTTON = &H2 Public Const VK_CANCEL = &H3 Public Const VK_MBUTTON = &H4 Public Const VK_BACK = &H8 Public Const VK_TAB = &H9 Public Const VK_CLEAR = &HC Public Const VK_RETURN = &HD Public Const VK_SHIFT = &H10 Public Const VK_CONTROL = &H11 Public Const VK_MENU = &H12 Public Const VK_PAUSE = &H13 Public Const VK_CAPITAL = &H14 Public Const VK_ESCAPE = &H1B Public Const VK_SPACE = &H20 Public Const VK_PRIOR = &H21 Public Const VK_NEXT = &H22 Public Const VK_END = &H23 Public Const VK_HOME = &H24 Public Const VK_LEFT = &H25 Public Const VK_UP = &H26 Public Const VK_RIGHT = &H27 Public Const VK_DOWN = &H28 Public Const VK_Select = &H29 Public Const VK_PRINT = &H2A Public Const VK_EXECUTE = &H2B Public Const VK_SNAPSHOT = &H2C Public Const VK_Insert = &H2D Public Const VK_Delete = &H2E Public Const VK_HELP = &H2F Public Const VK_0 = &H30 Public Const VK_1 = &H31 Public Const VK_2 = &H32 Public Const VK_3 = &H33 Public Const VK_4 = &H34 Public Const VK_5 = &H35 Public Const VK_6 = &H36 Public Const VK_7 = &H37 Public Const VK_8 = &H38 Public Const VK_9 = &H39 Public Const VK_A = &H41 Public Const VK_B = &H42 Public Const VK_C = &H43 Public Const VK_D = &H44

智能型数字显示温度控制器使用说明书

XMT-2000 智能型数字显示温度控制器使用说明书 此产品使用前，请仔细阅读说明书，以便正确使用，并妥善保存，以便随时参考。 操作注意 为防止触电或仪表失效，所有接线工作完成后方能接通电源，严禁触及仪表内部和改动仪表。 断电后方可清洗仪表，清除显示器上污渍请用软布或棉纸。显示器易被划伤，禁止用硬物擦拭或触及。 禁止用螺丝刀或书写笔等硬物体操作面板按键，否则会损坏或划伤按键。 1．产品确认 本产品适用于注塑、挤出、吹瓶、食品、包装、印刷、恒温干澡、金属热处理等设备的温度控制。本产品的PID参数可以自动整定，是一种智能化的仪表，使用十分方便，是指针式电子调节器、模拟式数显温控仪的最佳更新换代产品。本产品符合Q/SQG01-1999智能型数字显示调节仪标准的要求。 请参照下列代码表确认送达产品是否和您选定的型号完全一致。 XMT□-□□□□-□ ①②③④⑤⑥ ①板尺寸（mm）3:时间比例(加热) 5:下限偏差报警 省略:80×160(横式) 4:两位PID作用(继电器输出) 6:上下限偏差报警 A:96×96 5:驱动固态继电器的PID调节⑤输入代码 D:72×72 6:移相触发可控硅PID调节 1:热电偶 E:96×48(竖式) 7:过零触发可控硅PID调节 2:热电阻 F:96×48(横式) 9:电流或电压信号的连续PID调节 W:自由信号 G:48×48 ④报警输出⑥馈电变送输出 ②显示方式 0:无报警 V12:隔离12V电压输出 6:双排4位显示 1:上限绝对值报警 V24:隔离24V电压输出 ③控制类型 2:下限绝对值报警 GI4:隔离4-20mA变送输出 0:位式控制3:上下限绝对值报警 2:三位式控制 4:上限偏差报警 2．安装 2.1 注意事项（5）推紧安装支架，使仪表与盘面结合牢固。 （1）仪表安装于以下环境 （2）大气压力：86~106kPa。2．3 尺寸 环境温度：0~50℃。 相对湿度：45~85%RH。 （3）安装时应注意以下情况 H h 环境温度的急剧变化可能引起的结露。 腐蚀性、易燃气体。 直接震动或冲击主体结构。 B l 水、油、化学品、烟雾或蒸汽污染。 b b’ 过多的灰尘、盐份或金属粉末。 空调直吹。阳光的直射。 热辐射积聚之处。 h’ 2．2 安装过程（1）按照盘面开孔尺寸在盘面上打出用来安装单位：mm 仪表的矩形方孔。型号 H×B h×b×1 h’×b’ （2）多个仪表安装时，左右两孔间的距离应大 XTA 96×96 92×92×70 (92+1)×(92+1) 于25mm；上下两孔间的距离应大于30mm。 XTD 72×72 68×68×70 (68+1)×(68+1) （3）将仪表嵌入盘面开孔内。 XTE 96×48 92×44×70 (92+1)×(44+1) （4）在仪表安装槽内插入安装支架 XTG 48×48 44×44×70 (44+1)×(44+1) 3．接线 3.1接线注意 （1）热电偶输入，应使用对应的补偿导线。 （2）热电阻输入，应使用3根低电阻且长度、规格一致的导线。 （3）输入信号线应远离仪表电源线，动力电源线和负荷线，以避免引入电磁干扰。 3.2接线端子 4．面板布置 ①测量值（PV）显示器（红） ?显示测量值。 ?根据仪表状态显示各类提示符。 ②给定值（SV）显示器（绿） ?显示给定值。 ?根据仪表状态显示各类参数。 ③指示灯 ?控制输出灯（OUT）(绿)工作输出时亮。 ?自整定指示灯（AT）(绿) 工作输出时闪烁。 ?报警输出灯1（ALM1）(红)工作输出时亮。 ?报警输出灯2（ALM2）(红)工作输出时亮。 ④SET功能键 ?参数的调出、参数的修改确认。 ⑤移位键 ?根据需要选择参数位，控制输出的ON/OFF。 ⑥▲、▼数字调整键 ?用于调整 数字，启动/退出自整定。

vb复数计算器

Dim save As String Dim a As Single Dim points, over, b, c, d, e As Boolean Private Sub Command1_Click(Index As Integer) If over = True Then Text1.Text = "" End If If b = True Then Text1.Text = Text1.Text & Trim(Str(Index)) ElseIf c = True Then Text2.Text = Text2.Text & Trim(Str(Index)) ElseIf d = True Then Text4.Text = Text4.Text & Trim(Str(Index)) ElseIf e = True Then Text5.Text = Text5.Text & Trim(Str(Index)) End If over = False End Sub Private Sub Command2_Click() If points = False Then If b = True Then If Text1.Text = "" Then Text1.Text = 0 & "." points = True Else Text1.Text = Text1.Text & "." points = True End If ElseIf c = True Then If Text2.Text = "" Then Text2.Text = 0 & "." points = True Else

BWY(WTYK)-802、803温度控制器说明书中文

感谢您使用本厂产品 使用前请认真阅读产品使用说明书 目录 一、概况 (1) 二、工作原理 (5) 三、主要技术指标 (5) 四、安装及使用 (5) 五、注意事项 (10) 六、附录Pt100工业铂电阻分度值表 (11)

一、概况 1、温度控制器根据沈阳变压器研究所制订的JB/T6302《变压器用压力式温度计》标准的命名 如下： 2 2、温度控制器根据JB/T9236《工业自动化仪表产品型号编制原则》的要求产品命名如下： 2

BWY（WTYK）系列温度控制器的成套性和适用性

图一 系列温度控制器外形及安装尺寸B W Y (W T Y K )

二、工作原理 变压器温度控制器（以下简称温控器），主要由弹性元件、毛细管、温包和微动开关组成。当温包受热时，温包内感温介质受热膨胀所产生的体积增量，通过毛细管传递到弹性元件上，使弹性元件产生一个位移，这个位移经机构放大后指示出被测温度并带动微动开关工作，从而控制冷却系统的投入或退出。 BWY（WTYK）-802A、803A温控器采用复合传感器技术，即仪表温包推动弹性元件的同时，能同步输出Pt100热电阻信号，此信号可远传到数百米以外的控制室，通过XMT数显温控仪同步显示并控制变压器油温。也可通过数显仪表，将Pt100铂电阻信号转换成与计算机联网的直流标准信号（0～5）V、(1～5)V或(4～20)mA输出。 三、主要技术指标 （一）BWY（WTYK）-802、803型 1、正常工作条件：（-40～+55）℃ 2、测量范围：（-20～+80）℃ （0～+100）℃ （0～+120）℃ （0～+150）℃ 3、指示精确度： 1.5级 4、控制性能：①设定范围：全量程可调 ②设定精确度：±3℃ ③开关差： 6±2℃ ④额定功率： AC 250V/3A ⑤标准设定值：802：K1=55℃； K2=80℃ 803：K1=55℃； K2=65℃ K3=80℃ 5、仪表安装尺寸：详见外形及安装尺寸图 （二）BWY（WTYK）-802A、803A型 1～5条同上。 6、输出Pt100铂电阻信号（附分度值） （三）XMT-288F数显温控仪，另附说明书。 （四）XMT-288FC数显温控仪，另附说明书。 四、安装及使用 （一）BWY（WTYK）-802、803型温控器

用VB编写一个简单计算器

用VB编写一个简单计算器 一、功能：实现简单的加减乘除功能，C归零，CE取消输入，%计算并显示第一个操作数的百分比。 二、控件：1个label，20个commandbutton。 三、计算器运行界面： 四、详细代码： Option Explicit Dim Op1, Op2 '前面输入的操作数 Dim DecimalFlag As Integer '小数点仍然存在吗？ Dim NumOps As Integer '操作数个数 Dim LastInput '指示上一次按键事件的类型 Dim OpFlag '指示未完成的操作 Dim TempReadout ' C (取消) 按钮的Click 事件过程 ' 重新设置显示并初始化变量 Private Sub Cancel_Click() Readout = Format(0, "0.") Op1 = 0 Op2 = 0 Form_Load End Sub ' CE (取消输入) 按钮的Click 事件过程

Private Sub CancelEntry_Click() Readout = Format(0, "0.") DecimalFlag = False LastInput = "CE" End Sub ' 小数点(.) 按钮的Click 事件过程 ' 如果上一次按键为运算符，初始化readout 为"0."； ' 否则显示时追加一个小数点 Private Sub Decimal_Click() If LastInput = "NEG" Then Readout = Format(0, "-0.") ElseIf LastInput <> "NUMS" Then Readout = Format(0, "0.") End If DecimalFlag = True LastInput = "NUMS" End Sub ' 窗体的初始化过程 ' 设置所有变量为其初始值 Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastInput = "NONE" OpFlag = " " Readout = Format(0, "0.") 'Decimal.Caption = Format(0, ".") End Sub ' 数字键(0-9) 的Click 事件过程 ' 向显示中的数追加新数 Private Sub Number_Click(Index As Integer) If LastInput <> "NUMS" Then Readout = Format(0, ".") DecimalFlag = False End If If DecimalFlag Then Readout = Readout + Number(Index).Caption Else Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".") End If If LastInput = "NEG" Then Readout = "-" & Readout

vb科学计算器

课程设计指导书 课程vb计算器程序设计 班级 姓名 学号

目录 一功能描述 (3) 二概要设计及设计流程框图 (3) 三详细设计 (3) 四效果及运行界面图 (4) 五心得体会 (4) 六附录 (6) 七参考文献 (6) 八本人在改组中完成的部分 (7) 九进度安排 (7)

一、功能描述： 窗体通过窗体命令按钮或键盘输入数字实现基本的数学运算，使用窗体的功能按钮计算某些特殊函数 二、概要设计及设计流程框图： 使用vb设计科学型计算器，功能介于科学型和简单型之间,要求能进行加、减、乘、除和开方、乘方、对数、三角函数计算,可以存储与调出数据。在这个计算器的程序中，我用到了单行选择语句If … Then …Else…,If语句的嵌套，多条件选择语句Select Case。 三、详细设计： 本系统1个文本框，数个命令按钮，数个数字按钮用文本框显示输入的数字并将结果显示在文本框中，用命令按钮来计算和输入数字。详细内容： command12(0-9)为数字的控件数组，command13(4-11)为功能函数的控件数组，command13(0-3)为运算符的控件数组，command25为小数点按钮，command26为等号按钮，command1为开关按钮，command2为清除按钮。 四、效果及运行界面： 基本能完成所有运算

五、心得体会 为期一周的实训即将结束，通过这次的实训使我们学到了很多，同时也让我们意识到我们要学的更多。本次实训的内容是科学计算器的程序设计，以小组的形式进行分工合作，我组共4个人，从程序的需求分析、可行性分析、设计到编写、调试、修改、完善、到最后的实训报告，每个人都付出了时间和精力去做好自己的任务并努力地去完善它。 实训的第一天接到任务时我们都觉得有点难度，很有挑战性，毕竟计算器是一个比较系统、完善、功能相对较齐全的计算程序，因此程序编写也十分复杂，工作量较大，编写一定要认真。一个小小的失误都可能使程序出现大的漏洞。而我们只是学了点简单的vb程序编写，没有尝试过这种相对来说比较系统完善的系统。所以在做项目的时候我们倍感压力、更加的团结协作，可即使如此我们还是出现了错误，我们的程序在编写上存在一些漏洞，导致调试时不能正常运行，后经过老师的指导、我们的调整，终于可以完美的运行，这里也耽误了我们很多宝贵的时间，直接导致了我们在项目调试上速度不够快。 总的来说，这次实训还是比较成功的。最后出来的系统，大家都很有成就感，这是我们一步步设计、一步步完善、辛苦付出后得到的成果。小组合作、帮助队友，无论是团队合作这方面还是个人动手这方面，我们都得到了很好的锻炼。当然实训不仅使我们学到了知识，也帮助我们缩小了实践和理论的差距，通过这次实训让我们更深一步的对vb这门课程的知识有更进一步的渴望，同时对自己的

VB代码大全

隐藏form1： form1.hide 显示form1： form1.show --------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出： Private Sub Form_Unload(Cancel As Integer) Dim iAnswer As Integer iAnswer = MsgBox("真要退出吗?", vbYesNo) If iAnswer = vbNo Then Cancel = True Else End End If End Sub ---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码： Private Sub From_Unload(Cancel As Integer) Cancel = true End Sub ------------------------------------------------------------------------------------------------ 点击command1打开33IQ网： Dim strURL Private Sub Command1_Click() strURL = "错误！超链接引用无效。 Shell "explorer.exe " & strURL, 1 End Sub ------------------------------------------------------------------------------------------------ 运行c:\1.exe shell "c:\1.exe" 执行c:\1.bat shell "c:\1.bat" 注：只适用于大部分exe和全部bat。

WTZK-02温度指示控制器说明书

WTZK-02(BWY-02)型 温度控制器 (电力变压器温度测量与控制的专用仪表) 使用说明书 （我厂选用的是杭州富阳仪表有限公司） 杭州华立仪表有限公司

最大插入深度 260

一、用途及原理 WTZK-02型温度控制器(BWY-02型温度控制器)，适用于测量变压器油温或其他的液体、气体和蒸气的温度，并能在被测温度达到和超过设定值时发出接点信号。本仪表主要用于500KV A以上的变压器油温的测量和控制。控制器的主要结构是由温包(感温探头)毛细管和弹性元件组成。这三个部件构成的密封系统内充灌了感温介质、当被测温度发生变化时，温包内的液体压力随着发生变化，通过毛细管的传递使表头的弹性元件产生一个相对应的位移量，这个位移经机械放大后便可指示出被测温度，并带动微动开关动作输出信号。 二、主要技术参数 1.测量范围：0~100℃ 2.指示精确度：1.5级 3.开关特性 (1)开关设定精度：±3℃ (2)开关差：6±2℃ (3)开关额定负荷：AC220V、1.5A 4.温包尺寸：ф14×150 5.温包安装尺寸：外螺纹M27×2 6.表头安装尺寸：3孔ф6 144×210 7.开关在仪表出厂时标准设定值：第一上限55℃ 第二上限80℃ 如果用户需调整开关设定值，可打开表盖，转动表盘上旋钮设定针即可，然后按原样合上表盖。 三、安装和使用 1.温度设定：打开表盖，转动旋钮设定针即可(一般不用再设定)。 2.接线：打开表盖，将电缆线从引线接点穿入，按图2要求接线。电缆线推荐使用KW4×1.5控制电缆。 接线后拧紧引线接头处螺母，不得松动。表盖按原样合好，均匀旋紧四只螺钉。 温控器表头安装前应先完成安装接线和开关设定两项工作。

vb编写的计算器代码

Option Explicit Const CC1 = 1E+28, CC2 = 0.000000000000001, CC3 = 100000000000000# Dim Op1, Op2 ' 预先输入操作数。 Dim DecFlag% ' 小数点存在吗？ Dim Klast ' 指示上一次按键事件的类型。 Dim OpFlag ' 指示未完成的操作。 Dim Kedt% ' 指示键入状态，0-未操作，1-算过，2-改过Dim MemNum ' 存储器 Dim Temp2 ' Function sqr28(a As V ariant) As V ariant Dim c As Double c = Sqr(a) If c > CC3 Or c < CC2 Then sqr28 = c Else sqr28 = CDec(Sqr(a)) sqr28 = sqr28 - (sqr28 * sqr28 - a) / sqr28 * 0.5 End If End Function Function cur28(a As V ariant) As V ariant Dim t As V ariant, c As Double c = Abs(a) ^ (1 / 3) If c > 1000000000# Or c < 0.000000001 Then cur28 = c * Sgn(a) Else cur28 = CDec(c) * Sgn(a) t = cur28 * cur28 cur28 = cur28 - (cur28 * t - a) / t / 3 End If End Function ' 存入存储器 Private Sub BtMS_Click() If Kedt = 2 Then GetOp1 MemNum = Op1 LabMem.Visible = MemNum <> 0 Kedt = 1 End Sub ' 取出存储器数据 Private Sub BtMr_Click() CancelEntry_Click Op1 = MemNum

VB科学计算器课程设计

湖南医药学院 VB计算器课程设计题目： VB科学计算器 院(系)别临床医学院 专业临床医学 班级本临一班 学号 2015101010121 姓名夏铭锴 指导教师李跃强 二○一六年四月

目录 一、设计内容及要求 二、设计原始资料 三、设计完成后提交的文件和图表设计 四、进程安排 五、主要参考资料 [摘要] 用VB制作这个程序的简单计算器，它包括一个标准的计算器和一个科学计算器。它可以实现简单的加减乘除四则运算，数字的平方、平方根，正弦、余弦、正切，倒数、指数函数、对数函数，角度、弧度、梯度的转换，以及各进制的相互转换。而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据。 在这个计算器的程序中，我用到了单行选择语句If…Then…Else…, 块语句if…then…end if,If语句的嵌套，多条件选择语句Select Case,而且还用到了按钮、文本框、框架、单选按钮控件，菜单的设计。 在此报告中我重点叙述了计算机的各个功能及用法。特别是进制间的转换和数字与运算符之间的联系。。虽然描述的不太完整，但我会尽力使用系统结构图，划分多个模块，让大家明白我设计的运算器的功能的。 [关键词] Visual Basic；计算器；对象；代码 1

2

3

四、进程安排 （1）创建应用程序的界面。 （2）设置属性。 （3）编写代码。 4

附页： 设计原始资料 Private Sub Command1_Click() '删除数字的最后一位If Label3.Caption <> "" Then Label3.Caption = Left(Label3.Caption, Len(Label3.Caption) - 1) Else c = MsgBox("内容已为空！不可删除一位！", 49, "注意！") End If End Sub Private Sub Command10_Click() '输入数字6 Label3.Caption = Label3.Caption + Command10.Caption End Sub Private Sub Command11_Click() If Label3.Caption <> "" Then '输入符号* Label1.Caption = Label3.Caption Label2.Caption = Command11.Caption Label3.Caption = "" Else c = MsgBox("请输入数据后输入符号！", 49, "注意！") End If End Sub 5