Medan Tempoe Doeloe

Asalammualaikum Wr.Wb

Selamat sore buat para blogger...

Kali ini saya ingin berbagi gambar aja tentang kota Medan versi tempo dulu.
Ternyata kota Medan pada saat tempo dulu sangat bagus dan penuh dengan pepohonan.
Kapan ya kota Medan bisa kayak dulu lagi????

Gak usah berlama-lama lagi, langsung saya bagi ja foto-foto kota Medan tempo dulu.

Silahkan cek di bawah ini ya!!..

Kantor Gubernur

Kesawan Square

PDAM Tirtanadi

Istana Maimon

Kantor PTPN IV


 

Mesjid Raya Kota Medan

Stasiun Kereta Api Belawan

Rumah Gubernur Sumatera Utara

Sekian dulu ya foto-foto dari saya semoga berkenan di hati anda semua.

Terima Kasih.

Pembelajaran Pemrograman Di mesran.blogspot.com

Asalammualaikum Wr.Wb.

Selamat malam buat para blogger yang ada di Indonesia...

Kali ini saya hanya ingin berbagi informasi kepada para blogger yang ada yang sangat suka dengan bahasa pemograman.
Memang banyak orang yang berkata pemrograman itu sangat susah dan ribet, tapi setelah saya membuka salah satu blog yang mengulas semua bahasa pemrograman yaitu di blog mesran.blogspot.com.
Di blog ini banyak bahasa pemrograman seperti visual basic,php,algoritma,C++ dan yang lainnya.

Apabila anda sangat tertarik atau ingin mengetahui bahasa pemrograman anda bisa langsung belajar di mesran.blogspot.com atau langsung ke website mesran.net.

Semoga informasi dari saya ini dapat memberikan manfaat yang sangat luar biasa buat para blogger.
Dan bagi yang ingin mau belajar, monggo langsung klik link ini  http://mesran.blogspot.com .

Dan saya ucapkan terima kasih
Best Regard
Agung Prasetio

Membuat Form Pengisian Data Kendaraan Menggunakan Visual Basic Lengkap dengan Simpan, Edit, Hapus

Asalammualaikum Wr.Wb.

Selamat sore semuanya
Kali ini saya akan berbagi ilmu dengan semuanya tentang visual basic.
Disini saya akan membuat program Pengisian Data Kendaraan dengan menggunakan visual basic.

Pertama sekali kita harus mempunyai aplikasi Microsoft Visual Basic.
Setelah itu buat database melalui Microsoft Access dengan nama kendaraan.mdb dengan  field sebagai berikut:

• No Polisi Kendaraan
• Pemilik
• Alamat
• Tahun
• Warna
• No Rangka 

Dan akan tampil seperti di bawah ini:

Tampilan database kendaraan.mdb pada Microsoft Access

Setelah selesai dengan database, langsung aja buka Microsoft Visual Basic dan lalu pilih Create untuk membuat form baru.

Tampilan Pembuatan Form Baru Pada Microsoft Visual

Setelah itu siap untuk mendesign bentuk form untuk pengisian data kendaraan.

Tools yang digunakan yaitu Label, Text Box, Button, dan DataGridView.

Dan dibawah ini salah satu contoh design form pengisian milik saya.

Tampilan Design Form Pemgisian Data Kendaraan

Dan jangan lupa untuk mengganti name pada Text Box dan Combo Box sesuain dengan keiinginan anda sehingga dapat mempermudah anda dalam membuat programnya.

Dan langsung saja kita masuk ke dalam programnya.

Disini akan saya tampilkan listing programnya sebagai berikut :

Imports System.Data.OleDb

Public Class Form1

    Public db As OleDbConnection

    Public cmd As OleDbCommand

    Public adp As OleDbDataAdapter

    Public dr As OleDbDataReader

    Public ds As New DataSet

    Dim sql As String

    Public Sub opendb()

        Dim lokasi = "provider=microsoft.jet.oledb.4.0;data source =C:\VB2\kendaraan.mdb"

        db = New OleDbConnection(lokasi)

        If db.State = ConnectionState.Closed Then

            db.Open()

        End If

    End Sub

    Sub tampilrecordkendaraan()

        adp = New OleDbDataAdapter("select * from kendaraan", db)

        ds = New DataSet

        adp.Fill(ds, "kendaraan")

        DataGridView1.DataSource = ds.Tables("kendaraan")

    End Sub

    Sub ButtonBaru()

        btnBaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnKeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnBaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnKeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnBaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnKeluar.Enabled = False

    End Sub

    Sub hapustext()

        NoBK.Text = ""

        pemilik.Text = ""

        alamat.Text = ""

        tahun.Text = ""

        warna.Text = ""

        norangka.Text = ""

        Call ButtonBaru()

    End Sub

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

        Call opendb()

        Call hapustext()

        Call tampilrecordkendaraan()

   End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        sql = "DELETE FROM kendaraan Where NoBK='" & NoBK.Text & "'"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Call btnbaru_click(sender, e)

        Call tampilrecordkendaraan()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        Call hapustext()

        NoBK.Focus()

    End Sub

    Private Sub NoBK_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NoBK.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            sql = "select * from kendaraan where NoBK ='" & NoBK.Text & "'"

            cmd = New OleDbCommand(sql, db)

            dr = cmd.ExecuteReader

            dr.Read()

            If dr.HasRows = True Then

                pemilik.Text = dr.Item(1)

                alamat.Text = dr.Item(2)

                tahun.Text = dr.Item(3)

                warna.Text = dr.Item(4)

                norangka.Text = dr.Item(5)

                Call ButtonEdit()

                MsgBox("Data Ditemukan !!")

            Else

                xkode = NoBK.Text

                Call hapustext()

                NoBK.Text = xkode

                Call ButtonSimpan()

            End If

            pemilik.Focus()

        End If

    End Sub

    Private Sub NoBK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoBK.TextChanged

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        Call hapustext()

        NoBK.Focus()

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        sql = "insert into kendaraan (NoBK,pemilik,alamat,tahun,warna,norangka)" & _

        "values ('" & NoBK.Text & "','" & _

                    pemilik.Text & "','" & _

                    alamat.Text & "','" & _

                    tahun.Text & "','" & _

                    warna.Text & "','" & _

                    norangka.Text & "')"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordkendaraan()

    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

        sql = "update kendaraan set pemilik='" & pemilik.Text & "'," & _

        "alamat='" & alamat.Text & "'," & _

        "tahun='" & tahun.Text & "'," & _

        "warna='" & warna.Text & "'," & _

        "norangka='" & norangka.Text & "'" & _

        "where NoBK='" & NoBK.Text & "'"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordkendaraan()

    End Sub

End Class

Dan berikut adalah tampilan hasil program yang suadah bisa di jalankan. 

Tampilan Program Yang Sudah Bisa Dijalankan

Setelah itu langsung saja isi data-data yang ingin di inputkan, lalu klik tombol Simpan.

Dan data yang tersimpan akan muncul di DataGrideView:

Tampilan Program yang Berhasil Disimpan

Sekian informasi dari saya, semoga bermanfaat bagi kita semuanya.

Terima Kasih.

PERHATIAN: Jika ada yang kurang mengerti atas postingan saya ini saya mohon maaf...

Wisata Alam Air Terjun Tongkat

Wisata Alam Air Terjun Tongkat

Bosan dengan keramaian dikota besar dan ingin mencari suasana baru dengan suasana alam terbuka, saya disini menawarkan wisata alam berupa air terjun.

Air terjun Tongkat namanya. Air terjun ini baru pertama kali saya kunjungi bersama-sama temen satu kelas saya, karna saya sangat ingin mengetahui air terjun tersebut kenapa dinamakan tongkat maka saya putuskan pergi kesana.

Lokasi air terjun tersebut berada di Kabupaten Langkat (tepatnya sih kurang tau jelas soalnya di ajak teman-teman) dan memakan waktu kurang lebih 3 jam dari kota Medan.

Kalau Anda semua ingin wisata kesana caranya gampang kok. Setelah masuk kota Binjai akan banyak tour guide yang akan membimbing anda menuju ke tempat wisata tersebut.

Dan setelah setibanya Anda di pintu masuk ke wisata air terjun Tongkat tersebut, Anda akan di bimbing oleh 2 orang tour guide yang akan senantiasa menuntun anda menuju air terjun tersebut dan membawa barang perlengkapan anda.

Salah satu Tour Guide yang ada di Air Terjun Tongkat

Bisa di bilang track akan kita lalui sangat ekstrim dan berbahaya bagi kita yang belum pernah tracking sebelumnya. Track yang akan dilewati yaitu menuruni dan menaiki lembah yang sangat curam serta melewati jembatan yang terbuat dari bambu (jadi yang berat badannya over harap waspada). Memakan waktu cukup lama juga untuk menuju lokasi air terjun tersebut di karenakan medan yang cukup berat.

Tapi ketika Anda telah sampai, anda akan di suguhkan pemandangan yang sangat indah dan sejuknya air terjun tersebut. Sangat cocok untuk menghilangkan rasa capek yang anda alami selama perjalanan yang anda lalui. 

Yah menurut saya sih tempat ini tidak mengecewakan saya dan patut saya rekomendasikan sebagai tempat liburan bernuansa alam.

Kalau penasaran akan saya kasi liat penampakan dari air terjun tersebut yang saya abadikan bersama teman-teman saya.

Penampakan Air Terjun Tongkat

Tampak dari dekat Air Terjun Tongkat

Pemandangan Alam Air Terjun Tongkat

Jika anda penasaran tempat nya bisa langsung saja menuju kesana dan ajak teman-teman anda beserta yang lainnya juga. Sekian info dari saya. Terima Kasih.