Laman

Jumat

Jalur Pendakian Gunung Merapi via Selo

              Jalur Selo adalah jalur yang sering dipakai pendaki untuk mendaki di gunung merapi. Karena jalur ini pendek dan lebih aman. Untuk mencapai desa selo dari Semarang naik bus jurusan salatiga ( Rp. 10.000), turun diterminal salatiga, naik bus lagi jurusan pasar cepogo ( Rp. 7000), pasar cepogo - selo (Rp. 4000 ). selanjutnya dari selo menuju basecamp dapat di tempuh dengan waktu 30 menit. basecamp berada di desa plalangan, desa lencoh, kecamatan selo, kabupaten boyolali. perjalanan dari plalangan menuju pondok pendaki ditempuh selama 15 menit, melalui jalan aspal.
Pondok Pendaki - Pos 1
dapat ditempuh dengan waktu 35 menit, melalui perkebunan tembakau dan kol untuk kemudian memasuki hutan pinus.Mendekati Pos 1 kita akan melewati batu - batu besar.
Pos 1 - Pos 2
Dengan waktu tempuh 1 jam, dengan medan bebatuan yang terjal, dengan angin yang kencang. Dari pos 2 kita dapat menikmati pemandangan kota boyolali.
Pos 2 - Watu Gajah
dengan waktu tempuh 15 menit, dengan medan bebatuan. Disebut dengan watu gajah karena, batu besar menyerupai bentuk gajah.
Watu Gajah - Pasar Bubrah
dari watu gajah kepasar bubrah waktu tempuh 15 menit, dengan jalur yang datar dan berbatu. Dipasar bubrah biasanya dibuat tempat camp para pendaki sebelum mencapai puncak. biasanya para pendaki naek ke puncak pada waktu dini akhir, untuk dapat melihat matahari terbit dari puncak merapi.
Pasar Bubrah - Puncak
dapat ditempuh dengan waktu 1 jam, dengan medan yang menanjak dan berbatu. Di jalur ini diharuskan pendaki pintar memilih batu yang digunakan pijakan, karena kalau salah pijakan, batu tersebut bisa longsor.
 
 

Contoh Aplikasi Sederhana Mencari Zodiak dengan VB 6.0

Untuk pencarian zodiak biasanya dapat kita lihat di majalah dan surat kabar lainya, dalam hal ini kita dapat membuatnya dengan menggunakan Aplikasi  VB, berikut saya akan memberikan langkah-langkah dan besertakan scriptnya untuk membuat aplikasi sederhana mencari zodiak yang mungkin anda dapat kembangkan lagi logikanya dan dapat menjadi referensi dalam pembuatan aplikasi / program yang anda buat.

Pertama anda letakan 3 komponen textbox dan 1 commandbutton pada form anda, setelah itu masukan script yang ada di bawah ini.

Private Sub Form_Load()
Command1.Enabled = False
End Sub


Private Sub Text1_Change()
If IsDate(Text1) Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub


Private Sub Command1_Click()
'MENCARI HARI LAHIR
Dim KodeHari As Byte
Dim Hari As String
KodeHari = Weekday(Text1)
Select Case KodeHari
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jumat"
Case 7: Hari = "Sabtu"
End Select
Text2 = Hari


'MENCARI BINTANG
Dim Tg, Bl As Byte
Dim Btg As String
Tg = Day(Text1): Bl = Month(Text1)
If (Tg >= 21 And Bl = 3) Or (Tg <= 20 And Bl = 4) Then Btg = "ARIES" If (Tg >= 21 And Bl = 4) Or (Tg <= 21 And Bl = 5) Then Btg = "TAURUS" If (Tg >= 22 And Bl = 5) Or (Tg <= 21 And Bl = 6) Then Btg = "GEMINI" If (Tg >= 22 And Bl = 6) Or (Tg <= 22 And Bl = 7) Then Btg = "CANCER" If (Tg >= 23 And Bl = 7) Or (Tg <= 22 And Bl = 8) Then Btg = "LEO" If (Tg >= 23 And Bl = 8) Or (Tg <= 22 And Bl = 9) Then Btg = "VIRGO" If (Tg >= 23 And Bl = 9) Or (Tg <= 22 And Bl = 10) Then Btg = "LIBRA" If (Tg >= 23 And Bl = 10) Or (Tg <= 21 And Bl = 11) Then Btg = "SCORPIO" If (Tg >= 22 And Bl = 11) Or (Tg <= 21 And Bl = 12) Then Btg = "SAGITARIUS" If (Tg >= 22 And Bl = 12) Or (Tg <= 20 And Bl = 1) Then Btg = "CAPRICORN" If (Tg >= 21 And Bl = 1) Or (Tg <= 19 And Bl = 2) Then Btg = "AQUARIUS" If (Tg >= 20 And Bl = 2) Or (Tg <= 20 And Bl = 3) Then Btg = "PISCES"
Text3 = Btg
End Sub