Jumat, 27 Januari 2012

Jawaan Soal 3 (Basyit Mubaroq Rambe)

Jawaan Soal 3 (Basyit Mubaroq Rambe)

Listing Form Login


Public Class Form1



Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
        If Username.Text = "Basyit" And Pasword.Text = "391" Then
            formMenu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf! Pasword Salah!")
            Username.Text = ""
            Pasword.Text = ""
        End If
    End Sub


    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub
End Class




Listing Form Menu
Public Class formMenu

    Private Sub DataPenggaianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggaianToolStripMenuItem.Click
        Pegawai.Show()
    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub

    Private Sub formMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class




Listing Form Penggajian

Public Class Pegawai
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuaTable()
        NIP.Items.Add("001")
        NIP.Items.Add("002")
        Gol.Items.Add("IIIA")
        Gol.Items.Add("IIIB")
        Gol.Items.Add("IIIC")
        Jabatan.Items.Add("Kasut")
        Jabatan.Items.Add("Kabag")
        Status.Items.Add("MENIKAH")
        Status.Items.Add("LAJANG")
        lbr.Text = "10.000"
    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
        If NIP.Text = "001" Then Nama.Text = ("Dian") Else Nama.Text = ("Siska")
    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged
        If Gol.Text = ("IIIA") Then
            Gaji.Text = ("2500000")
        ElseIf Gol.Text = ("IIIB") Then
            Gaji.Text = ("2750000")
        Else : Gaji.Text = ("3000000")
        End If
    End Sub
    Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        isiTable()
        NIP.Text = ""
        Nama.Text = ""
        Gol.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Tunjangan.Text = ""
        Total.Text = ""
    End Sub
    Sub BuaTable()
        LV.Columns.Add("N.I.P", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Golongan", 40, HorizontalAlignment.Center)
        LV.Columns.Add("Jabatan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjangan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Right)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isiTable()
        Dim Lst As New ListViewItem
        Lst.Text = NIP.Text
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Gol.Text)
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Tunjangan1.Text)
        Lst.SubItems.Add(Total.Text)
        LV.Items.Add(Lst)
    End Sub
    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Status.Text = "LAJANG" Then
            J_Anak.Text = 0
            Tunjangan1.Text = 0
            Tunjangan.Text = 0
        ElseIf Status.Text = "MENIKAH" Then
            Tunjangan1.Text = Val(Gaji.Text) * 0.16
        End If
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        pajak.Text = Val(Gaji.Text) * 0.03
        Total.Text = Val(Gaji.Text) + Val(Tunjangan1.Text) + Val(Tunjangan.Text) + (Val(lbr.Text) * Val(jm.Text)) - Val(pajak.Text)
        If J_Anak.Text = 0 Then
            Tunjangan.Text = 0
        ElseIf J_Anak.Text = 1 Then
            Tunjangan.Text = J_Anak.Text * (0.1 * Gaji.Text)
        ElseIf J_Anak.Text = 2 Then
            Tunjangan.Text = 2 * (0.19 * Gaji.Text)
        End If
    End Sub
End Class


back to  soal 







Jawaban Soal 2: (Basyit Mubaroq Rambe)

Jawaban Soal 2: (Basyit Mubaroq Rambe)

Listing Program



Public Class Form1
    Sub BuatTable()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub IsiTable()
        Dim Lst As New ListViewItem
        Lst.Text = NPM.Text
        Lst.SubItems.Add(Nama.Text)
        LV.Items.Add(Lst)
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTable()
    End Sub


    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        IsiTable()
        NPM.Text = ""
        Nama.Text = ""
    End Sub
    
    Private Sub btnHapusAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusAll.Click
        LV.Items.Clear()
    End Sub


    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class




Selasa, 08 November 2011

BAGAS GODANG MARGA RAMBE



LABUHAN BATU - Bagas Godang (rumah besar) Marga Rambe tentang silsilah Raja Rambe di Desa Tanjung Medan Kec. Bilah Barat Kab. Labuhan Batu, keturunan Marga Rambe Raja yang pertama adalah Raja Jadiatas Rambe yang membangun Dusun Tanjung Medan Desa Tanjung Medan merupakan peninggalan dari Raja Jadiatas Rambe Tanah ulayat sedangkan rumah peninggalan sudah tidak ada lagi.

Demikian Ridwan Rambe yang termasuk keturunan Raja Pandi Rambe, menuturkannya di  rumah Bagas Godang di Dusun Tanjung Medan Desa Tanjung Medan.

Raja Jadiatas makamnya terletak di Dusun Tanjung Medan Desa Tanjung Medan Kec. Bilah Barat, Kab. Labuhan Batu, mempunyai lima orang anak. Pertama Baginda Pinayungan Rambe makamnya di Dusun Belungkut Kec. Marbau Kab.. Labuhanbatu Utara, anak yang kedua Jalobi Rambe yang makamnya terletak di Dusun Tanjung Medan,  Desa Tanjung Medan, anak yang ketiga Jabatang Gari Rambe yang makamnya terletak di samping makam orang tuanya di Dusun Tanjung Medan Desa Tanjung Medan ujar Ridwan.

Anak yang keempat Japayungan Opung dari Rambe Kamarul Zaman anggota DPR RI tiga periode yang makamnya terletak di Pinarik Tapanuli Selatan  dan anak yang kelima Jalangit Rambe yang makamnya terletak di Pinari Tapsel.

Ridwan mengatakan, raja kedua Raja Lela Wangsa yang makamnya terletak di Dusun Tanjung Medan Desa Tanjung Medan Opung dari Banua Ispensa Rambe (almarhum) mantan Bupati Labuhanbatu periode 1994-1999 yang mempunyai anak pertama Lobi Rambe yang makamnya terletak di Medan Sumut, anak yang kedua Resnal Rambe makamnya terletak di Rantau Prapat Kab Labulahan Batu.

Raja yang ketiga Raja Andak Rambe yang tidak mempunyai keturunan (Punu).

Raja yang keempat Raja Sam Rambe yang makamnya  tidak ingat saya (Ridwan) Raja Sam Rambe mempunyai dua orang anak yang pertama Sahlan Rambe yang makamnya terletak di Perlayuan Kecamatan Rantau Utara Kab. Labuhanbatu dan yang kedua Ledin Rambe yang makamnya terletak di Dusun Tanjung Medan Desa Tanjung Medan .

Raja yang kelima Raja Pandi Rambe yang makamnya terletak di Dusun Tanjung Medan Desa Tanjung Medan yang mempunyai anak Azam Rambe yang makamnya di Medan Sumut, Manjoling Rambe yang masih hidup dan tinggal di Dusun Padang Laut Desa Tanjung Medan , Kayang Rambe yang makamnya terletak di Lombang Kelurahan Padang Matinggi Kec. Rantau Utara dan Adenan Rambe yang makamnya terletak di Dusun Tanjung Medan Desa Tanjung Medan yang mempunyai anak Karmil Rambe yang makamnya terletak di Dusun Tanjung Medan Desa Tanjung Medan, Ridwan Rambe, Sangkot Aghar Rambe,  Tumpu Rambe dan Monang Rambe.

Kamis, 03 November 2011

antara buah dengan marga


.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
Wujudnya berupa pohon dengan tinggi 9-12 m dengan tajuk pohon yang lebar. Daunnya hijau mengilap di permukaan atas (ventral) dan agak kecoklatan dan sedikit bermiang di sisi bawah. Daun dapat dapat berukuran hingga 33 cm panjang dan 15 cm lebar. Tumbuhan ini berumah dua (dioecious), sehingga dikenal tumbuhan jantan dan tumbuhan betina. Bunganya harum dan bermahkota kuning. Benang sarinya dapat mencapai panjang 15 cm dan putiknya bahkan 75 cm. Buahnya berukuran diameter 2 sampai 5 cm dan seperti bunganya tersusun majemuk seperti rantai. Buahnya berkulit agak seperti beludru dengan warna kuning atau coklat muda, berisi 3 sampai 5 biji yang terbungkus oleh daging buah. Daging buah ini dapat dimakan mentah, direbus, atau dibuat selai dan minuman anggur.Kayunya berkualitas rendah. Khusus di Tano Rambe warna buah rambe ada yang berwarna merah. Belum ada  penelitian yang dapat menerangkan sebab mengapa warnanya demikian. Karena belum ada peneliti yang meneliti gejala warna buah rambe yang seperti itu.

Selasa, 01 November 2011

kegiatan yang lumayan membosankan...

Di mulai pagi hari. Saya memulainya dengan bangun tidur karena kalaw saya belum bangun pasti saya ga akan memulai sesuatu heheheheee...

Biasanya saya bangun jam 06.00 dan itupun di bangunin biasanya sama seseorang yang istimewa untuk saya.
bukan istri atau ibu tapi kakak saya.
Ya kakak saya, saya tinggal dengan kakak sayang yang paling besar sejak umur saya masih 7 tahun.
Kakak saya membangun kan sayang bukan dengan cara halus tapi dengan cara mengomel kepada anak2 nya yang cukup bandal.
karena mendengar omelan beliau lah saya menjadi bangun.
setelah bangus biasanya saya ke kamar mandi untuk membersihkan muka dan selanjutnya membereskan tempat tidur yang berantakan dibuat oleh keponakan saya. karena tidurnya lasak.
setelah beres dengan tempat tidur baru saya ke kamar mandi lagi untuk mandi tentunya, karena tadi hanya membersihkan muka..
setelah selesai mandi dan berpakaian saya lanjutkan ke meja sarapan.
lagi2 kakak saya ngomel kepada dkeponakan saya karena tidak mw sarapan. yaaahhh sarapan pake omelan deh.

Tapi itu sudah biasa saya jalani karena memang seperti itu lah kakak saya. selesai sarapan saya berangkat kuliah dan sekalian saya mengantar keponakan saya yang bandel tadi ke sekolahnya karena satu arah.
biasaya sebelum jalan saya persiapkan dulu semua perlengkapan dalam perjalanan saya yaitu perlengakapan dalam mengendarai sepeda motor karena saya kuliah menggunakan sepeda motor yang diberikan oleh abang ipar saya. selain perlengkapan berkendaraan tak lupa saya memakai heased sambil mendengarkan musik karena saya suka ngantuk di jalan jadi saya pake headsed untuk menjaga agar saya tidak mengantuk di perjalanan. kan kalo ngantuk bisa bahaya..

setelah sampai di kampus tercinata ya itu the green kampus saya biasanya menunggu teman2 dulu baru masuk ke dalam kelas karena kalo masuk sendirian ga asik heheheheeee

biasanya setelah pulang kuliah kami ngumpul di tempat teman untuk membicarakan banyak hal seperti tugas kuliah masalah teman dan lain2 pokoknya banyak deh.

tapi sayangnya saya selalu pulang duluan karena tuntutan profesi.
maklum lah saya kan orang yang berjuang untuk kelangsungan kuliah saya, dengan keadaan demikian saya bekerja di sebuah warnet punya kakek teman saya.

samapai sekarang saya masih bekerja di tempat ini.
dan saya mensyukuri apa yang saya jalani saat ini..
 

untuk hari ini sekian dulu ya lain waktu kita sambung lagi ok..

Rabu, 12 Oktober 2011

Barus, Tapanuli Tengah


Barus, Tapanuli Tengah


Barus adalah sebuah kecamatan di Kabupaten Tapanuli TengahSumatera UtaraIndonesia. Kota Barus terletak di pinggir Pantai Barat Sumatera. Barus sebagai kota Emporium dan pusat peradaban pada abad 1 – 17 M, dan disebut juga dengan nama lain, yaitu Fansur.
Pada masa lalu Kapur Barus dan rempah-rempah merupakan salah satu komoditas perdagangan yang sangat berharga dari daerah ini dan diperdagangkan sampai ke Arab, dan Parsia. Kapur Barus sangat harum dan menjadi bahan utama dalam pengobatan di daerah Arab dan Persia. Kehebatan kapur ini pun menjalar ke seluruh dunia dan mengakibatkan dia diburu dan mengakibatkan harganya semakin tinggi. Eksplorasi yang berlebihan dari kapur barus ini mengakibatkan tidak ada lagi regenerasi dari pohon yang berusia lama ini. Saat ini sangat susah menemui pohon kapur barus, kalaupun ada umurnya masih belum mencapai usia memproduksi bubuk yang ada di tengah batang pohon.
Barus kota tua, menjadi salah satu tujuan wisata bagi para peneliti arkeologi islam, baik dari dalam negeri dan dari luar negeri, khususnya di Lobu Tuadimana peneliti Prancis dan Indonesia melakukan eksplorasi arkeologi. Saat ini kita dapat melihat peninggalan sejarah Islam di Barus, yaitu dengan adanya makam Papan Tenggi dan makam Mahligai.
Berikut sebahagian pakar yang terlibat dalam eksplorasi maupun pelestarian kebudayaan Barus : Prof.Dr.Hasan Muarrif Ambari (Arkeologi Islam), Prof Dr Ludwick Kalus, Prof Dr C Guillot dan Dr Daniel Perret (arkeolog Perancis), Prof Dr Datok Nik Hassan Shuaimi (pakar sejarah Universitas Kebangsaan Malaysia), Prof Dr Azyumardi Azra (pakar sejarah Univ. Islam Negeri Syarif Hidayatullah), Prof Dr M Dachnel Kamars MA (pakar administrasi pendidikan Universitas Negeri Padang), Dr M Nur MS (pakar sejarah Universitas Andalas).

SEJARAH DAERAH

Sebelum kemerdekaan R.I, wilayah Barus meliputi daerah-daerah yang berada di Kecamatan Barus, Manduamas, Sirandorung, Andam Dewi, Sosorgadong, Kecamatan Sorkam, Sorkam Barat dan Kolang yang sekarang masuk ke dalam daerah Kabupaten Tapanuli Tengah. Seterusnya Kecamatan Pakkat, Parlilitan, Tara Bintang dan Onan Ganjang yang sekarang masuk wilayah Kabupaten Humbang Hasundutan. Sebagian daerah Kabupaten Aceh Singkil dan Kota Subulussalam di Propinsi Aceh. Daerah Barus dulunya dikenal dengan nama Barus Raya. Wilayah Barus Raya terdiri atas :
1. BARUS KOTA meliputi Dewan Negeri Barus, Kota Barus, Barus Mudik, Tukka Holbung, Dewan Negeri Pasaribu Dolok berikut desa-desanya antara lain, Kinali, Ladang Tengah, Ladang Baru, Lobu Tua, Uratan, Rina Bolak, Sirami-ramian, Sogar, Pangaribuan, Parik Sinomba, Sihorbo, Purba Tua, Aek Dakka, Siharbangan, Pananggahan, Bukit Hasang, Patupangan, Sigambo-gambo, Kadei Gadang, dll.
2. BARUS TIMUR terdiri dari Dewan Negeri Sorkam, Sorkam kanan, Sorkam kiri, Pasar Sorkam, Bottot, Teluk Roban, Pahieme, Bukkit, Pagaran-Tombak, Riana Bidang, Pasaribu Tobing, Gotting Mahe, Hurlang dengan ibu kotanya Kolang, Sipakpahi, dan lain-lain.
3. BARUS UTARA meliputi Dewan Nagari Tukka Dolok, Kecamatan Pakkat, Kecamatan Parlilitan dan Onan Ganjang (di Tapanuli Utara, Negeri Siranggason Negeri Simanullang, Negeri Rambe, berikut desa-desanya antara lain Batu Gaja Siantar-sitanduk, Situbu-tubu, Tara Bintang, Aek Riman, Sibua kare, Huta Ambasang, Sigalapang, Aek Sopang, Tolping, Siambaton Julu, Temba, Arbaan, Parbotihan, Sanggaran, Huta Julu, Sihikkit, Banuarea, Sijarango, Sitonong, Sampean, Kalasan, Pusuk, dan lain-lain.
4. BARUS BARAT, terdiri dari Dewan Negeri Siambaton Napa, Manduamas, Gosong-Telaga, Laebutar, Singkil Baru (Suraya) berikut desa-desanya antara lain Pardomuan, Tumba, Binjohara, Pagaran-Pinang, Saragih, Purti, Balno, Rimau, Oboh, Runding,Tambisi, Sikoran, Napagalu, Bistang, Pangkalan Surambi, Lipek Kajang, Pakkiraman, Sirimo-Bunga-Tolu, Kampung Keras, Lae Gambir, Bonang, Siteraju, Namasondol, Suro, Uruk-datar, Tanjung Mas, Subulussalam, dan dll.
5. BARUS SELATAN adalah samudera Indonesia yang didepannya ada Pulau Mursala, Pulau Sorkam, Pulau Panei, Pulau Karang, Ulak Bumi, Pulau Lipan, Pulau Mangki- Gadang, Pulau Panjang, Pulau Sarok, dan Pulau Sikandang. Luas wilayah Barus Raya diperkirakan lebih dari 400.000 ha, memanjang sepanjang pantai Barat Sumatera, antara Muara Kolang di Tenggara sampai muara sungai Simpang Kanan. Sungai-sungainya yang terbesar antara lain, Aek Raisan melintas di negeri Kolang, Aek Sibondong, hulunya Kota Dolok Sanggul di Humbang Hasundutan dan bermuara di Pasar Sorkam.
Pada Juni 1946 melalui sidang Komite Nasional Daerah Keresidenan Tapanuli, dibentuklah Kabupaten Sibolga / Tapanuli Tengah. Seiring itu pula di Tapanuli Tengah mulai dibentuk kecamatan-kecamatan untuk menggantikan sistem Pemerintahan Onder Distrik Afdeling . Sibolga adalah kecamatan yang pertama kali dibentuk, menyusul Lumut dan Barus. Dengan demikian pada waktu itu status Barus resmi menjadi sebuah Kecamatan. Dengan sendirinya wilayah Barus Raya sudah terbagi-bagi sesuai ketentuan yang berlaku pada saat itu. Adapun Sorkam masih dalam wilayah Kecamatan Barus. Dengan Undang-Undang darurat no. 7 Tahun 1956, di Sumatera Utara dibentuklah daerah otonom kabupaten, termasuk Tapanuli Tengah. Melalui undang-undang itu juga Sibolga menjadi Kota Praja. Terpisahnya Sorkam dari Kecamatan Barus didasarkan adanya ketentuan yang menyatakan bahwa setiap kabupaten harus mempunyai dua kewedanaan dan satu kewedanaan minimal harus dua Kecamatan. Wedana Barus terdiri dari Kecamatan Barus dan Kecamatan Sorkam. Berdasarkan PP No. 35 /1992 tanggal 13 Juli 1992 tentang pembentukan 18 kecamatan yang ada di Sumatera Utara, maka Kabupaten Tapanuli Tengah mendapat 2 daerah pemekaran yakni Kecamatan Manduamas yang merupakan hasil pemekaran dari Kecamatan Barus dan Kecamatan Kolang hasil pemekaran dari Kecamatan Sibolga. Sesuai dengan perkembangan pemekaran wilayah yang terjadi di seluruh Indonesia, maka Kecamatan Barus pun dimekarkan berkali-kali. Dalam berberapa tahun saja menjadi kecamatan, Manduamas dimekarkan menjadi dua kecamatan yakni Kecamatan Manduamas dan Kecamatan Sirandorung. Sementara Kecamatan Barus dimekarkan lagi menjadi beberapa kecamatan yaitu Kecamatan Barus, Kecamatan Sosorgadong, Kecamatan Andam Dewi dan Kecamatan Barus Utara.
Setelah Sorkam lepas dari Barus, maka Kecamatan Barus sebelum dimekarkan mempunyai banyak nama desa dan kelurahan sebagai berikut : Sibintang, Barangbang, Sosorgadong (yang kemudian menjadi nama kecamatan tersendiri), Siantar CA, Muara Bolak, Siantar Dolok, uta Tombak, Unte Boang, Purba Tua, Huta Ginjang, Sijungkang, Pariksinomba, Sihorbo, Pananggahan, Kade Gadang, Sigambo-gambo, Kampung Solok, Pasar Terandam, Kinali, Kelurahan Pasar Batu Gerigis, Gabungan Hasang, Patupangan, Ujung Batu, Kelurahan Padang Masiang, Sawah Lamo, Ladang Tengah, Labu Tuo, Uratan, Kampung Mudik, Aek Dakka, Bondar Sihudon, Rina Bolak, Sosorgonting, Sirami-ramian, Pangaribuan, Sogar, Sigolang, Pasar Onan Manduamas (sekarang menjadi ibukota Kecamatan Manduamas), Simpang III/Lae Bingke, Manduamas Lama,Siordang, Saragih, Pardomuan, Tumba CA, Sigolang, Binjohara dan Simpang Maruhur.

LETAK GEOGRAFIS

Untuk menentukan keadaan letak geografis dengan pendekatan astronomi suatu daerah yang didasarkan kepada letak lintang dan bujurnya maka wilayah Barus terletak berada di antara 10 26-20 11 Lintang Utara dan 910-980 53 Bujur Timur. Sebelum pemekaran Kecamatan Barus berbatasan langsung dengan Provinsi Aceh dan Kabupaten Tapanuli Utara. Setelah pemekaran maka Kecamatan Barus berbatasan dengan :
Sebelah Timur dengan Kecamatan Sosorgadong Sebelah Selatan dengan Samudera Indonesia (Lautan Hindia) Sebelah Barat Kecamatan Andam Dewi Sebelah Utara Kecamtan Barus Utara
Kecamatan Barus mempunyai 2 Kelurahan dan beberapa desa. Kelurahannya adalah Pasar Batu Gerigis dan Padang Masiang. Kedua kelurahan ini mempunyai fungsi dan kedudukan masing-masing. Kelurahan Pasar Batu Gerigis yang letaknya langsung berbatasan dengan Samudera Indonesia menjadi pusat perdagangan dan jasa. Di kelurahan ini berdiri gedung pusat perdagangan dan pertokoan. Gedung perkantoran lainnya adalah Kantor Pos dan Bank Sumut. Di Kelurahan Pasar Batu Gerigis berdiri pula Gedung SD, SMP Muhammadiyah tepat di Jl. R.A. Kartini. Bidang Jasa daerah ini merupakan pusat jasa angkutan ke luar wilayah Kecamatan Barus. Stasiun atau agen angkutan umum penumpang pusatnya di sekitar Jl. K.H. Zainul Arifin. Angkutan yang dilayani adalah Tujuan Medan, Sibolga, P.Sidempuan, Dolok Sanggul dan Singkil. Kalau sudah menjadi sentral pengangkutan umum, tentu disana juga terdapat penginapan dan rumah-rumah makan.
Sementara di Kelurahan Padang Masiang merupakan pusat pemerintahan dan pendidikan. Di kelurahan ini berdiri gedung-gedung perkantoran di antaranya Kantor Camat Kecamatan Barus, KAPOLSEK, KORAMIL, PLN, BRI, TELKOM , PUSKESMAS dan Kantor KUA. Gedung lain yang berdiri yakni SD Negeri, SMP Negeri 1, SMA Negeri 1, Madrasah Aliyah Negeri, Perguruan N.U,,Sekolah Tinggi Ilmu Keguruan dan Sekolah Tinggi HISIBA.
Di antara kelurahan dan desa-desa yang berada di Kecamatan Barus masing-masing mempunyai areal pertanahan yang digunakan oleh penduduknya. Tanah-tanah tersebut tergolong subur dan ditumbuhi oleh pepohonan dari berbagai jenis seperti pohon kelapa sepanjang pantai Samudra Indonesia. Penanfatan tanah di Kecamatan Barus terdiri dari perkampungan penduduk, persawahan, ladang, kolam, rawa-rawa dan lain-lain.
Pengungkapan secara singkat tentang letak geografis disuatu daerah memahamkan bahwa Kecamatan Barus salah satu wilayah di Kabupaten Tapanuli Tengah. Adapun jarak antara Barus dengan ibukota kabupaten, Kota Pandan berkisar l.k. 75 Km. ditempuh rata-rata lama perjalanan 2,5 jam untuk pemakai kenderaan roda empat dan dua.
Daerah yang padat penduduknya adalah Kelurahan Pasar Batu Gerigis dan Desa Pasar Terandam.

AGAMA DAN ETNIS

Di Kecamatan Barus tiga agama di dunia yakni Islam, Kristen Protestan dan Kristen Katholik hidup berdampingan. Penduduk Kecamatan Barus didiami Etnis Pesisir yang mayoritas beragama Islam. Bentuk keyakinan lain adalah kepercayaan Parmalim yang merupakan agama nenek moyang suku Batak.
Etnis Pesisir mempunyai ragam budaya dan bahasa tersendiri. Berkenaan dengan pembagian etnis dimiliki penduduk melahirkan suatu ke-Bhinneka Tunggal Ika an. Demikian di Kecamatan Barus, Etnis Pesisir hidup berdampingan dengan Etnis Minangkabau, Batak Toba, Mandailing, Aceh, Pakpak, Nias, Bugis dan Jawa. Kendatipun demikian keturunan Arab, India dan China masih terdapat di Kecamatan Barus.
Penduduk Kecamatan Barus yang beretnis Pesisir umumnya mempunyai marga sesuai dengan suku induknya. Masyarakatnya banyak yang bermarga Batak seperti : Pasaribu, Sinaga, Sinambela, Tarihoran, Sitanggang, Sihombing, Tanjung, Pohan, Samosir, Limbong dan lain-lain. Ada juga yang bermarga Mandailing seperti Nasution, Lubis, Batubara, Matondang dan bersuku Minang di antaranya Chaniago. Dari Etnis Nias ada marga Harefa, Lase. Begitu juga dari marga Pakpak yakni Gaja, Tumanggor dan lain-lain.
Dengan adanya berbagai etnis ini maka penggalangan persatuan dan kesatuan dapat terbina dengan baik. Banyaknya etnis di Kecamatan Barus kemungkinan besar tidak terlepas dari julukan ‘Kota Tua’. Sebagaimana diketahui bahwa Barus dulunya merupakan pelabuhan internasional yang disinggahi berbagai etnis dan suku bangsa di dunia untuk mendapatkan kapur barus dan rempah-rempah.
PEREKONOMIAN

Untuk menunjang kehidupan yang layak maka perekonomian sangat menentukan tingkat kemakmuran suatu daerah. Di Kecamatan Barus mata pencarian masyarakatnya sebagai tulang punggung penunjang kehidupan yang layak tersebut. Profesi masyarakatnya ada yang menjadi nelayan, pegawai, petani dan berdagang. Mata pencarian ini dapat dibagi menjadi berbagai sektor di antaranya sektor perikanan atau kelautan, sektor perindustrian, sektor Jasa dan perdagangan.
1. Perikanan
Sebagai daerah yang langsung berbatasan dengan Samudera Indonesia, maka penduduk Kecamatan Barus banyak yang menjadi nelayan. Umumnya nelayan di Kecamatan Barus sangat bergantung dari hasil perikanan laut. Desa yang menjadi pusat transaksi hasil laut tersebut berada di Desa Pasar Terandam atau Kualo (istilah masyarakat setempat) dan Desa Kade Gadang. Kualo menjadi pusat kegiatan nelayan, tempat ini dilengkapi dengan pelelangan ikan. Pelabuhan Kualo yang berada di Desa Pasar Terandam merupakan kawasan yang paling aktif di Barus. Di antara kegiatan yang berkaitan dengan penangkapan ikan, terdapat pula pembuatan kapal bot, pembuatan es, kenderaan pengangkutan ikan segar ke ibukota Propinsi Sumatera Utara, Medan, ke Sibolga, Padang, Dolok Sanggul dan daerah lainnya. Penjualan ikan yang murah di daerah Barus di jajakan oleh pedagang keliling bersepeda atau kenderaan sepeda motor. Masyarakat setempat menyebutnya pangalong-along. Penjual ikan pun ada pada hari 'onan' (pekan) di hari Sabtu dan Rabu.
Sebagai sarana angkutan atau tempat bagi nelayan untuk menangkap ikan maka diperlukan kapal motor angkut yang biasa disebut ”BOT” yang berjumlah ratusan buah, terbuat dari kayu meranti dan kayu kapur yang dibawa dari Pulau Mursala terdapat di lepas pantai Sibolga. Kapal motor ini terdiri dari badan, satu ruangan kabin yang sederhana satu motor penggerak yang dapat mengangkut antara 170 hingga 280 m 3. Di samping Bot para nelayan juga memberdayakan sarana angkutan perahu jongkong (jukung), perahu papan (biduk),motor tempel (sitempel), bagan tancap dan bagan perahu.
Untuk menunjang sarana perlengkapan angkutan dan tempat maka para nelayan memakai peralatan penangkapan berupa jaring atau pukat. Di daerah Barus sekitarnya terdapatlah pukat payang, pukat pantai/dogal, pukat kantong, perangkap bubu, rawai, pancing, jaring insang tetap, jaring lingkar dan jaring insang hayut.Selain melaut, para nelayan pun mempunyai kegiatan lain seperti pembuatan keranjang, perbaikan jaring dan tempat penjemuran ikan.

2.Pertanian
Selain nelayan, masyarakat Barus mempunyai penghasilan dari hasi pertanian. Wilayahnya terdapat hamparan sawah yang ditanami padi. Hasil panen padi diperlukan oleh masyarakat untuk kebutuhan sehari-hari. Oleh karena tanah persawahannya kebanyakan mengharapkan air hujuan, maka selesai panen masyarakatnya tak dapat berbuat banyak untuk membuat hasil lain.
3. Industri
Di Kecamatan Barus berkembang industri kecil menengah yang dikelola secara perorangan. Industri itu di antaranya pengasinan ikan, kilang es batu, kilang kopi, industri pembuatan stroop (siroop), kerupuk, anyaman daun pandan.
4. Jasa
Pandai besi, bengkel mobil, bengkel sepeda motor, reperasi sepeda, cas batrey, tambal ban, fotocopy, salon, tukang foto, reperasi radio/TV, bengkel perahu, bengkel las, pertukangan perabot rumah tangga, pembuatan batako, galangan kapal. Jasa angkutan, jasa penginapan (hotel)dan rumah makan. Di Kecamatan Barus terdapat berbagai penginapan yakni Hotel Fasyuri terletak di Jl. A. Yani Barus, dan penginapan Pesanggarahan di Kelurahan Padang Masing.
5. Perdagangan
Masyarakat yang berprofesi menjadi pedagang umumnya berdomisili di Keluarahan Pasar Batu Gerigis. Kegiatan jual beli dilaksanakan di onan (pasar) yang terjadi di Hari Rabu dan Sabtu. Para pedagang berdatangan dari luar Barus. Pedagang sayur-sayuran datang dari Dolok Sanggul, Pakkat. Sementara untuk kebutuhan sehari-hari disediakan masyarakat setempat. Hari Rabu dan Sabtu merupakan hari Sibuk bagi bagi masyarakat Barus. Pedagang bahan material bangunan, pedagang pakaian menempati kios-kios. Sementara pedagang sayur mayur berjualan di kaki lima.

POTENSI WISATA

Daerah Barus sekitarnya ditinjau dari segala aspek mempunyai potensi yang sangat besar terutama potensi pariwisatanya. Sektor pariwisata bahari dan keindahan alam lainnya. Hal ini didukung dengan kondisi alam dan masyarakat Barus yang ramah tamah serta banyak objek wisata yang tersebar diwilayahnya. Objek wisata pantai adalah merupakan primadona tersendiri yang dimiliki Barus. Disamping itu Kecamatan Barus juga memiliki objek wisata sejarah berupa Benteng Portugis dan makam-makam kuno yang merupakan makam para penyebar agama Islam tempo dulu. Makam yang terkenal adalah Makam Mahligai dan Papan Tinggi. Sayangnya potensi wisata di Kecamatan Barus belum betul-betul dimanfaatkan menjadi daerah tujuan wisata sehingga banyak yang terlantar belum dikelolah sebagaimana mestinya.
Untuk mendukung para wisatawan yang akan berkunjung ke Barus, maka pelancong dapat menggunakan pesawat udara dari Jakarta ke kota Medan, dari Medan dapat menggunakan angkutan darat langsung menuju Barus. Bus yang melayani trayek Medan-Barus di antaranya CV SAMPRI yang beralamat Jl. Jamin Ginting Medan arah ke Brastagi. Atau menggunakan pesawat udara ke Sibolga lewat Bandara Pinangsori, selama 30 menit, dari Sibolga membutuhkan 2.5 jam perjalanan lagi menuju Barus. Tujuan ke Barus dapat juga menggunakan travel minibus dari Medan menuju Sibolga selama 7-8 jam. Angkutan yang melayani Medan-Sibolga banyak di antaranya CV Simpati,CV Sibuluan Indah beralamat Jl. SM.Raja Medan. Sekarang sudah ada jasa travel jenis kijang kapsul dari Medan menuju Barus yakni CV. Putra Barus Travel yang beralamat di Jl. pancing no. 231 A depan kantor gubernur lama kota Medan.
Bagi yang mempunyai kenderaan pribadi untuk berkunjung ke Barus melalui jalan darat ; Dari Medan – Parapat – Balige - Siborong-borong – Dolok Sanggul – Barus atau Medan – Brastagi – Kabanjahe – Sidikalang – Dolok Sanggul – Barus. Dapat juga melalui rute Medan – Parapat – Balige - Tarutung – Sibolga - Barus

Cara Membuat Stopwatch Sederhana dengan Visual Basic 6.0


Cara Membuat Stopwatch Sederhana dengan Visual Basic 6.0

   


1. Tambahkan 1 buah form.
                                                                    


2. Tambahkan 3 buah label, masing – masing atribut   caption-nya dikosongkan.
3. Tambahkan 1 buah timer, ganti atribut name-nya menjadi “tmrTime”. 
4. Tambahkan 1 buah commandbutton, ganti atribut name-nya menjadi “btnStart”.
5. Masukkan code berikut disetiap control :

Private Sub btnStart_Click()
If tmrTime.Enabled = False Then
tmrTime.Enabled = True
Else
tmrTime.Enabled = False
End If
End Sub

Private Sub tmrTime_timer()
Label3.Caption = Val(Label3.Caption) + Val(1)
If Label3.Caption = 60 Then
Label2.Caption = Val(Label2.Caption) + Val(1)
Label3.Caption = 0
ElseIf Label2.Caption = 60 Then
Label1.Caption = Val(Label1.Caption) + Val(1)
Label2.Caption = 0
End If
End Sub

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

Private Sub btnExit_Click()
Unload Me
End Sub


6. Jalankan program tersebut, lalu lihat hasilnya ! 
7. Selesai.