vb设计科学计算机,【求助】用VB设计科学计算器

Option Explicit

Function action

Dim objconnection

Dim strconnectionstring

Dim T1,T2,T3,T4,T5,T6,T7,P1,P2,P3,P4,P5,P6,P7,F1,F2,F3,F4,F5,F6,F7,F8,L1,L2,L3

Dim strsql

Dim objcommand

Dim a

a=HMIRuntime.Tags("TIC4101.R").Read

If a>1.0 Then

strconnectionstring="Provider=MSDASQL;DSN=wincc_1;UID=;PWD=;"

T1=HMIRuntime.Tags("TIC4101.R").Read

T2=HMIRuntime.Tags("TE4102_1.R").Read

T3=HMIRuntime.Tags("TE4102_2.R").Read

T4=HMIRuntime.Tags("TE4103.R").Read

T5=HMIRuntime.Tags("TE4106.R").Read

T6=HMIRuntime.Tags("TE4107.R").Read

T7=HMIRuntime.Tags("TE6101.R").Read

P1=HMIRuntime.Tags("PT4201.R").Read

P2=HMIRuntime.Tags("PT4202.R").Read

P3=HMIRuntime.Tags("PIC4203.R").Read

P4=HMIRuntime.Tags("PIC4204.R").Read

P5=HMIRuntime.Tags("PT4206.R").Read

P6=HMIRuntime.Tags("PT4207.R").Read

P7=HMIRuntime.Tags("PT6101.R").Read

F1=HMIRuntime.Tags("FIC4301.R").Read

F2=HMIRuntime.Tags("FIC4302.R").Read

F3=HMIRuntime.Tags("FT4307.R").Read

F4=HMIRuntime.Tags("FIC5301_1.R").Read

F5=HMIRuntime.Tags("FIC5301_2.R").Read

F6=HMIRuntime.Tags("FIC5302_1.R").Read

F7=HMIRuntime.Tags("FIC5302_2.R").Read

L1=HMIRuntime.Tags("LIC4401.R").Read

L2=HMIRuntime.Tags("LT4405.R").Read

L3=HMIRuntime.Tags("LT2405.R").Read

strsql="insert into WINCC_DATA(sysdatetime,TI4101,TI4102_1,TI4102_2,TI4103,TI4106,TI4107,TI6101,PI4201,PI4202,PI4203,PI4204,PI4206,PI4207,PI6101,FI4301,FI4302,FI4307,FI5301_1,FI5301_2,FI5302_1,FI5302_2,LI4401,LI4405,LI2405) values(Now(),"&T1&","&T2&","&T3&","&T4&","&T5&","&T6&","&T7&","&P1&","&P2&","&P3&","&P4&","&P5&","&P6&","&P7&","&F1&","&F2&","&F3&","&F4&","&F5&","&F6&","&F7&","&L1&","&L2&","&L3&");"

Set objconnection=CreateObject("ADODB.Connection")

objconnection.connectionString=strconnectionstring

objconnection.Open

Set objCommand=CreateObject("ADODB.Command")

With objcommand

.ActiveConnection=objconnection

.CommandText=strsql

End With

objcommand.Execute

Set objcommand=Nothing

objconnection.Close

End If

End Function