📄 wfj.frm
字号:
VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "actskin4.ocx"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "排队理论演示系统(张启文)"
ClientHeight = 4515
ClientLeft = 45
ClientTop = 435
ClientWidth = 7035
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4515
ScaleWidth = 7035
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Height = 4395
Left = 120
TabIndex = 0
Top = 60
Width = 6855
Begin VB.Frame Frame2
Height = 4155
Left = 120
TabIndex = 1
Top = 120
Width = 1695
Begin VB.CommandButton Command1
Caption = "【M|M|1|0】"
Height = 255
Index = 0
Left = 195
TabIndex = 2
Top = 360
Width = 1275
End
Begin VB.CommandButton Command1
Caption = "退出系统"
Height = 255
Index = 7
Left = 180
TabIndex = 9
Top = 3540
Width = 1275
End
Begin VB.CommandButton Command1
Caption = "排队系统原理"
Height = 255
Index = 6
Left = 195
TabIndex = 8
Top = 3090
Width = 1275
End
Begin VB.CommandButton Command1
Caption = "【M|M|n|m】"
Height = 255
Index = 5
Left = 195
TabIndex = 7
Top = 2625
Width = 1275
End
Begin VB.CommandButton Command1
Caption = "【M|M|n】"
Height = 255
Index = 4
Left = 195
TabIndex = 6
Top = 2175
Width = 1275
End
Begin VB.CommandButton Command1
Caption = "【M|M|1】"
Height = 255
Index = 3
Left = 195
TabIndex = 5
Top = 1725
Width = 1275
End
Begin VB.CommandButton Command1
Caption = "【M|M|1|m】"
Height = 255
Index = 2
Left = 195
TabIndex = 4
Top = 1275
Width = 1275
End
Begin VB.CommandButton Command1
Caption = "【M|M|n|0】"
Height = 255
Index = 1
Left = 195
TabIndex = 3
Top = 840
Width = 1275
End
End
Begin VB.Frame frm2
Height = 4155
Left = 1920
TabIndex = 45
Top = 120
Width = 4755
Begin VB.Timer Timer1
Left = 0
Top = 960
End
Begin VB.Frame Frame9
Caption = "【M|M|1|m】输出区"
Height = 1935
Left = 180
TabIndex = 55
Top = 2040
Width = 4395
Begin VB.TextBox txtDengHua2
BackColor = &H0080FF80&
Height = 285
Left = 1800
TabIndex = 70
Text = "0.0"
ToolTipText = "系统内排队等候所花费时间的平均值"
Top = 1500
Width = 2415
End
Begin VB.TextBox txtHuaPing2
BackColor = &H0080FF80&
Height = 270
Left = 3420
TabIndex = 68
Text = "0.0"
ToolTipText = "系统内完成服务所花费的时间的平均值"
Top = 1140
Width = 795
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel21
Height = 255
Left = 2280
OleObjectBlob = "wfj.frx":0000
TabIndex = 67
Top = 780
Width = 1155
End
Begin VB.TextBox txtDengPing2
BackColor = &H0080FF80&
Height = 270
Left = 3420
TabIndex = 66
Text = "0.0"
ToolTipText = "系统内排队等候顾客的平均值"
Top = 780
Width = 795
End
Begin VB.TextBox txtXiaoGai2
BackColor = &H0080FF80&
Height = 270
Left = 1440
TabIndex = 60
Text = "1.0"
ToolTipText = "系统的消失概率P"
Top = 1140
Width = 675
End
Begin VB.TextBox txtJue2
BackColor = &H0080FF80&
Height = 270
Left = 1440
TabIndex = 59
Text = "0.0"
ToolTipText = "系统的绝对通过能力"
Top = 780
Width = 675
End
Begin VB.TextBox txtXiang2
BackColor = &H0080FF80&
Height = 270
Left = 1440
TabIndex = 58
Text = "0.0"
ToolTipText = "系统的相对通过能力"
Top = 420
Width = 675
End
Begin VB.TextBox txtGuPing2
BackColor = &H0080FF80&
Height = 270
Left = 3420
TabIndex = 56
Text = "0.0"
ToolTipText = "系统内待服务顾客的平均数"
Top = 420
Width = 795
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel16
Height = 255
Left = 2280
OleObjectBlob = "wfj.frx":006E
TabIndex = 57
Top = 420
Width = 1335
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel17
Height = 315
Left = 120
OleObjectBlob = "wfj.frx":00DA
TabIndex = 61
Top = 420
Width = 1335
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel18
Height = 195
Left = 120
OleObjectBlob = "wfj.frx":0148
TabIndex = 62
Top = 780
Width = 1575
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel19
Height = 195
Left = 120
OleObjectBlob = "wfj.frx":01B6
TabIndex = 63
Top = 1140
Width = 1515
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel23
Height = 255
Left = 120
OleObjectBlob = "wfj.frx":0220
TabIndex = 71
Top = 1500
Width = 1755
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel22
Height = 255
Left = 2280
OleObjectBlob = "wfj.frx":0292
TabIndex = 69
Top = 1140
Width = 1335
End
End
Begin VB.Frame Frame8
Caption = "【M|M|1|m】输入区"
Height = 1755
Left = 180
TabIndex = 46
Top = 180
Width = 4395
Begin VB.TextBox txtDuiChang2
BackColor = &H0080FF80&
Height = 285
Left = 3540
TabIndex = 65
Text = "0"
Top = 960
Width = 735
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel20
Height = 195
Left = 2520
OleObjectBlob = "wfj.frx":02FE
TabIndex = 64
Top = 960
Width = 975
End
Begin VB.CommandButton Reset2
Caption = "重置"
Height = 255
Left = 2400
TabIndex = 52
Top = 1380
Width = 915
End
Begin VB.CommandButton Cal2
Caption = "计算"
Height = 255
Left = 780
TabIndex = 51
Top = 1380
Width = 915
End
Begin VB.TextBox txtFuWu2
BackColor = &H0080FF80&
Height = 255
Left = 3540
TabIndex = 50
Text = "0.0"
Top = 540
Width = 735
End
Begin VB.TextBox txtDaoDa2
BackColor = &H0080FF80&
Height = 255
Left = 1680
TabIndex = 49
Text = "0.0"
Top = 540
Width = 735
End
Begin VB.TextBox txtFuShu2
BackColor = &H0080FF80&
Enabled = 0 'False
ForeColor = &H00C00000&
Height = 270
Left = 1680
TabIndex = 47
Text = "1"
Top = 960
Width = 735
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel13
Height = 195
Left = 240
OleObjectBlob = "wfj.frx":0368
TabIndex = 48
Top = 960
Width = 1395
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel14
Height = 255
Left = 240
OleObjectBlob = "wfj.frx":03D4
TabIndex = 53
Top = 540
Width = 1335
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel15
Height = 255
Left = 2460
OleObjectBlob = "wfj.frx":0448
TabIndex = 54
Top = 540
Width = 1515
End
End
End
Begin VB.Frame Frm1
Height = 4155
Left = 1920
TabIndex = 25
Top = 120
Width = 4755
Begin VB.Frame Frame7
Caption = "【M|M|n|0】输入区"
Height = 1755
Left = 180
TabIndex = 33
Top = 180
Width = 4395
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -