Belajar Visual Basic di http://www.mesran.blogspot.com

Assalamu'alaikum.
Disini saya akan mempostingkan tentang belajar Visual Basic. Banyak yang bilang belajar Visual Basic itu susah, tapi jika kita mau mempelajarinya pasti akan terasa mudah. Di mesran.blogspot.com anda dapat belajar tentang cara belajar Visual Basic dengan mudah.

Jawaban Quiz Online VB II

Soal :

Buatlah program yang berorientasi pada database Access untuk menyimpan data SISWA  :

Jawaban Program :

 

 

 Imports System.Data.OleDb
Public Class form3
    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:\fitri\QUIZ\siswa.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub
    Sub Recordsiswa()
        ADP = New OleDbDataAdapter("SELECT * FROM siswa", DB)
        DS = New DataSet
        ADP.Fill(DS, "siswa")
        DataGridView1.DataSource = DS.Tables("siswa")
    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 BunttonEdit()
        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()
        nis.Text = ""
        namasiswa.Text = ""
        alamat.Text = ""
        namawali.Text = ""
        tgl_lahir.Text = ""
        agama.Text = ""
        jeniskelamin.Text = ""
        Call ButtonBaru()
    End Sub

    Private Sub form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call openDB()
        Call HapusText()
        Call Recordsiswa()
        agama.Items.Add("islam")
        agama.Items.Add("kristen")
        agama.Items.Add("hindu")
        agama.Items.Add("budha")
        jeniskelamin.Items.Add("laki-laki")
        jeniskelamin.Items.Add("perempuan")
    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call HapusText()
        nis.Focus()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        SQL = "insert into siswa (nis,namasiswa,alamat,namawali,tgl_lahir,agama,jeniskelamin)" & _
        "values ('" & nis.Text & "','" & _
        namasiswa.Text & "','" & _
        alamat.Text & "','" & _
        namawali.Text & "','" & _
        tgl_lahir.Text & "','" & _
        agama.Text & "','" & _
        jeniskelamin.Text & "')"


        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Recordsiswa()
    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        SQL = "UPDATE siswa SET namasiswa='" & namasiswa.Text & "', " & _
                     " alamat='" & alamat.Text & "', " & _
                     " namawali='" & namawali.Text & "', " & _
                     " tgl_lahir='" & tgl_lahir.Text & "', " & _
                     " jeniskelamin='" & jeniskelamin.Text & "' " & _
                     " Where nis='" & nis.Text & "'"

        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Recordsiswa()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        SQL = "DELETE FROM siswa Where nis='" & nis.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Recordsiswa()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call HapusText()
        nis.Focus()
    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 nis_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nis.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
            SQL = "SELECT * FROM siswa Where nis='" & nis.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                namasiswa.Text = DR("namasiswa")
                alamat.Text = DR("alamat")
                namawali.Text = DR("namawali")
                tgl_lahir.Text = DR("tgl_lahir")
                agama.Text = DR("agama")
                jeniskelamin.Text = DR("jeniskelamin")
                Call BunttonEdit()
                MsgBox("Dataditemukan ! ")

            Else
                xkode = nis.Text
                Call HapusText()
                nis.Text = xkode
                Call ButtonSimpan()
            End If
            DR.Close()
            namasiswa.Focus()
        End If
    End Sub

    Private Sub nis_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nis.TextChanged

    End Sub
End Class

Demikianlah postingan saya, ( NAMA : Fitri Indriyani, NPM : 1202202, Kelas : MI-P1201 )

Lapar di Malam Hari Berhubungan Dengan Kejiwaan

Lapar bisa datang kapan saja, sejak bangun tidur bahkan membuat Anda terbangun di malam hari. Jika Anda seringkali tidak bisa tidur dan baru bisa tidur nyenyak setelah makan, Anda mungkin mengalami gangguan mental dan bisa menjadi masalah jika tidak segera menghubungi dokter.

Sebuah penelitian yang dilakukan oleh University of Pennsylvania menemukan bahwa orang-orang yang sering lapar di malam hari dan harus makan agar bisa tidur ternyata menghadapi risiko mengalami gangguan mental. Pendapat tersebut diungkapkan oleh pemimpin penelitian, Dr Rebecka Peebles.

Menurut para ahli, orang yang harus ngemil di malam hari bahkan sering terbangun karena lapar ada hubungannya dengan kejiwaan seseorang yang merasa tidak aman dan kecenderungan untuk hiperaktif. Hasil penelitian yang dilakukan pada mahasiswa menunjukkan bahwa mereka yang sering lapar di malam hari terkait dengan depresi.

Jadi bisa disimpulkan bahwa lapar di malam hari bahkan harus makan agar bisa tidur tidak selalu berhubungan dengan tubuh yang kekurangan nutrisi. Keharusan untuk makan sebelum tidur dan terbangun karena lapar bisa menjadi salah satu sinyal Anda kemungkinan mengalami depresi dan refleksi dari disfungsional jiwa manusia.

waspada Online

Jangan Kebanyakan Begadang Agar Tak Mengalami 4 Hal seperti ini

Masih banyak orang yang meremehkan kebiasaan begadang dan mengurangi jam tidur mereka. Padahal, menukar jam istirahat dengan kesibukan Anda akan membuat Anda mengalami masalah kesehatan di masa depan.

Semakin dewasa, makin jarang orang melakukan tidur siang. Umumnya karena bekerja dan melakukan aktivitas lainnya di siang hari. Oleh karena itu jam tidur yang tersisa hanya di malam hari. Kita bisa saja tidur selama 8 jam di malam hari, namun banyak orang dewasa masa kini yang jumlah jam tidur malamnya kurang dari itu.

Dilansir dari Knowledge Bank, inilah beberapa hal yang terjadi saat Anda sering begadang atau mengurangi jam tidur Anda.

Mudah Menguap

Jelasnya, kurang tidur menyebabkan Anda mudah menguap. Namun menguap itu sendiri akan sangat mengganggu kalau Anda sedang dalam keadaan butuh konsentrasi tinggi. Bila keterusan, keseringan menguap bisa menyebabkan pusing.

Mudah Lupa

Otak jadi sulit bekerja karena butuh istirahat, sementara ia dipaksa untuk tetap bangun. Hal ini menyebabkan kita sulit konsentrasi dan mudah lupa. Kemampuan kita untuk mengingat bisa mundur bila terlalu sering dibiarkan seperti ini.

Mudah Emosi

Orang yang kurang tidur seringkali kurang stabil. Emosi dan pikirannya kurang aktif sehingga malas untuk memahami dan berpikir. Akibatnya, kita jadi sensitif. Bisa jadi mudah sedih atau mudah marah.

Halusinasi

Yang cukup parah adalah ketika kita sudah mulai berhalusinasi. Bentuknya bisa berbagai macam. Misalnya kita merasa melihat atau mendengar sesuatu. Kadang pula bisa menyebabkan kegelisahan padahal tak ada hal serius yang terjadi.

Jangan kurangi jam tidur Anda. Taatilah jam istirahat Anda untuk mengurangi atau mencegah masalah kesehatan di esok hari.

Vemale.com

Tanda Hubungan Anda Hanya Status Palsu

Sempurna tapi tidak bahagia, dekat tapi terasa jauh itulah tanda hubungan palsu. Mungkin Anda tidak sadar jika Anda sedang berada dalam tipe hubungan ini. Anda mungkin terasa nyaman, tapi jika Anda telusuri lebih dalam lagi hubungan Anda terasa kosong dan hampa. Anda hanya menjalani status tanpa adanya perasaan. Jika hubungan Anda seperti ini bisa jadi Anda sedang berada dalam hubungan yang palsu.Seperti yang dilansir oleh boldsky.com inilah beberapa tanda bahwa Anda hanya menjalani status palsu 

Dekat Tapi Jauh

Memberi jarak dalam hubungan itu perlu tapi jika Anda dan pasangan sangat nyaman berjauhan satu sama lain, hal inilah yang akan menjadi tanda tanya. Jika Anda benar-benar saling mencintai Anda akan saling merindukan tapi jika sudah tidak masihkah disebut hubungan ladies?

Tidak Ada Pertengkaran

Sewajarnya hubungan pertengkaran itu selalu ada dan tidak pernah terlewatkan. Jika Anda dan pasangan selalu memilih zona aman dibanding pertengkaran bisa jadi hubungan Anda sudah menunjukkan kebosanan. Terlalu banyak bertengkar akan membuat hubungan kandas, tanpa pertengkaran hubungan juga hanya diwarnai kehampaan.

Selalu Bersama Teman

Tanda yang paling menonjol Anda sedang dalam hubungan palsu adalah Anda tidak pernah ada waktu untuk berdua. Anda berdua lebih nyaman bersama teman dibanding pasangan Anda. Jika seperti ini, Anda hanya menjalani hubungan tanpa adanya cinta ladies.

Tidak Mengenal Satu Sama Lain

Hubungan adalah salah satu cara menghubungkan perasaan satu sama lain untuk saling mengenal. Jika Anda tidak tahu hal-hal kecil yang ia sukai dan sebaliknya pasangan, jangan sebut hubungan Anda harmonis itu benar-benar hubungan yang palsu.

www.vemale.com