Coding Menampilkan Data DML (Select) Menggunakan DataGridView

Menampilkan data DML (Select) di VB 2010, cukup ikuti langkah di bawah ini :

(Langkah 1)

Imports System.Data.SqlClient

(Langkah 2)
Public Class Form1
    Dim a As SqlConnection
    Dim c As SqlDataAdapter

(Langkah 3)

  Private Sub Button3_Click
        c = New SqlDataAdapter("select * from master_barang", a)
        d = New DataSet
        c.Fill(d)
        DataGridView1.DataSource = d.Tables(0)
    End Sub

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini

Coding Menambahkan DML (Insert) di VB 2010

Menambahkan data DML (insert) di VB 2010, cukup ikuti langkah di bawah ini :
(Langkah 1)

Imports System.Data.SqlClient

(langkah 2)
Public Class Form1
    Dim a As SqlConnection
    Dim b As SqlCommand

(Langkah 3)
    Private Sub Button2_Click
        Try
            b = New SqlCommand("insert into penjualan_barang values('" & Txtkode.Text & "','" & Txtnma.Text & "','" & Cmbjnis.Text & "','" & Txtstock.Text & "','" & Txtjmlh.Text & "')", a)
            b.ExecuteNonQuery()
            b.Dispose()
            MsgBox("Data Telah Tersimpan", MsgBoxStyle.Information, "Koneksi")
        Catch ex As Exception
            MsgBox("Koneksi Eror", MsgBoxStyle.Exclamation, "Koneksi")
        End Try
    End Sub

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini

Coding Koneksi VB 2010 Ke SQL

Mengkoneksikan VB 2010 K SQL server 2005, cukup ikuti langkah dibawah ini :
(Langkah 1)
Imports System.Data.SqlClient

(Langkah 2)
Public Class Form1
    Dim a As SqlConnection

(Langkah 3)
    Private Sub Form1_Load
        a = New SqlConnection("server = DWAY-PC ; database = penjualan_barang ; user id = sa")
        a.Open()

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini

Coding Program Tiket

