cehui.m

来自「这个是用matlab写的测回法程序,很好的望大家一定要踊跃下载」· M 代码 · 共 36 行

clear all
clc
global edit2 edit3 edit4 edit5 mainfig edit7 label20
fsize=[530  300];
figpos=[100 100 fsize(1:2)];
mainfig=figure( 'Position' ,figpos ,'Color' ,[0.83 0.62 0.78],'NumberTitle' , 'off ' ,'Name' , '测回法水平观察' );

label1 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[10  230  50  25],'String','盘左');
label2 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[100  260  50  25],'String','方向1');
label3 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[180  280  70  20],'String','dd.mmmm');
edit2 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[180  260  70  20],'String','180.2345');

label4 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[100  200  50  25],'String','方向2');
label5 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[180  220  70  20],'String','dd.mmmm');
edit3 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[180  200  70  20],'String','180.3412');

label6 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[10  80  50  25],'String','盘右');
label7 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[100  110  50  25],'String','方向1');
label8 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[180  130  70  20],'String','dd.mmmm');
edit4 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[180  110  70  20],'String','180.2345');


label9 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[100  50  50  25],'String','方向2');
label10 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[180  70  70  20],'String','dd.mmmm');
edit5 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[180  50  70  20],'String','180.3412');

label11 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[300  150  50  25],'String','限差');
edit6 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[370  150  70  20],'String','180.3412');
label12 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[450  150  50  20],'String','dd.mmmm');

button1=uicontrol(mainfig, 'Style',' push ', 'Position',[310 10 50 25],'String' ,'检验','CallBack','jianyan');
button2=uicontrol(mainfig, 'Style',' push ', 'Position',[410 10 50 25],'String' ,'关闭','CallBack','formcolse');
set(mainfig,'Menubar','none')