原始数据方向.docx

原始数据方向.docx

《原始数据方向.docx》由会员分享，可在线阅读，更多相关《原始数据方向.docx（14页珍藏版）》请在冰豆网上搜索。

原始数据方向

Publica1,a2,a3,t,djjAsVariant

Publicc,c1,c2,c3AsVariant

Privateb46（10000）,b48（10000）AsString

Privateb0（10000）,b1（10000）,b2（10000）,b3（10000）,b4（10000）,b41（10000）,b42（10000）,b43（10000）,b44（10000）,b45（10000）,b47（10000）AsVariant

Privatem0（10000）,m1（10000）,m2（10000）,m3（10000）,m4（10000）,m5（10000）AsVariant

Privatexj1（10000）,XJ2（10000）,xj3（10000）,xj4（10000）AsVariant

PrivateConstpi=3.1415926

Privatemax1,max2AsVariant

Privatecx（10000）,m6（10000）,dm1（10000）AsString

Publici,lastrecord,jAsVariant

PublicwjAsString,dmAsVariant

PublicdAsString

Publicd0AsString,d1AsString,skAsString,qkAsString,xxAsString

Publicspj2c,spjfx,tdj2c,tdjfx,XJC,XJZAsVariant

Privatespj0（10000）,tdj0（10000）,tdj2（10000）,spj2（10000）,spj1（10000）,tdj1（10000）,spj11（10000）,tdj11（10000）AsVariant

PublickAsString,pAsString,qyAsString

PublicppAsVariant

PublicfilenumAsVariant

PrivateSubCommand1_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text1.SetFocus

EndSub

PrivateSubopen_Click（）

CommonDialog1.CancelError=True

CommonDialog1.Flags=cdlOFNHideReadOnly

CommonDialog1.Action=1

CommonDialog1.DialogTitle="显示“打开”对话窗"

CommonDialog1.Filter="*.gsi&*.*"

CommonDialog1.FilterIndex=2

OpenCommonDialog1.FileNameForInputAs#1

EndSub

PrivateSubexit_Click（）

End

EndSub

PrivateSubFrame12_DragDrop（SourceAsControl,XAsSingle,YAsSingle）

EndSub

PrivateSubCommand2_Click（）

Remyq$=InputBox（"请输入仪器型号（TCA2003、TC2002、TCA1800、TC1800、TC1700、TC1500）用大写字母",,,,3）

YQ$=Text1.Text

dj$=Text2.Text

k$=Text3.Text

p$=Text9.Text

Ifdj="二"Thendj1=2

Ifdj="三"Thendj1=3

Ifdj="四"Thendj1=4

RemDJ$=InputBox（"请输入本站观测的等级（2、3、4）备注：

二等水平角观测限差为：

同一方向各测回2c互差9秒，同一方向各测回方向值互差5秒，二等天顶距观测限差为：

同一方向各测回2c互差15秒，同一方向各测回方向值互差10秒,二等测距观测限差为：

同一方向各测回间互差2mm，同一方向平均值间较差3mm；三等水平角观测限差为：

同一方向各测回2c互差9秒，同一方向各测回方向值互差5秒，三等天顶距观测限差为：

同一方向各测回2c互差15秒，同一方向各测回方向值互差10秒,三等测距观测限差为：

同一方向各测回间互差3mm，同一方向平均值间较差5mm；四等水平角观测限差为：

同一方向各测回2c互差9秒，同一方向各测回方向值互差5秒，四等天顶距观测限差为：

同一方向各测回2c互差15秒，同一方向各测回方向值互差10秒,四等测距观测限差为：

同一方向各测回间互差5mm，同一方向平均值间较差7mm。

",,,,3）

Ifdj1=1AndYQ="TCA2003"OrYQ="TC2002"Thenspj2c=6:

spjfx=4:

tdj2c=9:

tdjfx=6:

XJC=2:

XJZ=3

Ifdj1=2AndYQ="TCA2003"OrYQ="TC2002"Thenspj2c=9:

spjfx=5:

tdj2c=15:

tdjfx=10:

XJC=2:

XJZ=3

Ifdj1=2AndYQ="TC1800"OrYQ="TCA1800"Thenspj2c=9:

spjfx=5:

tdj2c=15:

tdjfx=10:

XJC=2:

XJZ=3

Ifdj1=3AndYQ="TCA2003"OrYQ="TC2002"Thenspj2c=9:

spjfx=5:

tdj2c=15:

tdjfx=10:

XJC=3:

XJZ=5

Ifdj1=3AndYQ="TCA1800"OrYQ="TC1800"Thenspj2c=9:

spjfx=5:

tdj2c=15:

tdjfx=10:

XJC=3:

XJZ=5

Ifdj1=3AndYQ="TC1700"OrYQ="TC1500"Thenspj2c=9:

spjfx=5:

tdj2c=15:

tdjfx=10:

XJC=3:

XJZ=5

Ifdj1=4AndYQ="TCA2003"OrYQ="TC2002"Thenspj2c=9:

spjfx=5:

tdj2c=15:

tdjfx=10:

XJC=5:

XJZ=7

Ifdj1=4AndYQ="TCA1800"OrYQ="TC1800"Thenspj2c=9:

spjfx=5:

tdj2c=15:

tdjfx=10:

XJC=5:

XJZ=7

Ifdj1=4AndYQ="TC1700"OrYQ="TC1500"Thenspj2c=9:

spjfx=5:

tdj2c=15:

tdjfx=10:

XJC=5:

XJZ=7

RemText1.Text=YQ:

Text2.Text=DJ

Text10.Text=spj2c:

Text4.Text=spjfx:

Text5.Text=tdj2c:

Text6.Text=tdjfx:

Text7.Text=XJC:

Text8.Text=XJZ

Remk$=InputBox（"请输入本站需观测的方向数（1~100）",,,,3）

Remp$=InputBox（"请输入本站需观测的测回数（1~100）",,,,3）

Fori=1To2*k*p

Input#1,d$

RemIfEOF

（1）ThenExitFor

d0$=Mid$（d$,1,2）:

d1$=Mid$（d$,17,4）

dm1（i）=Mid（d$,11,5）:

sk$=Mid（d$,24,9）:

qk$=Mid（d$,40,9）:

xx$=Mid$（d$,56,9）

spj11（i）=（Val（sk$））/100000:

tdj11（i）=（Val（qk$））/100000:

xj1（i）=（Val（xx$））/10000

spj2（i）=（Int（1000000*spj11（i）））/1000000

tdj2（i）=（Int（1000000*tdj11（i）））/1000000

XJ2（i）=（Int（10000*xj1（i）））/10000

a1=Int（spj11（i））

a2=（Int（（spj11（i）-a1）*100））/60

a3=（（（spj11（i）*100）-Int（spj11（i）*100））*100）/3600

spj11（i）=a1+a2+a3

spj0（i）=spj11（i）

spj11（i）=Int（spj11（i）*100000）/100000

a1=Int（tdj11（i））

a2=（Int（（tdj11（i）-a1）*100））/60

a3=（（（tdj11（i）*100）-Int（tdj11（i）*100））*100）/3600

tdj11（i）=a1+a2+a3

tdj0（i）=tdj11（i）

tdj11（i）=Int（tdj11（i）*100000）/100000

Nexti

Forj=1To（2*k*p）Step2*k

Fori=jToj+k-1

Ifspj11（i）

b1（i）=（spj11（i）-spj11（2*（j+k-1）-i+1））*3600

b1（i）=Int（b1（i）*100）/100

b2（i）=（spj11（i）+spj11（2*（j+k-1）-i+1））/2

c1=Int（b2（i））

c2=Int（（b2（i）-Int（b2（i）））*60）/100

c3=（（（b2（i）-Int（b2（i）））*60-Int（（b2（i）-Int（b2（i）））*60））*60）

b3（i）=c3

b3（i）=Int（b3（i）*100）/100

b0（i）=b2（i）

xj3（i）=Int（10000*（xj1（i）-xj1（2*（j+k-1）-i+1）））/10

xj4（i）=Int（10000*（xj1（i）+xj1（2*（j+k-1）-i+1））/2）/10000

Nexti

Fori=1To2*k*p

Ifi=jThenb42（i）=b2（j）

Nexti

Nextj

Forj=1To2*（k*p）Step2*k

Fori=jToj+k-1

b43（i）=b2（i）-b42（j）

Ifb43（i）<0Thenb43（i）=b43（i）+360

b47（i）=b43（i）

Ifb47（i）>359.85Thenb47（i）=b47（i）-360

c1=Int（b43（i））

c2=Int（（b43（i）-Int（b43（i）））*60）/100

c3=（（（b43（i）-Int（b43（i）））*60-Int（（b43（i）-Int（b43（i）））*60））*60）/10000

b44（i）=c1+c2+c3

b41（i）=c3

b45（i）=（Int（b44（i）*100000））/100000

Nexti

Nextj

Fort=1Tok

Fori=1Top

max1=-100

max2=-100

Ifb47（t+2*（i-1）*k）>max2Thenmax2=b47（t+2*（i-1）*k）

Ifb1（t+2*（i-1）*k）>max1Thenmax1=b1（t+2*（i-1）*k）

Nexti

Fori=1Top

IfAbs（max1-b1（（t+2*（i-1）*k）））

Nexti

Nextt

Fort=1Tok

Fori=1Top

max1=-100

max2=-100

Ifxj3（t+2*（i-1）*k）>max1Thenmax1=xj3（t+2*（i-1）*k）

Ifxj4（t+2*（i-1）*k）>max2Thenmax2=xj4（t+2*（i-1）*k）

Nexti

Fori=1Top

IfAbs（max1-xj3（（t+2*（i-1）*k）））

Nexti

Nextt

m=-2

clmx=ListView1.ColumnHeaders.Add（,,"点号",ListView1.Width/7,0）

clmx=ListView1.ColumnHeaders.Add（,,"盘左（°′″）",ListView1.Width/7,0）

clmx=ListView1.ColumnHeaders.Add（,,"盘右（°′″）",ListView1.Width/7,0）

clmx=ListView1.ColumnHeaders.Add（,,"左-右（″）",ListView1.Width/7,0）

clmx=ListView1.ColumnHeaders.Add（,,"左+右（″）",ListView1.Width/7,0）

clmx=ListView1.ColumnHeaders.Add（,,"水平角（°′″）",ListView1.Width/7,0）

clmx=ListView1.ColumnHeaders.Add（,,"是否合格",ListView1.Width/7,0）

ListView1.BorderStyle=ccFixedSingle

ListView1.View=lvwReport

Forj=1To（2*k*p）Step2*k

RemForm1.Show

m=m+1

Ifj=1Thendjj=j

Ifj<>1Thendjj=j-（m+1）*（k+1）

RemList1.AddItemCStr（"第"）&""&CStr（djj）&""&CStr（"站水平角观测值"）

Setitmx=ListView1.ListItems.Add（）

itmx.Text="第"&djj&"测回水平角观测值"

RemList1.AddItemCStr（"点号"）&Space（6）&CStr（"盘左"）&Space（6）&CStr（"盘右"）&Space（6）&CStr（"左-右"）&Space（4）&CStr（"左+右"）&Space（7）&CStr（"水平角"）

RemList1.AddItemCStr（Space（4））&Space（5）&CStr（"（°′″）"）&Space（5）&CStr（"（°′″）"）&Space（5）&CStr（"（″）"）&Space（5）&CStr（"（″）"）&Space（5）&CStr（"（°′″）"）

RemOpen"e:

\aa\6-3spj.gsi"ForAppendAs#2

RemWrite#2,"点号","盘左","盘右","左-右","左+右","水平角"

RemClose#2

Fori=jToj+k-1

Setitmx=ListView1.ListItems.Add（）

itmx.Text=dm1（i）

itmx.SubItems

（1）=spj2（i）

itmx.SubItems

（2）=spj2（2*（j+（k+1）-1）-i-1）

itmx.SubItems（3）=b1（i）

itmx.SubItems（4）=b3（i）

itmx.SubItems（5）=b45（i）

itmx.SubItems（6）=b46（i）

RemOpen"e:

\aa\6-3spj.gsi"ForAppendAs#2

RemWrite#2,dm（I）,spj2（i）,spj2（2*（j+（k+1）-1）-i+1）,b1（i）,b3（i）,b45（i）,b46（i）

RemClose#2

RemForm1.Show

RemList1.AddItemCStr（dm1（i））&Space（5）&CStr（spj2（i））&Space（9）&CStr（spj2（2*（j+（k+1）-1）-i-1））&Space（5）&CStr（b1（i））&Space（8）&CStr（b3（i））&Space（5）&CStr（b45（i））&Space（5）&CStr（b46（i））

Nexti

Nextj

Forj=1To（2*k*p）Step2*k

Fori=jToj+k-1

m1（i）=（tdj11（i）+tdj11（2*（j+k-1）-i+1）-360）*3600

m0（i）=Int（100*m1（i））/100

m3（i）=（Int（-100*m0（i）/2））/100

Nexti

Fori=jToj+k-1

c3=tdj0（i）-（tdj11（i）+tdj11（2*（j+k-1）-i+1）-360）/2

a1=Int（c3）

a2=Int（（c3-Int（c3））*60）/100

a3=（（（c3-Int（c3））*60-Int（（c3-Int（c3））*60））*60）/10000

m4（i）=a1+a2+a3

m5（i）=c3

m4（i）=（Int（m4（i）*1000000））/1000000

Nexti

Fort=1Tok

Fori=1Top

max1=-100

max2=-100

Ifm5（t+2*（i-1）*k）>max2Thenmax2=m5（t+2*（i-1）*k）

Ifm0（t+2*（i-1）*k）>max1Thenmax1=m0（t+2*（i-1）*k）

Nexti

Fori=1Top

IfAbs（max1-m0（（t+2*（i-1）*k）））

Nexti

Nextt

Nextj

m=-2

Forj=1To（2*k*p）Step2*k

m=m+1

Ifj=1Thendjj=j

Ifj<>1Thendjj=j-（m+1）*（k+1）

Setitmx=ListView1.ListItems.Add（）

itmx.Text="第"&djj&"测回天顶距观测值"

RemList1.AddItemCStr（"第"）&""&CStr（djj）&""&CStr（"站天顶距观测值"）

RemList1.AddItemCStr（"点号"）&Space（6）&CStr（"盘左"）&Space（6）&CStr（"盘右"）&Space（6）&CStr（"左-右"）&Space（4）&CStr（