Public Class Form1

    Private Sub Form1_Load
        Me.ControlBox = False
        Me.BackColor = Color.BlanchedAlmond
        Me.Text = "Tiket Penerbangan"
        Label1.Text = "THEWAY AIRLINE"
        Label2.Text = "Kode"
        Label3.Text = "Customer"
        Label4.Text = "Tanggal"
        Label5.Text = "Jenis Pesawat"
        Label6.Text = "Hari"
        Label7.Text = "Harga"
        Label8.Text = "Jumlah"
        Label9.Text = "Potongan"
        Label10.Text = "Total"
        Label11.Text = "Total Bayar"
        combo()

        GroupBox1.Text = "Tujuan"
        GroupBox2.Text = "Waktu"
        Button1.Text = "Baru"
        Button2.Text = "Batal"
        Button3.Text = "Cetak"
        Button4.Text = "Keluar"
        baru()

        ComboBox2.Items.Add("Senin")
        ComboBox2.Items.Add("Selasa")
        ComboBox2.Items.Add("Rabu")
        ComboBox2.Items.Add("Kamis")
        ComboBox2.Items.Add("Jumat")
        ComboBox2.Items.Add("Sabtu")
        ComboBox2.Items.Add("Minggu")

        ComboBox1.Items.Add("Hercules")
        ComboBox1.Items.Add("Boeing")
        ComboBox1.Items.Add("Jet")
    End Sub

    Sub combo()
        ComboBox2.Text = "  -  P i l i h  -  "
        ComboBox1.Text = "  -  P i l i h  -  "
    End Sub

    Sub waktu()
        ListBox2.Items.Clear()
        ListBox2.Items.Add("Pagi : 08.30")
        ListBox2.Items.Add("Petang : 14.00")
        ListBox2.Items.Add("Malam : 19.30")
    End Sub
    Sub Hercules()
        ListBox1.Items.Clear()
        ListBox1.Items.Add("Banda Aceh")
        ListBox1.Items.Add("Bali")
        ListBox1.Items.Add("Irian Jaya")
    End Sub

    Sub Boeing()
        ListBox1.Items.Clear()
        ListBox1.Items.Add("Malaysia")
        ListBox1.Items.Add("Singapura")
        ListBox1.Items.Add("Thailand")
    End Sub

    Sub Jet()
        ListBox1.Items.Clear()
        ListBox1.Items.Add("Amerika")
        ListBox1.Items.Add("Prancis")
        ListBox1.Items.Add("Rusia")
    End Sub

    Sub baru()
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        TextBox3.Enabled = False
        TextBox4.Enabled = False
        TextBox5.Enabled = False
        TextBox6.Enabled = False
        TextBox7.Enabled = False
        TextBox8.Enabled = False
        ComboBox2.Enabled = False
        ComboBox1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
    End Sub

    Private Sub Button1_Click
        TextBox1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        TextBox1.Focus()
    End Sub

    Private Sub Button2_Click
        baru()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        combo()
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
    End Sub

    Private Sub Button4_Click
        Close()
    End Sub

    Private Sub TextBox1_LostFocus
        Select Case TextBox1.Text
            Case TextBox1.TextLength < 5 Or TextBox1.TextLength > 5
                MsgBox("Harus 5 Digit", MsgBoxStyle.Critical)
            Case Mid(TextBox1.Text, 1, 1) <> "T"
                MsgBox("Huruf pertama Harus T", MsgBoxStyle.Critical)
            Case TextBox2.Enabled = True
        End Select
        TextBox2.Focus()
    End Sub

    Private Sub TextBox2_LostFocus
        If TextBox2.Text = "" Then
            MsgBox("Data Harus Diisi", MsgBoxStyle.Information, "THEWAY AIRLINE")
        Else
            TextBox3.Enabled = True
            TextBox3.Focus()
        End If
    End Sub

    Private Sub TextBox3_LostFocus
        If IsDate(TextBox3.Text) = False Then
            MsgBox("Harus Diisi Format Tanggal", MsgBoxStyle.Information, "THEWAY AIRLINE")
        Else
            ComboBox1.Enabled = True
        End If
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged
        If ComboBox2.Text = "Senin" Then
            waktu()
        ElseIf ComboBox2.Text = "Selasa" Then
            waktu()
        ElseIf ComboBox2.Text = "Rabu" Then
            waktu()
        ElseIf ComboBox2.Text = "Kamis" Then
            waktu()
        ElseIf ComboBox2.Text = "Jumat" Then
            waktu()
        ElseIf ComboBox2.Text = "Sabtu" Then
            waktu()
        ElseIf ComboBox2.Text = "Minggu" Then
            waktu()
        End If
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged
        If ComboBox1.Text = "Hercules" Then
            Hercules()
        ElseIf ComboBox1.Text = "Boeing" Then
            Boeing()
        ElseIf ComboBox1.Text = "Jet" Then
            Jet()
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged
        If ListBox1.Text = "Banda Aceh" Then
            TextBox4.Text = "4000000"
            ComboBox2.Enabled = True
        ElseIf ListBox1.Text = "Bali" Then
            TextBox4.Text = "850000"
            ComboBox2.Enabled = True
        ElseIf ListBox1.Text = "Irian Jaya Then" Then
            TextBox4.Text = "1100000"
            ComboBox2.Enabled = True
        ElseIf ListBox1.Text = "Malaysia" Then
            TextBox4.Text = "950000"
            ComboBox2.Enabled = True
        ElseIf ListBox1.Text = "Singapura" Then
            TextBox4.Text = "1200000"
            ComboBox2.Enabled = True
        ElseIf ListBox1.Text = "Thailand" Then
            TextBox4.Text = "2300000"
            ComboBox2.Enabled = True
        ElseIf ListBox1.Text = "Amerika" Then
            TextBox4.Text = "4300000"
            ComboBox2.Enabled = True
        ElseIf ListBox1.Text = "Prancis" Then
            TextBox4.Text = "5200000"
            ComboBox2.Enabled = True
        ElseIf ListBox1.Text = "Rusia" Then
            TextBox4.Text = "7200000"
            ComboBox2.Enabled = True
        End If
    End Sub

    Private Sub ListBox2_SelectedIndexChanged
        If ListBox2.Text = "Pagi : 08.30" Then
            TextBox5.Enabled = True
        ElseIf ListBox2.Text = "Petang : 14.00" Then
            TextBox5.Enabled = True
        ElseIf ListBox2.Text = "Malam : 19.30" Then
            TextBox5.Enabled = True
        End If
        TextBox5.Focus()
    End Sub

    Private Sub TextBox5_LostFocus
        TextBox7.Text = Val(TextBox4.Text) * Val(TextBox5.Text)
        If Val(TextBox5.Text) > 3 Then
            TextBox6.Text = Val(TextBox7.Text) * 0.3
        End If
        TextBox8.Text = Val(TextBox7.Text) - Val(TextBox6.Text)
    End Sub

    Private Sub Button3_Click
        If TextBox5.Text = "0" Then
            MsgBox("PEMESANAN TIKET GAGAL", MsgBoxStyle.Critical, "THEWAY AIRLINE")
        Else
            MsgBox("PEMESANAN TIKET BERHASIL", MsgBoxStyle.Information, "THEWAY AIRLINE")
        End If
    End Sub
End Class

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini

Coding If.... Else

    Private Sub sesi5_Load
        ComboBox1.Items.Add("B001")
        ComboBox1.Items.Add("B002")
        ComboBox1.Items.Add("B003")
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged
        If ComboBox1.Text = "B001" Then
            TextBox1.Text = "Sabun"
            TextBox2.Text = "1000"
        ElseIf ComboBox1.Text = "B002" Then
            TextBox1.Text = "Rinso"
            TextBox2.Text = "1200"
        ElseIf ComboBox1.Text = "B003" Then
            TextBox1.Text = "Sikat"
            TextBox2.Text = "3000"
        End If
    End Sub

    Private Sub Button1_Click
        TextBox4.Text = TextBox2.Text * TextBox3.Text
        If TextBox4.Text > 2000 Then
            TextBox5.Text = TextBox4.Text * 0.1
        ElseIf TextBox4.Text < 2000 Then
            TextBox5.Text = "0"
        ElseIf TextBox4.Text = 2000 Then
            TextBox5.Text = "0"
        End If
    End Sub

    Private Sub Button2_Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        ComboBox1.Text = ""
    End Sub
End Class

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini

Calculator Sederhana Tanpa Mengklik TeksBox (MouseHover)

 




















 Private Sub Form1_Load
        cbxoperator.Items.Add("Tambah")
        cbxoperator.Items.Add("Kurang")
        cbxoperator.Items.Add("Kali")
        cbxoperator.Items.Add("Bagi")
        cbxoperator.Items.Add("Pangkat")
        cbxoperator.Items.Add("Modulus")
        cbxoperator.Items.Add("Divide")
    End Sub

    Private Sub txtblng1_MouseHover
        txtblng1.Text = InputBox("Inputkan Bilangan 1", "Ghifari")
        txtblng1.Enabled = False
        txtblng1.BackColor = Color.LightGray
    End Sub

    Private Sub txtblng2_MouseHover
        txtblng2.Text = InputBox("Inputkan Bilangan 2", "Ghifari")
        txtblng2.Enabled = False
        txtblng2.BackColor = Color.LightGray
    End Sub

    Private Sub cbxoperator_SelectedIndexChanged
        If cbxoperator.Text = "Tambah" Then
            lbltampil.Text = Val(txtblng1.Text) + Val(txtblng2.Text)
        ElseIf cbxoperator.Text = "Kurang" Then
            lbltampil.Text = txtblng1.Text - txtblng2.Text
        ElseIf cbxoperator.Text = "Kali" Then
            lbltampil.Text = txtblng1.Text * txtblng2.Text
        ElseIf cbxoperator.Text = "Bagi" Then
            lbltampil.Text = txtblng1.Text / txtblng2.Text
        ElseIf cbxoperator.Text = "Pangkat" Then
            lbltampil.Text = txtblng1.Text ^ txtblng2.Text
        ElseIf cbxoperator.Text = "Modulus" Then
            lbltampil.Text = txtblng1.Text Mod txtblng2.Text
        ElseIf cbxoperator.Text = "Divide" Then
            lbltampil.Text = txtblng1.Text \ txtblng2.Text
        End If
    End Sub

    Private Sub btncetak_Click
        If cbxoperator.SelectedItem = "Tambah" Then
            listcetak.Items.Add(txtblng1.Text & " + " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Kurang" Then
            listcetak.Items.Add(txtblng1.Text & " - " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Kali" Then
            listcetak.Items.Add(txtblng1.Text & " * " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Bagi" Then
            listcetak.Items.Add(txtblng1.Text & " / " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Pangkat" Then
            listcetak.Items.Add(txtblng1.Text & " ^ " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Modulus" Then
            listcetak.Items.Add(txtblng1.Text & " Mod " & txtblng2.Text & " = " & lbltampil.Text)
        ElseIf cbxoperator.SelectedItem = "Divide" Then
            listcetak.Items.Add(txtblng1.Text & " Div " & txtblng2.Text & " = " & lbltampil.Text)
        End If
    End Sub
End Class

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini

Coding Daftar If..... Else

    Private Sub Form1_Load
        Me.Text = "Sesi 3_Dwi. P"
        Lblnrp.Text = "NRP"
        Lblnama.Text = "Nama"
        Lblalamat.Text = "Alamat"
        Lbltampil.Hide()

        Txtnrp.Text = "Isikan Data"
        Txtnama.Text = "Isikan Data"
        Txtalamat.Text = "Isikan Data"

        Txtnrp.ForeColor = Color.Gray
        Txtnama.ForeColor = Color.Gray
        Txtalamat.ForeColor = Color.Gray

        Btncetak.Text = "Cetak"
        Btnbaru.Text = "Baru"
        Btnkeluar.Text = "Keluar"
    End Sub

    Private Sub Txtnrp_GotFocus
        If (Txtnrp.Text = "Isikan Data") Then
            Txtnrp.Clear()
            Txtnrp.ForeColor = Color.Black
        Else
            Txtnrp.ForeColor = Color.Black
        End If
    End Sub

    Private Sub Txtnama_GotFocus
        If (Txtnama.Text = "Isikan Data") Then
            Txtnama.Clear()
            Txtnama.ForeColor = Color.Black
        Else
            Txtnama.ForeColor = Color.Black
        End If
    End Sub

    Private Sub Txtalamat_GotFocus
        If (Txtalamat.Text = "Isikan Data") Then
            Txtalamat.Clear()
            Txtalamat.ForeColor = Color.Black
        Else
            Txtalamat.ForeColor = Color.Black
        End If
    End Sub

    Private Sub Btncetak_Click
        If (Txtnrp.Text = "Isikan Data" Or Txtnrp.Text = "") Then
            MsgBox("Data Belum Lengkap", MsgBoxStyle.Critical, "Dwi. P")
        ElseIf (Txtnama.Text = "Isikan Data" Or Txtnama.Text = "") Then
            MsgBox("Data Belum Lengkap", MsgBoxStyle.Critical, "Dwi. P")
        ElseIf (Txtalamat.Text = "Isikan Data" Or Txtalamat.Text = "") Then
            MsgBox("Data Belum Lengkap", MsgBoxStyle.Critical, "Dwi. P")
        Else
            MsgBox("Data dengan NRP  " & Txtnrp.Text & "  Sudah dicetak", MsgBoxStyle.Information, "Dwi. P")
            Lbltampil.Show()
            Lbltampil.Text = "NRP : " & Txtnrp.Text & "   Nama : " & Txtnama.Text & "   Alamat : " & Txtalamat.Text
        End If
    End Sub

    Private Sub Btnbaru_Click
        Dim ask As MsgBoxResult
        ask = MsgBox("Yakin Akan Mengisi Data Baru?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Baru")
        If ask = MsgBoxResult.Yes Then
            Txtnrp.Text = "Isikan Data"
            Txtnama.Text = "Isikan Data"
            Txtalamat.Text = "Isikan Data"
            Txtnrp.ForeColor = Color.Gray
            Txtnama.ForeColor = Color.Gray
            Txtalamat.ForeColor = Color.Gray
            Lbltampil.Clear()
            Txtnrp.Focus()
        End If
    End Sub

    Private Sub Btnkeluar_Click
        Dim ask As MsgBoxResult
        ask = MsgBox("Anda Yakin Keluar Dari Program?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
        If ask = MsgBoxResult.Yes Then
            End
        End If
    End Sub

    Private Sub Txtnrp_LostFocus
        If (Txtnrp.Text = "") Then
            Txtnrp.Text = "Isikan Data"
            Txtnrp.ForeColor = Color.Gray
        End If
    End Sub

    Private Sub Txtnama_LostFocus
        If (Txtnama.Text = "") Then
            Txtnama.Text = "Isikan Data"
            Txtnama.ForeColor = Color.Gray
        End If
    End Sub

    Private Sub Txtalamat_LostFocus
        If (Txtalamat.Text = "") Then
            Txtalamat.Text = "Isikan Data"
            Txtalamat.ForeColor = Color.Gray
        End If
    End Sub
End Class

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini

Coding Calculator

Public Class Form1
    Dim A As Integer = 1
    Dim BilPertama As Double
    Dim BilKedua As Double
    Dim Penghitungan As String
    Dim Hasil As Double

    Private Sub Button1_Click
        If Txthasil.Text = "0" Or A = 0 Then
            Txthasil.Text = "1"
            A = 1
        Else
            Txthasil.Text = Txthasil.Text & "1"
        End If
    End Sub

    Private Sub Button2_Click
        If Txthasil.Text = "0" Or A = 0 Then
            Txthasil.Text = "2"
            A = 1
        Else
            Txthasil.Text = Txthasil.Text & "2"
        End If
    End Sub

    Private Sub Button3_Click
        If Txthasil.Text = "0" Or A = 0 Then
            Txthasil.Text = "3"
            A = 1
        Else
            Txthasil.Text = Txthasil.Text & "3"
        End If
    End Sub

    Private Sub Button4_Click
        If Txthasil.Text = "0" Or A = 0 Then
            Txthasil.Text = "4"
            A = 1
        Else
            Txthasil.Text = Txthasil.Text & "4"
        End If
    End Sub

    Private Sub Button5_Click
        If Txthasil.Text = "0" Or A = 0 Then
            Txthasil.Text = "5"
            A = 1
        Else
            Txthasil.Text = Txthasil.Text & "5"
        End If
    End Sub

    Private Sub Button6_Click
        If Txthasil.Text = "0" Or A = 0 Then
            Txthasil.Text = "6"
            A = 1
        Else
            Txthasil.Text = Txthasil.Text & "6"
        End If
    End Sub

    Private Sub Button7_Click
        If Txthasil.Text = "0" Or A = 0 Then
            Txthasil.Text = "7"
            A = 1
        Else
            Txthasil.Text = Txthasil.Text & "7"
        End If
    End Sub

    Private Sub Button8_Click
        If Txthasil.Text = "0" Or A = 0 Then
            Txthasil.Text = "8"
            A = 1
        Else
            Txthasil.Text = Txthasil.Text & "8"
        End If
    End Sub

    Private Sub Button9_Click
        If Txthasil.Text = "0" Or A = 0 Then
            Txthasil.Text = "9"
            A = 1
        Else
            Txthasil.Text = Txthasil.Text & "9"
        End If
    End Sub

    Private Sub Button10_Click
        If Txthasil.Text = "0" Or A = 0 Then
            Txthasil.Text = "0"
            A = 1
        Else
            Txthasil.Text = Txthasil.Text & "0"
        End If
    End Sub

    Private Sub Button11_Click
        If BilPertama <> 0 Or BilKedua <> 0 Or Hasil <> 0 Then
            BilPertama = 0
            BilKedua = 0
            Hasil = 0
        End If
        Txthasil.Text = "0"
    End Sub

    Private Sub Button12_Click
        BilPertama = Val(Txthasil.Text)
        Penghitungan = "+"
        A = 0
    End Sub

    Private Sub Button13_Click
        BilPertama = Val(Txthasil.Text)
        Penghitungan = "-"
        A = 0
    End Sub

    Private Sub Button14_Click
        BilPertama = Val(Txthasil.Text)
        Penghitungan = "*"
        A = 0
    End Sub

    Private Sub Button15_Click
        BilPertama = Val(Txthasil.Text)
        Penghitungan = "/"
        A = 0
    End Sub

    Private Sub Button16_Click
        BilPertama = Val(Txthasil.Text)
        Penghitungan = "^"
        A = 0
    End Sub

    Private Sub Button17_Click
        hitung()
    End Sub
    Sub hitung()
        BilKedua = Val(Txthasil.Text)
        If Penghitungan = "+" Then
            Hasil = BilPertama + BilKedua
        End If
        If Penghitungan = "-" Then
            Hasil = BilPertama - BilKedua
        End If
        If Penghitungan = "*" Then
            Hasil = BilPertama * BilKedua
        End If
        If Penghitungan = "/" Then
            If BilKedua = 0 Then
                Hasil = BilPertama
            Else
                Hasil = BilPertama / BilKedua
            End If
        End If
        If Penghitungan = "^" Then
            Hasil = BilPertama ^ BilKedua

        End If
        Txthasil.Text = Hasil
        A = 0
    End Sub
End Class

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini

Coding Bilangan

     

Private Sub Button1_Click

        Dim n As Integer

        Dim m As Integer

        Dim hasil As Integer

        Dim a As Integer = 1

        Dim b As Integer = 1

        'bulat

        For n = -Val(Txtbil.Text) To Val(Txtbil.Text)

            Cmbbulat.Items.Add(n)

        Next

        'genap

        For n = 2 To Val(Txtbil.Text) Step 2

            Cmbgnap.Items.Add(n)

        Next

        'ganjil

        For n = 1 To Val(Txtbil.Text) Step 2

            Cmbgnjil.Items.Add(n)

        Next

        'fibonaci

        For n = 1 To Val(Txtbil.Text)

            Cmbfbnci.Items.Add(a)

            Cmbfbnci.Items.Add(b)

            If (n = a + b) Then

                Cmbfbnci.Items.Add(n)

                a = b

                b = n

            End If

        Next

        'faktor

        m = Val(Txtbil.Text)

        While m <> 1

            m = m - 1

            n = n * m

        End While

        Txtfktor.Text = n

        Txtfktor.Enabled = False

        'prima

        For n = 2 To Txtbil.Text

            m = 0

            For y = 2 To n

                hasil = n Mod y

                If hasil = 0 Then

                    m = m + 1

                End If

            Next y

            If m <= 1 Then

                Cmbprima.Items.Add(n)

            End If

        Next n

    End Sub

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini