📄 股票盈亏计算器.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,"参数设置","",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,"数量",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 '默认数量
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 '结束
End Sub
Sub B2_Click()
APP01 '清空界面
M1.Focus
End Sub
Sub J11_gotfocus()
'光标移转
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 '获得光标时执行计算
'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 + -