📄 fmrdatahp.frm
字号:
VERSION 5.00
Object = "{997F88E9-8CA8-4FD7-A3C6-F411CF22CD7C}#43.0#0"; "MFBUS15.OCX"
Begin VB.Form FBUS
Caption = "Data Handphone"
ClientHeight = 4500
ClientLeft = 60
ClientTop = 345
ClientWidth = 5130
LinkTopic = "Form1"
ScaleHeight = 4500
ScaleWidth = 5130
StartUpPosition = 3 'Windows Default
Begin VB.ComboBox Combo1
Height = 315
Left = 1440
TabIndex = 20
Text = "COM1"
Top = 120
Width = 855
End
Begin VB.CommandButton cmddisconect
Caption = "disconnect"
Height = 375
Left = 2280
TabIndex = 18
Top = 3960
Width = 1455
End
Begin VB.CommandButton cmdconnect
Caption = "Connect"
Height = 375
Left = 840
TabIndex = 17
Top = 3960
Width = 1455
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 4680
Top = 1080
End
Begin MFBUS15.MFBUS15Control FBUS
Height = 480
Left = 4560
TabIndex = 0
Top = 120
Width = 480
_ExtentX = 847
_ExtentY = 847
End
Begin VB.Line Line1
BorderWidth = 2
X1 = 0
X2 = 5160
Y1 = 1560
Y2 = 1560
End
Begin VB.Label Label9
Caption = "Provider Country"
Height = 255
Left = 120
TabIndex = 22
Top = 2040
Width = 1335
End
Begin VB.Label lblprovidercountry
Height = 255
Left = 1560
TabIndex = 21
Top = 2040
Width = 1695
End
Begin VB.Label Label0
Caption = "HP at Port"
Height = 255
Left = 480
TabIndex = 19
Top = 120
Width = 735
End
Begin VB.Label lblbatere
Alignment = 2 'Center
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3720
TabIndex = 16
Top = 3480
Width = 975
End
Begin VB.Label Label8
Caption = "Batere Level"
Height = 255
Left = 2520
TabIndex = 15
Top = 3480
Width = 1095
End
Begin VB.Label lblsignal
Alignment = 2 'Center
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
TabIndex = 14
Top = 3360
Width = 735
End
Begin VB.Line Line3
BorderWidth = 2
X1 = 0
X2 = 5160
Y1 = 3120
Y2 = 3120
End
Begin VB.Label Label7
Caption = "Signal Level"
Height = 255
Left = 240
TabIndex = 13
Top = 3480
Width = 1095
End
Begin VB.Label lblprovidersmsc
Height = 255
Left = 1560
TabIndex = 12
Top = 2760
Width = 1695
End
Begin VB.Label Label6
Caption = "Provider SMSC"
Height = 255
Left = 240
TabIndex = 11
Top = 2760
Width = 1095
End
Begin VB.Label lblprovidercode
Height = 255
Left = 1560
TabIndex = 10
Top = 2400
Width = 1695
End
Begin VB.Label Label5
Caption = "Provider Code"
Height = 255
Left = 240
TabIndex = 9
Top = 2400
Width = 1095
End
Begin VB.Label lblprovidername
Height = 255
Left = 1560
TabIndex = 8
Top = 1680
Width = 1695
End
Begin VB.Label lblkeylock
Height = 255
Left = 1440
TabIndex = 6
Top = 1200
Width = 1695
End
Begin VB.Label Label2
Caption = "Time/Date"
Height = 255
Left = 480
TabIndex = 4
Top = 840
Width = 855
End
Begin VB.Label lbltimedate
Height = 255
Left = 1440
TabIndex = 3
Top = 840
Width = 2175
End
Begin VB.Label Label1
Caption = "Status"
Height = 255
Left = 720
TabIndex = 2
Top = 480
Width = 615
End
Begin VB.Label lblstatus
Height = 255
Left = 1440
TabIndex = 1
Top = 480
Width = 2535
End
Begin VB.Line Line2
BorderColor = &H80000005&
BorderWidth = 3
X1 = 0
X2 = 5160
Y1 = 1560
Y2 = 1560
End
Begin VB.Line Line4
BorderColor = &H80000005&
BorderWidth = 4
X1 = -120
X2 = 5280
Y1 = 3120
Y2 = 3120
End
Begin VB.Label Label4
Caption = "Provider Name"
Height = 255
Left = 240
TabIndex = 7
Top = 1680
Width = 1095
End
Begin VB.Label Label3
Caption = "Key Lock"
Height = 255
Left = 480
TabIndex = 5
Top = 1200
Width = 735
End
End
Attribute VB_Name = "FBUS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdconnect_Click()
On Error GoTo gagal
'aktifkan timer
Timer1.Enabled = True
'akses handphone
FBUS.connect Combo1.Text
'status koneksi
If FBUS.Connected Then
lblstatus.Caption = "HP dapat di akses"
End If
'key lock status
If FBUS.KeyboardLocked Then
lblkeylock.Caption = "Aktif"
Else
lblkeylock.Caption = "Tidak Aktif"
End If
'Nama provider
lblprovidername.Caption = FBUS.ProviderName
'negara provider
lblprovidercountry.Caption = FBUS.ProviderCountry
'Kode provider
lblprovidercode.Caption = FBUS.ProviderCode
'provider SMSC
lblprovidersmsc.Caption = FBUS.ProviderSMSC
gagal:
If Err <> 0 Then
lblstatus.Caption = "HP tidak dapat di akses"
Timer1.Enabled = False
lbltimedate.Caption = ""
End If
End Sub
Private Sub cmddisconect_Click()
If FBUS.Connected Then
FBUS.Disconnect
End If
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
With Combo1
.AddItem "COM1"
.AddItem "COM2"
.AddItem "COM3"
.AddItem "COM4"
End With
End Sub
Private Sub Timer1_Timer()
lbltimedate.Caption = FBUS.DateTime
lblsignal.Caption = FBUS.RfLevel
lblbatere.Caption = (FBUS.BatteryLevel / 4) * 100 & "%"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -