Cara mengatasi comp port windows 10 yang tidak connect dengan topconlink

Assalamualaikum,
selamat pagi rekan -rekan surveyor..pernahkah anda mengalami kesulitan ketika menghubungkan total station ke PC/laptop ?pastinya pernah kan ya..

Mencara megatasi comp port windows 10 yang tidak connect dengan topconlink
port tidak muncul di topconlink
 Masalah yang umum ketika menghubungkan TS ke Pc adalah comp port yang tidak terbaca.Sebenarnya hal ini sudah pernah saya tulis pada postingan terdahulu berjudul :6 cara mengatasierror comport dalam topconlink..Tapi untuk kali ini saya ingin menambahkan sedikit lagi sebuah solusi yang sangat mudah dan praktis,terutama jika anda pengguna windows 10.
Beberapa hari lalu salah seorang teman menghubungi saya via telpon,katanya topconlink nya tidak mau keluar port nya,padahal sudah ganti-ganti kabel data sampai 3 x..topconlink nya juga sudah di install yang versi 7.5 dan topconlink versi 8.2 tapi masih tetap juga ga bisa conect..Karena cuma melalui telpon,saya pun jadi kurang begitu tahu persis masalah yang sebenarnya .maka pas ada kesempatan saya suruh dia untuk menemui saya.

Usut punya usut ternyata masalahnya terletak pada driver usb yang belum diupdate.Jika teman-teman mengalami masalah yang sama yaitu comp port windows 10 yang tidak mau connect dengan topconlink,maka cara mengatasinya adalah sebagai berikut:

1.Install driver USB 2303 for window yang bisa anda download disini
2.Install juga driver Y-105 disini
3.Jika kedua driver diatas sudah diinstall tapi tetap ga ngefek install driver tollkit yang bisa anda download  disini

fungsi dari driver toolkit adalah untuk mendownload dan update driver-driver yang belum ada di pc anda.jadi setelah anda menginstall driver toolkit,langsung saja pilih download dan update yang tertera di layar PC anda.Setelah selesai semua,restart PC anda kemudian connectkan lagi kabel usb anda ke topcon link.Masalah selesai..jika ada pertanyaan,silahkan ditulis dikomentar..

Sekian dulu post kali ini mengenai cara mengatasi comp port windows 10 yang tidak connect dengan topconlink,semoga bermanfaat..

wassalam

Sudah saatnya pengguna kalkulator casio FX-4500 beralih ke FX-5800

Assalamualaikum,

Selamat sore rekan-rekan surveyor,beberapa bulan terakhir ini banyak sekali yang pesan ke kalkulatorsurvey kalkulator casio fx -4500,akan tetapi saya kesulitan untuk memenuhinya.Penyebabnya adalah:
-Casio fx 4500 pa saat ini sudah diskontinyu alias tidak diproduksi lagi.jadi stok di lapangan semakin menipis,kalaupun ada,cuma menghabiskan stok yang ada.
-Karena stok menipis,maka hukum ekonomi berlaku,semakin susah barang didapatkan harganya akan semakin melonjak.hal ini pula yang terjadi pada kalkulator casio FX-4500.Untuk diketahui saat ini harga casio fx 4500 sudah diatas 1 juta,bahkan ada yang menjual seharga 1.75 juta.
Sudah saatnya pengguna kalkulator casio FX-4500 beralih ke FX-5800
harga 4500 kian melambung
Cukup mengerikan kenaikanya,sudah 3 x lipat.bahkan lebih mahal dari fx9860 graphic yang jauh lebih canggih.Akan tetapi mau bagaimana lagi namanya sudah terlanjur terbiasa menggunakan fx 4500 akan sangat susah berpindah ke lain hati.
Rata-rata yang masih belum bisa mau move on dari kalkulator casio FX-4500 ini adalah mereka yang dari pertama mengenal survey yang dipakai adalah kalkulator fx 4500 ,maka untuk seterusnya udah ga mau lagi pakai yang lain,alasanya karena tidak familiar.

Untuk anda yang saat ini masih ga bisa move on dari  fx 4500,berikut ini adalah alasan kuat mengapa anda harus beralih ke FX5800p.

1.Memory fx 5800p lebih besar dibandingkan dengan  fx 4500,fx 5800 mampu menampung 100 program survey,sedangkan  fx 4500 cuma mampu menyimpan 7 saja.
2.Harga fx 5800p jauh lebih murah dibandingkan dengan  fx 4500,
3.Program fx 5800 tidak hilang meskipun ganti batre,sedangkan  fx 4500 bisa saja hilang jika anda tekan lubang kecil di belakang.

Untuk bisa menggunakan fx 5800p anda tidak butuh waktu berhari-hari,cukup 15 menit saja anda sudah bisa memasukan program sendiri,kemudian anda bisa memakainya(dalam hal ini tentu jika ada yang mengajari)dan kabar baiknya,setiap pembelian kalkulator fx 5800p di kalkulatorsurvey,anda akan saya ajari cara penggunaan dan programnya sampai bisa.

