Flowchart Pembuatan Database Pada Visual Basic 2010

1 Dec

Tutorial Untuk Membuat Database Pada Visual Basic 2010

1 Dec

Tutorial Teknologi Informatika Visual Basic 2010

“Program Database Pengarang Buku”

Pada modul 3 ini, kami mempelajari tentang bagaimana membuat database menggunakan Microsoft Access 2007 dan mengkoneksikannya dalam program Visual basic 2010. Program database yang kami buat adalah Database daftar buku.

Langkah pertama adalah kita membuat database di Microsoft Access 2007

Langkah-langkah pembuatan programnya :

  1. Membuka Aplikasi Microsoft Access 2007

2. Klik Blank Document

3. Lalu pada File Name, ketik nama Database yang ingin anda buat, lalu klik Create.

3. Kemudian klik View dan  ketik Buku, lalu klik ok.

Maka akan muncul muncul tampilan berikut:

4. Lalu buat table Buku dengan struktur berikut :

No

Field Name

Data Type

1

ISBN Text (10)

2

Judul Text (30)

3

Pengarang Text (20)

4

Penerbit Text (15)

5

Tahun Text (4)

6

Harga Currency (Standard)

Lalu klik View > ok.

5. Kemudian isi data ke dalam table Buku, lalu save.

Maka tampilan Database yang sudah kita buat pada Microsoft Access adalah sebagai berikut :

BUKU

ISBN

Judul

Pengarang

Penerbit

Tahun

Harga

596007124 Head first design pattern Erick Freeman O Relly 2004

Rp500.000

9793398806 Oracle SQL dan PL/SQL Imam Heryanto Informatika 2006

Rp85.000

9797317870 Pemrograman Java Rijaul Fikri Andi Offset 2005

Rp75.000

9797562243 Data Mining Budi Santosa Graha Ilmu 2007

Rp60.000

9797633802 Visual Basic.Net 2005 Widodo Budiharto Andi Offset 2005

Rp45.000

Setelah kita membuat databasenya di Microsoft Access, lalu kita mengkoneksikan database tersebut ke program Visual Basic 2010.

Langkah-langkah sebagai berikut :

  1. Membuka Aplikasi Visual Basic 2010, lalu pilih File >  New Project, maka akan muncul tampilan berikut:

2. Klik  ok maka akan mucul tampilan seperti berikut:

3. Kemudian pada Toolbox, pilih komponen BindingNavigator, Binding Source, dan DataGridView. Dengan tampilan sebagai berikut:

4. Klik pada BindingSource1, lalu lihat properties  DataSource > Add Project DataSource > Database > Dataset  New Connection. Lalu ganti kolom pada Data Source dengan memilih menu Change, ganti sesuai database yang akan dipakai (Microsoft Access Database File)

5. Kemudian bila ada perintah, maka klik Yes

Dengan tampilan sebagai berikut :

6. Centang Table lalu klik finish, dengan tampilalan sebagai berkut :

7. Klik pada DataGridView1, lalu lihat properties  DataSource > Add Project DataSource > Database > Dataset  New Connection. Lalu ganti kolom pada Data Source dengan memilih menu Change, ganti sesuai database yang akan dipakai (Microsoft Access Database File)

8. Kemudian bila ada perintah, maka klik Yes

Dengan tampilan sebagai berikut :

9. Centang Table lalu klik finish, dengan tampilalan sebagai berkut :

Maka pada DataGridView1 akan muncul tabel Database yang sudah kita buat pada Microsoft Access 2007 sebelumnya.

10.  Untuk menambah baris pada DataGridView1 dapat menggunakan BindingNavigatorAddNewItem dan untuk menghapus baris dapat menggunakan BindingNavigatorDeleteItem.

  • Listing untuk menambah baris dan data:

Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click

Me.BUKUBindingSource.AddNew()

BUKUDataGridView.Enabled = True

End Sub

  • Listing untuk menghapus baris dan data

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click

Me.BUKUBindingSource.RemoveCurrent()

End Sub

End Class

11. Untuk mencari data yang diinginkan, terlebih dahulu kita membuat TextBox dan Label pada ToolBox, kemudian kita membuat Button Temukan. Dengan tampilan gambar dan listing berikut ini :

  • Pada Form

Private Sub FillByPengarang3ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillByPengarang3ToolStripButton.Click

Try

Me.BUKUTableAdapter.FillByPengarang3(Me.Database_BukuDataSet.BUKU)

Catch ex As System.Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

End Sub

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

Try

Me.BUKUTableAdapter.FillByPengarang3(Me.Database_BukuDataSet.BUKU)

Catch ex As System.Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

End Sub

  • Untuk Mencari Data Pada Database

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

BUKUBindingSource.Filter = “ISBN like ‘%” + TextBox1.Text + “%’OR Judul like ‘%” + TextBox1.Text + “%’OR Pengarang like ‘%” + TextBox1.Text + “%’OR Penerbit like ‘%” + TextBox1.Text + “%’ OR convert([Tahun], ‘System.String’) like ‘%” + TextBox1.Text + “%’ OR convert([Harga], ‘System.String’) like ‘%” + TextBox1.Text + “%'”

End Sub

End Class

End Sub

12.  File >> Save All (untuk menyimpan file).

berikut ini adalah contoh program yang telah dibuat:

http://www.mediafire.com/?tvvegi7brqlxm3m

TUTORIAL CARA MEMBUAT PERULANGAN SEDERHANA PADA VISUAL BASIC 2010

24 Nov

Visual Basic 2010 biasa digunakan para programmer untuk membuat suatu aplikasi yang dapat memudahkan untuk memecahkan suatu masalah. Dan kali ini kami akan membahas cara-cara membuat perulangan sederhana dengan menggunakan Visual Basic 2010.

  1. Buka VB 2010 >> New Project >> Windows Forms Application >> OK.
  2. Buat desain seperti gambar dengan memasukkan komponen dari toolbox ke dalam form design.

3. Ubah nama komponen yang telah dibuat dari bagian properties (di kotak yang ada di pinggir kanan)

Toolbox Component

Nama

Label1

Jumlah Perulangan

Button1

Proses

Button2

Keluar

4. Klik 2 kali pada form, lalu masukkan listing code untuk masing-masing komponen, yaitu komponen Button, TextBox dan button. Berikut listing codenya:

  • Form1

Public Class Form1

  • Button1

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

Dim x As Byte = 1

Do

Call ukuran_kamar(x)

x = x + 1

Loop Until x > Int(TextBox1.Text)

End Sub

Sub ukuran_kamar(ByVal ukuran As Integer)

If ukuran <= 5 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Small Biasa “)

ElseIf ukuran <= 5 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Small Spesial “)

ElseIf ukuran <= 10 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Medium Biasa “)

ElseIf ukuran <= 10 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Medium Spesial “)

ElseIf ukuran <= 15 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Large Biasa “)

ElseIf ukuran <= 15 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Large Spesial “)

ElseIf ukuran <= 20 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Xtra Large Biasa “)

ElseIf ukuran <= 20 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Xtra Large Spesial “)

ElseIf ukuran > 20 Then

MsgBox(“Kamar Tidak ada “)

End If

End Sub

  • Button2

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

If MsgBox(“Keluar ya”) Then

Close()

End If

End Sub

End Class

5. Berikut ini adalah bentuk akhir dari prosedur sederhana yang telah dibuat:

TUTORIAL CARA MEMBUAT KALKULATOR SEDERHANA PADA VISUAL BASIC 2010

24 Nov

Visual Basic 2010 biasa digunakan para programmer untuk membuat suatu aplikasi yang dapat memudahkan untuk memecahkan suatu masalah. Dan kali ini kami akan membahas cara-cara membuat kalkulator sederhana dengan menggunakan Visual Basic 2010.

  1. Buka VB 2010 >> New Project >> Windows Forms Application >> OK.
  2. Buat desain seperti gambar dengan memasukkan komponen dari toolbox ke dalam form design.

 3. Ubah nama komponen yang telah dibuat dari bagian properties (di kotak yang ada di pinggir kanan)

Toolbox component

Nama

Button 1 1
Button 2 2
Button 3 3
Button 4 4
Button 5 5
Button 6 6
Button 7 7
Button 8 8
Button 9 9
Button 10 0
Button 11 .
Button 12 +
Button 13
Button 14 *
Button 15 /
Button 16 C
Button 17 SIN
Button 18 COS
Button 19 TAN
Button 20 ^
Button 21 =
Button 22 ON
Button 23 OFF
Button 24 Akar
Button 25 Keluar
Button 26 +/-
Button 27 1/x
Button 28 %
TextBox1
Label 1 19

4. Klik 2 kali pada form, lalu masukkan listing code untuk masing-masing komponen, yaitu komponen Button, TextBox dan button. Berikut listing kodenya:

  • Form1 :

 Public Class Form1

Dim Angka, Hasil As Double

Const phi As Double = 22 / 7

Dim Rumus As String

  • Button1 :

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

If TextBox1.Text = “” Then

TextBox1.Text = “1”

Else

TextBox1.Text = TextBox1.Text & “1”

End If

End Sub

  • Button 2

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

If TextBox1.Text = “” Then

TextBox1.Text = “2”

Else

TextBox1.Text = TextBox1.Text & “2”

End If

End Sub

  • Button 3

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

If TextBox1.Text = “” Then

TextBox1.Text = “3”

Else

TextBox1.Text = TextBox1.Text & “3”

End If

End Sub

  • Button 4

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

If TextBox1.Text = “” Then

TextBox1.Text = “4”

Else

TextBox1.Text = TextBox1.Text & “4”

End If

End Sub

  • Button 5

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

If TextBox1.Text = “” Then

TextBox1.Text = “5”

Else

TextBox1.Text = TextBox1.Text & “5”

End If

End Sub

  • Button 6

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

If TextBox1.Text = “” Then

TextBox1.Text = “6”

Else

TextBox1.Text = TextBox1.Text & “6”

End If

End Sub

  • Button 7

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

If TextBox1.Text = “” Then

TextBox1.Text = “7”

Else

TextBox1.Text = TextBox1.Text & “7”

End If

End Sub

  • Button 8

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

If TextBox1.Text = “” Then

TextBox1.Text = “8”

Else

TextBox1.Text = TextBox1.Text & “8”

End If

End Sub

  • Button 9

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

If TextBox1.Text = “” Then

TextBox1.Text = “9”

Else

TextBox1.Text = TextBox1.Text & “9”

End If

End Sub

  • Button 10

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

If TextBox1.Text = “” Then

TextBox1.Text = “0”

Else

TextBox1.Text = TextBox1.Text & “0”

End If

End Sub

  • Button 11

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

If TextBox1.Text = “” Then

TextBox1.Text = “.”

Else

TextBox1.Text = TextBox1.Text & “.”

End If

End Sub

  • Button 12

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

If Angka = Nothing Then

Angka = Val(TextBox1.Text)

Else

Angka = Angka + Val(TextBox1.Text)

End If

Rumus = “+”

TextBox1.Text = Nothing

End Sub

  • Button 13

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

If Angka = Nothing Then

Angka = Val(TextBox1.Text)

Else

Angka = Angka – Val(TextBox1.Text)

End If

Rumus = “-”

TextBox1.Text = Nothing

End Sub

  • Button 14

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

If Angka = Nothing Then

Angka = Val(TextBox1.Text)

Else

Angka = Angka * Val(TextBox1.Text)

End If

Rumus = “*”

TextBox1.Text = Nothing

End Sub

  • Button 15

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

If Angka = Nothing Then

Angka = Val(TextBox1.Text)

Else

Angka = Angka / Val(TextBox1.Text)

End If

Rumus = “/”

TextBox1.Text = Nothing

End Sub

  • Button 16

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

TextBox1.Text = Nothing

Angka = Nothing

Hasil = Nothing

Rumus = Nothing

End Sub

  • Button 17

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

TextBox1.Text = Math.Sin(TextBox1.Text * (phi / 180))

End Sub

  • Button 18

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

TextBox1.Text = Math.Cos(TextBox1.Text * (phi / 180))

End Sub

  • Button 19

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

TextBox1.Text = Math.Tan(TextBox1.Text * (phi / 180))

End Sub

  • Button 20

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

If Angka = Nothing Then

Angka = Val(TextBox1.Text)

Else

Angka = Angka ^ Val(TextBox1.Text)

End If

Rumus = “^”

TextBox1.Text = Nothing

End Sub

  • Button 21

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click

If Rumus = “+” Then

TextBox1.Text = Angka + Val(TextBox1.Text)

ElseIf Rumus = “-” Then

TextBox1.Text = Angka – Val(TextBox1.Text)

ElseIf Rumus = “*” Then

TextBox1.Text = Angka * Val(TextBox1.Text)

ElseIf Rumus = “/” Then

TextBox1.Text = Angka / Val(TextBox1.Text)

ElseIf Rumus = “^” Then

TextBox1.Text = Angka ^ Val(TextBox1.Text)

End If

End Sub

  • Button 22

Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click

TextBox1.Enabled = True

Button1.Enabled = True

Button2.Enabled = True

Button3.Enabled = True

Button4.Enabled = True

Button5.Enabled = True

Button6.Enabled = True

Button7.Enabled = True

Button8.Enabled = True

Button9.Enabled = True

Button10.Enabled = True

Button11.Enabled = True

Button12.Enabled = True

Button13.Enabled = True

Button14.Enabled = True

Button15.Enabled = True

Button16.Enabled = True

Button17.Enabled = True

Button18.Enabled = True

Button19.Enabled = True

Button20.Enabled = True

Button21.Enabled = True

Button22.Enabled = True

Button23.Enabled = True

Button24.Enabled = True

End Sub

  • Button 23

      Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click

TextBox1.Enabled = False

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

Button10.Enabled = False

Button11.Enabled = False

Button12.Enabled = False

Button13.Enabled = False

Button14.Enabled = False

Button15.Enabled = False

Button16.Enabled = False

Button17.Enabled = False

Button18.Enabled = False

Button19.Enabled = False

Button20.Enabled = False

Button21.Enabled = False

Button23.Enabled = False

Button24.Enabled = False

End Sub

  • Button 24

   Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click

TextBox1.Text = Math.Sqrt(TextBox1.Text)

End Sub

  • Button 25

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

If MsgBox(“Keluar dulu ya”) Then

Close()

End If

End Sub

  • Button 26

  Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click

TextBox1.Text = -1 * (TextBox1.Text)

End Sub

  • Button 27

  Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click

TextBox1.Text = 1 / (TextBox1.Text)

End Sub

  • Button 28

  Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click

TextBox1.Text = (TextBox1.Text) / 100

End Sub

End Class

5. Berikut ini adalah bentuk akhir dari kalkulator sederhana yang telah dibuat:

analisis program prosedur ukuran kamar kelompok 19

24 Nov

Public Class Form1

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

Dim x As Byte = 1

Do

Call ukuran_kamar(x)

x = x + 1

Loop Until x > Int(TextBox1.Text)

End Sub

(button1 mendeklarasikan peubah x sebagai byte dengan nilai 1. Button1 merupakan button yang akan mengulang prosedur yang dipanggil sebanyak x yang diinginkan user untuk diulang).

    Sub ukuran_kamar(ByVal ukuran As Integer)

(prosedur ukuran kamar memiliki peubah ukuran dengan tipe data integer.)

        If ukuran <= 5 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Small Biasa “)

(jika ukuran kurang dari atau sama dengan 5 AND ukuran mod 2 =0 bernilai TRUE, maka ListBox1 akan diisi dengan kalimat “Kamar (ukuran) Small Biasa”).

        ElseIf ukuran <= 5 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Small Spesial “)

(jika tidak memenuhi kondisi di atas, maka jika ukuran kurang dari atau sama dengan 5 AND ukuran mod 2 = 1 bernilai TRUE maka Listbox1 akan diisi dengan kalimat “Kamar (ukuran) Small Spesial”).

        ElseIf ukuran <= 10 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Medium Biasa “)

(jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 =0 bernilai TRUE, maka ListBox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Biasa”).

   ElseIf ukuran <= 10 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Medium Spesial “)

(jika tidak memenuhi kondisi di atas, maka jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 = 1 bernilai TRUE maka Listbox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Spesial”).

       ElseIf ukuran <= 15 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Large Biasa “)

(jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 =0 bernilai TRUE, maka ListBox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Biasa”).

        ElseIf ukuran <= 15 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Large Spesial “)

(jika tidak memenuhi kondisi di atas, maka jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 = 1 bernilai TRUE maka Listbox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Spesial”).

        ElseIf ukuran <= 20 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Xtra Large Biasa “)

(jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 =0 bernilai TRUE, maka ListBox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Biasa”).

        ElseIf ukuran <= 20 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Xtra Large Spesial “)

(jika tidak memenuhi kondisi di atas, maka jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 = 1 bernilai TRUE maka Listbox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Spesial”).

        ElseIf ukuran > 20 Then

MsgBox(“Kamar Tidak ada “)

End If

End Sub

(jika tidak memenuhi kondisi di atas, maka jika ukuran lebih dari 20 akan muncul message box “kamar Tidak ada”).

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

If MsgBox(“Keluar ya”) Then

Close()

End If

End Sub

End Class

(button2 merupakan button yang apabila diklik akan memunculkan message box “keluar dulu ya” kemudian menutup program yang ada).

 

 

analisis listing program kalkulator sederhana 19G

24 Nov

Public Class Form1

    Dim Angka, Hasil As Double

    Const phi As Double = 22 / 7

    Dim Rumus As String

(memberikan nilai phi sebesar 22/7 dengan tipe data double, mendeklarasikan variabel angka dan hasil sebagai double, serta variabel rumus rumus sebagai string)

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

        If TextBox1.Text = “” Then

            TextBox1.Text = “1”

        Else

            TextBox1.Text = TextBox1.Text & “1”

        End If

    End Sub

(button1 merupakan button yang akan memunculkan nilai 1 apabila diklik. Jika pada textbox1 kosong dan button1 diklik, maka textbox1 akan diisi dengan nilai 1 (satu) sebanyak satu digit. Selain pada kondisi di atas, angka 1 akan tetap bisa muncul setelah angka yang ada di textbox1 apabila kita mengklik button1).

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

        If TextBox1.Text = “” Then

            TextBox1.Text = “2”

        Else

            TextBox1.Text = TextBox1.Text & “2”

        End If

    End Sub

(button2 merupakan button yang akan memunculkan nilai 2 apabila diklik. Jika pada textbox1 kosong dan button2 diklik, maka textbox1 akan diisi dengan nilai 2 (dua) sebanyak satu digit. Selain pada kondisi di atas, angka 2 akan tetap bisa muncul setelah angka yang ada di textbox1 apabila kita mengklik button2).

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

        If TextBox1.Text = “” Then

            TextBox1.Text = “3”

        Else

            TextBox1.Text = TextBox1.Text & “3”

        End If

    End Sub

(button3 merupakan button yang akan memunculkan nilai 3 apabila diklik. Jika pada textbox1 kosong dan button3 diklik, maka textbox1 akan diisi dengan nilai 3 (tiga) sebanyak satu digit. Selain pada kondisi di atas, angka 3 akan tetap bisa muncul setelah angka yang ada di textbox1 apabila kita mengklik button3).

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

        If TextBox1.Text = “” Then

            TextBox1.Text = “4”

        Else

            TextBox1.Text = TextBox1.Text & “4”

        End If

    End Sub

(button4 merupakan button yang akan memunculkan nilai 4 apabila diklik. Jika pada textbox1 kosong dan button4 diklik, maka textbox1 akan diisi dengan nilai 4 (empat) sebanyak satu digit. Selain pada kondisi di atas, angka 4 akan tetap bisa muncul setelah angka yang ada di textbox1 apabila kita mengklik button4).

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        If TextBox1.Text = “” Then

            TextBox1.Text = “5”

        Else

            TextBox1.Text = TextBox1.Text & “5”

        End If

    End Sub

(button5 merupakan button yang akan memunculkan nilai 5 apabila diklik. Jika pada textbox1 kosong dan button5 diklik, maka textbox1 akan diisi dengan nilai 5 (lima) sebanyak satu digit. Selain pada kondisi di atas, angka 5 akan tetap bisa muncul setelah angka yang ada di textbox1 apabila kita mengklik button5).

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        If TextBox1.Text = “” Then

            TextBox1.Text = “6”

        Else

            TextBox1.Text = TextBox1.Text & “6”

        End If

    End Sub

(button6 merupakan button yang akan memunculkan nilai 6 apabila diklik. Jika pada textbox1 kosong dan button6 diklik, maka textbox1 akan diisi dengan nilai 6 (enam) sebanyak satu digit. Selain pada kondisi di atas, angka 6 akan tetap bisa muncul setelah angka yang ada di textbox1 apabila kita mengklik button6).

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If TextBox1.Text = “” Then

            TextBox1.Text = “7”

        Else

            TextBox1.Text = TextBox1.Text & “7”

        End If

    End Sub

(button7 merupakan button yang akan memunculkan nilai 7 apabila diklik. Jika pada textbox1 kosong dan button7 diklik, maka textbox1 akan diisi dengan nilai 7 (tujuh) sebanyak satu digit. Selain pada kondisi di atas, angka 7 akan tetap bisa muncul setelah angka yang ada di textbox1 apabila kita mengklik button7).

     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        If TextBox1.Text = “” Then

            TextBox1.Text = “8”

        Else

            TextBox1.Text = TextBox1.Text & “8”

        End If

    End Sub

(button8 merupakan button yang akan memunculkan nilai 8 apabila diklik. Jika pada textbox1 kosong dan button8 diklik, maka textbox1 akan diisi dengan nilai 8 (delapan) sebanyak satu digit. Selain pada kondisi di atas, angka 8 akan tetap bisa muncul setelah angka yang ada di textbox1 apabila kita mengklik button8).

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        If TextBox1.Text = “” Then

            TextBox1.Text = “9”

        Else

            TextBox1.Text = TextBox1.Text & “9”

        End If

    End Sub

(button9 merupakan button yang akan memunculkan nilai 9 apabila diklik. Jika pada textbox1 kosong dan button9 diklik, maka textbox1 akan diisi dengan nilai 9 (sembilan) sebanyak satu digit. Selain pada kondisi di atas, angka 9 akan tetap bisa muncul setelah angka yang ada di textbox1 apabila kita mengklik button9).

     Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        If TextBox1.Text = “” Then

            TextBox1.Text = “0”

        Else

            TextBox1.Text = TextBox1.Text & “0”

        End If

    End Sub

(button10 merupakan button yang akan memunculkan nilai 0 apabila diklik. Jika pada textbox1 kosong dan button10 diklik, maka textbox1 akan diisi dengan nilai 0 (nol) sebanyak satu digit. Selain pada kondisi di atas, angka 0 akan tetap bisa muncul setelah angka yang ada di textbox1 apabila kita mengklik button10).

     Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        If TextBox1.Text = “” Then

            TextBox1.Text = “.”

        Else

            TextBox1.Text = TextBox1.Text & “.”

        End If

    End Sub

(button11 merupakan button yang akan memunculkan . (koma pada angka desimal) apabila diklik. Jika pada textbox1 kosong dan button11 diklik, maka textbox1 akan diisi dengan tanda . (koma pada angka desimal) sebanyak satu digit. Selain pada kondisi di atas, maka tanda . (koma pada angka desimal) akan tetap bisa muncul setelah angka maupun tanda baca lain yang ada di textbox1 apabila kita mengklik button11).

     Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        If Angka = Nothing Then

            Angka = Val(TextBox1.Text)

        Else

            Angka = Angka + Val(TextBox1.Text)

        End If

        Rumus = “+”

        TextBox1.Text = Nothing

    End Sub

(button12 merupakan button yang akan mengoperasikan angka yang dimasukkan oleh user ke textbox1 dengan operator aritmetika + (jumlah). Jika tidak ada angka yang dimasukkan, maka peubah angka bernilai sama dengan nilai yang ada di textbox1. Jika tidak memenuhi kondisi tersebut, maka peubah angka akan diisi dengan angka pertama yang dimasukkan oleh user kemudian ditambah dengan angka kedua yang juga dimasukkan oleh user).

     Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        If Angka = Nothing Then

            Angka = Val(TextBox1.Text)

        Else

            Angka = Angka – Val(TextBox1.Text)

        End If

        Rumus = “-“

        TextBox1.Text = Nothing

    End Sub

(button13 merupakan button yang akan mengoperasikan angka yang dimasukkan oleh user ke textbox1 dengan operator aritmetika – (kurang). Jika tidak ada angka yang dimasukkan, maka peubah angka bernilai sama dengan nilai yang ada di textbox1. Jika tidak memenuhi kondisi tersebut, maka peubah angka akan diisi dengan angka pertama yang dimasukkan oleh user kemudian dikurangi dengan angka kedua yang juga dimasukkan oleh user).

     Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        If Angka = Nothing Then

            Angka = Val(TextBox1.Text)

        Else

            Angka = Angka * Val(TextBox1.Text)

        End If

        Rumus = “*”

        TextBox1.Text = Nothing

    End Sub

(button14 merupakan button yang akan mengoperasikan angka yang dimasukkan oleh user ke textbox1 dengan operator aritmetika * (kali). Jika tidak ada angka yang dimasukkan, maka peubah angka bernilai sama dengan nilai yang ada di textbox1. Jika tidak memenuhi kondisi tersebut, maka peubah angka akan diisi dengan angka pertama yang dimasukkan oleh user kemudian dikalikan dengan angka kedua yang juga dimasukkan oleh user).

     Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        If Angka = Nothing Then

            Angka = Val(TextBox1.Text)

        Else

            Angka = Angka / Val(TextBox1.Text)

        End If

        Rumus = “/”

        TextBox1.Text = Nothing

    End Sub

(button15 merupakan button yang akan mengoperasikan angka yang dimasukkan oleh user ke textbox1 dengan operator aritmetika / (bagi). Jika tidak ada angka yang dimasukkan, maka peubah angka bernilai sama dengan nilai yang ada di textbox1. Jika tidak memenuhi kondisi tersebut, maka peubah angka akan diisi dengan angka pertama yang dimasukkan oleh user kemudian dibagi dengan angka kedua yang juga dimasukkan oleh user).

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        TextBox1.Text = Nothing

        Angka = Nothing

        Hasil = Nothing

        Rumus = Nothing

    End Sub

(button16 merupakan button yang apabila diklik akan menghapus seluruh angka maupun  operasi yang telah dilakukan sebelumnya. Button ini biasa dikenal dengan clear button).

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        TextBox1.Text = Math.Sin(TextBox1.Text * (phi / 180))

    End Sub

(button17 merupakan button yang digunakan untuk mengoperasikan angka dengan operator sinus. Sehingga apabila button17 diklik maka akan mengoperasikan angka yang ada pada textbox1 dengan operator sinus).

     Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        TextBox1.Text = Math.Cos(TextBox1.Text * (phi / 180))

    End Sub

(button18 merupakan button yang digunakan untuk mengoperasikan angka dengan operator cosinus. Sehingga apabila button18 diklik maka akan mengoperasikan angka yang ada pada textbox1 dengan operator cosinus).

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

        TextBox1.Text = Math.Tan(TextBox1.Text * (phi / 180))

    End Sub

(button19 merupakan button yang digunakan untuk mengoperasikan angka dengan operator tangen. Sehingga apabila button19 diklik maka akan mengoperasikan angka yang ada pada textbox1 dengan operator tangen).

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

        If Angka = Nothing Then

            Angka = Val(TextBox1.Text)

        Else

            Angka = Angka ^ Val(TextBox1.Text)

        End If

        Rumus = “^”

        TextBox1.Text = Nothing

    End Sub

(button20 merupakan button yang akan mengoperasikan angka yang dimasukkan oleh user ke textbox1 dengan operator aritmetika ^ (pangkat). Jika tidak ada angka yang dimasukkan, maka peubah angka bernilai sama dengan nilai yang ada di textbox1. Jika tidak memenuhi kondisi tersebut, maka peubah angka akan diisi dengan angka pertama yang dimasukkan oleh user kemudian dipangkatkan dengan angka kedua yang juga dimasukkan oleh user).

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click

        TextBox1.Text = Math.Sqrt(TextBox1.Text)

    End Sub

(button24 merupakan button yang digunakan untuk mengoperasikan angka dengan operator akar kuadrat. Sehingga apabila button24 diklik maka akan mengakar kuadratkan angka yang ada di textbox1).

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click

        If Rumus = “+” Then

            TextBox1.Text = Angka + Val(TextBox1.Text)

(jika rumus + maka textbox1 akan diisi dengan nilai yang ada di peubah angka dijumlahkan dengan nilai yang ada di textbox1).

        ElseIf Rumus = “-” Then

            TextBox1.Text = Angka – Val(TextBox1.Text)

(jika rumus – maka textbox1 akan diisi dengan nilai yang ada di peubah angka dikurangkan dengan nilai yang ada di textbox1).

        ElseIf Rumus = “*” Then

            TextBox1.Text = Angka * Val(TextBox1.Text)

(jika rumus * maka textbox1 akan diisi dengan nilai yang ada di peubah angka dikalikan dengan nilai yang ada di textbox1).

        ElseIf Rumus = “/” Then

            TextBox1.Text = Angka / Val(TextBox1.Text)

(jika rumus / maka textbox1 akan diisi dengan nilai yang ada di peubah angka dibagi dengan nilai yang ada di textbox1).

        ElseIf Rumus = “^” Then

            TextBox1.Text = Angka ^ Val(TextBox1.Text)

(jika rumus ^ maka textbox1 akan diisi dengan nilai yang ada di peubah angka dipangkatkan dengan nilai yang ada di textbox1).

        End If

    End Sub

(jadi button21 merupakan button sama dengan atau akan menampilkan hasil dari perhitungan apabila diklik).

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click

        TextBox1.Enabled = False

        Button1.Enabled = False

        Button2.Enabled = False

        Button3.Enabled = False

        Button4.Enabled = False

        Button5.Enabled = False

        Button6.Enabled = False

        Button7.Enabled = False

        Button8.Enabled = False

        Button9.Enabled = False

        Button10.Enabled = False

        Button11.Enabled = False

        Button12.Enabled = False

        Button13.Enabled = False

        Button14.Enabled = False

        Button15.Enabled = False

        Button16.Enabled = False

        Button17.Enabled = False

        Button18.Enabled = False

        Button19.Enabled = False

        Button20.Enabled = False

        Button21.Enabled = False

        Button23.Enabled = False

        Button24.Enabled = False

    End Sub

(button23 merupakan button off yang apabila diklik akan membuat program kalkulator 19G tidak akan dapat dioperasikan, tetapi program masih dalam keadaan dijalankan).

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click

        TextBox1.Enabled = True

        Button1.Enabled = True

        Button2.Enabled = True

        Button3.Enabled = True

        Button4.Enabled = True

        Button5.Enabled = True

        Button6.Enabled = True

        Button7.Enabled = True

        Button8.Enabled = True

        Button9.Enabled = True

        Button10.Enabled = True

        Button11.Enabled = True

        Button12.Enabled = True

        Button13.Enabled = True

        Button14.Enabled = True

        Button15.Enabled = True

        Button16.Enabled = True

        Button17.Enabled = True

        Button18.Enabled = True

        Button19.Enabled = True

        Button20.Enabled = True

        Button21.Enabled = True

        Button22.Enabled = True

        Button23.Enabled = True

        Button24.Enabled = True

    End Sub

(button22 merupakan button on yang apabila diklik akan membuat program kalkulator 19G dapat dioperasikan kembali, tanpa harus menutup program dan menjalankannya kembali).

     Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

        If MsgBox(“Keluar dulu ya”) Then

            Close()

        End If

    End Sub

(button25 merupakan button yang apabila diklik akan memunculkan message box “keluar dulu ya” kemudian menutup program yang ada).

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click

        Angka = -1 * Val(TextBox1.Text)

TextBox1.Text = Angka

    End Sub

(button26 merupakan button untuk memberikan tanda negatif pada angka di textbox1 atau membalikkan angka pada textbox1 menjadi positif lagi).

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click

        If Angka = Nothing Then

            Angka = Val(TextBox1.Text)

        Else

            Angka = 1 / Val(TextBox1.Text)

        End If

        Rumus = “1/Val(TextBox1.Text)”

        TextBox1.Text = Nothing

    End Sub

(button27 merupakan button yang akan mengoperasikan angka yang dimasukkan oleh user ke textbox1 dengan operator aritmetika satu per (satu dibagi). Jika tidak ada angka yang dimasukkan, maka peubah angka bernilai sama dengan nilai yang ada di textbox1. Jika tidak memenuhi kondisi tersebut, maka peubah angka akan diisi dengan bilangan satu (1) dibagi dengan angka yang dimasukkan oleh user).

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click

TextBox1.Text = TextBox1.Text / 100

End Sub

End Class

(button28 merupakan button untuk mengkonversi angka di textbox1 menjadi persen atau per seratus).

Tutorial Visual Basic 2010

17 Nov

CARA MEMBUAT PROGRAM KASIR SEDERHANA PADA VISUAL BASIC 2010

Visual Basic 2010 biasa digunakan para programmer untuk membuat suatu aplikasi yang dapat memudahkan untuk memecahkan suatu masalah.

Berikut ini adalah contoh aplikasi kasir sederhana yang dibuat di Visual Basic 2010:

  1. Buka VB 2010 >> New Project >> Windows Forms Application >> OK.
  2. Buat desain seperti gambar dengan memasukkan komponen dari toolbox ke dalam form design.
3. Ubah nama komponen yang telah dibuat dari bagian properties (di kotak yang ada di pinggir kanan)
4.   Klik 2 kali pada form, lalu masukkan listing code untuk masing-masing komponen, yaitu komponen ComboBox, TextBox, RadioButton, dan Button. Berikut listing codenya:
  • Form 1

Public Class Form1

Dim harga_kotor, harga_bersih As Integer

Dim potongan As Integer = 0

 

  • ComboBox1

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

With ComboBox1

.Items.Add(“Buku Tulis”)

.Items.Add(“Buku Gambar”)

.Items.Add(“Pulpen Boxy”)

.Items.Add(“Pensil Mekanik”)

.Items.Add(“Penggaris Rotring”)

.Items.Add(“Rautan Pensil”)

End With

End Sub

Lalu, untuk memunculkan harga secara otomatis pada TextBox1, masukkan listing berikut ini:

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

TextBox5.Focus()

If ComboBox1.Text = “Buku Tulis” Then

TextBox5.Text = “2000”

ElseIf ComboBox1.Text = “Buku Gambar” Then

TextBox5.Text = “3000”

ElseIf ComboBox1.Text = “Pulpen Boxy” Then

TextBox5.Text = “2000”

ElseIf ComboBox1.Text = “Pensil Mekanik” Then

TextBox5.Text = “2000”

ElseIf ComboBox1.Text = “Penggaris rotring” Then

TextBox5.Text = “2000”

ElseIf ComboBox1.Text = “Rautan pensil” Then

TextBox5.Text = “2000”

End If

End Sub

 

  • RadioButton1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton3.CheckedChanged, RadioButton2.CheckedChanged

potongan = sender.text

End Sub

 

  • Button1

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

Dim diskon As Single

Dim total As Single

diskon = (TextBox5.Text * TextBox1.Text * potongan) / 100

total = (TextBox5.Text * TextBox1.Text – diskon)

TextBox2.Text = Format(total, “#”)

End Sub

 

  • Button2

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

Close()

End Sub

 

  • Button3

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

ComboBox1.Text = “”

TextBox1.Text = “”

TextBox2.Text = “”

TextBox3.Text = “”

TextBox4.Text = “”

TextBox5.Text = “”

RadioButton1.Checked = False

RadioButton2.Checked = False

RadioButton3.Checked = False

End Sub

End Class

 

  • Button4

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

TextBox4.Text = Val(TextBox3.Text) – Val(TextBox2.Text)

End Sub

 

  • TextBox1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

TextBox2.Focus()

End Sub

5.   Tekan F5 untuk menjalankan program kasir. Jika terjadi error berarti ada kesalahan dalam membuat listing code, jadi perbaiki listing program terlebih dahulu.

6.   File > Save All, untuk menyimpan program secara keseluruhan.

Berikut ini adalah contoh program yang telah dibuat: