Project VB Akademik

Assalamu’alaikum.. wr.. wb,

Alhamdulillah kali ini dalam Project VB sudah setahap lebih mantap meskipun masih dalam format yang sederhana dan semoga bermanfaat.

1.Sebagai Langkah awal mari kita buat sebuah Form Design dengan nama “Form Biodata” seperti dibawah ini :

2.Setelah Form Design selesai mari kita buatkan Source Code seperti dibawah ini :

Public Class Form1

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Call bersih()

        Call isi_combo()

    End Sub

    Sub bersih()

        TextBox1.Text = " "

        TextBox2.Text = " "

        TextBox3.Text = " "

        TextBox4.Text = " "

        ComboBox1.Text = " 06 Tekhnik Informatika "

    End Sub

    Sub isi_combo()

        ComboBox1.Items.Add(" 06 Tekhnik Informatika ")

        ComboBox1.Items.Add(" 07 Sistem Informasi ")

        ComboBox1.Items.Add(" 05 Komputer Akuntansi ")

        ComboBox1.Items.Add(" 67 Tekhnik Komputer ")

        ComboBox1.Items.Add(" 26 Management Informatika ")

    End Sub

3. Lalu setelah itu mari kita Running program dengan click F5 dan inilah hasilnya :

4. Langkah berikutnya ialah mengubah Button1 dan Button4 dengan mengetikkan Source Code seperti dibawah ini :

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button4.Text = "KELUAR" Then

            Me.Close()

        Else

            Call normal()

            Call bersih()

        End If

    End Sub

    Sub normal()

        Button1.Text = "TAMBAH"

        Button1.Enabled = True

        Button2.Text = "UBAH"

        Button2.Enabled = True

        Button3.Text = "HAPUS"

        Button3.Enabled = True

        Button4.Text = "KELUAR"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Button1.Text = "TAMBAH" Then

            Button1.Text = "SIMPAN"

            Button2.Enabled = False

            Button3.Enabled = False

            Button4.Text = "BATAL"

            TextBox1.Focus()

        Else

        End If

    End Sub

End Class

5. Lalu mari kita lihat hasilnya >>

To Be Continued alias Bersambung >>>

Selengkapnya...

Belajar Module dalam VB

Assalamu’alaikum.. wr.. wb,

Syukur Alhamdulillah ada satu project belajar dari VB.Net yang bisa diselesaikan, semoga bermanfaat.

Pada Project VB kali ini saya akan membuat suatu fungsi dengan sebuah Modul dan sebagai langkah awal buatlah form seperti gambar di bawah ini : 

Setelah selesai membuat  Form diatas, lalu kemudian pada Button 1 masukkan Source Code seperti di bawah ini :

Public Class agil_one

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        h = TextBox1.Text

        b = TextBox2.Text

        Call hitung_angka()

        TextBox3.Text = hasil

    End Sub

dan pada Button2 masukkan Source Code seperti dibawah ini:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Call tampilkan_nama()

        TextBox4.Text = nama

    End Sub

Setelah selesai memasukkan Source Code diatas, langkah selanjutnya  ialah kita membuat Modul yang di dalamnya terdapat Variabel Public yang bisa digunakan untuk semua Form  berikut langkah -  langkahnya : Klik Kanan  pada Project kemudian Add pilih Module kemudian Pilih Add kembali.

 

 

Setelah selesai Memasukkan Modul kemudian masukkan Source Code pada Modul yang sudah di buat yang nantinya akan di panggil di Menu Utama. Untuk proses hitung yang digunakan adalah Proses perkalian seperti dibawah ini :

Module Module1

    'variabel public

    Public nama As String, hasil, h, b As Integer

    Sub tampilkan_nama()

        nama = "Nanang Maulana"

    End Sub

    Sub hitung_angka()

        hasil = Val(h) * Val(b)

    End Sub

End Module

Setelah selesai semua Source Codenya di masukan  berikut inilah hasil outputnya :

Jika ada yang ingin comment... sok atuh !
Mathur Thank U ^^

Selengkapnya...

Pekerjaan Rumah VB

Assalamua'alaikum.. wr.. wb,
Alhamdulillah setelah dikutak katik akhirnya muncul juga >>
* yang pertama :

Source codenya begini nih :

* yang kedua :

Nah klo yang ini begini nih Source codenya :

klo da yang mo comment sok atuh >>> Selengkapnya...

Latihan VB

Alhamdulillah akhirnya berhasil juga coba Running VB dirumah, begini nih hasilnya See Up :

 

Source Code :

Public Class Form1

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

        If e.KeyChar = Chr(13) Then

            ComboBox1.Items.Add(TextBox1.Text)

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer

        ListBox1.Items.Clear()

        For i = 5 To Val(TextBox2.Text)

            If i Mod 2 = 0 Then

                ListBox1.Items.Add(i * -1)

            Else

                ListBox1.Items.Add(i)

            End If

        Next

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim j, u, y As Integer

        u = 10

        y = 12

        For j = 10 To Val(TextBox2.Text)

            If j Mod u = 0 Then

                ListBox1.Items.Add(j)

                u = j

            Else

                If j Mod y = 0 Then

                    ListBox1.Items.Add(j * -1)

                    y = j

                End If

            End If

        Next

    End Sub

End Class

Selengkapnya...