?? frmoutput.frm
字號:
MSFlexGrid1.Visible = False
MSFlexGrid1.Clear
Picture1.Visible = True
Me.Picture1.Cls
objBackColor = Me.Picture1.BackColor
Call plotg_main(Me.Picture1)
''繪制面板
pnote_y = 6900 * formbl_y: grnote_name$(1) = "銷售收入": grnote_name$(2) = "銷售稅金": grnote_name$(3) = "成本費用": grnote_name$(4) = "利潤總額":
For i = 1 To 4
AX = (2900 + (i - 1) * 1500) * formbl_x
AY = pnote_y
Call post(AX, AY, Pwidth(i), Pcolor(i), Pstyle(i), Me.Picture1)
Me.Picture1.FontName = "Arial": Me.Picture1.FontSize = grnote_fontsize * formbl_x * 1.1
Me.Picture1.CurrentX = (3100 + (i - 1) * 1500) * formbl_x
Me.Picture1.CurrentY = pnote_y - Me.TextHeight(grnote_name$(i)) / 2 '返回字符串高度
Me.Picture1.Print grnote_name$(i)
Next i
''將數據倒入網格
MSFlexGrid1.FormatString = "^時間|^銷售收入|^銷售稅金|^成本費用|^利潤總額"
MSFlexGrid1.Rows = VarPingJiaQi + 1: MSFlexGrid1.Cols = 5
MSFlexGrid1.FixedCols = 0: MSFlexGrid1.FixedRows = 1
MSFlexGrid1.RowHeightMin = 600:
For i = 0 To 4
MSFlexGrid1.ColAlignment(i) = 4: MSFlexGrid1.ColWidth(i) = 1400
Next i
For i = 1 To VarPingJiaQi
MSFlexGrid1.TextMatrix(i, 0) = i: MSFlexGrid1.TextMatrix(i, 1) = Format$(VarXiaoShouShouRu(i), "0.000")
MSFlexGrid1.TextMatrix(i, 2) = Format$(VarZongShui(i), "0.000"): MSFlexGrid1.TextMatrix(i, 3) = Format$(VarZongChengBenFei(i), "0.000")
MSFlexGrid1.TextMatrix(i, 4) = Format$(VarLiRunZongE(i), "0.000")
Next i
symbol1 = 12
' SavePicture Picture1.Image, "c:\1.bmp"
End Sub
Public Sub zeiyouleizengyou() '年增油圖
Dim sumzengyou(1 To 200) As Double
Dim summm As Double
Dim i As Integer
Dim xmax, ymax, zmax As Double
summm = 0
xmax = VarPingJiaQi
For i = 1 To VarPingJiaQi
summm = summm + VarShengCheng(i, 2)
sumzengyou(i) = summm
Next i
yaxis_num = 2
ReDim yaxis_grnum(yaxis_num), yaxis_type(yaxis_num)
ReDim yaxis_min(yaxis_num), yaxis_max(yaxis_num), yaxis_interval(yaxis_num)
ReDim yaxis_name$(yaxis_num, 3), yaxis_format$(yaxis_num)
Call init_data
xaxis_name$ = "時間（年）": xaxis_format$ = "#0":
xaxis_min = 1#: xaxis_max = VarPingJiaQi + 1: xaxis_interval = 1
axis_fontsize = 8: axisname_fontsize = 9
yaxis_grnum(1) = 1: yaxis_grnum(2) = 1: yaxis_name$(1, 1) = "年增油": yaxis_name$(1, 2) = "(萬噸)": yaxis_format$(1) = "#0": yaxis_format$(2) = "#0": yaxis_name$(2, 1) = "累增油": yaxis_name$(2, 2) = "(萬噸)"
For i = 1 To 2
grnote_visible(i) = 0
grpoint(i) = 0
Next i
For i = 1 To 2
Lstyle(i) = 6: Pwidth(i) = 100: Pstyle(i) = i: Lwidth(i) = 1 ''修改部分
Next i
'Pstyle(3) = 5: Pstyle(4) = 6:
Pcolor(1) = QBColor(12): Pcolor(2) = QBColor(9): Pcolor(3) = QBColor(12): Pcolor(4) = QBColor(9)
Lcolor(1) = QBColor(12): Lcolor(2) = QBColor(9): Lcolor(3) = QBColor(3): Lcolor(4) = QBColor(4)
'yaxis_min(1) = yaxis(2): yaxis_max(1) = yaxis(2)
For i = 1 To VarPingJiaQi
grpoint(1) = grpoint(1) + 1: grpoint(2) = grpoint(2) + 1:
grdatx(1, grpoint(1)) = i: grdatx(2, grpoint(2)) = i:
grdaty(1, grpoint(1)) = VarShengCheng(i, 2): grdaty(2, grpoint(2)) = sumzengyou(i):
Next i
'yaxis_min(1) = Int(yaxis_min(1)) + Int(yaxis_min(1)) / 10: yaxis_max(1) = Int(yaxis_max(1)) + Int(yaxis_max(1)) / 10: yaxis_interval(1) = (yaxis_max(1) - yaxis_min(1)) / 10
'drawstep = 4000
formbl_x = 1: formbl_y = 1
px1 = 1200 * formbl_x: py1 = 700# * formbl_y: px2 = 9700 * formbl_x: py2 = 6100 * formbl_y
MSFlexGrid1.Visible = False
Picture1.Visible = True
Me.Picture1.Cls
objBackColor = Me.Picture1.BackColor
gr_type(1) = 2
Call plotg_main(Me.Picture1)
''繪制面板
pnote_y = 6900 * formbl_y: grnote_name$(1) = "年增油量": grnote_name$(2) = "累增油量": grnote_name$(3) = "成本費用": grnote_name$(4) = "利潤總額":
For i = 1 To 2
AX = (3700 + (i - 1) * 2500) * formbl_x
AY = pnote_y
Call post(AX, AY, Pwidth(i), Pcolor(i), Pstyle(i), Me.Picture1)
Me.Picture1.FontName = "Arial": Me.Picture1.FontSize = grnote_fontsize * formbl_x * 1.15
Me.Picture1.CurrentX = (3900 + (i - 1) * 2500) * formbl_x
Me.Picture1.CurrentY = pnote_y - Me.TextHeight(grnote_name$(i)) / 2 '返回字符串高度
Me.Picture1.Print grnote_name$(i)
Next i
''將數據倒入網格
MSFlexGrid1.Clear
MSFlexGrid1.FormatString = "^時間|^年增油量|^累增油量"
MSFlexGrid1.Rows = VarPingJiaQi + 1: MSFlexGrid1.Cols = 3
MSFlexGrid1.FixedCols = 0: MSFlexGrid1.FixedRows = 1
MSFlexGrid1.RowHeightMin = 600:
For i = 0 To 2
MSFlexGrid1.ColAlignment(i) = 4: MSFlexGrid1.ColWidth(i) = 1600
Next i
For i = 1 To VarPingJiaQi
MSFlexGrid1.TextMatrix(i, 0) = i: MSFlexGrid1.TextMatrix(i, 1) = Format$(grdaty(1, i), "0.000")
MSFlexGrid1.TextMatrix(i, 2) = Format$(grdaty(2, i), "0.000"): 'MSFlexGrid1.TextMatrix(i, 3) = Format$(grdaty(3, i), "0.000")
' MSFlexGrid1.TextMatrix(i, 4) = Format$(VarLiRunZongE(i), "0.000")
Next i
symbol1 = 15
End Sub
Public Sub ZwXingKuiFengXiTuNew() '"盈虧分析圖"NEW Picture
Dim VarYouCLiang(1 To 1000), sum As Single
Dim VarKeBianCBen As Single
Dim VarZongXiaoShouShouRu As Single '總銷售收
yaxis_num = 1
ReDim yaxis_grnum(yaxis_num), yaxis_type(yaxis_num)
ReDim yaxis_min(yaxis_num), yaxis_max(yaxis_num), yaxis_interval(yaxis_num)
ReDim yaxis_name$(yaxis_num, 3), yaxis_format$(yaxis_num)
Call init_data
xaxis_name$ = "時間（年）": xaxis_format$ = "#0":
xaxis_min = 1#: xaxis_max = VarPingJiaQi + 1: xaxis_interval = 1
axis_fontsize = 8: axisname_fontsize = 9
yaxis_grnum(1) = 3: yaxis_name$(1, 1) = "金 額 ": yaxis_name$(1, 2) = "(萬元) ": yaxis_format$(1) = "#0"
For i = 1 To 3
grnote_visible(i) = 0
grpoint(i) = 0
Next i
For i = 1 To 3
Lstyle(i) = 2: Pwidth(i) = 100: Pstyle(i) = i: Lwidth(i) = 1 ''修改部分
Next i
'Pstyle(3) = 5: Pstyle(4) = 6:
Pcolor(1) = QBColor(12): Pcolor(2) = QBColor(9): Pcolor(3) = QBColor(12)
Lcolor(1) = QBColor(0): Lcolor(2) = QBColor(3): Lcolor(3) = QBColor(3)
'yaxis_min(1) = 10000000000#: yaxis_max(1) = -1000000000000#
For j = 1 To VarPingJiaQi
sum = sum + VarShengCheng(j, 2)
VarYouCLiang(j) = sum
Next j
For i = 1 To VarPingJiaQi
grpoint(1) = grpoint(1) + 1: grpoint(2) = grpoint(2) + 1: grpoint(3) = grpoint(3) + 1
grdatx(1, grpoint(1)) = i: grdatx(2, grpoint(2)) = i: grdatx(3, grpoint(3)) = i
VarKeBianCBen = VarKeBianCBen + VarXiaoShouShouRu(i) * VarQiTa(29) / 100 + VarXiaoShouFei(i) '可變成本
VarKeBianCBen = VarKeBianCBen + VarChuLiangFei(i) * VarChuLiangFeiBiLi / 100 + VarWeiHuFei(i) * VarWeiHuFeiBiLi / 100 '可變成本
'在上面一行中 可變成本里 已經 有儲量使用費*比例 和 油田維護費*比例
VarKeBianCBen = VarKeBianCBen + VarDongliFei(i) '可變成本
VarKeBianCBen = VarKeBianCBen + VarRanLiaoFei(i) + VarYouQiFei(i) '可變成本
VarKeBianCBen = VarKeBianCBen + VarQingShuiFei(i) + VarWuShuiFei(i) + Varyaojifei(i) '可變成本
VarZongXiaoShouShouRu = VarZongXiaoShouShouRu + VarXiaoShouShouRu(i) '銷售收入
grdaty(1, grpoint(1)) = VarKeBianCBen + VarShuLiang(16): grdaty(2, grpoint(2)) = VarShuLiang(16): grdaty(3, grpoint(3)) = VarZongXiaoShouShouRu: grdaty(4, i) = VarLiRunZongE(i)
Next i
'yaxis_min(1) = Int(yaxis_min(1)) + Int(yaxis_min(1)) / 10: yaxis_max(1) = Int(yaxis_max(1)) + Int(yaxis_max(1)) / 10: yaxis_interval(1) = (yaxis_max(1) - yaxis_min(1)) / 10
'drawstep = 4000
formbl_x = 1: formbl_y = 1
px1 = 1900 * formbl_x: py1 = 700# * formbl_y: px2 = 10400 * formbl_x: py2 = 6100 * formbl_y
MSFlexGrid1.Visible = False
Picture1.Visible = True
Me.Picture1.Cls
objBackColor = Me.Picture1.BackColor
Call plotg_main(Me.Picture1)
'Call plotg_tjzf(Me.Picture1)
''繪制面板
pnote_y = 6900 * formbl_y: grnote_name$(1) = "累積成本費用": grnote_name$(2) = "固定成本": grnote_name$(3) = "累積銷售收入": grnote_name$(4) = "利潤總額":
For i = 1 To 3
AX = (2900 + (i - 1) * 2500) * formbl_x
AY = pnote_y
Call post(AX, AY, Pwidth(i), Pcolor(i), Pstyle(i), Me.Picture1)
Me.Picture1.FontName = "Arial": Me.Picture1.FontSize = grnote_fontsize * formbl_x * 1.1
Me.Picture1.CurrentX = (3100 + (i - 1) * 2500) * formbl_x
Me.Picture1.CurrentY = pnote_y - Me.TextHeight(grnote_name$(i)) / 2 '返回字符串高度
Me.Picture1.Print grnote_name$(i)
Next i
''將數據倒入網格
MSFlexGrid1.Clear
MSFlexGrid1.FormatString = "^時間|^累積成本費用|^固定成本|^累積銷售收入"
MSFlexGrid1.Rows = VarPingJiaQi + 1: MSFlexGrid1.Cols = 4
MSFlexGrid1.FixedCols = 0: MSFlexGrid1.FixedRows = 1
MSFlexGrid1.RowHeightMin = 600:
For i = 0 To 3
MSFlexGrid1.ColAlignment(i) = 4: MSFlexGrid1.ColWidth(i) = 1600
Next i
For i = 1 To VarPingJiaQi
MSFlexGrid1.TextMatrix(i, 0) = i: MSFlexGrid1.TextMatrix(i, 1) = Format$(grdaty(1, i), "0.000")
MSFlexGrid1.TextMatrix(i, 2) = Format$(grdaty(2, i), "0.000"): MSFlexGrid1.TextMatrix(i, 3) = Format$(grdaty(3, i), "0.000")
' MSFlexGrid1.TextMatrix(i, 4) = Format$(VarLiRunZongE(i), "0.000")
Next i
symbol1 = 13
End Sub
Public Sub Zwoutjingxianzhichart() '凈現值圖
yaxis_num = 1
ReDim yaxis_grnum(yaxis_num), yaxis_type(yaxis_num)
ReDim yaxis_min(yaxis_num), yaxis_max(yaxis_num), yaxis_interval(yaxis_num)
ReDim yaxis_name$(yaxis_num, 3), yaxis_format$(yaxis_num)
Call init_data
xaxis_name$ = "時間（年）": xaxis_format$ = "#0":
xaxis_min = 1#: xaxis_max = VarPingJiaQi + 1: xaxis_interval = 1
axis_fontsize = 8: axisname_fontsize = 9
yaxis_grnum(1) = 2
yaxis_name$(1, 1) = "凈現值 ": yaxis_name$(1, 2) = "(萬元) ": yaxis_format$(1) = "#0"
For i = 1 To 2
grnote_visible(i) = 0
grpoint(i) = 0
Next i
For i = 1 To 2
Lstyle(i) = 0: Pwidth(i) = 100: Pstyle(i) = i + 1: Lwidth(i) = 1 ''修改部分
Next i
Pstyle(3) = 3: Pstyle(4) = 4: Pcolor(1) = QBColor(12): Pcolor(2) = QBColor(12)
Lcolor(1) = QBColor(12): Lcolor(2) = QBColor(3)
'yaxis_min(1) = VarShuiHouLeiJiJing(1): yaxis_max(1) = VarShuiHouLeiJiJing(1)
For i = 1 To VarPingJiaQi
grpoint(1) = grpoint(1) + 1: grpoint(2) = grpoint(2) + 1
grdatx(1, grpoint(1)) = i: grdatx(2, grpoint(2)) = i '第n-1條曲線，第n-1個x數據
grdaty(1, grpoint(2)) = VarShuiHouJing(i)
grdaty(2, i) = VarShuiHouLeiJiJing(i)
Next i
'yaxis_min(1) = Int(yaxis_min(1)) + Int(yaxis_min(1)) / 10: yaxis_max(1) = Int(yaxis_max(1)) + Int(yaxis_max(1)) / 10: yaxis_interval(1) = (yaxis_max(1) - yaxis_min(1)) / 10
'drawstep = 4000
formbl_x = 1#: formbl_y = 1#
px1 = 1900 * formbl_x: py1 = 700# * formbl_y: px2 = 10400 * formbl_x: py2 = 6100 * formbl_y
MSFlexGrid1.Visible = False
Picture1.Visible = True
Me.Picture1.Cls
objBackColor = Me.Picture1.BackColor
gr_type(1) = 2
Call plotg_main(Me.Picture1)
''繪制面板
pnote_y = 6900 * formbl_y: grnote_name$(1) = "年凈現值": grnote_name$(2) = "累積凈現值"
For i = 1 To 2
AX = (3700 + (i - 1) * 3000) * formbl_x
AY = pnote_y
Call post(AX, AY, Pwidth(i), Pcolor(i), Pstyle(i), Me.Picture1)
Me.Picture1.FontName = "Arial": Me.Picture1.FontSize = grnote_fontsize * formbl_x * 1.15
Me.Picture1.CurrentX = (3900 + (i - 1) * 3000) * formbl_x
Me.Picture1.CurrentY = pnote_y - Me.TextHeight(grnote_name$(i)) / 2 '返回字符串高度
Me.Picture1.Print grnote_name$(i)
Next i
''將數據倒入網格
MSFlexGrid1.Clear
MSFlexGrid1.FormatString = "^時間|^年凈現值|^累積凈現值"
MSFlexGrid1.Rows = VarPingJiaQi + 1: MSFlexGrid1.Cols = 3
MSFlexGrid1.FixedCols = 0: MSFlexGrid1.FixedRows = 1
MSFlexGrid1.RowHeightMin = 600:
For i = 0 To 2
MSFlexGrid1.ColAlignment(i) = 4: MSFlexGrid1.ColWidth(i) = 1600
Next i
For i = 1 To VarPingJiaQi
MSFlexGrid1.TextMatrix(i, 0) = i: MSFlexGrid1.TextMatrix(i, 1) = Format$(grdaty(1, i), "0.000")
MSFlexGrid1.TextMatrix(i, 2) = Format$(grdaty(2, i), "0.000"): 'MSFlexGrid1.TextMatrix(i, 3) = Format$(grdaty(3, i), "0.000")
' MSFlexGrid1.TextMatrix(i, 4) = Format$(VarLiRunZongE(i), "0.000")
Next i
symbol1 = 14
End Sub
Public Sub ZwJingXianZhiMGanTu() '' "凈現值敏感圖"
yaxis_num = 1
ReDim yaxis_grnum(yaxis_num), yaxis_type(yaxis_num)
ReDim yaxis_min(yaxis_num), yaxis_max(yaxis_num), yaxis_interval(yaxis_num)
ReDim yaxis_name$(yaxis_num, 3), yaxis_format$(yaxis_num)
Call init_data
xaxis_name$ = "變化率（％）": xaxis_format$ = "#0":
xaxis_min = -25#: xaxis_max = 25: xaxis_interval = 5
axis_fontsize = 8: axisname_fontsize = 9
yaxis_grnum(1) = 4: yaxis_name$(1, 1) = "凈現值 ": yaxis_name$(1, 2) = "(萬元)": yaxis_format$(1) = "#0"
For i = 1 To 4
grnote_visible(i) = 0
grpoint(i) = 0
Next i
For i = 1 To 4
Lstyle(i) = 4: Pwidth(i) = 100: Pstyle(i) = i - 1: Lwidth(i) = 1 ''修改部分
Next i
'Pstyle(3) = 5: Pstyle(4) = 6:
Pcolor(1) = QBColor(12): Pcolor(2) = QBColor(9): Pcolor(3) = QBColor(11): Pcolor(4) = QBColor(3)
Lcolor(1) = QBColor(0): Lcolor(2) = QBColor(3): Lcolor(3) = QBColor(3): Lcolor(4) = QBColor(4)
'yaxis_min(1) = 10000000000#: yaxis_max(1) = -1000000000000#
For i = 1 To 9
grpoint(1) = grpoint(1) + 1: grpoint(2) = grpoint(2) + 1: grpoint(3) = grpoint(3) + 1: grpoint(4) = grpoint(4) + 1:
grdatx(1, grpoint(1)) = -20 + (i - 1) * 5: grdatx(2, grpoint(2)) = -20 + (i - 1) * 5: grdatx(3, grpoint(3)) = -20 + (i - 1) * 5: grdatx(4, grpoint(4)) = -20 + (i - 1) * 5
grdaty(1, grpoint(1)) = VarZwMInGan(2, i): grdaty(2, grpoint(2)) = VarZwMInGan(4, i): grdaty(3, grpoint(3)) = VarZwMInGan(6, i): grdaty(4, i) = VarZwMInGan(8, i)
Next i
' yaxis_min(1) = Int(yaxis_min(1)) - Int(yaxis_min(1)) / 10: yaxis_max(1) = Int(yaxis_max(1)) + Int(yaxis_max(1)) / 10: yaxis_interval(1) = (yaxis_max(1) - yaxis_min(1)) / 10
'drawstep = 4000
formbl_x = 1: formbl_y = 1
px1 = 1900 * formbl_x: py1 = 700# * formbl_y: px2 = 10400 * formbl_x: py2 = 6100 * formbl_y
MSFlexGrid1.Visible = False
Picture1.Visible = True
Me.Picture1.Cls
objBackColor = Me.Picture1.BackColor
Call plotg_main(Me.Picture1)
''繪制面板
pnote_y = 6900 * formbl_y: grnote_name$(1) = "油 價": grnote_name$(2) = "增產油量": grnote_name$(3) = "化學劑量": grnote_name$(4) = "增量投資":
For i = 1 To 4
AX = (2900 + (i - 1) * 1500) * formbl_x
AY = pnote_y
Call post(AX, AY, Pwidth(i), Pcolor(i), Pstyle(i), Me.Picture1)
Me.Picture1.FontName = "Arial": Me.Picture1.FontSize = grnote_fontsize * formbl_x * 1.15
Me.Picture1.CurrentX = (3100 + (i - 1) * 1500) * formbl_x
Me.Picture1.CurrentY = pnote_y - Me.TextHeight(grnote_name$(i)) / 2 '返回字符串高度
Me.Picture1.Print grnote_name$(i)
Next i
''將數據倒入網格
MSFlexGrid1.Clear
MSFlexGrid1.FormatString = "^變化率（％）|^油 價|^增產油量|^化學劑量|^增量投資"
MSFlexGrid1.Rows = VarPingJiaQi + 1: MSFlexGrid1.Cols = 5
MSFlexGrid1.FixedCols = 0: MSFlexGrid1.FixedRows = 1
MSFlexGrid1.RowHeightMin = 600:
For i = 0 To 4
MSFlexGrid1.ColAlignment(i) = 4: MSFlexGrid1.ColWidth(i) = 1600
Next i
For i = 1 To VarPingJiaQi
MSFlexGrid1.TextMatrix(i, 0) = -20 + 5 * (i - 1): MSFlexGrid1.TextMatrix(i, 1) = Format$(grdaty(1, i), "0.000")
MSFlexGrid1.TextMatrix(i, 2) = Format$(grdaty(2, i), "0.000"): MSFlexGrid1.TextMatrix(i, 3) = Format$(grdaty(3, i), "0.000"): MSFlexGrid1.TextMatrix(i, 4) = Format$(grdaty(4, i), "0.000")
' MSFlexGrid1.TextMatrix(i, 4) = Format$(VarLiRunZongE(i), "0.000")
Next i
symbol1 = 16
End Sub
Public Sub shouyilvtu() '' "收益率圖"
yaxis_num = 1
ReDim yaxis_grnum(yaxis_num), yaxis_type(yaxis_num)
ReDim yaxis_min(yaxis_num), yaxis_max(yaxis_num), yaxis_interval(yaxis_num)
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -