Selasa, 30 Oktober 2012

TUGAS PEMROGRAMAN VISUAL KE 3


TUGAS KE -3 PEMROGRAMAN VISUAL 
ANWAR SIDIK
09.11.1131
TI11S

Program pada tugas sebelumnya yang belum di modifikasi :



Dan di bawah ini adalah tampilan yang sudah di modifikasi :


Soal no 1. Hasil perubahan coding programnya seperti gambar di bawah :
 


 Dan di bawah adalah koding yang di rubah :


Soal no 2. Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif
Dan ini lah koding nya :



 Soal no 3. Saat ditekan combol clear sama dengan saat form dijalankan


Dan ini tugas ke 2 Membuat permainan puzzle sederhana

 Dan di bawah ini adalah koding programnya :


Public Class Form1
    Public simpan As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            If control.GetType.Name = "Button" Then
                btn1.Text = "6"
                btn2.Text = "1"
                btn3.Text = "8"
                btn4.Text = "7"
                btn5.Text = "5"
                btn6.Text = "2"
                btn7.Text = "4"
                btn8.Text = "3"
                btn9.Text = " "
            End If
        Next

    End Sub

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        If btn2.Text = " " Then
            simpan = btn1.Text
            btn1.Text = btn2.Text
            btn2.Text = simpan
        ElseIf btn4.Text = " " Then
            simpan = btn1.Text
            btn1.Text = btn4.Text
            btn4.Text = simpan
        End If
        berhasil()
    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        If btn1.Text = " " Then
            simpan = btn2.Text
            btn2.Text = btn1.Text
            btn1.Text = simpan
        ElseIf btn3.Text = " " Then
            simpan = btn2.Text
            btn2.Text = btn3.Text
            btn3.Text = simpan
        ElseIf btn5.Text = " " Then
            simpan = btn2.Text
            btn2.Text = btn5.Text
            btn5.Text = simpan
        End If
        berhasil()
    End Sub

    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
        If btn2.Text = " " Then
            simpan = btn3.Text
            btn3.Text = btn2.Text
            btn2.Text = simpan
        ElseIf btn6.Text = " " Then
            simpan = btn3.Text
            btn3.Text = btn6.Text
            btn6.Text = simpan
        End If
        berhasil()
    End Sub

    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
        If btn1.Text = " " Then
            simpan = btn4.Text
            btn4.Text = btn1.Text
            btn1.Text = simpan
        ElseIf btn5.Text = " " Then
            simpan = btn4.Text
            btn4.Text = btn5.Text
            btn5.Text = simpan
        ElseIf btn7.Text = " " Then
            simpan = btn4.Text
            btn4.Text = btn7.Text
            btn7.Text = simpan
        End If
        berhasil()
    End Sub

    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
        If btn2.Text = " " Then
            simpan = btn5.Text
            btn5.Text = btn2.Text
            btn2.Text = simpan
        ElseIf btn4.Text = " " Then
            simpan = btn5.Text
            btn5.Text = btn4.Text
            btn4.Text = simpan
        ElseIf btn6.Text = " " Then
            simpan = btn5.Text
            btn5.Text = btn6.Text
            btn6.Text = simpan
        ElseIf btn8.Text = " " Then
            simpan = btn5.Text
            btn5.Text = btn8.Text
            btn8.Text = simpan
        End If
        berhasil()
    End Sub

    Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
        If btn9.Text = " " Then
            simpan = btn6.Text
            btn6.Text = btn9.Text
            btn9.Text = simpan
        ElseIf btn3.Text = " " Then
            simpan = btn6.Text
            btn6.Text = btn3.Text
            btn3.Text = simpan
        ElseIf btn5.Text = " " Then
            simpan = btn6.Text
            btn6.Text = btn5.Text
            btn5.Text = simpan
        End If
        berhasil()
    End Sub

    Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
        If btn4.Text = " " Then
            simpan = btn7.Text
            btn7.Text = btn4.Text
            btn4.Text = simpan
        ElseIf btn8.Text = " " Then
            simpan = btn7.Text
            btn7.Text = btn8.Text
            btn8.Text = simpan
        End If
        berhasil()
    End Sub

    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
        If btn9.Text = " " Then
            simpan = btn8.Text
            btn8.Text = btn9.Text
            btn9.Text = simpan
        ElseIf btn7.Text = " " Then
            simpan = btn8.Text
            btn8.Text = btn7.Text
            btn7.Text = simpan
        ElseIf btn5.Text = " " Then
            simpan = btn8.Text
            btn8.Text = btn5.Text
            btn5.Text = simpan
        End If
        berhasil()
    End Sub

    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
        If btn6.Text = " " Then
            simpan = btn9.Text
            btn9.Text = btn6.Text
            btn6.Text = simpan
        ElseIf btn8.Text = " " Then
            simpan = btn9.Text
            btn9.Text = btn8.Text
            btn8.Text = simpan
        End If
        berhasil()
    End Sub
    Private Sub berhasil()
        If btn1.Text = "1" And btn2.Text = "2" And btn3.Text = "3" And btn4.Text = "4" And btn5.Text = "5" And btn6.Text = "6" And btn7.Text = "7" And btn8.Text = "8" Then
            MessageBox.Show("SELAMAT ANDA BERHASIL")
        End If

    End Sub

    Private Sub btAcak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAcak.Click
        Dim jalan As Integer
        If btAcak.Text = "&ACAK" Then
            btAcak.Text = "&STOP"
        ElseIf btAcak.Text = "&STOP" Then
            btAcak.Text = "&ACAK"
        End If
        Timer1.Enabled = jalan
        jalan = Not jalan

        Dim a As Windows.Forms.Control
        For Each a In Me.Controls
            If a.Tag = "1" Then
                a.Enabled = True
            End If
        Next

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim jalan As Integer
        jalan = Rnd() * 10
        btn1.Text = jalan
        Timer1.Enabled = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Apakah Anda ingin keluar ? ", 4 + 32 + 256, _
                 "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub
End Class

Hanya ini yang bisa saya kerjakan, semoga bermanfaat.
Terimakasih




Minggu, 25 Maret 2012

Pendakian Slamet ‎2010

diawali dengan sebuah acara UKM di kampus, saat itu ada pelantikan angkatan baru hari jum'at tanggal 06 ‎Agustus ‎2010, saat itu saya dan teman-teman merencanakan pelantikan di puncak gunung slamet, kami berangkat menggunakan kendaraan bermotor dari kampus sekitar pukul 10.00 dan samapai di basecamp bambangan Purbalingga sekitar pukul 11.00 dan beristirahat dan sholat jum'at bersama. kami memulai pendakian pukul 13.00, kami yang mulanya berjumlah 9 menjadi 7 anak, 2 anak yang kebetulan perempuan mengurungkan niatnya untuk tetap mendaki karena sebelum berangkat kami sudah di peringati bahwa sedang tidak di perbolehkan pendakian ke puncak gunung karena sedang terjadi badai, akhirnya kami berangkat ber7 anak, secara kebetulan ada 3 orang pendaki lagi dari banyumas dan kami berencana berangkat bersama.
Narsis dulu sebelum berangkat
Memulai pendakian pukul 13.26
awal perjalanan saya sangat kelelahan mungkin karena ini adalah pendakian perdana saya, pos pertama, kedua, dan ketiga sudah di lewati sekitar 5 jam perjalanan itu mungkin lama bagi yang sudah biasa melakukan pendakian, karena kami lebih sering beristirahat.
Sejenak beristirahat
 setelah melewati pos ke 4 hari sudah mulai gelap dan senter satu-satunya penerang perjalanan kami.dan akhirnya setelah lama perjalanan kami sampai di pos ke 7 yang dimana terdapat sebuah klakah seperti gubuk sekitar pukul 12 malam, kami bergegas membuat api membakar ranting dan kayu yang tidak di pakai untuk menghangatkan tubuh, karena suhu di pos 7 pada saat tengah malam sekitar 0-5 derajat, bisa di bayangkan jika tanpa membawa baju hangat tubuh bisa mengalami hipertemia  yaitu membekunya darah di pembuluh darah dan menurunnya suhu tubuh secara drastis saat itu jika pendaki tidak di tangani dengan serius lama-lama akan menimbulkan kegagalan jantung yang menyebabkan kematian bagi pendaki. setelah api di buat kami menghangatkan tubuh sebelum beristirahat karena kondisi tubuh sudah benar-benar keadaan ngedrop, kami tidur sampai pukul 04.00 dan kami melanjutkan perjalanan di dalam pekatnya embun yang membasahi tubuh kami saat itu udara di sekitar sungguh sangat dingin namun kami terus berjalan menanjak hingga sampai di pelawangan sang mentari sudah menampakan cahaya terangnya sungguh pemandangan yang sungguh belum pernah saya lihat sebelumnya "Indahnya" dengan awan yang menyerupai lautan putih yang memantulkan cahaya keemasan sang mentari.
Pemandangan terbitnya sang surya di pagi hari







Bagaikan lautan awan
perjalanan kami lanjutkan setelah melewati pelawangan jalur semakin banyak bebatuan nyaris tidak ada pepohonan sama sekali, dan jalur lebih terjal hingga mencapai kemiringan 70-80 derajat.
Berpose sebentar :-)

Kemiringan dari 75-80
sekitar pukul 08.00 akhirnya kami sampai di puncak gunung slamet dengan ketinggian 3.427 mdpl, sungguh pengalaman yang gak pernah saya lupakan perdana pendakian ke gunung slamet tertinggi ke 2 di pulau jawa.

setelah cukup mengabadikan gambar dan membuat sarapan kami lekas packing karena di takutkan terjadi badai yang di bicarakan di basecamp dan belerang yang sangat menyengat sudah begitu menutup jalan, kami turun sekitar pukul 09.00 dan samapai di basecamp sekitar pukul 05.00 sore.

Sabtu, 24 Maret 2012

Pendakian Gunung Sumbing

Rencana yang sudah di buat 2 bulan  sebelumnya akhirnya datang juga waktu pendakian gunung sumbing, kami adalah mahasiswa STMIK AMIKOM Purwokerto, dan ada juga dari luar kampus, kami sudah  mempersiapkan bekal dan peralatan  seminggu sebelum hari H, kami berangkat  pukul 11 pagi menggunakan sepeda motor  dari Purwokerto lewat jalur purbalingga sekitar pukul 5 sore kami sudah sampai di Wonosobo basecamp nya pun juga ada di dekat jalan utama.
Basecamp Sumbing
Sempat-sempatnya berfoto padahal baru samapai basecamp
kami beristirahat sejenak karena kelelahan di perjalanan, hingga menunggu sholat isya kami memulai pendakian sekitar pukul 19.30 malam, udara nya cukup dingin sudah cukup menusuk tulang, saat itu jalur pendakian cukup ramai karena bertepatan hari bumi tanggal 23 April 2011, jalan-jalan saat itu lumayan licin karena hujan sebelumnya sudah mengguyur daerah wonosobo dan sekitar, ada dua jalur yang bisa di lalui, saat itu kami memilih jalur baru katanya jalur baru lebih banyak di lalui pendaki, awalnya memang begitu gampang jalurnya tidak begitu terjal tapi lama-lama jalurnya hilang dan akhirnya kami tersesat karena di jalur itu begitu banyak jalur yang menjebak, akhirnya kami membuka jalur memotong ranting-ranting yang menghalangi jalan kami, udara sudah semakin dingin dan embun yang sangat tebal sudah membasahi baju kami sesaat kami beristirahat sejenak untuk menstabilkan jantung kami yang berdetak begitu cepat, setelah beberapa lama perjalanan akhirnya kami melihat dari jauh pendaki lain yang sedang ke atas ternyata itu jalur yang di sebelah kiri kami saat masih di pemukiman warga sejenak kami melihat ke atas puncak sumbing sudah begitu dekat namun setelah kami mendekat ternyata ada puncak lagi dan seterusnya, ternyata itu hanya puncak bayangan saat itu waktu sudah mendekati pukul 2 pagi kami masih melanjutkan perjalanan semapat bertemu beberapa para pendaki lain yang mungkin terlihat kelelahan jika kami melihat ke bawah pemandangan kota magelang begitu apiknya sempat kami mencoba mengambil gambar dengan kamera Hp dan kamera digital namun yang ada hanya kegelapan, dan kami melanjutkan perjalanan sekitar pukul 3 kami sudah sampai pos dan kami segera membuat tenda dan bergegas beristirahat.
Mulai mendirikan tenda
Sang surya mulai menampakan sinarnya kami sempat ternganga melihat pemandangan yang begitu indahnya cahaya yang menyinari gunung sindoro, saat itu waktu terasa berhenti, sekitar pukul 7 pagi kami bersiap-siap melanjutkan ke puncak gunung sumbing.


Pemandangan di pagi hari
Bersiap-siap melanjutkan perjalanan
 
 
di jalur ini kami hanya mempunyai satu jalur menuju puncak dan jalurnya pun semakin terjal dan berbahaya, ada beberapa jalan yang begitu membuat jantung berdebar jalan tebing batu yang kami panjat terlihat di bawahnya jurang yang cukup dalam, setelah melewati jalan ini kami sudah cukup lega dan jalan menuju keatas sudah cukup mudah, hanya tinggal bebatuan besar yang menjadi kendala karena batu-batu, kami berjalan terus menanjak hingga akhirnya kami sampai di puncak sekitar pukul 10 pagi, dan istirahat sejenak sempat berfoto bersama, tapi sayang nya kabut yang begitu tebal menghalangi pandangan, kami pun bergegas turun lagi setelah puas meliahat dan mengabadikan gambar...