Sekarang keputusan ada ditangan anda,mau tetap mencari fx 4500 yang semakin langka dan mahal,atau beralih ke 5800 yang masih ready murah dan powerfull.

Oke itu saja postingan kali ini mengenai Sudah saatnya pengguna kalkulator casio FX-4500 beralih ke FX-5800,semoga bisa menambah informasi buat teman-teman yang sedang mencari kalkulator untuk menunjang pekerjaan sebagai surveyor.

wassalam

Cara merubah settingan input koordinat NEZ menjadi ENZ pada total station topcon

Assalamualaikum,

 Selamat sore rekan-rekan surveyor semuanya,Surveyor,total station dan koordinat..tiga hal yang ga bisa dipisahkan ,dimana pun bekerja surveyor selalu membutuhkan total station,dan untuk dapat menggunakan total station diperlukan data koordinat.

Cara mengubah settingan input koordinat NEZ menjadi ENZ pada total station topcon
total station topcon
   Nah,untuk input koordinat pada total station,terdapat 2 format yaitu Northing ,easting dan Z atau sebaliknya easting dulu baru northing.Sebagian surveyor memiliki kebiasaan yang berbeda-beda,ada yang terbiasa memasukan koordinat northing dulu,dan ada pula yang lebih terbiasa memasukan easting dulu.Anda termasuk yang mana?
  Jika suatu ketika kita menggunakan alat baru,terkadang settingan default untuk input koordinat tidak sesuai dengan kebiasaan kita,untuk itu kali ini kita akan membahas bagaimana Cara merubah settingan input koordinat NEZ menjadi ENZ pada total station topcon.
Oke,biar ga kelamaan langsung saja ini dia caranya :

1.Pada kondisi total station off ,tekan tombol F2 dan power secara bersamaan.
Cara merubah settingan input koordinat NEZ menjadi ENZ pada total station topcon
tombol power dan F2
2.Akan muncul halaman 1,tekan F4 sampai muncul halaman selanjutnya kemudian pilih setting NEZ/ENZ.
Cara merubah settingan input koordinat NEZ menjadi ENZ pada total station topcon
setting ENZ/NEZ
3.Tekan F1 untuk memilih menu NEZ/ENZ.
Cara merubah settingan input koordinat NEZ menjadi ENZ pada total station topcon
F1 NEZ/ENZ
4.Tekan F1 jika ingin NEZ dan tekan F2 jika ingin ENZ,selesai.cukup mudah bukan.
Cara merubah settingan input koordinat NEZ menjadi ENZ pada total station topcon
pilih F1/F2
Itulah tadi Cara merubah settingan input koordinat NEZ menjadi ENZ pada total station topcon,sangat simpel dan mudah sekali,akan tetapi bagi yang belum mengerti pasti akan cukup kesulitan.
Sekian dulu postingan kali ini,semoga bermanfaat untuk rekan-rekan surveyor semuanya..
Wassalam

Cara merubah desimal ke derajat menit detik pada kalkulator casio fx-5800P

Assalamualaikum,

 Salam sejahtera teman-teman surveyor di seluruh dunia..kali ini kita akan membahas cara merubah desimal ke derajat menit detik pada kalkulator casio fx-5800P.seperti biasa,setiap pertanyaan yang masuk ke whatsapp saya yang berkaitan dengan survey akan saya post disini,supaya teman-teman surveyor yang memiliki pertanyaan yang sama bisa tahu jawabanya,dan juga kalau di kemudian hari ada orang lain yang bertanya hal yang serupa,tinggal saya kasih link postingan ini.

mengubah desimal ke derajat menit detik pada kalkulator casio fx-5800P
casio fx 5800p
Untuk pengguna casio fx 4500 pa yang bermigrasi ke 5800p pastinya akan kebingungan untuk merubah bilangan desimal ke derajat menit detik.Jika pada kalkulator casio fx 4500pa,untuk rumus phitagoras cukup mengetikan "POL sisi tegak dan sisi datar kemudian RCL maka otomatis langsung akan keluar  seperti gambar dibawah ini,

Cara merubah desimal ke derajat menit detik pada kalkulator casio fx-5800P
casio fx-4500 pa
Jika anda mengetikan "POL sisi tegak dan sisi datar kemudian tekan RCL pada fx 5800p maka muncul sisi miring nya 5 dan sudutnya 36.86989765.Untuk merubahnya menjadi derajat menit detik,begini caranya :

1.Ketik bilangan desimal yang akan diubah menjadi derajat menit detik ,misalnya 36.86989765.
2.Tekan tombol Function 
3.pilih no 5: ANGLE
4.Pilih no 4: ➧DMS

Maka bilangan desimalnya akan berubah menjadi  derajat menit detik seperti gambar dibawah ini,

Cara mengubah desimal ke derajat menit detik pada kalkulator casio fx-5800P
casio fx 5800P DMS
Itulah tadi Cara merubah desimal ke derajat menit detik pada kalkulator casio fx-5800P,jika teman teman belum memilikinya silahkan bisa pesan kesini..
Semoga bermanfaat,
wassalam

Rumus perhitungan elevasi vertical curve

Assalamualaikum,

Selamat sore rekan -rekan surveyor dimanapun berada.Tadi malam ada yang menanyakan tentang rumus perhitungan vertical curve,karena kalau dijelaskan dari whatsapp akan kurang efektif,maka saya tulis aja disini,siapa tahu teman-teman surveyor yang lain juga sedang mencari tahu tentang rumus vertical curve.
Sebelumnya kita harus tau dulu,apa saja komponen dari vertical curve ini,untuk lebih jelasnya silahkan lihat gambar di bawah ini:
Rumus perhitungan elevasi vertical curve
vertical curve

Formula:

y = epvc + g1x + [ (g2 − g1) ×x² / 2L ]

dimana ,

      y = elevation of point of vertical tangency

    epvc= Initial Elevation

    g1 = Initial grade

    g2 =Final grade

    x/L =Panjang curve

Nah kalau ga mau ribet pakai aja kalkulator casio fx-5800 seperti saya,

Rumus perhitungan elevasi vertical curve
program vertical curve casio fx 5800
untuk pemasanan kalkulator casio fx 5800 silahkan klik disini..
Selain pakai program kalkulator,bisa juga menggunakan form excel seperti dibawah ini :

Rumus perhitungan elevasi vertical curve
form excel vertical curve
Kalian pasti mau form excel perhitungan elevasi vertical curve nya kan?oke langsung aja download disini..

Itulah tadi Rumus Rumus perhitungan elevasi vertical curve,semoga bisa membantu teman-teman surveyor semua,sebarang pertanyaan dan request form bisa anda kirim ke sini.

wassalam

Cara menghapus program kalkulator casio FX-4500 pa

Assalamualaikum,

 Tadi pagi ada pesan whatsapp yang masuk ke saya yang isinya:bagaimana cara menghapus program kalkulator casio fx-4500 pa?

Cara memasukan program kalkulator casio FX-4500 pa
casio fx 4500pa
Rada aneh ya ,biasanya orang tanya bagaimana cara masukin program,ini malah sebaliknya..ternyataa ada kesalahan waktu menginput program,dan dia ingin menghapusnya..langsung saja ya jika kebetulan anda mengalami hal yang sama,ini dia Cara menghapus program kalkulator casio FX-4500 pa:

1). Tampilkan judul program yang mau dihapus dengan menekan tombol FILE.

2). Tekan tombol MODE dan EXP.

3). Geserlah kursor dengan menekan tombol panah hingga sampai pada judul program yang mau dihapus.


4).Tekan tombol DEL hingga judul tersebut terhapus semuanya, kemudian tekan tombol EXE dan akhirnya tekan tombol MODE dan EXP.

Jika anda ingin mengetahui kapasitas memory yang masih tersedia , silahkan tekan tombol SHIFT dan tombool ANS, akan tampak tulisan Free dan satuan angka di kanan bawah.

Bagaimana cukup mudah,nah jika anda belum tahu cara memasukan program pada kalkulator casio fx-4500 pa,ini dia caranya:

1). Hidupkan kalkulator dengan menekan tombol AC kemudian lihatlah dilayar bawah akan nampak huruf D, kalau bukan huruf D, misalkan LR, disamping D hapuskan dahulu dengan menekan tombol MODE dan tombol nol ( 0 ), bila tercantum R, hapus dengan MODE dan tombol angka 4.

2). Tekan Mode dan tombol EXP, akan nampak tulisan : Filename ? dibawahnya akan nampak F1 , artinya File 1. Atau F2 , artinya File 2. Bila File 1 sudah terisi dan seterusnya dibawah kiri juga akan tampak tulisan WRT, artinya siap dimasuki program.

3). Tuliskan judul program pada Filename ( F ) yang tampak, misalnya “ WAKTU SHALAT” , setelah judul ditulis langsung tekan tombol EXE dibawah pojok kanan.
Cara menulis : Bila judul yang ditulis terdiri dari beberapa huruf, tekan dahulu tombol SHIFT ( pojok kiri atas / dan tombol merah ( ALPHA ). Kemudian tekan secara beruntun tombol-tombol yang dibawahnya ada huruf-huruf capital berwarna merah sesuai dengan huruf yang dikehendaki.

4). Tekan tombol panah yang menunjuk ke bawah berada disamping tombol MODE, akan tampak L1  , dan tulislah program disitu. Bila L1 sudah penuh lanjutkan pada L2 dengan menekan kembali tombol tersebut, demikian seterusnya.
Perhatikan :
a). Tiap akan pindah pada L lain, jangan lupa menekan tombol EXE lebih dahulu. Tanda bahwa Line ( L ) yang ditulis penuh ditandai dengan munculnya balok hitam.
b). Huruf yang dipakai sebagai variable tidak boleh lebih dari satu huruf, misalnya : JD =  ... ( tidak boleh ).

5). Bila program telah selesai ditulis semuanya, jangan lupa menekan tombol EXE sebelum ditutup.

6). Tutuplah program dengan menekan kembali tombol MODE dan EXP, maka tulisan WRT yang ada dilayar bawah lenyap dengan sendirinya, kemudian tekan tombol OFF.


Untuk cara pengoperasian programnya:

1). Tekan tombol File terletak dibawah tombol SHIFT, akan muncul judul program ( tentu sebelumnya menekan tombol AC ).

2). Tekan tombol EXE, akan muncul pertanyaan, misalnya I ?      ( maksudnya tanggal berapa, bila berkenaan dengan jadwal waktu shalat), jawablah dengan tanggal yang anda inginkan. Setelah dijawab, tekan tombol lagi EXE, muncul pertanyaan : M ? ( maksudnya bulan berapa), jawablah dengan bulan yang anda inginkan, dan seterusnya hingga selesai.

3). Setiap kali selesai menjawab, diikuti dengan menekan tombol EXE.


Jika anda ingin mengedit program yang sudah anda buat karena terdapat kesalahan,ini dia caranya:

1). Tampilkan judul program yang mau dihapus dengan menekan tombol FILE.

2). Tekan tombol MODE dan EXP.

3). Geserlah kursor dengan menekan tombol panah hingga sampai pada judul program yang mau dihapus.

4).Tekan tombol DEL hingga judul tersebut terhapus semuanya, kemudian tekan tombol EXE dan akhirnya tekan tombol MODE dan EXP.

e. Cara Mengetahui Jumlah Bit yang Masih Tersedia.

Tekan tombol SHIFT dan tombool ANS, akan tampak tulisan Free dan satuan angka di kanan bawah.

Sudah cukup jelas ya,lalu bagaimana dengan macam-macam programnya,tenang silahkan anda baca disini..

Oke itu dulu penjelasan mengenai Cara menghapus program kalkulator casio FX-4500 pa ,semoga bermanfaat..untuk segala pertanyaan dan request silahkan email ke sini..

Wassalam


9 Program survey kalkulator casio FX-880P dan FX -850 P

Assalamualaikum,

Selamat sore rekan surveyor dimanapun berada,hampir semua program kalkulator sudah pernah saya post disini,diantaranya :
-

 Nah kali ini saya akan berikan program untuk kalkulator legenda jaman dulu yaitu casio FX-880 dan FX-850 P,meskipun sudah cukup jadul,akan tetapi surveyor-surveyor senior masih banyak yang memilikinya dan menggunakanya untuk bekerja,bukan hanya sebagai koleksi saja.

9 Program survey kalkulator casio FX-850P
casio FX-880P
Kalkulator ini diproduksi tahun 90 an,kemungkinan dilan pernah juga make kalkulator ini..Untuk tahun 90 an model kalkulator ini cukup terlihat canggih di zaman nya.Beruntung saya memiliki 1 buah kalkulator casio FX-880 dan juga 1 buah casio FX-850 yang saya dapat dari seorang senior surveyor.Untuk yang ingin tahu spesifikasi dari kalkulator casio FX-880P ini lah spek lengkapnya:

TypePocket Computer
ManufacturerCasio
Calculator
Entry modeInfixBASIC,
Display typeLCD Dot-matrix
CPU
ProcessorHitachi HD62002A01
Programming
Programming language(s)BASIC
User memory2×32 Character
Interfaces
Portsone vendor specific
Connects to
Line Printer via one of:
PC via one of:
Other
Power supply2×"CR2032" Lithium + 1×"CR1220" Lithium
Weight197 g[1]

Casio fx-880 P ini memiliki saudara tua yang bernama casio FX-850P,perbadaan dari dua saudara ini adalah pada tahun produksi dan juga kapasitas memorinya .casio FX-850P di produksi tahun 1987, tiga tahun lebih dulu dibandingkan dengan casio FX-880P yang di produksi tahun 1990.
Untuk kapasitas memorinya casio FX-850P hanya berisi 8 kilobyte saja sedangkan casio FX-880P 32 kilobyte.Itulah perbedaan yang mendasar dari keduanya.
Setelah anda tahu spesifikasi dan perbedaan dari kedua kalkulator legend diatas,inilah saatnya yang di tunggu-tunggu 9 Program survey kalkulator casio FX-880P dan FX -850 P:

1.  2-D Transformation


 10 CLS:PRINT "Coord Transformation Program:":CLS:SET N
20 PRINT "Old x1:";ox1;:INPUT ox1:PRINT "Old y1:";oy1;:INPUT oy1:CLS
30 PRINT "Old x2:";ox2;:INPUT ox2:PRINT "Old y2:";oy2;:INPUT oy2:CLS
40 PRINT "New x1:";nx1;:INPUT nx1:PRINT "New y1:";ny1;:INPUT ny1:CLS
50 PRINT "New x2:";nx2;:INPUT nx2:PRINT "New y2:";ny2;:INPUT ny2:CLS
60 Z=POL((ox2-ox1),(oy2-oy1)):brgold=90-Y:baseold=Z
70 Z=POL((nx2-nx1),(ny2-ny1)):brgnew=90-Y:basenew=Z
80 SF=basenew/baseold:mm=ABS(1000000-(SF*1000000))
90 BEEP 0:PRINT "Old:";ROUND(baseold,-5);TAB(16);"New:";ROUND(basenew,-5);TAB(32);"SF:";ROUND(SF,-7);TAB(45);ROUND(mm,-2);"per Km":CLS
100 deltabrg=brgold-brgnew
110 B=SF*COS(deltabrg):YY=SF*SIN(deltabrg)
120 E0=nx1-(ox1*B)+(oy1*YY):N0=ny1-(ox1*YY)-(oy1*B)
130 PRINT "Old x3:";ox3;:INPUT ox3:PRINT "Old y3:";oy3;:INPUT oy3:CLS
140 nx3=E0+(ox3*B)-(oy3*YY):ny3=N0+(ox3*YY)+(oy3*B)
150 Z=POL((nx1-nx3),(ny1-ny3)):brg31=90-Y:IF brg31<0 THEN brg31=brg31+360
160 Z=POL((nx2-nx3),(ny2-ny3)):brg32=90-Y:IF brg32<0 THEN brg32=brg32+360
170 BEEP 0:PRINT "New x3:";ROUND(nx3,-5);TAB(32);"New y3:";ROUND(ny3,-5):CLS
180 BEEP 0:PRINT "Brg to 1:";DMS$(brg31);TAB(32);"Brg to 2:";DMS$(brg32):CLS:GOTO 130

2. 3-D Circle Fix

5 CLS:PRINT "3-D Circle Fix Program:"
10 CLS:SET N
15 PRINT "x1:";xa;:INPUT xa:PRINT "y1:";ya;:INPUT ya:PRINT "z1:";za;:INPUT za:CLS
20 PRINT "x2:";xb;:INPUT xb:PRINT "y2:";yb;:INPUT yb:PRINT "z2:";zb;:INPUT zb:CLS
30 PRINT "x3:";xc;:INPUT xc:PRINT "y3:";yc;:INPUT yc:PRINT "z3:";zc;:INPUT zc:CLS
40 PRINT "Wait...";
50 dac=SQR(ABS(xa-xc)^2+ABS(ya-yc)^2+ABS(za-zc)^2
60 dab=SQR(ABS(xa-xb)^2+ABS(ya-yb)^2+ABS(za-zb)^2
70 dbc=SQR(ABS(xb-xc)^2+ABS(yb-yc)^2+ABS(zb-zc)^2
80 acos=((dac^2+dab^2-dbc^2)/(2*dac*dab)):bcos=((dab^2+dbc^2-dac^2)/(2*dab*dbc))
90 anga=90-ATN(acos/SQR(1-acos^2)):angb=90-ATN(bcos/SQR(1-bcos^2)):angc=180-(anga+angb)
100 IF anga<90 AND angb<90 AND dab>dac AND dab>dbc THEN GOTO 150
110 IF NOT(anga>90 OR angb>90) THEN GOTO 150
120 IF dab>dac AND dab>dbc THEN IF anga>90 THEN GOSUB 240 ELSE GOSUB 260
130 IF dac>dab AND dac>dbc THEN GOSUB 260 ELSE GOSUB 240
140 GOTO 50
150 ra=(dbc/2)/COS(90-anga):daz=(dac/2)/acos:p1=daz/dab
160 ez=xa-((xa-xb)*p1):nz=ya-((ya-yb)*p1):hz=za-((za-zb)*p1)
170 em=(xa+xc)/2:nm=(ya+yc)/2:hm=(za+zc)/2
180 dmz=SQR((ez-em)^2+(nz-nm)^2+(hz-hm)^2:dmo=SQR(ra^2-((dac/2)^2)):p2=dmo/dmz
190 ep=em-((em-ez)*p2):np=nm-((nm-nz)*p2):hp=hm-((hm-hz)*p2)
200 diam=SQR((ep-xa)^2+(np-ya)^2+(hp-za)^2)*2
210 CLS:SET F3:BEEP 0:PRINT "E: ";ep;TAB(16);"N: ";np;TAB(32);"H: ";hp;TAB(48);"D: ";diam
230 GOTO 10
240 txc=xc:xc=xa:xa=txc:tyc=yc:yc=ya:ya=tyc:tzc=zc:zc=za:za=tzc
250 RETURN
260 txc=xc:xc=xb:xb=txc:tyc=yc:yc=yb:yb=tyc:tzc=zc:zc=zb:zb=tzc
270 RETURN

3.Angle Reduction

10 CLS:PRINT "Angle Reduction Program:":CLS:SET N
20 PRINT "Stn E:";SE;:INPUT SE:PRINT "Stn N:";SN;:INPUT SN:CLS
30 PRINT "Stn Level:";RL;:INPUT RL:PRINT "Inst Ht:";IH;:INPUT IH:CLS
40 CLS:PRINT "      [B] Bearing to RO               [C] Coords of RO";
50 I$=INKEY$
60 IF I$="C" OR I$="c" THEN 80
70 IF I$="B" OR I$="b" THEN GOTO 90 ELSE 50
80 CLS:PRINT "RO Stn E:";ROE;:INPUT ROE:PRINT "RO Stn N:";RON;:INPUT RON:CLS:GOTO 80
90 CLS:PRINT "RO Brg:";DMS$(ROBEAR);:INPUT ROBEAR
100 CLS:PRINT "Horz Ang:";DMS$(HZANG);:INPUT HZANG:PRINT "Vert Ang:";DMS$(VA);:INPUT VA:CLS
110 PRINT "Slope Dist:";SLOPE;:INPUT SLOPE:PRINT "Target Ht:";TH;:INPUT TH:CLS:PRINT "Wait...";
120  IF I$="B" OR I$="b" THEN GOTO 110
130 Z=POL((ROE-SE),(RON-SN)):ROBEAR=90-Y:IF ROBEAR<0 THEN ROBEAR=ROBEAR+360
140 HZBEAR=ROBEAR+HZANG
150 HZDIST=COS(90-VA)*SLOPE
160 PTE=SIN(HZBEAR)*HZDIST+SE:PTN=COS(HZBEAR)*HZDIST+SN
170 PTH=TAN(90-VA)*HZDIST+RL+IH-TH
180 CLS:BEEP 0:PRINT "x:";ROUND(PTE,-6);TAB(16);"y:";ROUND(PTN,-6);TAB(32);"z:";ROUND(PTH,-5);TAB(47);"Hz:";ROUND(HZDIST,-5)
190 CLS:GOTO 100

4.Bearing & Distance

10 CLS:PRINT "Bearing & Distance Program:":CLS:SET N
20 PRINT "x1 =";x1;:INPUT x1:PRINT "y1 =";y1;:INPUT y1:CLS
30 PRINT "x2 =";x2;:INPUT x2:PRINT "y2 =";y2;:INPUT y2:CLS:PRINT "Wait...";
40 Z=POL((x2-x1),(y2-y1)):BRG=90-Y:DIST=X:IF BRG<0 THEN BRG=BRG+360
50 CLS:BEEP 0:PRINT "Bearing:  ";DMS$(BRG);TAB(32);"Distance: ";ROUND(DIST,-5)
60 CLS:GOTO 20

5.Extension of Vectors

10 CLS:PRINT "Extension of Vectors Program:":CLS:SET N
20 PRINT "x1 =";vx1;:INPUT vx1:PRINT "y1 =";vy1;:INPUT vy1:CLS
30 PRINT "x1 =";vx1;TAB(16);"y1 =";vy1;TAB(32);"z1 =";vz1;:INPUT vz1:CLS
40 PRINT "x2 =";vx2;:INPUT vx2:PRINT "y2 =";vy2;:INPUT vy2:CLS
50 PRINT "x2 =";vx2;TAB(16);"y2 =";vy2;TAB(32);"z2 =";vz2;:INPUT vz2:CLS
60 PRINT "Extension =";v23;:INPUT v23:CLS:PRINT "Wait...";
70 vx12=vx2-vx1:vy12=vy2-vy1:vz12=vz2-vz1
80 v12=SQR(vx12^2+vy12^2+vz12^2)
90 vx3=vx2+((vx12/v12)*v23)
100 vy3=vy2+((vy12/v12)*v23)
110 vz3=vz2+((vz12/v12)*v23)
120 CLS:BEEP 0:PRINT "x3: ";ROUND(vx3,-4);TAB(16);"y3: ";ROUND(vy3,-4);TAB(32);"z3: ";ROUND(vz3,-4);TAB(47);"1-2: ";ROUND(v12,-4)
130 CLS:GOTO 20

6.Intersection

10 CLS:PRINT "Intersection Program:":CLS:SET N
20 PRINT "Left Stn E:";LSE;:INPUT LSE:PRINT "Left Stn N:";LSN;:INPUT LSN:CLS
30 PRINT "Left RL:";LRL;:INPUT LRL:PRINT "Left IH:";LIH;:INPUT LIH:CLS
40 PRINT "        [B] Bearing to RO               [C] Coords of RO";
50 I$=INKEY$:IF I$="" THEN 50
60 IF I$="B" OR I$="b" THEN 110
70 IF I$="C" OR I$="c" THEN 80 ELSE GOTO 50
80 CLS:PRINT "Left RO E:";LROE;:INPUT LROE:PRINT "Left RO N:";LRON;:INPUT LRON:CLS
90 Z=POL((LROE-LSE),(LRON-LSN)):LRO=90-Y:IF LRO<0 THEN LRO=LRO+360
100 GOTO 120
110 CLS:PRINT "Left RO:";DMS$(LRO);:INPUT LRO:CLS
120 PRINT "Right Stn E:";RSE;:INPUT RSE:PRINT "Right Stn N:";RSN;:INPUT RSN:CLS
130 PRINT "Right RL:";RRL;:INPUT RRL:PRINT "Right IH:";RIH;:INPUT RIH:CLS
140 PRINT "        [B] Bearing to RO               [C] Coords of RO";
150 I$=INKEY$:IF I$="" THEN 150
160 IF I$="B" OR I$="b" THEN 210
170 IF I$="C" OR I$="c" THEN 180 ELSE GOTO 150
180 CLS:PRINT "Right RO E:";RROE;:INPUT RROE:PRINT "Right RO N:";RRON;:INPUT RRON:CLS
190 Z=POL((RROE-RSE),(RRON-RSN)):RRO=90-Y:IF RRO<0 THEN RRO=RRO+360
200 GOTO 220
210 CLS:PRINT "Right RO:";DMS$(RRO);:INPUT RRO:CLS
220 PRINT "Left HA:";DMS$(LHA);:INPUT LHA:PRINT "Left VA:";DMS$(LVA);:INPUT LVA:CLS
230 PRINT "Right HA:";DMS$(RHA);:INPUT RHA:PRINT "Right VA:";DMS$(RVA);:INPUT RVA:CLS
240 PRINT "Wait...";:LAZ=LRO+LHA:RAZ=RRO+RHA
250 XP=((RSE*(1/TAN(RAZ)))-(LSE*(1/TAN(LAZ)))-RSN+LSN)/((1/TAN(RAZ))-(1/TAN(LAZ)))
260 YP=((RSN*TAN(RAZ))-(LSN*TAN(LAZ))-RSE+LSE)/(TAN(RAZ)-(TAN(LAZ))
270 LDIST=SQR((LSE-XP)^2+(LSN-YP)^2:RDIST=SQR((RSE-XP)^2+(RSN-YP)^2:LZ=TAN((90-LVA))*LDIST+LRL+LIH:RZ=TAN((90-RVA))*RDIST+RRL+RIH
280 MZ=(LZ+RZ)/2:ERZ=ABS(ABS(LZ)-ABS(RZ))
290 DEL=LSE-XP:DNL=LSN-YP:DER=RSE-XP:DNR=RSN-YP
300 Z=POL(DEL,DNL):LB=90-Y:IF LB<0 THEN LB=LB+360
310 Z=POL(DER,DNR):RB=90-Y:IF RB<0 THEN RB=RB+360
320 ANGINT=ABS(LB-RB):IF ANGINT>180 THEN ANGINT=360-ANGINT
340 CLS:BEEP 0:PRINT "x: ";ROUND(XP,-5);TAB(16);"y: ";ROUND(YP,-5);TAB(32);"z: ";ROUND(MZ,-5);TAB(47);"dz: ";ROUND(ERZ,-5):CLS
350 CLS:BEEP 0:PRINT "z";CHR$(145);": ";ROUND(LZ,-5);TAB(16);"z";CHR$(146);": ";ROUND(RZ,-5);TAB(32);"Angle of cut: ";DMS$(ANGINT):CLS
360 PRINT "       [C]  Continue                   [N]  New Stations";
370 C$=INKEY$:IF C$="" THEN 370
380 IF C$="C" OR C$="c" THEN CLS:GOTO 220
390 IF C$="N" OR C$="n" THEN CLS:GOTO 20
400 GOTO 370

7.Offset


10 CLS:PRINT "Offset Program:":CLS:SET N
20 PRINT "Ax=";Ax;:INPUT Ax:PRINT "Ay=";Ay;:INPUT Ay:CLS
30 PRINT "Bx=";Bx;:INPUT Bx:PRINT "By=";By;:INPUT By:CLS
40 PRINT "Cx=";Cx;:INPUT Cx:PRINT "Cy=";Cy;:INPUT Cy:CLS:PRINT "Wait...";
50 Z=POL((Bx-Ax),(By-Ay)):BEARAB=90-Y:DISTAB=X
60 Z=POL((Cx-Ax),(Cy-Ay)):BEARAC=90-Y:DISTAC=X
70 DIFFBEAR=BEARAC-BEARAB
80 OFFSET=SIN(DIFFBEAR)*DISTAC:CHAIN=COS(DIFFBEAR)*DISTAC
90 IPE=SIN(BEARAB)*CHAIN+Ax:IPN=COS(BEARAB)*CHAIN+Ay
100 CLS:BEEP 0:PRINT "Offset:";ROUND(OFFSET,-5);TAB(16);"Chain:";ROUND(CHAIN,-5);TAB(32);"IPx:";ROUND(IPE,-5);TAB(48);"IPy:";ROUND(IPN,-5)
110 CLS:GOTO 40

8.Open Traverse

10 CLS:PRINT "Open Traverse Program:"
15 CLS:SET N
20 PRINT "Start E:";SE;:INPUT SE:PRINT "Start N:";SN;:INPUT SN
25 CLS:PRINT "       [B] Bearing to RO               [C] Coords of RO";
30 I$=INKEY$
40 IF I$="C" OR I$="c" THEN 50
45 IF I$="B" OR I$="b" THEN 60 ELSE 30
50 CLS:PRINT "RO E:";ROE;:INPUT ROE:PRINT "RO N:";RON;:INPUT RON:CLS:GOTO 80
60 CLS:PRINT "RO Brg:";DMS$(ROBEAR);:INPUT ROBEAR
80 CLS:PRINT "Hz Ang:";DMS$(HZANG);:INPUT HZANG:PRINT "Hz Dist:";HZDIST;:INPUT HZDIST
90 CLS:PRINT "Wait...";
95 IF I$="B" OR I$="b" THEN 110
100 Z=POL((ROE-SE),(RON-SN)):ROBEAR=90-Y:IF ROBEAR<0 THEN ROBEAR=ROBEAR+360
110 FWDBRG=ROBEAR+HZANG
120 PTE=SIN(FWDBRG)*HZDIST+SE:PTN=COS(FWDBRG)*HZDIST+SN
130 CLS:BEEP 0:PRINT "x:";ROUND(PTE,-4);TAB(32);"y:"ROUND(PTN,-4):CLS
140 PRINT "Hz Ang:";DMS$(HZANG);:INPUT HZANG:PRINT "Hz Dist:";HZDIST;:INPUT HZDIST
150 CLS:PRINT "Wait...";
160 FWDBRG=FWDBRG+180+HZANG:IF FWDBRG>360 THEN FWDBRG=FWDBRG-360
170 SE=PTE:SN=PTN:GOTO 120

9.Resection

10 CLS:PRINT "Resection Program:":CLS:SET N
20 PRINT "Input the co-ords of three knownpoints in a CLOCKWISE direction":CLS
30 PRINT "x1:";x1;:INPUT x1:PRINT "y1:";y1;:INPUT y1:CLS
40 PRINT "x2:";x2;:INPUT x2:PRINT "y2:";y2;:INPUT y2:CLS
50 PRINT "x3:";x3;:INPUT x3:PRINT "y3:";y3;:INPUT y3:CLS
60 PRINT "Azimuth 1:";DMS$(AZ01);:INPUT AZ01:CLS
70 PRINT "Azimuth 2:";DMS$(AZ02);:INPUT AZ02:CLS
80 PRINT "Azimuth 3:";DMS$(AZ03);:INPUT AZ03:CLS:PRINT "Wait...";
90 Z=POL((x2-x1),(y2-y1)):AZ12=90-Y:Z=POL((x3-x2),(y3-y2)):AZ23=90-Y:Z=POL((x1-x3),(y1-y3)):AZ31=90-Y
100 A=AZ31+180-AZ12:B=AZ12+180-AZ23:C=AZ23+180-AZ31
110 c=AZ02-AZ01+360:b=AZ01-AZ03+360:a=AZ03-AZ02+360
120 K1=1/((1/TAN(A))-(1/TAN(a)))
130 K2=1/((1/TAN(B))-(1/TAN(b)))
140 K3=1/((1/TAN(C))-(1/TAN(c)))
150 EP=((K1*x1)+(K2*x2)+(K3*x3))/(K1+K2+K3)
160 NP=((K1*y1)+(K2*y2)+(K3*y3))/(K1+K2+K3)
170 Z=POL((x1-EP),(y1-NP):brg1=90-Y:IF brg1<0 THEN brg1=brg1+360
180 Z=POL((x2-EP),(y2-NP):brg2=90-Y:IF brg2<0 THEN brg2=brg2+360
190 Z=POL((x3-EP),(y3-NP):brg3=90-Y:IF brg3<0 THEN brg3=brg3+360
200 CLS:BEEP 0:PRINT "E: ";ROUND(EP,-5);TAB(32);"N: ";ROUND(NP,-5):CLS
210 BEEP 0:PRINT "Set Bearings";TAB(16);"1:";DMS$(brg1);TAB(32);"2:";DMS$(brg2);TAB(48);"3:";DMS$(brg3)
220 CLS:GOTO 20

Itulah tadi 9 Program survey kalkulator casio FX-880P dan FX -850 P.Semoga bisa membantu rekan-rekan surveyor yang sedang mencari program survey untuk kalkulator tersebut.
Kalkulator casio FX-880P dan FX -850 P ini sudah sangat langka di pasaran,jika anda mencarinya silahkan kunjungi kalkulator survey .sementara ini ada stok 2 biji saja untuk FX-880P dan FX -850 P.

Semoga  bermanfaat,wassalam