MIMPI ANAK DESA

awal Cerita, Cerita baru, tahun baru, kehidupan dunia baru. Kisah yang penuh dengan tiki taka, liku-liku kehidupan, begitu Kelam, gaduh, senang, sakit, bahagia, sungguh hidup yang penuh warna. tidak tahu harus mulai dari mana untuk berbagi, begitu banyak memori, begitu banyak kenangan, warna-warna perjalanan hidupku.

hidup, hidup adalah anugerah terindah, begitu besar anugerah yang telah di berikan Allah Swt, Sungguh luar biasa, sungguh kita harus bersyukur atas semuanya. di sebuah desa kecil, sebuah desa yang masih alami, penuh dengan air, hutan hewan yang tidak asing lagi bagi penduduk desa. belum lagi ke indahan gunung yang berbukit-bukit. sungguh Allah yang maha besar atas ciptaannya. 

Kisah si  Anak desa mengejar Matahari

Hidup dan impian

hidup dan impian mungkin sudah tidak asing lagi kita dengar, namun ada hal-hal di makna dari kata-kata itu. yang kita tidak tahu. Pada saat kita punya impian, yang ada dalam benak kita, hanya sebuah kesuksesan, kebahagiaan, sehingga kita larut dalam angan itu. tanpa kita persiapkan mental kita untuk mewujudkan impian itu, pernahkah kalian terbenak dalam pikiran anda bahwa mimpi itu adalah sebuah perjuangan?? dalam perjuangan akan selalu ada hambatan-hambatan, begitu juga rintangan untuk menggapai sebuah impian. apakah anda siap dengan impian besarmu? pertanyaan-pertanyaan itu timbul pada saat ini terhadap saya. 

 

saya mempunyai impian yang hingga saat ini. impian itu belum tercapai, namun saya tidak akan menyerah sampai disini, hidup akan selalu berputar seperti roda, jika kita berhenti, maka roda kehidupan yang akan memutar kita, jika roda yang mengendalikan kita, ingatlah jurang akan selalu membayangi kita, tapi ketika kita bisa menyeimbangkan roda itu dengan kendali kita, dengan terus berjalan, berusaha menggapai mimpi besar kita, yakinlah impian kita akan berpihak pada kita. semoga para pejuang impian tetap semangat meski kita sibuk dengan aktivitas kita, tapi ingatlah pada impianmu, jangan pernah berhenti untuk mengejar impian itu..!!
Salam hangat dan do'a buat kita semua..!!

jawaban Tugas VB.net soal dari modul halaman 33

sesuai dengan Tutorial dari pengerjaan tugasnya. untuk lebih detailnya silahkan kunjungi ke sini

Listing Program :

Public Class latihan
    Sub table()
        ListView1.Columns.Add("NO.Pembelian", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Kode Brg", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama Brg", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("T.Gaji", 80, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isi()
        Dim lst As New ListViewItem
        lst.Text = no.Text
        lst.SubItems.Add(kode.Text)
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(total.Text)
        ListView1.Items.Add(lst)
    End Sub


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


     

        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")

    End Sub
    Sub AddJumlah()
        For i = 1 To 100
            jumlah.Items.Add(i)
        Next
    End Sub
    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
        total.Text = Val(jumlah.Text) * Val(harga.Text)

    End Sub



    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim latihan As String
        Microsoft.VisualBasic.Left(kode.Text, 2)
        latihan = Microsoft.VisualBasic.Left(kode.Text, 2)
        If latihan = "TS" Then
            merk.Text = "TOSHIBA"
        ElseIf latihan = "VG" Then
            merk.Text = "V-Gen"
        End If
        latihan = Microsoft.VisualBasic.Right(kode.Text, 3)
        If latihan = "001" Then
            nama.Text = "Flasdic 4GB"
        ElseIf latihan = "002" Then
            nama.Text = "Flasdisc 2GB"
     

        End If
        harga.Text = Microsoft.VisualBasic.Right(kode.Text, 5)
        If kode.Text = "TS001" Then
            harga.Text = 105000
        ElseIf kode.Text = "TS002" Then
            harga.Text = 75000
        ElseIf kode.Text = "VG001" Then
            harga.Text = 90000
        ElseIf kode.Text = "VG002" Then
            harga.Text = 60000
        End If
        no.Text = Microsoft.VisualBasic.Right(kode.Text, 3)




    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim i As Byte
        i = MsgBox("Apakah Anda Ingin Keluar Dari program Ini", MsgBoxStyle.YesNo, "Kembali Ke Menu Utama")
        If i = vbYes Then
            End

        End If
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            hitung_Click(sender, e)

        End If
    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isi()
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""


    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub hapusss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusss.Click
        ListView1.Items.Clear()
    End Sub

 
    Private Sub jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.SelectedIndexChanged

    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub
End Class


Hasil Program :

Postingan Jawaban Vissual Basic untuk soal no. 3

Seperti soal nomor 3 yang telah di cantumkan dalam blog Pak mesran,untuk lebih jelasnya klik Klik Disini
inilah programnya :

Listing Program :

Public Class Login
  
    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
        If user.Text = "paisal" And pas.Text = "paisal" Then
            Menu_Utama.Show()
            Me.Hide()
        Else
            MsgBox("Data Yg Anda Masukan Salah !!!!  Silahkan Anda Coba Lagi")
            user.Text = ""
            pas.Text = ""

        End If
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim i As Integer
        i = MsgBox(" Apakah Anda Ingin Keluar dari Program ini", MsgBoxStyle.YesNo, " Kembali Ke Menu Utama")
        If i = vbYes Then
            End

        End If
    End Sub

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

    End Sub

    Private Sub user_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles user.TextChanged

    End Sub
End Class

Hasil program :

Listing Program Menu Utama :

Public Class Menu_Utama

    Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
        Tagihan_PDAM.MdiParent = Me
        Tagihan_PDAM.Show()
    End Sub

    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
        Dim i As String
        i = MsgBox("Apakah Anda Ingin Keluar Dari Program ini", MsgBoxStyle.YesNo, "Kembali Ke menu utama")
        If i = vbYes Then
            End

        End If
    End Sub

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

    End Sub
End Class

Hasil Program :

Listing Program untuk Tagihan PDAM :

Public Class Tagihan_PDAM
 
    Sub table()
        ListView1.Columns.Add("K.Pelanggan", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("T.Pelanggan", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("N.Urut", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("B.Beban", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("J.pemakaain", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("T.tagihan", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Pembayaran", 80, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isi()
        Dim lst As New ListViewItem
        lst.Text = kode.Text
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(plgn.Text)
        lst.SubItems.Add(no.Text)
        lst.SubItems.Add(biaya.Text)
        lst.SubItems.Add(jmlh.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(tagihann.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        ListView1.Items.Add(lst)
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim i As String
        i = Microsoft.VisualBasic.Left(kode.Text, 3)
        If i = "TOK" Then
            plgn.Text = "Toko"
            biaya.Text = 25000
            harga.Text = 300
        ElseIf i = "RUM" Then
            plgn.Text = "Rumah"
            biaya.Text = 15000
            harga.Text = 100
        ElseIf i = "SWA" Then
            plgn.Text = "swalayan"
            biaya.Text = 10000
            harga.Text = 200
        ElseIf i = "PAB" Then
            plgn.Text = "pabrik"
            biaya.Text = 250000
            harga.Text = 500
        End If
        i = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
        If i = "MED" Then
            daerah.Text = "medan"
        ElseIf i = "BEL" Then
            daerah.Text = "Belawan"
        ElseIf i = "MAR" Then
            daerah.Text = "marendal"
        ElseIf i = "BIN" Then
            daerah.Text = "binjai"
        ElseIf i = "PAK" Then
            daerah.Text = "lubukpakam"
        ElseIf i = "TEM" Then
            daerah.Text = "Akasara"

        End If
        no.Text = Microsoft.VisualBasic.Right(kode.Text, 3)
    End Sub

    Sub AddJumlah()
        For i = 1 To 100
            jmlh.Items.Add(i)
        Next
    End Sub

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

        kode.Items.Add("TOK-MED-100")
        kode.Items.Add("TOK-BEL-101")
        kode.Items.Add("TOK-TEM-102")
        kode.Items.Add("TOK-MAR-103")
        kode.Items.Add("TOK-BIN-104")
        kode.Items.Add("TOK-PAK-105")
        kode.Items.Add("RUM-MED-106")
        kode.Items.Add("RUM-BEL-107")
        kode.Items.Add("RUM-TEM-108")
        kode.Items.Add("RUM-MAR-109")
        kode.Items.Add("RUM-BIN-110")
        kode.Items.Add("RUM-PAK-111")
        kode.Items.Add("SWA-MED-112")
        kode.Items.Add("SWA-BEL-113")
        kode.Items.Add("SWA-TEM-114")
        kode.Items.Add("SWA-MAR-115")
        kode.Items.Add("SWA-BIN-116")
        kode.Items.Add("SWA-PAK-117")
        kode.Items.Add("PAB-MED-118")
        kode.Items.Add("PAB-BEL-119")
        kode.Items.Add("PAB-TEM-120")
        kode.Items.Add("PAB-MAR-121")
        kode.Items.Add("PAB-BIN-122")
        kode.Items.Add("PAB-PAK-123")

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isi()
        kode.Text = ""
        daerah.Text = ""
        plgn.Text = ""
        no.Text = ""
        biaya.Text = ""
        harga.Text = ""
        jmlh.Text = ""
        pajak.Text = ""
        tagihann.Text = ""
        pembayaran.Text = ""


    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub hapuss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapuss.Click
        ListView1.Items.Clear()
    End Sub

    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
        tagihann.Text = biaya.Text + harga.Text * jmlh.Text
        pajak.Text = 0.1 * tagihann.Text
        pembayaran.Text = Val(tagihann.Text) + Val(pajak.Text)



    End Sub
End Class

Hasil Program :

  terima kasih...!!
buat pengunjung jangan lupa sering mangkal Kesini ya..!!! ^_^

Kaca yang berdebu

Kaca yang berdebuwmv

INSPIRASI CINTA

Cinta sejati itu menyembuhkan
Tidak menyakitkan
(Ibnu Athaillah)

Setelah sekian lama tidak hadir dalam dairy qu ini, rasanya kangen juga,..!!

Hari ini rasanya, hari yang tidak pernah akan di lupakan bercampur rasa senang dan sedih, selalu di bayangi oleh bayangan seseorang yang mungkin Allah belum berkehendak untuk itu. Aku tidak tau kenapa aku begitu menyukai dia, begitu membayangi akan bayangannya, yang jelasnya aku begitu mencintai dia sepenuh hati. rasanya berat untuk menerima kenyataan, namun berusaha untuk mengikhlaskannya. Saya coba mencari inspirasi yang mungkin bisa mengobati hati. 

aku tak tahu kenapa ini bisa terjadi, rasa yang dulu hilang, kini datang menyapa dengan lembutnya kehati ini.
berat langkah untuk mengungkapkan , tapi mungkin ini yang dapat meringankan rasa

kini berjuta rasa ada dihati yang menyesakan dada yag membuat tangan ini menari- nari untuk menuliskan kata-kata.

betapa bahagianya ketika alunan suara dan kata-kata datang menyapa rindu,
tak akan kusesalin yang telah terjadi, walaupun mungkin ini hanya kesia-siaan, dan mimpi (mimpi yang indah)
terima kasih telah memberikan rasa bahagia ini

BELAJAR VISUAL BASIC ( ZOOM OUT AND ZOOM IN) MENGGUNAKAN TRACKBAR

Assalamualaikum wr.wb

Dalam tutorial kali ini saya akan membahas mengenai zoom tulisan dan gambar dengan menggunakan trackbar, tutorial ini sangatlah sederhana dan hanya sebagai pijakan atau inspirasi dalam pembuatan aplikasi dengan menggunakan visual basic, disini saya menggunakan visual basic.net 2008, mungkin banyak langkah yang terlupakan dalam membuat tutorial ini, namun dapat dilihat pada tutorial-tutorial sebelumnya. Kita mulai tutorialnya sebagai berikut.

Langkah 1
Buatlah form dengan nama terserah anda, kemudian add.

Langkah 2

Pada form yang sudah anda buat, tambahkan  4 label dan 2 trackbar dengan memilih pada toolbox yang terdapat di sebelah kiri atas dari aplikasi visual basic.net 2008, setelah itu kita susun seperti gambar dibawah ini.

Langkah 3
Sekarang kita bermain dengan properties dari setiap masing-masing toolbox.
1.       Form   >> pada properties ubah text menjadi “terserah”
2.       Label1 & 3  >> pada properties ubah text menjadi kosong
3.       Label2  >> pada properties ubah text menjadi “terserah anda”
4.       Label4  >> pada properties isikan text dengan “spasi” dan pada image masukkan gambar yang anda inginkan.
5.       Trackbar1 & 2  >> pada properties ubah nilai maximum dengan nilai “100”, nilai minimum dengan nilai “1”
Jika sudah mengisikan tab properties maka tampilan akan sebagai berikut.

Langkah 4
Sekarang kita sudah dapat mengetikkan codingan dengan double click pada form yang anda buat dan ketikkan codingan berikut.

Public Class Trackbar
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Label1.Text = TrackBar1.Value.ToString
Label2.Font = New Font(“”, TrackBar1.Value)
End Sub
Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
Label3.Text = TrackBar2.Value.ToString
Label4.Font = New Font(“”, TrackBar2.Value)
End Sub
End Class

Logika

Text pada label1 kita buat sama dengan nilai tackbar yang mempunyai nilai string, kemudian font pada label2 kita buat sama dengan size font yang baru dengan nilai string sesuai dengan nilai trackbar tersebut. Jika semua langkah sudah dilakukan dengan baik, maka hasil yang didapat sebagai berikut.

Sekian tutorial kali ini saya buat, kritik dan saran sangatlah membantu, maju terus programmer Indonesia.. :”>
Wassalamualaikum wr.wb

Style Huruf Dengan Effect Bergerak Pada Visual Basic.Net 2008 (Bottom-Up)

Add caption

Assalamualaikum Wr.Wb
Pada tutorial kali ini saya ingin membahas mengenai teks dengan effect bergerak dari bawah ke atas, pada kesempatan sebelumnya saya telah membahas teks berjalan, mungkin tutorial kali ini tidak jauh berbeda dengan tutorial sebelumnya, namun disini saya kreasikan dengan sedikit perubahan kecil, berikut tutorialnya.

Langkah 1
Buatlah :
1 buah form
1 buah label
2 buah command button
1 buah timer
1 buah picturebox
1 buah texbox


Susunlah seperti gambar berikut.

Gambar 1

Langkah 2
Ubah Properties pada :
Button1 >> ubah kolom text menjadi “tampilkan”
Button2 >> ubah kolom text menjadi “berhenti”
Label1 >> ubah kolom name menjadi “lbljalan”, dan kolom text
Dikosongkan
Picturebox >> pilih image sesuai yang kalian inginkan
Hasil akan sebagai berikut.

Gambar 2

Langkah3.
Pada langkah ini kita sudah dapat mengetikkan coding sebagai berikut

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lbljalan.Text = ” ”
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim t = lbljalan.Top
lbljalan.Top = t + 500
While lbljalan.Top >= t
‘   Sleep(5000)
lbljalan.Top = lbljalan.Top – 10
End While
‘Sleep(12000)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
lbljalan.Text = TextBox1.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
End Class

Jika semua langkah telah dilakukan dengan baik dan benar maka hasil akan sebagai berikut.

sekian tutorial dari saya, semoga bermanfaat bagi para teman-teman programer sekalian, terimakasih.

Wassalamualaikum Wr.Wb.

Pembuatan Loading Pada Visual Basic.Net 2008

Assalamualaikum Wr.Wb

Pengenalan sedikit mengenai Microsoft Visual Basic.Net 2008.

>>Antarmuka atau lingkungan dari Visual Basic.Net IDE 2008 tidak jauh dengan visual basic 6.0 IDE, kelebihannya memiliki IDE yang lebih lengkap dan  terorganisir, sehingga mudah bagi pengembang untuk mencari object-object yang terdapat pada toolbox yang kita inginkan untuk ditempatkan pada form.

Untuk pembuatan software yang canggih, belum bisa dibilang keren kalau belum pake loading pada tampilan awalnya. Ok kita mulai tutorial mengenai pembuatan loading menggunakan Visual Basic.Net 2008, sebelum berangkat perang kita harus nyiapin senjata yang pastinya, senjata yang harus disiapkan sebagai berikut :

• Komputer yang sedikit canggih dengan spesifikasi yang lumayan, ga usah terlalu canggih-canggih banget.
• Software Microsoft Visual Studio, karna di sini kita dapat menginstall Visual Basic.Net tersebut. (link download software)
• Kesiapan mental dan kemauan yang kuat.
• Terakhir segelas susu anget boleh juga.

Langkah 1

Install Microsoft Visual Basic.Net 2008 pada Visual Studio yang ada, untuk cara menginstall ga perlu dijelasin dahh, uda pada ngerti semua kan.

Langkah 2

Buka Microsoft Visual Basic.Net 2008 yang sudah terinstall, tampilannya sebagai berikut.

Langkah 3

Buka file, kemudian new project, kita beri nama project “coba-coba”, kemudian OK.

Tampilan sebagai berikut.

Langkah 4

Pada langkah ini kita sudah dapat membuat loading tersebut dengan menggunakan splash screen yang sudah tersedia pada Visual Basic.Net 2008, cara nya dengan pilih pada menu project >>add new Item >> pilih splash screen, kemudian add. Lihat gambar dibawah ini.

Langkah 5

Kita sudah membuat splash screen, sekarang desainlah splash screen yang telah kalian buat sesuka hati kalian, dapat  ditambahkan background untuk splash screen dengan cara mengganti background image pada properties. Lihat hasil dibawah ini.

Langkah 6

Sekarang kita buat tools loading yang kita inginkan sedari tadi,. Hehehee*

Cara nya yaitu dengan menggunakan tools progress bar dan timer yang ada pada toolsbox. Setelah itu tools progress bar drag ke splash screen yang telah kita buat tadi. Sehingga menjadi seperti berikut.

Kemudian ketikkan codingan berikut pada timer, dengan cara double click timer tersebut  untuk membuat progressbar berjalan.

ProgressBar1.Value += 5
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
Me.Visible = False
Form1.Show()
End If

Logikanya yaitu kita memberikan nilai dari 0-100 dengan nilai setiap kali proses bertambah 5, jika nilai sudah mencapai 100 maka spalshscreen tersebut akan di hilangkan dan membuka secara otomatis from selanjutnya.

Dan pada mainlayout kita ketikkan coding berikut.

Timer1.Enabled = True

Logikanya yaitu kita memberikan hak untuk timer tersebut berjalan pada mainlayout dari splash screen yang kita buat.

Langkah terakhir merubah startup form dengan cara klik kanan pada project yang kita punya kemudian pilih properties dan ganti startup form menjadi splashscreen.

Jika langkah-langkah yang dibuat sesuai dengan tutorial maka hasil akan seperti gambar dibawah ini.

Kalian dapat mengkreasikan loading tersebut sesuai imajinasi masing-masing, kalian dapat merubah bentuk progressbar dengan cara mengganti style pada properties dari progressbar tersebut.

Sekian tutorial dari aNe, tungguin tutorial-tutorial berikutnya, masih mengenai Visual Basic.Net 2008.

Wassalamualaikum Wr.Wb

Dasar dasar membuat Diary untuk visual basic studio 2008 (pertama)

Visual basic merupakan bahasa yang paling mudah untuk dipahami, dikarenakan bahasanya yang sederhana dan hampir mendekati bahasa yang digunakan manusia sehari-hari. Aplikasi yang akan dibuat adalah contoh aplikasi penjualan barang sederhana... (sangat sederhana).

Dalam pembahasan kali ini, saya akan mencoba menjelaskan langkah-langkah dalam proses pembuatan suatu aplikasi menggunakan Visual Basic .NET 2008 dengan asumsi bahwa Anda telah sedikit memahami dan mengerti tentang apa itu Visual Basic beserta IDE yang akan digunakan (Visual Studio) termasuk syntax-syntax sederhana dalam pembuatan aplikasi menggunakan VB.

Semuanya akan dibuat dengan cepat dan ringkas.... hmmm...

Anda mungkin tidak percaya, pembuatan aplikasi penjualan ini hanya dikerjakan dalam waktu kurang dari satu hari...yups, 1 hari.. Tetapi itu belum dihitung dengan trial and error testnya.. hehe..

Untuk membuat suatu program yang profesional, waktu setahun atau dua tahun belum mencukupi. ;)

Bahan-bahan:

1. Visual Studio Professional 2008 / Visual Basic.net Express Edition
2. MS SQL Server 2005 Express Edition

1. Membuat proyek baru

Buka Visual Studio 2008 dan buat sebuah proyek baru dengan menggunakan menu File > New Project..

Pilih "Windows Forms Application" dengan target Framework 3.5 dan berikan nama "CTHAplikasi1" kemudian klik OK.

2. Menambah Database

Langkah berikutnya adalah kita akan menambahkan database dan coba menentukan tabel-tabel apa saja yang terdapat dalam database untuk aplikasi ini. Untuk tutorial pertama ini kita akan memulai dengan membuat 2 tabel yang terdiri dari : "Barang" dan "Kategori".

Pastikan SQL Express telah dijalankan. Masih di IDE VS (Visual Studio) klik menu Project > Add New Item..

Dalam tampilan dialog Add New Item, pilih "Service Based Database" dan masukkan nama "Database1.mdf". Kemudian klik tombol "Add". Lihat gambar:

Akan muncul kotak dialog "Datasource Configuration Wizard". Klik Finish. Jika semuanya telah dilakukan dengan benar, maka tampilan dalam Solution Explorer akan tampak seperti ini :

3. Menambah Tabel ke dalam Database

Klik menu View > Server Explorer untuk menampilkan Server Explorer.

Database yang baru dibuat tadi akan tampil dalam Server Explorer, dalam tutorial ini "Database1.mdf", jika terdapat tanda silang merah di database kita, klik kanan dan pilih refresh untuk membuka koneksi ke database. Lihat gambar:

Klik tanda plus (+) kemudian klik kanan di bagian "Tables" dan pilih "Add New table".

Akan muncul tampilan isian tabel. Isikan seperti gambar di bawah ini.

Jadikan "KDKategori" sebagai primary key dengan mengklik kanan baris "KDKategori" dan memilih "Set Primary Key".

Simpan tabel tersebut dengan nama "kategori" (tanpa tanda kutip).
Masih dalam tabel kategori, di tab Column Properties, pada bagian Identity Specification > nilai (Is Identity) di ubah menjadi "Yes" dengan Identity Increment sebanyak 1.

 

Hal di atas dilakukan untuk memberikan Increment Value terhadap KDKategori dengan nilai Increment=1.  Atau dengan kata lain, memberikan "Auto Number" terhadap KDKategori. :D
Pembuatan tabel kategori selesai.... ;)

Lakukan hal yang sama dengan tabel barang, dengan isian seperti gambar di bawah:

Jika kedua tabel telah selesai dibuat, maka tampilan dalam Server Explorer akan menjadi seperti gambar di bawah:

4. Membuat Diagram Relasi

Selanjutnya kita akan membuat relasi antar tabel. Klik kanan Database Diagrams dalam Server Explorer dan pilih Add New Diagram. Akan muncul kotak dialog konfirmasi, pilih Yes.

Setelah tombol Yes diklik, akan muncul kotak dialog "Add table". Tentukan tabel-tabel apa saja yang ingin dimasukkan ke dalam relasi. Dalam hal ini, masukkan tabel kategori dan tabel barang kemudian klik Close.

Tampilan tab diagram akan menjadi seperti gambar di bawah ini :

Klik dan tahan kolom KDKategori dari tabel kategori dan geser ke kolom KDKategori dalam tabel barang untuk membuat keduanya berelasi.

Akan muncul kotak konfirmasi, untuk memastikan kolom yang dimaksudkan sesuai dengan yang kita inginkan. Klik OK, maka akan tampil kotak dialog Foreign Key Relationship.

Pada bagian INSERT And UPDATE Specification, ubah nilai Delete Rule dan Update Rule menjadi Cascade :

Maksud dari Cascade dalam Delete Rule di atas adalah, setiap baris yang terdapat dalam relasi dengan pengaturan Cascade akan ikut terhapus bila tabel yang memiliki primary key dari relasi tersebut dihapus. Demikian juga dengan aturan Update Rule = Cascade.

Setelah tombol OK diklik, maka tampilan diagram relasinya menjadi :

Simpan diagram di atas dengan nama Diagram1.

5. Menambahkan LINQ to SQL Classes (Apa itu LINQ? = belum dibahas).

Berikutnya kita akan menambahkan LINQ to SQL Classes (LINQ = Language-Integrated Query). Klik Project > Add New Item.. kemudian pilih LINQ to SQL Classes dan beri nama DataClasses1.dbml kemudian klik Add.

Tab Object Relational Designer dari DataClasses1.dbml akan langsung terbuka. Masih dalam tab Object Relational Designer, buka Server Explorer dan geser kedua tabel yang barusan kita buat tadi ke dalam area Object Relational Designer, sehingga menjadi seperti gambar di bawah ini:

Klik Save untuk menyimpannya.

Simpan proyek kita dan tutup Visual Studio.

Sekian dulu untuk tutorial kali ini, pada kesempatan berikutnya akan saya lanjutkan dengan proses pembuatan form barang dan kategori, serta bagaimana melakukan query ke dalam database menggunakan LINQ. Stay tuned... Ciao!....
wew jangan tegang y klo membacanya enjoy aja, biar bisa kita nikmati he.ehhhe.h
goog luck y, selamat mencoba..!!!

Download Ebook Panduan Visual Basic Gratis!

Ada yang tertarik belajar pemrograman Visual Basic? Kalau ada, anda harus baca postingan ini sampai habis. Yah, karena di sini saya akan membagikan banyak ebook gratis panduan Visual Basic untuk anda. Gratis!! mau?

Well, jaman sekarang bahasa pemrograman rasanya bukan barang antik lagi. Sejak bermunculan sekolah-sekolah jurusan Teknik Informatika, bahasa pemrograman sudah mulai berkembang dan menjamur di mana-mana. Kalau dulu mencari seorang programer masih susah, tapi sekarang kayaknya sudah banyak. Tapi jangan khawatir, peluang kerja menjadi seorang programer masih banyak,, :bingung:

Dulu saya sempat tertarik mempelajari bahasa pemrograman Visual Basic. Mulai mencari tutorial dan panduannya di internet sampai membeli bukunya langsung di Gramedia. Memang sih, kalau belajar harus punya banyak bahan bacaan. Karena tak ada buku yang paling sempurna. Memiliki banyak buku akan membantu menutupi kekurangan dari buku lainnya. Seep!

Oke deh, bagi anda yang tertarik mempelajari pemrograman Visual Basic, di persilahkan mendownload ebook-ebook panduan yang pernah saya koleksi di bawah ini. Ebook sudah disusun secara berurut sehingga sangat mudah untuk di pelajari bagi pemula sekalipun. :tabrakn

1. Full Visual Basic I [ 13 Ebook | .zip | 1.5MB ]
2. Script Latihan [ 8 contoh dari ebook diatas ]
3. Contoh Program Sekolah [ .zip | 3.5MB ]
4. Full Visual Basic II [ 9 Ebook | 1MB ]

Jangan Guyur Air Langsung ke Kepala Saat Mandi : Bisa Stroke !

Quote:

Jakarta, Beredar peringatan agar saat mandi jangan langsung mengguyur air ke kepala karena bisa berisiko stroke. Ternyata menurut pakar saraf kemungkinan itu ada terutama pada orang-orang tertentu yakni saat udara terlalu dingin atau panas dan suhu tubuh sedang dalam kondisi sebaliknya.



Maka itu disarankan bila Anda sedang kepanasan atau kedinginan, sebaiknya hindari mengguyur air langsung ke kepala saat mandi. Pada orang-orang tertentu, mengguyur air langsung ke kepala dengan suhu yang berlawanan bisa menyebabkan stroke.

Quote:

Semua titik dan suhu dalam tubuh manusia baik yang berada di dalam maupun di luar berpengaruh pada aktivitas otak. Otak berfungsi untuk memonitor tubuh agar berfungsi secara normal, maka sesuatu yang ganjil pada tubuh tentu sangat mempengaruhi otak.

"Jika seseorang yang tubuhnya sedang kepanasan lalu langsung diguyur kepalanya dengan air dingin, bisa menyebabkan saraf kaget atau bahkan stroke bila terjadi pada orang yang tidak sehat," jelas Prof dr Teguh Ranakusuma, SpS (K), dokter spesialis saraf dari Departemen Neurologi FKUI-RSCM, saat dihubungi detikHealth, Senin (26/9/2011).

Prof Teguh menyebutkan, perubahan suhu yang tiba-tiba bisa menyebabkan stroke bila terjadi pada tipe-tipe orang dengan penyakit tertentu, yaitu:

Quote:

Penyakit jantung Tekanan darah tinggi Gangguan pembuluh darah (kardiovaskuler) Gangguan darah

"Ini juga terjadi ketika tubuh yang kedinginan tiba-tiba diguyur air panas. Perubahan yang tiba-tiba ini yang menyebabkan stroke. Makanya kalau orang haji sering mengalami heat stroke (stroke karena kepanasan), karena belum terbiasa dengan suhu yang tiba-tiba panas," lanjut Prof Teguh.

Prof Teguh menjelaskan, tubuh manusia memiliki regulasi yang tinggi karena terdapat thermo regulator (pengatur suhu) di otak. Ketika suhu tubuh panas, maka otak akan memerintahkan pembuluh darah untuk melebar agar terjadi penguapan dan penurunan suhu. Sebaliknya, otak akan memerintahkan pembuluh darah menyusut bila tubuh kedinginan.

Bila pembuluh darah yang sedang melebar karena kepanasan tiba-tiba disiram air dingin, maka bisa menyebabkan pembuluh darah pecah. Jika hal tersebut terjadi di pembuluh darah otak, maka bisa menyebabkan stroke. Hal yang sama juga terjadi ketika pembuluh darah yang sedang menyusut diguyur dengan air panas.

Menurut Prof Teguh, kondisi ini juga sering terjadi pada orang yang suka mandi uap. Jika selesai mandi uap yang panas kemudian langsung masuk ruangan AC, maka orang tersebut bisa pingsan. Perubahan suhu yang tiba-tiba bisa membahayakan pembuluh darah.

"Jadi orang yang memiliki penyakit jantung, hipertensi, ada masalah dengan pembuluh darah atau isi darahnya sendiri, harus hati-hati dengan perubahan suhu yang tiba-tiba. Kalau mau mandi sebaiknya diusap-usap dulu, jangan langsung diguyur ke kepala jadi biar beradaptasi dulu. Kita harus sayang dengan tubuh kita karena Tuhan sudah memberi kita tubuh yang sempurna. Sakit itu yang ngasih bukan Tuhan tapi karena manusia itu sendiri yang kurang bisa merawat tubuhnya," tutup Prof Teguh.

Untuk menghindari risiko kepala kaget disarankan saat udara terlalu dingin atau panas dan suhu tubuh sedang dalam kondisi sebaliknya, maka saat mandi jangan langsung mengguyur air di kepala. Beri tubuh penyesuaian dulu seperti menyiram tangan lalu badan baru ke kepala.
by : kaskuz
dikutip : icalray



kegelisahan hati

entah kenapa dengan diriku, belakangan begitu banyak masalah-masalah yang datang silih berganti, apakah ini cobaan buat kebahagiaanku di masa depan nanti, yang jelas rasa'a sungguh berat,.!!

tiada tempat untuk mencurahkan semua kegelisahan dan masalah yang saya hadapi ne, mungkin dengan mencurahkan ke blog ne, beban bisa berkurang. 

ya Allah semoga hamba dalam keridoanMU, hamba sadar hamba begitu banyak dosa, hamba juga tahu mungkin cobaan yang Engkau berikan ne adlah untuk kebaikan buat hamba,

Ya Allah akhir-akhir ne begtu banyak masalahku, berikanlah kekuatan, kesabaran, keikhlasan, dan jalan menuju keridhoanMU, hati ini rasanya hampa, ketika aq merasa jauh dariMU, amin..!!!

smoga engkau melindungi orang-orang yang sangat aku sayangi dan semoga Engkau mendengarkan doa-doa mereka,dan semoga senantiasa qami selalu dalam lindunganMU.amin..!!!!

Informasi Beasiswa bagi Mahasiswa

No. : 1388/D/T/98
Lamp : -
Hal : Bantuan beasiswa mahasiswa

Kepada Yth Sdr.
Koordinator Kopertis I – XII

Dengan hormat,

Sehubungan dengan adanya krisis moneter, diperkirakan akan mengakibatkan banyak mahasiswa yang tidak dapat meneruskan kuliah. Hal ini terutama disebabkan oleh karena sebagian mahasiswa tidak lagi mampu untuk membayar uang kuliah dan beaya-beaya lain yang diperlukan untuk menunjang kegiatan belajar mereka. Oleh karena itu dalam rangka mengatasi masalah ini diperlukan bantuan bagi mahasiswa dan pemerintah mengusahakan bantuan tersebut yang diberikan dalam 3 (tiga) pola sbb:

 

1. Pola beasiswa reguler prestasi

Diberikan kepada mahasiswa yang berprestasi akademik berdasarkan IP dan tanpa kerja. Prosedurnya sesuai tahun yang lalu dan besarnya rata-rata Rp. 700.000,- per tahun. Tahun anggaran 1998/1999 disediakan beasiswa regular prestasi bagi 45.000 mahasiswa (PTN + PTS).

2. Pola beasiswa kerja.
Beasiswa kerja diberikan kepada mahasiswa terpilih dengan kriteria:

• IP tidak diperhitungkan.
• Orang tua berpenghasilan prioritas I lebih kecil Rp. 250.000,-
• Orang tua berpenghasilan prioritas II lebih kecil Rp. 500.000,-
• Diberikan kepada mahasiswa yang SPP PTSnya lebih kecil sama dengan 1,5 SPP PTN setempat.

Secara nasional beasiswa kerja ini diberikan dengan perbandingan 60% eksakta dan 40 % non eksakta, serta diutamakan mahasiswi.

Mahasiswa yang terpilih dengan imbalan mahasiswa tersebut bekerja paruh waktu di Universitas antara lain sebagai :

•  Asisten dosen
• Asisten laboratorium
• Petugas perpustakaan
• Asisten peneliti
• Petugas koperasi mahasiswa
• Pendamping kegiatan mahasiswa.

Pola ini selain meringankan beaya operasional perguruan tinggi, sekaligus juga memberikan pengalaman kerja yang selaras dengan kegiatan akademik.Besarnya beasiswa kerja adalah sebesar SPP yang berlaku di PTSnya, yaitu rata-rata Rp. 700.000,- per tahun untuk PTN dan PTS.

Jumlah calon penerima beasiswa kerja dari PTS diperkirakan 68.600 orang.
3. Pola pinjaman bantuan belajar

Pinjaman bantuan belajar ini bisa dimanfaatkan oleh mahasiswa penerima keria dan penerima beasiswa reguler prestasi yang penghasilan orang tuanya lebih kecil Rp. 250.000,- per bulan. Bantuan pinjaman ini besarnya maksimal 50% dari SPP yang berlaku dari PTS tersebut dan digunakan untuk pembelian buku dan pendukung beaya penyusunan skripsi/penelitian.

 

Bantuan belajar diberikan kepada pimpinan PTS (Rektor/Ketua/Direktur) untuk diteruskan kepada mahasiswa sebagai pinjaman yang harus dikembalikan dengan masa tenggang (“grace period”) 5 tahun terhitung sejak beasiswa diterima, sedangkan waktu pengembalian adalah 10 tahun.

Apabila keadaan memungkinkan pinjaman bantuan belajar mahasiswa maksimum 6 tahun untuk S1 dan maksimum 4 tahun untuk DIII.

Apabila pengembalian pinjaman tidak sesuai dengan yang direncanakan, maka pimpinan PTS tetap bertanggung jawab untuk menyediakan beasiswa sesuai dengan jumlah yang telah disepakati. Konsekwensinya PTS harus mencarikan dana dari sumber-sumber lain untuk menutupi kekurangannya.

Bantuan pinjaman belajar yang dapat dimanfaatkan mahasiswa PTS diperkirakan 68.600 orang. Untuk PTS direncanakan 60% dari keseluruhan pinjaman bantuan belajar akan diberikan untuk jurusan eksakta (teknik, IPA dan matematika) dan 40% untuk jurusan ilmu sosial dan kependidikan dan diutamakan untuk mahasiswi.

4. Mekanisme penyaluran beasiswa diberikan dari perguruan tinggi kepada mahasiswa disamping kriteria tersebut di atas, penyaluran sepenuhnya diserahkan kepada PTS yang bersangkutan.

Selamat Hari Raya Idul Adha..!!!

INILAH PENGORBANAN YANG AMAT TINGGI YANG TELAH DITUNJUKKAN OLEH NABI IBRAHIM DAN NABI ISMAIL ALAIHIMASSALAM DALAM SEJARAH TAMADUN MANUSIA, KERANA MENDAULATKAN PERINTAH DAN HUKUM ALLAH S.W.T KE ATAS MEREKA TANPA RASA RAGU-RAGU, SEKALIPUN ADA RINTANGAN DAN HALANGAN DI SEPANJANG LALUAN TERSEBUT.

MELIHATKAN KEIKHLASAN NABI IBRAHIM A.S. ITU MAKA ALLAH S.W.T MENERIMA AMALANNYA DENGAN MENGGANTIKAN PENYEMBELIHAN ANAKNYA TADI DENGAN TEBUSAN SEEKOR KIBAS.

KERANA KESUNGGUHAN DAN KEAZAMANNYA MELAKSANAKAN PERINTAH ALLAH ITU, MAKA ALLAH MENGGOLONGKAN NABI IBRAHIM A.S DALAM GOLONGAN ‘ULUL ‘AZMI’ DI KALANGAN RASUL.

Kata telah terucap, tangan telah tergerak, prasangka telah terungkap,
Tiada kata, Kecuali “saling maaf” jalin ukhuwah & kasih sayang raih
indahnya kemenangan hakiki, Selamat Hari Raya 'aidul adha.
 

Calo PNS Ditindak Tegas

November 14th, 2010

Jakarta – Menteri Pendayagunaan Aparatur Negara dan Reformasi Birokrasi (Menpan dan RB) AA Mangindaan mengingatkan proses penerimaan Calon Pegawai Negeri Sipil (CPNS) agar tidak terjadi percaloan.

Jika ada calo yang bermain dalam proses penerimaan dan pelaksanaan ujian CPNS akan di proses secara hukum.

” Siapapun calo yang berani akan kita tindak tegas dan diajukan ke Polisi untuk diproses secara hukum,” tegas Mangindaan di Jakarta, Jumat (12/11).

Kementerian PAN dan RB sendiri menyediakan sarana untuk siapa saja yang ingin mengadukan persoalan penerimaan CPNS, utamanya terkait praktik KKN. Masyarakat bisa mengadu ke tromol pos 5000 yang dikelola Kementerian PAN dan RB atau ke Komisi Ombudsman.

Untuk itu, Mangindaan pun meminta pihak provinsi sebagai penanggung jawab pelaksanaan ujian CPNS di daerah harus bersih dari KKN.

Dia yakin, karena pihak provinsi sebagai penanggungjawab pelaksanaan ujian CPNS di daerah sudah mengikutsertakan pihak yang dianggap sangat independen, yakni Perguruan Tinggi Negeri (PTN) setempat maka harapannya terjaring CPNS-CPNS unggulan.

Mangindaan mengakui banyak keluhan yang sampai kepada pemerintah pusat terkait praktik KKN dalam sistem penerimaan CPNS.

Karena itu, dia mengimbau agar daerah mengumumkan secara transparan siapa saja yang lulus dan tidak lulus dalam uji seleksi yang dilakukan pihak PTN.

“Transparansi dan akuntabilitas ini yang sangat diharapkan sebagai sebuah langkah awal pemerintahan yang bersih, ” tandasnya.

Anggota Komisi II DPR-RI membidangi Pendayagunaan Aparatur Negara dan Reformasi Birokrasi Yassona H. Laoly mengharapkan proses seleksi CPNS tahun 2010 agar lebih diperketat guna meminimalisir dan menghapus keberadaan sistem percaloan yang kerap terjadi.

Wakil rakyat dari daerah pemilihan Sumut mengakui akan memantau secara terus menerus proses penerimaan CPNS, khususnya di Sumut.

“Mudah-mudahan tahun ini tidak ada permainan calo sebab kita harapkan penerimaan CPNS kali ini harus bersih sehingga mendapatkan CPNS-CPNS yang handal sekaligus sebagai ujung tombak untuk reformasi birokrasi,” ujar Laoly.

Politisi dari PDI Perjuangan ini berpendapat untuk mereformasi birokrasi yang utama menyangkut cara berpikir yang harus komprehensif dan sejak dini sudah menentukan kebutuhan SDM aparatur yang dibutuhkan lima tahun ke depan,” tukasnya.

Laoly juga sepakat agar perubahan kelembagaan yang saat ini sedang dilakukan atas dasar PP No 41 Tahun 2007, ditinjau ulang, sebab perubahan kelembagaan itu berdampak luas bagi aparatur di daerah.(dianw/aya)
SUMBER : WASPADA

SKPD Pemkab Madina Dirampingkan Jadi 12 unit

 November 13th, 2010

Panyabungan,

Reformasi birokrasi terus digulirkan Pj Bupati Mandailing Natal (Madina) Aspan Sofian Batubara. Rancangan peraturan daerah (Rapnerda) tentang penciutan jumlah Satuan Kerja Perangkat Daerah (SKPD) bersama rancangan peraturan tentang retribusi daerah diajukan pada rapat paripurna DPRD Madina, Kamis (11/11/2010).

Jumlah dinas daerah yang selama ini 18 unit akan dikurangi menjadi 12 unit saja dengan cara menggabungkan dinas-dinas yang sejenis secara fungsi. Kebijakan ini tetap berpedoman pada Peraturan Pemerintah Nomor 41 Tahun 2007 Tentang Organisasi Perangkat Daerah.

Bupati dalam nota pengantar ranperda itu menyatakan penciutan jumlah SKPD ini berdampak pada penghematan belanja sekitar Rp 6,5 miliar per tahun dari sisi tunjangan jabatan struktural. Penghematan itu belum termasuk dari sisi pembiayaan dan belanja kantor.

Beberapa dinas yang digabung meliputi penggabungan Dinas Kependudukan Catatan Sipil, Dinas Kesejahteraan Sosial, Dinas Tenaga Kerja Transmigrasi menjadi satu. Dinas Pekerjaan Umum digabung dengan Dinas Cipta Karya. Kemudian Dinas Perindustrian Perdagangan Penanaman Modal, Dinas Koperasi UKM dan Dinas Pasar menjadi satu.

Selanjutnya Dinas Pemuda Olah Raga digabung dengan Dinas Pariwisata Seni Budaya. Dinas Pertanian digabung dengan Dinas Peternakan. Sementara itu, Dinas Pertambangan Energi dibentuk setelah selama ini hanya berposisi sebagai sub dinas di Dinas Pekerjaan Umum. Lalu, perubahan nomenklatur dan penambahan fungsi pada Dinas Perhubungan sehingga menjadi Dinas Perhubungan, Informasi dan Komunikasi.

Sementara itu, jumlah Asisten di sekretariat daerah yang selama ini berjumlah 4 Asisten menjadi 3. Yakni Asisten Tata Praja, Asisten Ekonomi dan Kesejahteraan, Asisten Administrasi. Asisten Pembinaan Hukum dan Sosial dihapus.

Masih di sekretariat daerah, jumlah Bagian yang selama ini berjumlah 10 unit dikurangi menjadi 7 unit. Bagian Pemerintahan Umum dan Bagian Pemerintahan Desa digabung jadi satu. Bagian Hukum dan Bagian Organisasi digabung jadi satu. Bagian Humas, Sandi dan Telekomunikasi menjadi satu.

Secara umum, ada 14 ranperda yang diajukan Pj Bupati Madina dalam rapat paripurna yang dipimpin Ketua DPRD Madina As Imran Kahytami Daulay tersebut. Ke-14 ranperda itu terbagi dalam 4 bagian, yakni ranperda tentang organisasi perangkat daerah, renperda tentang pembentukan desa-desa baru hasil pemekaran desa, perubahan status desa menjadi kelurahan dan penghapusan kelurahan, ranperda tentang pajak dan retribusi daerah, ranperda tentang penetapan dan pengaturan lainnya seperti pembentukan Perusahaan Tirta Madina. (BS-026)

Pengumuman hasil seleksi administrasi Pelamar CPNS Kementerian Perdagangan Tahap IV Tahun 2010

October 8th, 2010

P E N G U M U M A N
Nomor : 07/SJ-DAG/REK-CPNS/10/2010



Berdasarkan hasil seleksi administrasi Pelamar CPNS Kementerian Perdagangan Tahun 2010, berikut ini terlampir daftar nomor peserta ujian tertulis yang lulus seleksi administrasi untuk penempatan Jakarta dan Bandung. Bagi para calon peserta ujian tertulis yang nomor pesertanya tercantum dalam daftar terlampir, diharapkan mengambil kartu peserta ujian pada tanggal 9 Oktober 2010, pukul 08.00 – 15.00 WIB, di tempat sesuai lokasi dan penempatan masing-masing dengan alamat sebagai berikut:



• Jakarta di Gedung Kementerian Perdagangan, JL. M.I. Ridwan Rais No.5, Jakarta Pusat.
• Bandung di Balai Diklat Metrologi Pusat Pendidikan dan Pelatihan Kementerian Perdagangan, Jl. Daeng Muhammad Ardiwinata Km.3.4, Cihanjuang – Parompong, Bandung.
Bagi peserta penempatan Jakarta yang belum mengambil kartu ujian tanggal 2 Oktober 2010 (Tahap I dan II), diberikan kesempatan untuk mengambil kartu pada tanggal 9 Oktober 2010, pukul 13.00 – 15.00 WIB

Selanjutnya pelaksanaan ujian tertulis akan dilaksanakan serentak pada hari Selasa tanggal 12 Oktober 2010 pukul 08.00 WIB/WITA/WIT, untuk lokasi dan penempatan sebagai berikut:
• Jakarta di Istora, Gelora Bung Karno Jakarta.
• Bandung di Balai Diklat Metrologi Pusat Pendidikan dan Pelatihan Kementerian Perdagangan, Jl. Daeng Muhammad Ardiwinata Km.3.4, Cihanjuang – Parompong, Bandung.

Khusus untuk lokasi dan penempatan Yogyakarta, Medan, Makassar dan Banjarmasin yang semula tempat ujian dilaksanakan di BSML, diubah menjadi sebagai berikut:

• Yogyakarta di Gedung Serba Guna Lanud Adisucipto, Jl. Janti, Yogyakarta.
• Medan di Gedung P3ED, Jl. Iskandar Muda No.272, Medan.
• Makassar di Gedung Balai Pendidikan, Pelatihan dan Promosi Ekspor Daerah (BP3ED), Jl. Sam Ratulangi No.93, Makassar.
• Banjarmasin di Kantor Dinas Perindustrian dan Perdagangan Kalimantan Selatan, Jl. D.I. Panjaitan No.41, Banjarmasin.

Demikian pengumuman ini disampaikan untuk diketahui dan dipatuhi

http://www.pengumuman-cpns.com/2010/10/pengumuman-hasil-seleksi-ujian-cpns-2009-2010-2011-2012-2013-2014-2015/perdagangan/pengumuman-hasil-seleksi-administrasi-pelamar-cpns-kementerian-perdagangan-tahap-iv-tahun-2010

sabar dan ikhlas adalah kunci keberhasilan

Asw...

saat kita menjalani sebuah rutinitas dalam kehidupan kita, kita pasti ada alasan untuk siapa kita rutinitas yang kita lakukan, ada beberapa kemungkinan alasan, ada yang bilang untuk keluarga yang paling di cintainya ada juga yang bilang untuk anak-anaknya, ada yang bilang untuk pacarnya, namun intinya apa yang kita lakukan adalah untuk membahagiakan orang yang kita cintai di sekitar kita, dan bisa membuat  dia bisa tersenyum.

untuk mencapai yang terbaik itu tidak mudah, dan membutuhkan semangat juang yang tinggi, kesabaran dan keihlasan, dengan itu kita bisa melewatinya meskipun rintangan dan hambatan datang menghampiri kita.Untuk itu saat kita mendapatkan suatu kesulitan kita harus tetap tegar, karena disetiap suatu kesusuksesan pasti akan banyak cobaan yang akan kita hadapi, ketika kamu mendapat kesulitan ingatlah orang-orang yang kamu cintai niscaya kamu akan merasa lebh baik, dan lebih sabar dan ikhlas dalam menghadapinya.