hubaoshun
/
BECKHOFF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Shanghai
NingBo
Wuhai
main
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'Shanghai'
${ noResults }
BECKHOFF/四车间/M779-10号车（已改）/BACK-C/VisiWin/VisiWinStudio/Demos/DistillationDevice/frmTrendSelection.frm

298 lines
9.6 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

上海卷烟厂倍福程序
2 years ago
VERSION 5.00
Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx"
Object = "{2A559721-5321-11D0-95E6-006008104BEC}#1.0#0"; "VW4Language.ocx"
Object = "{C6652563-BD5B-11D0-B26C-006008104BEC}#1.0#0"; "VW4Trend.ocx"
Object = "{498C4702-2E69-11D5-89F4-0050BAB20053}#1.1#0"; "VW4TrendHelper.ocx"
Begin VB.Form frmTrendSelection
BorderStyle = 0 'Kein
Caption = "Form1"
ClientHeight = 11520
ClientLeft = 0
ClientTop = 0
ClientWidth = 15360
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 11520
ScaleWidth = 15360
ShowInTaskbar = 0 'False
StartUpPosition = 2 'Bildschirmmitte
Begin VW4TrendHelper.VWTrendLegend legTrends
Height = 660
Left = 30
TabIndex = 0
Top = 9345
Width = 15285
_ExtentX = 26961
_ExtentY = 1164
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TrendControl = "trdDummy"
End
Begin VW4LanguageLib.VWLanguage vwSprache
Left = 4320
Top = 10800
_Version = 65536
_ExtentX = 794
_ExtentY = 794
_StockProps = 0
End
Begin VB.Timer Timer1
Interval = 25
Left = 3000
Top = 10800
End
Begin VW4TrendLib.VWTrend trdDummy
Height = 8715
Left = 30
Top = 540
Width = 15285
_Version = 65536
_ExtentX = 26961
_ExtentY = 15372
_StockProps = 37
BorderStyle = 1
Trend1 = "wTemperature1"
Archive1 = "WasserTemperaturen"
Trend2 = "wTemperature2"
Archive2 = "WasserTemperaturen"
Trend3 = "wTemperature3"
Archive3 = "WasserTemperaturen"
ScaleY = 2
ColorTrend1 = 16761024
ColorTrend2 = 16744576
ColorTrend3 = 16711680
ColorTrend4 = 8388608
ColorTrend5 = 16761087
ColorTrend6 = 16744703
ColorTrend7 = 16711935
ColorTrend8 = 8388736
End
Begin DistillationDevice.VWButton VWButton1
Height = 1365
Left = 30
TabIndex = 1
Top = 10110
Width = 15285
_extentx = 26961
_extenty = 2302
picture1 = "frmTrendSelection.frx":0000
picture2 = "frmTrendSelection.frx":07E8
picture5 = "frmTrendSelection.frx":0E30
picture6 = "frmTrendSelection.frx":1A74
picture7 = "frmTrendSelection.frx":1F68
picture8 = "frmTrendSelection.frx":267C
picture12 = "frmTrendSelection.frx":2F58
font = "frmTrendSelection.frx":3C26
font = "frmTrendSelection.frx":3C4E
font = "frmTrendSelection.frx":3C76
font = "frmTrendSelection.frx":3C9E
font = "frmTrendSelection.frx":3CC6
font = "frmTrendSelection.frx":3CEE
font = "frmTrendSelection.frx":3D16
font = "frmTrendSelection.frx":3D3E
font = "frmTrendSelection.frx":3D66
font = "frmTrendSelection.frx":3D8E
font = "frmTrendSelection.frx":3DB6
font = "frmTrendSelection.frx":3DDE
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
text1 = "1"
text2 = "2"
text3 = "3"
text4 = "4"
text5 = "5"
text6 = "6"
text7 = "7"
text8 = "8"
text9 = "9"
text10 = "10"
text11 = "11"
text12 = "12"
borderstyle = 1
End
Begin VWSLanguageLib.VWSIndex idxSimulation
Height = 450
Left = 5145
Top = 30
Width = 10185
_cx = 5080
_cy = 5080
BackStyle = 1
Enabled = -1 'True
Alignment = 4
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = 14845952
BackColorOn = -2147483643
ForeColorOff = 14935011
ForeColorOn = -2147483640
TextRotation = 0
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
IndexGroup = "Formular-Namen"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "frmTrendSelection"
End
Begin VWSLanguageLib.VWSIndex idxSWDD
Height = 450
Left = 30
Top = 30
Width = 5115
_cx = 5080
_cy = 5080
BackStyle = 1
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = 14935011
BackColorOn = -2147483643
ForeColorOff = 0
ForeColorOn = -2147483640
TextRotation = 0
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
IndexGroup = "Formular-Namen"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Anlage"
End
End
Attribute VB_Name = "frmTrendSelection"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Set curFrm = Me
legTrends.ApplyChanges
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
Select Case Index
Case 12
EndProgram
Case 1
If vwSprache.Language = 1031 Then Exit Sub
FCentral.vwSprache.Language = 1031
FAlarms.vwSprache.Language = 1031
FTrends.vwSprache.Language = 1031
frmTrendSelection.vwSprache.Language = 1031
frmSelection.Caption = "Trendauswahl"
frmSelection.fraAll.Caption = "Vorhandene Trends":
frmSelection.fraSelected.Caption = "Ausgew<65>hlte Trends:"
frmSelection.cmdAbort.Caption = "Abbrechen"
Case 2
If vwSprache.Language = 1033 Then Exit Sub
FCentral.vwSprache.Language = 1033
FAlarms.vwSprache.Language = 1033
FTrends.vwSprache.Language = 1033
frmTrendSelection.vwSprache.Language = 1033
frmSelection.Caption = "Trend Selection"
frmSelection.fraAll.Caption = "Existing Trends":
frmSelection.fraSelected.Caption = "Selected Trends:"
frmSelection.cmdAbort.Caption = "Cancel"
Case 5
FCentral.Show
Unload Me
Case 6
FAlarms.Show
Unload Me
Case 7
FTrends.Show
Unload Me
End Select
End Sub
Private Sub trdDummy_DblClick()
frmSelection.Show (vbModal)
End Sub
Private Sub VWButton1_Button12Click()
Index = 12
Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button1Click()
Index = 1
Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button2Click()
Index = 2
Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button5Click()
Index = 5
Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button6Click()
Index = 6
Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button7Click()
Index = 7
Timer1.Enabled = True
End Sub