📄 prevdemo.frm
字号:
.FillColor = Color
.FillStyle = vbFSSolid
.Box 2, 2, 64, 64
.ForeColor = &HFFFFFF
.FillColor = &HFFFFFF
For K = 1 To 4
.Box Choose(K, 2, 64, 2, 64), Choose(K, 2, 2, 64, 64), 2, 2
Next K
.ForeColor = Color
.FillColor = Color
For K = 1 To 4
.Arc Choose(K, 4, 64, 4, 64), Choose(K, 4, 4, 64, 64), 2, Choose(K, -90, -0.00001, -180, -270), Choose(K, -180, -90, -270, -360)
Next K
.ForeColor = &HFFFFFF
.FillColor = &HFFFFFF
V = (34 * Sqr(2) - 22) / Sqr(2)
For K = 1 To 5
X = Choose(K, 12, V, 34, 68 - V, 68 - 12)
Y = Choose(K, 34, V, 12, V, 34)
.Arc X, Y, 1
Next K
.ForeColor = &HFFFFFF
.FillColor = &HFFFFFF
For K = 1 To 3
.Arc 34, 34, 19.5, -120 * K + 50, -120 * K + 10
Next K
.Arc 34, 34, 16.5
.ForeColor = Color
.FillColor = Color
.Arc 34, 34, 15
For K = 1 To 3
.Arc 34, 34, 18, -120 * K + 45, -120 * K + 15
Next K
.ForeColor = &HFFFFFF
.FillColor = &HFFFFFF
.FontBold = True
For K = 1 To 9
.FontSize = 14
X = Choose(K, -0.1, -0.1, -0.1, 0, 0, 0, 0.1, 0.1, 0.1)
Y = Choose(K, -0.1, 0, 0.1, -0.1, 0, 0.1, -0.1, 0, 0.1)
.TextC 34.1 + X, 8.4 + Y, "断"
.TextVE 5 + X, 18.8 + Y, 9.2, "有功"
.TextVE 63.3 + X, 18.8 + Y, 9.2, "无功"
.TextC V + 0.6 + X, 15.2 + Y, "380V"
.TextC 68 - V - 0.5 + X, 15.2 + Y, "100V"
.TextC 12.3 + X, 30.7 + Y, "100V"
.TextC 68 - 12.2 + X, 30.7 + Y, "380V"
.FontSize = 24
.TextC 34 + X, 59 + Y, "电压量程选择"
Next K
.Box 4, 14.5, 6, 1
.Box 4, 14.5, 1, 4
.Box 4, 28, 1, 2.5
.Box 4, 30.5, 3, 1
.Box 64 - 6, 14.5, 6, 1
.Box 64 - 1, 14.5, 1, 4
.Box 64 - 1, 28, 1, 2.5
.Box 64 - 3, 30.5, 3, 1
Next J
Next I
.EndDoc
.Preview
End With
End Sub
Private Sub cmdPreview_Click()
Screen.MousePointer = 15
With Preview1
.Caption = "打印演示"
.NewDoc "封面、封底"
page1
page2
.EndDoc
.PaperSize = 9
.Orientation = 2
.Preview
End With
End Sub
Private Sub SetMP(ByVal MPNo As Integer)
Screen.MousePointer = MPNo
End Sub
Public Sub page1()
Dim I As Integer
With Preview1
SetMP 11
.CellSize 10, 10
.ScaleLeft = -15.45 * 10
.ScaleTop = 0
.ForeColor = &H8000&
.DrawWidth = 5
.Box 1, 1.5, 12.2, 18.1
.DrawWidth = 1
.Box 1.1, 1.6, 12, 17.9
.ForeColor = &O0&
.FontBold = True
.FontName = "宋体"
.FontSize = 20
For I = 1 To 16
str1 = Choose(I, "电力部江苏计量测试中心", "检 定 证 书", " 字 第 号", "计量器具名称", "型 号", "准确度 等 级", "制 造 厂", "出 厂 编 号", "送 检 单 位", "根据检定结果，准予该计量器具作", "使用", "主 管", "核验员", "检定员", "检定日期 年 月 日", "有效日期 年 月 日")
Select Case I
Case 1
X = 3.3
Y = 4.5
Fsize = 20
Case 2
X = 5
Y = 5.9
Fsize = 24
Case 3
X = 4.7
Y = 7.5
Fsize = 12
.LineU X + 0.5, Y, 1
.LineU X + 3.2, Y, 1.4
Case 11
X = 10.5
Y = 14.3
.LineU 3.5, Y, 7
Case 4 To 10
X = 3.5
Y = I * 0.8 + 5.6
Fsize = 12
If I <> 10 Then .LineU 6.4, Y, 5.7 Else .LineU 10.5, Y, 1.5
Case 12 To 14
X = 8.6
Y = I * 0.8 + 6
.LineU 10, Y, 2
Case Else
X = 3.5
Y = I * 0.8 + 6
End Select
.FontSize = Fsize
.TextL X, Y, str1
Next I
End With
End Sub
Public Sub page2()
With Preview1
.NewPage "封二封三"
.CellSize 10, 10
For J = 1 To 2
.ScaleTop = 0
.ScaleLeft = IIf(J = 1, 0, -153.5)
.ForeColor = &H0&
.FontBold = True
.FontSize = 14
.TextL 5.6, 1.2, "检 定 结 果"
.DrawWidth = 3
.Box 1.45, 1.7, 11.5, 16.2
.DrawWidth = 1
.LineH 1.4, 1.7 + 16.2 / 19, 11.5
.LineH 1.4, 1.7 + 16.2 / 19 * 2, 8.8
.LineV 1.4 + 11.5 / 2, 1.7, 16.2 / 19
For I = 3 To 18
If J = 1 Then
.LineH 1.4, I * 16.2 / 19 + 1.7, 11.5
Else
If I <> 18 And I <> 16 Then .LineH 1.4, I * 16.2 / 19 + 1.7, 11.5
End If
Next I
For I = 1 To 5
If I = 1 Or I = 3 Or I = 4 Then
If J = 1 Then
.LineV 8.8 / 5 * I + 1.4, 1.7 + 16.2 / 19 * 2, 16.2 - 16.2 / 19 - 16.2 / 19
Else
.LineV 8.8 / 5 * I + 1.4, 1.7 + 16.2 / 19 * 2, 16.2 - 16.2 / 19 * 9
End If
Else
If J = 1 Then
.LineV 8.8 / 5 * I + 1.4, 1.7 + 16.2 / 19, 16.2 - 16.2 / 19
Else
.LineV 8.8 / 5 * I + 1.4, 1.7 + 16.2 / 19, 16.2 - 16.2 / 19 * 8
End If
End If
Next I
.FontBold = False
.FontSize = 12
For I = 1 To 10
str1 = Choose(I, "型 号", "编 号", "量 程", "输 入 量", "相对误差(%)", "电压(V)", "电流(A)", "电压(V)", "电流(A)", "功率因素")
X = Choose(I, 3 - 0.6, 9.5 - 1.5, 3.3 - 0.8, 7.2 - 0.8, 12.5 - 0.35 - 1.7, 2.1 - 0.55, 4.9 - 0.6 - 1, 6.4 - 0.8 - 0.55, 8.1 - 0.8 - 0.5, 9.8 - 0.8 - 0.5)
Y = Choose(I, 2.2, 2.2, 3, 3, 3.5, 3.9, 3.9, 3.9, 3.9, 3.9)
.TextL X, Y, str1
Next I
Next J
For I = 1 To 4
X = Choose(I, 1.5, 5.9, 1.5, 5.9)
Y = Choose(I, 15.3, 15.3, 17, 17)
Hline = Choose(I, 2.7, 7, 2.7, 7)
.LineH X, Y, Hline
Next I
For I = 1 To 4
X = Choose(I, 4.2, 4.2 + 1.7, 5.9 + 2.4, 5.9 + 2.4 + 2.4)
.LineV X, 15.4 - 16.2 / 19 * 2, 16.2 / 19 * 5
Next I
.ScaleLeft = 0
.ScaleTop = 0
.CellSize 10, 10
.FontSize = 11
For I = 1 To 10
X = Choose(I, 2.1 + 15, 2 + 15, 4.7 + 15, 6.5 + 15, 8.9 + 15, 11.3 + 15, 2, 6.8, 15 + 3.6, 4 + 15)
Y = Choose(I, 13.1, 14, 14, 14, 14, 14, 18.3, 19.2, 18.3, 19.2)
str1 = Choose(I, "不平衡负载试验：U V I= A", "负载电流(Ib%)", "功率因素", "A相误差(%)", "B相误差(%)", "A相误差(%)", "标准偏差估计值S：", "S= % S=", "检定条件：温度 ℃ 湿度 %", "备注：下次送检请带此证书或复印件")
.TextL X, Y, str1
Next I
' .FontSize = 24
' .TextL 3, 18.2 + 1, "标准℃"
End With
End Sub
Private Sub cmdRawData_Click()
With Preview1
.NewDoc "原始记录"
.CellSize 10, 10
.ShowGrid
.ScaleLeft = 0
.ScaleTop = 0
.FontBold = True
.FontSize = 20
.TextE 9.9, 1.7, 10, "溧阳供电局电能表检验原始记录"
.FontBold = False
.FontSize = 12
.TextL 21.4, 2.8, "第 页"
.DrawWidth = 3
.Box (29.7 - 19.5) / 2, (21 - 16.7) / 2 + 1.2, 19.5, 16.7
.DrawWidth = 1
For I = 1 To 3
X = 8.7 + (29.7 - 19.5) / 2
Y = Choose(I, (21 - 16.7) / 2 + 1.2 + I * 0.7, (21 - 16.7) / 2 + 1.2 + I * 0.7, (21 - 16.7) / 2 + 1.2 + I * 0.7)
Hline = 7.3
.LineH X, Y, Hline
Next I
For I = 1 To 20
Y = Choose(I, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7, (21 - 16.7) / 2 + 3.2 + I * 0.7)
Hline = 19.5
X = (29.7 - 19.5) / 2
.LineH X, Y, Hline
Next I
For I = 1 To 13
Y = (21 - 16.7) / 2 + 1.2
X = Choose(I, (29.7 - 19.5) / 2 + 0.8, (29.7 - 19.5) / 2 + 2, (29.7 - 19.5) / 2 + 3.1, (29.7 - 19.5) / 2 + 4.5, (29.7 - 19.5) / 2 + 5.9, (29.7 - 19.5) / 2 + 7, (29.7 - 19.5) / 2 + 7.9, (29.7 - 19.5) / 2 + 8.7, (29.7 - 19.5) / 2 + 16, (29.7 - 19.5) / 2 + 16.55, (29.7 - 19.5) / 2 + 17.1, (29.7 - 19.5) / 2 + 18, (29.7 - 19.5) / 2 + 18.5)
Hline = 16.7
.LineV X, Y, Hline
Next
For I = 1 To 6
X = Choose(I, (29.7 - 19.5) / 2 + 9.55, (29.7 - 19.5) / 2 + 10.7, (29.7 - 19.5) / 2 + 11.8, (29.7 - 19.5) / 2 + 12.9, 13.8 + (29.7 - 19.5) / 2, (29.7 - 19.5) / 2 + 14.9)
Y = (21 - 16.7) / 2 + 1.2 + 16.7 / 23 * 2
If I = 5 Then
Y = (21 - 16.7) / 2 + 1.2 + 16.7 / 23
Hline = 16.7 / 23 * 22
End If
Hline = 16.7 / 23 * 21
.LineV X, Y, Hline
Next I
.FontSize = 9
For I = 1 To 10
X = Choose(I, (29.7 - 19.5) / 2 + 0.1, (29.7 - 19.5) / 2 + 0.95, (29.7 - 19.5) / 2 + 2.1, (29.7 - 19.5) / 2 + 3.2, (29.7 - 19.5) / 2 + 4.7, (29.7 - 19.5) / 2 + 6.1, (29.7 - 19.5) / 2 + 7.1, (29.7 - 19.5) / 2 + 8, (29.7 - 19.5) / 2 + 10.8, (29.7 - 19.5) / 2 + 18.7)
Y = (21 - 16.7) / 2 + 1.2 + 1.1
If I = 9 Then Y = (21 - 16.7) / 2 + 1.2 + 0.4
str1 = Choose(I, "序号", "局编号", "制造厂", "出厂编号", "型 号", "电流", "起动", "潜动", "基 本 误 差 测 定", "备注")
.TextL X, Y, str1
Next I
For I = 1 To 5
X = Choose(I, (29.7 - 19.5) / 2 + 16.1, (29.7 - 19.5) / 2 + 16.6, (29.7 - 19.5) / 2 + 18, (29.7 - 19.5) / 2 + 17.1, (29.7 - 19.5) / 2 + 17.5)
Y = (21 - 16.7) / 2 + 1.2 + 0.7
str1 = Choose(I, "温 度", "湿 度", "校验员", "校 日", "验 期")
.TextVE X, Y, 1.5, str1
Next I
'.TextVE 6, 2.9, 0, "弱小民族"
.EndDoc
.Preview
End With
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -