📄 frmsyteminfo.frm
字号:
VERSION 5.00
Begin VB.Form frmSystemInfo
Caption = "Manage System Info"
ClientHeight = 4455
ClientLeft = 5010
ClientTop = 3120
ClientWidth = 7290
Icon = "frmSytemInfo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4455
ScaleWidth = 7290
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox txtIPAddress
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 600
TabIndex = 13
Text = "192.168.0.1"
Top = 1800
Width = 1845
End
Begin VB.CommandButton cmdGetIPAddress
Caption = "GetIPAddress"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 2640
TabIndex = 12
Top = 1680
Width = 1875
End
Begin VB.CommandButton cmdSetIPAddress
Caption = "SetIPAddress"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 4680
TabIndex = 11
Top = 1680
Width = 1875
End
Begin VB.ComboBox cmbDeviceInfo
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "frmSytemInfo.frx":0442
Left = 2490
List = "frmSytemInfo.frx":0479
Style = 2 'Dropdown List
TabIndex = 8
Top = 2865
Width = 2280
End
Begin VB.TextBox txtSetDevInfo
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 5700
TabIndex = 7
Top = 2865
Width = 885
End
Begin VB.CommandButton cmdExit
Caption = "Exit"
Default = -1 'True
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 5040
TabIndex = 5
Top = 3720
Width = 1875
End
Begin VB.CommandButton cmdSetDeviceTime
Caption = "SetDeviceTime"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 2640
TabIndex = 4
Top = 840
Width = 1875
End
Begin VB.CommandButton cmdGetDeviceTime
Caption = "GetDeviceTime"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 600
TabIndex = 3
Top = 840
Width = 1875
End
Begin VB.CommandButton PowerOffDevice
Caption = "PowerOffDevice"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 4680
TabIndex = 2
Top = 840
Width = 1875
End
Begin VB.CommandButton cmdGetDeviceInfo
Caption = "GetDeviceInfo"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 360
TabIndex = 1
Top = 3705
Width = 1875
End
Begin VB.CommandButton cmdSetDeviceInfo
Caption = "SetDeviceInfo"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 2640
TabIndex = 0
Top = 3705
Width = 1875
End
Begin VB.Label Label2
Caption = "Value:"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4920
TabIndex = 10
Top = 2880
Width = 660
End
Begin VB.Label lblDeviceInfo
Caption = "Device Info:"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
TabIndex = 9
Top = 2880
Width = 1740
End
Begin VB.Label lblMessage
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Message"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 600
TabIndex = 6
Top = 240
Width = 6300
End
End
Attribute VB_Name = "frmSystemInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdGetDeviceInfo_Click()
Dim vInfo As Integer
Dim vValue(0) As Integer
Dim vRet As Boolean
Dim vErrorCode As Long
lblMessage.Caption = "Working..."
DoEvents
vInfo = cmbDeviceInfo.ListIndex + 1
vRet = frmMain.CZKEM1.GetDeviceInfo(frmMain.vMachineNumber, vInfo, vValue(0))
If vRet Then
lblMessage.Caption = vValue(0)
Else
frmMain.CZKEM1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
End If
End Sub
Private Sub cmdGetDeviceTime_Click()
Dim vYear As Long
Dim vMonth As Long
Dim vDay As Long
Dim vHour As Long
Dim vMinute As Long
Dim vDayOfWeek As Long
Dim vRet As Boolean
Dim vErrorCode As Long
Dim strDataTime As String
lblMessage.Caption = "Working..."
DoEvents
vRet = frmMain.CZKEM1.GetDeviceTime(frmMain.vMachineNumber, vYear, vMonth, vDay, vHour, vMinute, vDayOfWeek)
If vRet Then
strDataTime = "Date = " & CStr(vYear) & "/" & CStr(vMonth) & "/" & CStr(vDay) & " , " & GetWeekDay(vDayOfWeek) & _
" , Time = " & CStr(vHour) & ":" & Format(CStr(vMinute), "0#")
lblMessage.Caption = strDataTime
Else
frmMain.CZKEM1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
End If
End Sub
Private Sub cmdGetIPAddress_Click()
Dim vIPAddress As String
Dim vRet As Boolean
Dim vErrorCode As Long
vRet = frmMain.CZKEM1.GetDeviceIP(frmMain.vMachineNumber, vIPAddress)
If vRet Then
txtIPAddress.Text = vIPAddress
Else
frmMain.CZKEM1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
End If
End Sub
Private Sub cmdSetDeviceInfo_Click()
Dim vMachineNumber As Integer
Dim vInfo As Integer
Dim vValue As Integer
Dim vErrorCode As Long
Dim vRet As Boolean
lblMessage.Caption = "Working..."
DoEvents
vInfo = cmbDeviceInfo.ListIndex + 1
vValue = Val(txtSetDevInfo.Text)
vRet = frmMain.CZKEM1.SetDeviceInfo(vMachineNumber, vInfo, vValue)
If vRet Then
lblMessage.Caption = "Success!"
Else
frmMain.CZKEM1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
End If
End Sub
Private Sub cmdSetDeviceTime_Click()
Dim vMachineNumber As Integer
Dim vRet As Boolean
Dim vErrorCode As Long
lblMessage.Caption = "Working..."
DoEvents
vRet = frmMain.CZKEM1.SetDeviceTime(vMachineNumber)
If vRet Then
lblMessage.Caption = "Success!"
Else
frmMain.CZKEM1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
End If
End Sub
Private Sub cmdSetIPAddress_Click()
Dim vIPAddress As String
Dim vRet As Boolean
Dim vErrorCode As Long
vIPAddress = txtIPAddress.Text
vRet = frmMain.CZKEM1.SetDeviceIP(frmMain.vMachineNumber, CStr(vIPAddress))
If vRet Then
lblMessage.Caption = "SetDeviceIP OK"
Else
frmMain.CZKEM1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
End If
End Sub
Private Sub PowerOffDevice_Click()
Dim vRet As Boolean
Dim vErrorCode As Long
lblMessage.Caption = "Working..."
DoEvents
vRet = frmMain.CZKEM1.PowerOffDevice(frmMain.vMachineNumber)
If vRet Then
lblMessage.Caption = "Success!"
Else
lblMessage.Caption = ErrorPrint(vErrorCode)
frmMain.CZKEM1.GetLastError vErrorCode
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Me.Visible = False
frmMain.Visible = True
End Sub
Private Sub cmdExit_Click()
Unload Me
frmMain.Visible = True
End Sub
Private Function GetWeekDay(anDay As Long) As String
Select Case anDay
Case 1
GetWeekDay = "Monday"
Case 2
GetWeekDay = "Tuesday"
Case 3
GetWeekDay = "Wednesday"
Case 4
GetWeekDay = "Thursday"
Case 5
GetWeekDay = "Friday"
Case 6
GetWeekDay = "Saturday"
Case 7
GetWeekDay = "Sunday"
End Select
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -