?? 股票盈虧計算器.sbp
字號:
?version
6.30
1
Form2
Form1
2
3
2
5
0
32
2
3
16
0
0
0
9
0
0
0
1
0
0
6
238
268
0
0
0
Sub designer
addform(Form2,"參數(shù)設置","",220,220,220)@
addform(Form1,"股票盈虧計算器","",245,245,245)@
addtextbox(form1,M5,155,150,45,22,"",192,192,192,255,0,0,True,True,False,9)@
addlabel(form1,Label32,113,153,45,20,"成本價",245,245,245,0,0,128,True,True,9)@
addlabel(form1,Label31,200,153,20,20,"元",245,245,245,0,0,160,True,True,9)@
addtextbox(form1,F2,155,65,45,22,"1.0",255,255,128,0,128,0,True,True,False,9)@
addlabel(form1,Label10,125,70,32,20,"稅率",245,245,245,0,0,160,True,True,9)@
addcombo(form1,f1,41,90,60,22,"",255,255,128,0,128,0,True,True,3,"1.5","2.0","3.0",9)@
addlabel(form1,Label29,50,5,150,25,"股票盈虧計算器",245,245,245,128,0,0,True,True,13)@
addradiobtn(form1,RB2,133,35,50,25,"深市",245,245,245,0,128,0,True,True,False,9)@
addradiobtn(form1,RB1,60,35,50,25,"滬市",245,245,245,0,128,0,True,True,True,9)@
addlabel(form1,Label28,70,248,160,20,"",245,245,245,0,128,0,True,True,9)@
addlabel(form1,Label27,210,95,20,25,"股",245,245,245,0,128,0,True,True,9)@
addtextbox(form1,M3,155,90,55,22,"1000",255,255,128,0,128,0,True,True,False,9)@
addlabel(form1,Label26,152,178,60,15,"收支合計",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label25,112,178,35,15,"稅費",245,245,245,0,0,160,True,True,9)@
addtextbox(form1,J23,154,220,58,22,"10000.00",192,192,192,0,0,0,True,True,False,9)@
addtextbox(form1,J21,41,220,58,22,"10000.00",192,192,192,0,0,0,True,True,False,9)@
addtextbox(form1,J22,105,220,45,22,"100.00",192,192,192,0,0,0,True,True,False,9)@
addtextbox(form1,J13,154,195,58,22,"10000.00",192,192,192,0,0,0,True,True,False,9)@
addtextbox(form1,J12,105,195,45,22,"100.00",192,192,192,0,0,0,True,True,False,9)@
addlabel(form1,Label22,125,95,32,25,"數(shù)量",245,245,245,0,0,160,True,True,9)@
addcombo(form1,F3,41,65,60,22,"",255,255,128,0,128,0,True,True,2,"單向","雙向",9)@
addlabel(form1,Label20,52,178,45,15,"買賣價",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label19,100,95,20,20,"‰",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label18,200,70,20,20,"‰",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label17,86,125,35,20,"元/股",245,245,245,0,128,0,True,True,9)@
addlabel(form1,Label16,200,125,35,20,"元/股",245,245,245,0,128,0,True,True,9)@
addlabel(form1,Label15,212,198,20,20,"元",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label14,212,223,20,20,"元",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label13,213,125,20,20,"元",245,245,245,0,0,160,True,True,9)@
addtextbox(form1,M4,40,150,60,22,"0.00",192,192,192,255,0,0,True,True,False,9)@
addtextbox(form1,M2,155,120,45,22,"0.00",255,255,128,0,128,0,True,True,False,9)@
addtextbox(form1,J11,41,195,58,22,"10000.00",192,192,192,0,0,0,True,True,False,9)@
addlabel(form1,Label12,10,153,35,20,"盈虧",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label11,10,223,32,20,"賣出",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label9,10,40,70,20,"交易所",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label8,125,125,32,20,"賣出",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label7,10,198,32,20,"買入",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label5,10,95,32,20,"費率",245,245,245,0,0,160,True,True,9)@
addtextbox(form1,M1,41,120,45,22,"0.00",255,255,128,0,128,0,True,True,False,9)@
addlabel(form1,Label3,10,125,32,18,"買入",245,245,245,0,0,160,True,True,9)@
addlabel(form1,Label30,10,65,35,25,"印花",245,245,245,0,0,160,True,True,9)@
addmenuitem(form1,menu1,"清空",True,False)@raddmenuitem(form1,Menu2,"退出",True,False)@
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
@EndOfDesignText@Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
Form1.Show
'Label28.Text ="程序編制:佘敏 2009年4月"
APP01
End Sub
Sub APP01
'Label28.Text ="程序編制:佘敏 2009年4月"
F1.Text ="1.5" '費率
F2.Text ="1.0" '稅率
F3.TEXT="單向" '計稅方式
M1.Text ="" '買價
M2.Text ="" '賣價
M3.Text=1000 '默認數(shù)量
APP01A
M1.Focus
End Sub
Sub APP01A
M4.Text =""
J11.Text=""
J12.Text=""
J13.Text=""
J21.Text=""
J22.Text=""
J23.Text=""
End Sub
Sub APP02
Dim A11,A12,A21,A22
If F1.text<>"" AND F2.text<>"" AND M1.Text<>"" AND M2.Text <>"" AND M3.Text<>"" Then
J11.Text=Round(M1.Text*M3.Text,2) '買賣價
J21.Text=Round(M2.Text*M3.Text,2) '買賣價
A11=J11.Text *(F1.Text/1000) '費率
A21=J21.Text *(F1.Text/1000) '費率
If A11<5 Then A11=5
If A21<5 Then A21=5
If F3.text="單向" Then
A12=0
A22=J21.Text *(F2.Text/1000) '稅率
Else
A12=J11.Text *(F2.Text/1000) '稅率
A22=J21.Text *(F2.Text/1000) '稅率
End If
If RB1.Checked=True Then
A11=A11+1 '過戶費
A21=A21+1
End If
J12.Text =Round(A11+A12,2)
J22.Text =Round(A21+A22,2)
J13.Text =Round(J11.Text +A11+A12,2)
J23.Text =Round(J21.Text -A21-A22,2)
M4.Text =Round(J23.Text -J13.Text ,2)
'Label28.Text ="程序編制:佘敏 2009年4月"
End If
End Sub
Sub B1_Click()
Form1.Close '結(jié)束
End Sub
Sub B2_Click()
APP01 '清空界面
M1.Focus
End Sub
Sub J11_gotfocus()
'光標移轉(zhuǎn)
M1.Focus
End Sub
Sub J12_gotfocus()
M1.Focus
End Sub
Sub J13_gotfocus()
M1.Focus
End Sub
Sub J21_gotfocus()
M1.Focus
End Sub
Sub J22_gotfocus()
M1.Focus
End Sub
Sub J23_gotfocus()
M1.Focus
End Sub
Sub M4_gotfocus()
If M1.Text<>"" AND M2.Text <>"" AND M3.Text<>"" Then
APP02 '計算
M5.Text=Round((J12.Text+J22.Text+1)/1000+M1.Text,3) '成本價
End If
'APP02 '獲得光標時執(zhí)行計算
'M1.Focus
End Sub
Sub M1_Lostfocus()
'APP02 '
If F1.text<>"" AND F2.text<>"" AND M1.Text<>"" AND M3.Text<>"" Then
J11.Text=Round(M1.Text*M3.Text,2) '買賣價
A11=J11.Text *(F1.Text/1000) '費率
If A11<5 Then A11=5
If F3.text="單向" Then
A12=0
Else
A12=J11.Text *(F2.Text/1000) '稅率
End If
If RB1.Checked=True Then
A11=A11+1 '過戶費
End If
J12.Text =Round(A11+A12,2)
J13.Text =Round(J11.Text +A11+A12,2)
End If
If M1.Text<>"" AND M3.Text<>"" Then
'APP02 '計算
M5.Text=Round((J12.Text+J22.Text+1)/1000+M1.Text,3) '成本價
End If
End Sub
Sub M2_Lostfocus()
If m2.Text<>"" Then
APP02 '
Else
M4.Text=""
J21.Text=""
J22.Text=""
J23.Text=""
End If
End Sub
Sub M3_Lostfocus()
APP02 '
End Sub
Sub F1_Lostfocus()
APP02 '
End Sub
Sub F2_Lostfocus()
APP02 '
End Sub
Sub RB1_CLICK()
APP02 '
End Sub
Sub RB2_CLICK()
APP02 '
End Sub
Sub menu2_Click
form1.Close
End Sub
Sub menu1_Click
APP01 '清空界面
M1.Focus
End Sub
Sub M5_GotFocus
M1.Focus
End Sub
Sub M4_KeyPress (key)
' If M1.Text<>"" AND M2.Text <>"" AND M3.Text<>"" Then
'APP02 '計算
' M2.Text=Round((J12.Text+J22.Text+1)/1000+M1.Text,3) '成本價
' End If
End Sub
Sub M4_LostFocus
End Sub?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -