VB程序.docx
- 文档编号:24004241
- 上传时间:2023-05-23
- 格式:DOCX
- 页数:8
- 大小:14.88KB
VB程序.docx
《VB程序.docx》由会员分享,可在线阅读,更多相关《VB程序.docx(8页珍藏版)》请在冰豆网上搜索。
VB程序
PrivateSub保存_Click()
Dima,str(20)AsString
DimbAsString
Picture1.Cls
Picture2.Cls
CommonDialog1.ShowSave
OpenCommonDialog1.FileNameForOutputAs#1
Print#1,Text1.Text
EndSub
PrivateSub打开dxf文档_Click()
Dima,str(20)AsString
DimbAsString
Picture1.Cls
Picture2.Cls
Open"C:
\DocumentsandSettings\Administrator\桌面\可执行程序\CX.TXT"ForOutputAs#2
CommonDialog1.ShowOpen
OpenCommonDialog1.FileNameForInputAs#1
Print#2,"%"
Print#2,"00001"
Print#2,"G92G17"
Print#2,"G00X30Z50"
Picture1.Print"%"
Picture1.Print"00001"
Picture1.Print"G92G17"
Picture1.Print"G00X30Z50"
Do
Input#1,b
Seek#1,Seek
(1)
LoopUntilb="CIRCLE"
Do
Input#1,str(0),str
(1),str
(2),str(3),str(4),str(5),str(6),str(7),str(8),str(9),str(10),str(11),str(12),str(13),str(14),str(15),str(16),str(17),str(18),str(19)
Seek#1,Seek
(1)
Print#2,"GO1";"";"X";str(11);"";"Y";str(13)
Picture1.Print"GO1";"";"X"&str(11);"";"Y"&str(13)
Picture2.Circle(str(11),str(13)),str(17)
LoopUntilstr(19)="ENDSEC"
Print#2,"G00X30Z50"
Print#2,"M05"
Print#2,"M30"
Print#2,"%"
Picture1.Print"G00X30Z50"
Picture1.Print"M05"
Picture1.Print"M30"
Picture1.Print"%"
Close#1
Close#2
EndSub
PrivateSub退出_Click()
End
EndSub
PrivateSub运动仿真_Click()
Dimb,a,C,D,E,F,J,N,K,L,Q,IAsString
DimRAX(100000),RAY(100000)AsString
Picture1.Cls
Picture2.Cls
K=0
N=0
L=0
Q=0
I=0
Open"C:
\DocumentsandSettings\Administrator\桌面\可执行程序\CX.TXT"ForInputAs#1
Do
Input#1,b
Seek#1,Seek
(1)
LoopUntilb="G00X30Z50"
Input#1,b
Open"C:
\DocumentsandSettings\Administrator\桌面\2.TXT"ForOutputAs#3
Print#3,b
Close#3
Open"C:
\DocumentsandSettings\Administrator\桌面\2.TXT"ForInputAs#2
Do
D=Input(1,#2)
SelectCaseD
Case"X"
X="0"
Do
D=Input(1,#2)
X=X+D
LoopUntilD=Chr(32)OrD=Chr(10)
Case"Y"
Y="0"
Do
D=Input(1,#2)
Y=Y+D
LoopUntilD=Chr(32)OrD=Chr(10)
EndSelect
LoopUntilD=Chr(10)
D=0
Close#2
Close#1
Q=X
b=0
Open"C:
\DocumentsandSettings\Administrator\桌面\可执行程序\CX.TXT"ForInputAs#1
Do
Input#1,b
Seek#1,Seek
(1)
LoopUntilb="G00X30Z50"
Do
Input#1,b
Ifb="G00X30Z50"Then
ExitDo
EndIf
Seek#1,Seek
(1)
Open"C:
\DocumentsandSettings\Administrator\桌面\2.TXT"ForOutputAs#3
Print#3,b
Close#3
Open"C:
\DocumentsandSettings\Administrator\桌面\2.TXT"ForInputAs#2
Do
D=Input(1,#2)
SelectCaseD
Case"X"
X="0"
Do
D=Input(1,#2)
X=X+D
LoopUntilD=Chr(32)OrD=Chr(10)
Case"Y"
Y="0"
Do
D=Input(1,#2)
Y=Y+D
LoopUntilD=Chr(32)OrD=Chr(10)
EndSelect
LoopUntilD=Chr(10)
D=0
Close#2
IfX<>QThen
I=I+1
J=IMod2
IfJ=1Then
Do
K=K+1
Picture2.Circle(RAX(K),RAY(K)),50
Do
L=L+1
LoopUntilL=1000000
L=0
LoopUntilK=N
N=0
K=0
Else
Do
Picture2.Circle(RAX(N),RAY(N)),50
N=N-1
Do
L=L+1
LoopUntilL=1000000
L=0
LoopUntilN=0
N=0
K=0
EndIf
Q=X
EndIf
N=N+1
RAX(N)=X
RAY(N)=Y
LoopUntilb="G00X30Z50"
I=I+1
J=IMod2
IfJ=1Then
Do
K=K+1
Picture2.Circle(RAX(K),RAY(K)),50
Do
L=L+1
LoopUntilL=1000000
L=0
LoopUntilK=N
N=0
K=0
Else
Do
Picture2.Circle(RAX(N),RAY(N)),50
N=N-1
Do
L=L+1
LoopUntilL=1000000
L=0
LoopUntilN=0
N=0
K=0
EndIf
Close#1
EndSub
PrivateSub转换_Click()
Dimb,a,C,D,E,F,JAsString
Picture1.Cls
Picture2.Cls
Open"C:
\DocumentsandSettings\Administrator\桌面\可执行程序\CX.TXT"ForOutputAs#1
Print#1,Text1.Text
Close#1
Open"C:
\DocumentsandSettings\Administrator\桌面\可执行程序\CX.TXT"ForInputAs#1
Do
Input#1,b
Seek#1,Seek
(1)
LoopUntilb="G00X30Z50"
b=0
Do
Input#1,b
Ifb="G00X30Z50"Then
ExitDo
EndIf
Seek#1,Seek
(1)
Open"C:
\DocumentsandSettings\Administrator\桌面\2.TXT"ForOutputAs#3
Print#3,b
Close#3
Open"C:
\DocumentsandSettings\Administrator\桌面\2.TXT"ForInputAs#2
Do
D=Input(1,#2)
SelectCaseD
Case"X"
X="0"
Do
D=Input(1,#2)
X=X+D
LoopUntilD=Chr(32)OrD=Chr(10)
Case"Y"
Y="0"
Do
D=Input(1,#2)
Y=Y+D
LoopUntilD=Chr(32)OrD=Chr(10)
EndSelect
LoopUntilD=Chr(10)
D=0
Picture2.Circle(X,Y),50
Close#2
LoopUntilb="G00X30Z50"
Close#1
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序