PROGRAM MENAMPILKAN APLIKASI YANG INGIN DITAMPILKAN

langkah-langkah pembuatan program adalah sebagi berikut :

1.Bukalah program VB 2010
2.Setelah jendela VB terbuka, maka pilihlah file -> new project

3.buatlah tampilan seperti berikut

4. Klik pada tombol "Kalkulator", lalu masukkan listing program sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell(“C:\windows\System32\Calc.exe”)
End Sub

5. Klik pada tombol "Microsoft Word", lalu masukkan listing program sebagai berikut:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell(“C:\Program Files\Microsoft Office\Office12\WinWord.exe”)
End Sub

6. Klik pada tolbom "Paint", lalu masukkan listing program sebagai berikut:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Shell(“C:\Windows\System32\mspaint.exe”)
End Sub
End Class

7. Terakhir kita jalan program tersebut dengan menekan tombol F5, dan pilih mana program yang ingin anda jalankan.
8. Selamat mencoba

Continue

Membuat Timer dengan VB 2010

langkah-langkah membuat program adalah sebagai berikut :

1.Bukalah program mircrosoft visual basic 2010
2.Setelah jendela Visual Basic terbuka, maka pilihlah file -> new project

3.Lalu buka form baru

4.Setelah itu pilih timer pada menu toolbox seperti di bawah ini

5. Letakkan timer di bawah form.

6.Klik 2 kali pada tombol timer lalu muncul form listing, Lalu tuliskan listing programnya sebagai berikut:

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Text = TimeOfDay
End Sub
End Class

7.lalu kita jalankan dengan cara klik debug > start debugging atau F5

Dan akan keluar tampilan seperti ini:

8. Selesai

Continue

CARA MEMBUAT PROGRAM PROGRES BAR

Langkah-langkah membuat program Progres bar adalah sebagai berikut :

1.Bukalah program mircrosoft visual basic 2010
2.Setelah jendela Visual Basic terbuka, maka pilihlah file -> new project

3. Lalu buka form baru

4. Lalu sesuaikan tampilan form sesuai dengan keinginan anda

5. Klik 2 kali pada tombol proses, lalu keluar form listing program, lalu isikan listing programnya sebagai berikut :

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With ProgressBar1
.Minimum = 0
.Maximum = 1000
For N As Integer = .Minimum To .Maximum
.Value = N
Me.Text = “Program loading” & proses 100 [ ” & Int(N / 10) & “%]”
Next
End With
End Sub
End Class
6. Setelah itu jalankan program tersebut.
7. Selesai

Continue

CARA MEMBUAT PROGRAM KASIR SEDERHANA

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:

Continue