电力管理系统 [英] POWER MANAGEMENT SYSTEM

查看：94
本文介绍了电力管理系统的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

Private Sub cmd1_Click（）

如果X = False则为
cmd1.Caption =" Area 1 ON&qu​​ot;

ClrPortBit& H37A，1

X =正

否则

cmd1.Caption =" Area 1 OFF"

SetPortBit& H37A，1

X =假

结束如果

结束子

私人子cmd2_Click （）

如果Z = False则为
cmd2.Caption =" Area 2 ON&qu​​ot; b
ClrPortBit& H37A，0
Z = True

否则

cmd2.Caption =" Area 2 OFF"

SetPortBit& H37A，0

Z =假

结束如果

sensor = lblwater.Caption

如果sensor = 0那么

Label2.Caption ="电源从发电站点关闭。"

如果X = True则为
MSComm1.Output = " at"

通话延迟

MSComm1.Output = Chr（13）

通话延迟

MSComm1。输出=" at + cmgf = 1"

通话延迟

MSComm1.Output = Chr（13）

通话延迟

MSComm1.Output =" at + cmgs ="

来电延迟

MSComm1.Output = Chr（34）

呼叫延迟

MSComm1.Output = txtno1.Text

呼叫延迟

MSComm1.Output = Chr（34）

呼叫延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = Label2.Caption& DateTime.Now'gsm留言

通话延迟

MSComm1.Output = Chr（26）

通话延迟

MSComm1.Output =" at + cmgs ="

呼叫延迟

MSComm1.Output = Chr（34）

呼叫延迟

MSComm1.Output = txtno2.Text

通话延迟

MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = Label2.Caption& DateTime.Now'gsm留言

通话延迟

MSComm1.Output = Chr（26）

通话延迟

cmdgsm.Caption =" GSM OFF"

X = False

结束如果

ElseIf sensor = 8那么

Label2.Caption ="电源在发电站点和子站之间关闭"

如果X = True则为
MSComm1.Output =" at"

通话延迟

MSComm1.Output = Chr（13）

通话延迟

MSComm1.Output =" at + cmgf = 1" b $ b呼叫延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1。输出=" at + cmgs ="

通话延迟

MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = txtno1.Text

通话延迟

MSComm1.Output = Chr（34）

通话延迟
MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = Label2.Caption& DateTime.Now'gsm留言

通话延迟

MSComm1.Output = Chr（26）

通话延迟

MSComm1.Output =" at + cmgs"

通话延迟

MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = txtno2.Text

通话延迟

  MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = Label2.Caption& DateTime.Now'gsm留言

通话延迟

MSComm1.Output = Chr（26）

通话延迟

cmdgsm.Caption =" GSM OFF"

X = False

结束如果

ElseIf sensor = 24那么

Label2.Caption ="电源在变电站和区域之间关闭。"

如果X = True则为
MSComm1.Output =" at"

通话延迟

MSComm1.Output = Chr（13）

通话延迟

MSComm1.Output =" at + cmgs = 1" b $ b呼叫延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1。输出=" at + cmgs ="

通话延迟

MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = txtno1.Text

通话延迟

MSComm1.Output = Chr（34）

通话延迟
MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = Label2.Caption& DateTime.Now'gsm留言

通话延迟

MSComm1.Output = Chr（26）

通话延迟

MSComm1.Output =" at + cmgs ="

呼叫延迟

MSComm1.Output = Chr（34）

呼叫延迟

MSComm1.Output = txtno2.Text

通话延迟

MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = Lable2.Caption& DateTime.Now'gsm留言

通话延迟

MSComm1.Output = Chr（26）

通话延迟

cmdgsm.Caption =" GSM OFF"

X = False

结束如果

ElseIf sensor = 56那么

Label2.Caption ="电源在变电站和区域1之间关闭"

如果X = True则为
MSComm1.Output =" at"

通话延迟

MSComm1.Output = Chr（13）

通话延迟

MSComm1.Output =" at + cmgf = 1" b $ b b呼叫延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = " at + cmgs ="

通话延迟

MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = txtno1.Text

通话延迟

MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = Label2.Caption& DateTime.Now'gsm留言

通话延迟

MSComm1.Output = Chr（26）

通话延迟

MSComm1.Output =" at + cmgs ="

呼叫延迟

MSComm1.Output = Chr（34）

呼叫延迟

MSComm1.Output = txtno2.Text

通话延迟

MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = Label2.Caption& DateTime.Now'gsm留言

通话延迟

MSComm1.Output = Chr（26）

通话延迟

cmdgsm.Caption =" GSM OFF"

X = False

结束如果

ElseIf sensor = 88那么

Label2.Caption ="电源在变电站和区域2之间关闭"

如果X = True则为
MSComm1.Output =" at"

通话延迟

MSComm1.Output = Chr（13）

通话延迟

MSComm1.Output =" at + cmgf = 1" b $ b b呼叫延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = " at + cmgs ="

通话延迟

MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = txtno1.Text

通话延迟

MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = Label2.Caption& DateTime.Now'gsm留言

通话延迟

MSComm1.Output = Chr（26）

通话延迟

MSComm1.Output =" at + cmgs ="

通话延迟

MSComm1.Output = Chr（34）

通话延迟  < br $>
MSComm1.Output = txtno2.Text

通话延迟

MSComm1.Output = Chr（34）

通话延迟

MSComm1.Output = Chr（13）

呼叫延迟

MSComm1.Output = Label2.Caption& DateTime.Now'gsm留言

通话延迟

MSComm1.Output = Chr（26）

通话延迟

cmdgsm.Caption =" GSM OFF"

X = False

结束IF

否则

Label2.Caption ="电源在整个配电网中"&b;
结束IF¥b $ b如果Y = True则为
Label5.Caption = Time $

Label6.Caption =日期$

如果Check1.Value = 1那么

device1 = True

Else

device1 = False

结束如果

如果Check2.Value  =那么

device2 = False

结束如果

如果device1 = False则为
ClrPortBit& H37A，1 $
ElseIf（Time $> Text1。文本和时间$< Text2.Text和device1 = True）然后

SetPortBit& H37A，1

否则

ClrPortBit& H37A ，1 $
结束如果

如果device2 = False则为
ClrPortBit& H37A，2

ElseIf（Time $> Text3.Text时间$< Text4.Text和device2 =真）然后

SetPortBit& H37A，0

否则

ClrPortBit& H37A，0
$
结束如果

结束如果 


"请帮助我让这个代码运行"

解决方案

您好，


此论坛适用于vb.net，而非VB6。如果这是VB6，请考虑在此发布，如果没有，请提供详细信息。 


http://www.vbforums.com/forumdisplay.php?1-Visual-Basic-6-and-Earlier


Private Sub cmd1_Click()
If X=False Then
cmd1.Caption="Area 1 ON"
ClrPortBit &H37A,1
X= True
Else
cmd1.Caption="Area 1 OFF"
SetPortBit &H37A,1
X=False
End If
End Sub
Private Sub cmd2_Click()
If Z=False Then
cmd2.Caption="Area 2 ON"
ClrPortBit &H37A,0
Z= True
Else
cmd2.Caption="Area 2 OFF"
SetPortBit & H37A,0
Z=False
End If
sensor= lblwater.Caption
If sensor =0 Then
Label2.Caption="The Power is switched off from Generation site."
If X=True Then
MSComm1.Output="at"
Call delay
MSComm1.Output=Chr(13)
Call delay
MSComm1.Output="at+cmgf=1"
Call delay
MSComm1.Output=Chr(13)
Call delay
MSComm1.Output="at+cmgs="
Call delay
MSComm1.Output=Chr(34)
Call delay
MSComm1.Output=txtno1.Text
Call delay
MSComm1.Output=Chr(34)
Call delay
MSComm1.Output=Chr(13)
Call delay
MSComm1.Output=Label2.Caption & DateTime.Now 'gsm message
Call delay
MSComm1.Output=Chr(26)
Call delay
MSComm1.Output="at+cmgs="
Call delay
MSComm1.Output=Chr(34)
Call delay
MSComm1.Output=txtno2.Text
Call delay
MSComm1.Output=Chr(34)
Call delay
MSComm1.Output=Chr(13)
Call delay
MSComm1.Output=Label2.Caption & DateTime.Now 'gsm message
Call delay
MSComm1.Output=Chr(26)
Call delay
cmdgsm.Caption="GSM OFF"
X=False
End If
ElseIf sensor = 8 Then
Label2.Caption = "The Power is switched off between Generation site and Sub Station"
If X = True Then
MSComm1.Output = "at"
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output= "at+cmgf=1"
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = "at+cmgs="
Call delay
MSComm1.Output= Chr(34)
Call delay
MSComm1.Output= txtno1.Text
Call delay
MSComm1.Output= Chr(34)
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = Label2.Caption & DateTime.Now 'gsm message
Call delay
MSComm1.Output = Chr(26)
Call delay
MSComm1.Output="at+cmgs"
Call delay
MSComm1.Output= Chr(34)
Call delay
MSComm1.Output= txtno2.Text
Call delay
 MSComm1.Output= Chr(34)
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = Label2.Caption & DateTime.Now 'gsm message
Call delay
MSComm1.Output = Chr(26)
Call delay
cmdgsm.Caption = "GSM OFF"
X=False
End If
ElseIf sensor = 24 Then
Label2.Caption = "The Power is switched off between Substation and areas."
If X = True Then
MSComm1.Output = "at"
Call delay
MSComm1.Output=Chr(13)
Call delay
MSComm1.Output="at+cmgs=1"
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output="at+cmgs="
Call delay
MSComm1.Output = Chr(34)
Call delay
MSComm1.Output=txtno1.Text
Call delay
MSComm1.Output = Chr(34)
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = Label2.Caption & DateTime.Now 'gsm message
Call delay
MSComm1.Output = Chr(26)
Call delay
MSComm1.Output = "at+cmgs="
Call delay
MSComm1.Output=Chr(34)
Call delay
MSComm1.Output = txtno2.Text
Call delay
MSComm1.Output = Chr(34)
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = Lable2.Caption & DateTime.Now 'gsm message
Call delay
MSComm1.Output = Chr(26)
Call delay
cmdgsm.Caption = "GSM OFF"
X= False
End If
ElseIf sensor = 56 Then
Label2.Caption = "The Power is switched off between Substation and area1"
If X = True Then
MSComm1.Output = "at"
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = "at+cmgf=1"
Call delay
MSComm1.Output=Chr(13)
Call delay
MSComm1.Output = "at+cmgs="
Call delay
MSComm1.Output = Chr(34)
Call delay
MSComm1.Output = txtno1.Text
Call delay
MSComm1.Output = Chr(34)
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = Label2.Caption & DateTime.Now 'gsm message
Call delay
MSComm1.Output = Chr(26)
Call delay
MSComm1.Output = "at+cmgs="
Call delay
MSComm1.Output = Chr(34)
Call delay
MSComm1.Output = txtno2.Text
Call delay
MSComm1.Output = Chr(34)
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = Label2.Caption & DateTime.Now 'gsm message
Call delay
MSComm1.Output = Chr(26)
Call delay
cmdgsm.Caption = "GSM OFF"
X= False
End If
ElseIf sensor = 88 Then
Label2.Caption = "The Power is switched off between Substation and area2"
If X= True Then
MSComm1.Output = "at"
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = "at+cmgf=1"
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = "at+cmgs="
Call delay
MSComm1.Output = Chr(34)
Call delay
MSComm1.Output = txtno1.Text
Call delay
MSComm1.Output = Chr(34)
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = Label2.Caption & DateTime.Now 'gsm message
Call delay
MSComm1.Output = Chr(26)
Call delay
MSComm1.Output = "at+cmgs="
Call delay
MSComm1.Output = Chr(34)
Call delay 
MSComm1.Output = txtno2.Text
Call delay
MSComm1.Output = Chr(34)
Call delay
MSComm1.Output = Chr(13)
Call delay
MSComm1.Output = Label2.Caption & DateTime.Now 'gsm message
Call delay
MSComm1.Output = Chr(26)
Call delay
cmdgsm.Caption = "GSM OFF"
X= False
End IF
Else
Label2.Caption = "The power is there in the entire distribution grid"
End IF
If Y = True Then
Label5.Caption = Time$
Label6.Caption = Date$
If Check1.Value = 1 Then
device1 = True
Else
device1 = False
End If
If Check2.Value  = Then
device2 = False
End If
If device1=False Then
ClrPortBit &H37A, 1
ElseIf (Time$ > Text1.Text And Time$<Text2.Text And device1 = True) Then
SetPortBit &H37A, 1
Else
ClrPortBit &H37A, 1
End If
If device2 = False Then
ClrPortBit &H37A, 2
ElseIf (Time$ > Text3.Text An Time$<Text4.Text And device2 = True) Then
SetPortBit &H37A, 0
Else
ClrPortBit &H37A, 0
End If
End If 

"PLEASE HELP ME MAKE THIS CODE RUN"

解决方案

Hello,

This forum is for vb.net, not VB6. If this is VB6 please consider posting here and if not please provide details. 

http://www.vbforums.com/forumdisplay.php?1-Visual-Basic-6-and-Earlier


这篇关于电力管理系统的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！

查看全文
相关文章
其他开发语言最新文章
热门教程
热门工具
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