PROGRAM MENAMPILKAN APLIKASI YANG INGIN DITAMPILKAN

langkah-langkah pembuatan program adalah sebagi berikut :

1. Bukalah program mircrosoft visual basic 2010 express
2. Setelah jendela Visual Basic terbuka, maka pilihlah file -> new project
   
   
   
3. buatlah tampilan seperti berikut
   
4. lalu masukan listing program sebagai berikut

klik pada tombol button 2 kali , lalu masukan program

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

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

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

5.kita jalankan satu persatu
klil f5 pada keyboar
lalu pilih aplikasi yang igin di jalankan

TERIMA KASIH

PROGRAM MENAMPILKAN WAKTU MENGGUNAKAN VISUAL BASIC 2010

langkah-langkah membuat program adalah sebagai berikut :

1. Bukalah program mircrosoft visual basic 2010 express
2. Setelah jendela Visual Basic terbuka, maka pilihlah file -> new project
   
3. setelah itu akan muncul sebuah form yang berjudul form1
   
4. Setelah itu kita akan menambahkan komponen-komponen yang diperlukan ,agar kita dapat menambahkan timer .
   klik pada tanda yang saya garis hitam
   
5. Letakkan timer di bawah form.
   
6. Klik double pada timer1 , lalu masukakn listing program berikut ini :

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 tekan tonbol f5

PROGRAM VB 2010 MEMBUAT LOADING

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. buka form yang berjudul form1
   
4. buatlah tampilan aplikasi seperti berikut atau sesuai selera
   
5. Klik double pada button 1 , lalu masukkan listing program berikut ini :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. lalu jalankan dengan cara tekan f5
   

TERIMA KASIH, SELAMAT MENCOBA

FINAL1 MEMBUAT PROGRAM KASIR DENGAN VB2010

Program yang akan dibuat di dalam program visual basic 2010 ini adalah sebuah program Kasir Tujuan pembuatan program ini adalah untuk memudahkan dalam perhitungan barang dalam jumlah banyak ,menghindari antrian panjang , dan menghemat waktu saat berbelanja.

Langkah-langkah pembuatan Program kasir adalah sebagai berikut :

1. Bukalah program mircrosoft visual basic 2010 express
2. Setelah jendela Visual Basic terbuka, maka pilihlah file -> new project
   
3. . windows forms applications pada menu tab seperti gambar di bawah ini.Lalu tentukan name dan lokasi penyimpanan project yang ingin diinginkan,lalu klik OK
   
   
   
   
   
4. Setelah itu, akan muncul sebuah form yang berjudul form1 . Kita dapat memberi nama form tersebut dengan mengubah nama pada properties nya, dalam hal ini nama form1 diganti dengan nama “Soal 1”
   
5. Setelah itu kita tambahkan komponen-komponen yang diperlukan. kita dapat menambahkan label , textbox ,button dan  combobox lalu drag komponen yang digunakan kedalam kotak form.
   
   
6. Aturlah dan design letak sesuai yang diinginka di dalam kotak Form “Soal 1 ”
   
7. Klik Double pada  button1,button2,dan button3 lalu mulai membuat listing programPublic Class Form1
       Dim gula, garam, ajinamoto, jumlah, total, uang, balik As Double
   
   
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
   
           jumlah = Val(TextBox1.Text)
   
   
           If ComboBox1.Text = "gula" Then
               gula = 7000
               total = gula * jumlah
               TextBox2.Text = total
           ElseIf ComboBox1.Text = " garam " Then
               garam = 8000
               total = garam * jumlah
               TextBox2.Text = total
           ElseIf ComboBox1.Text = " ajinamoto " Then
               garam = 6000
               total = ajinamoto * jumlah
               TextBox2.Text = total
           Else
               End
   
   
           End If
       End Sub
   
   
       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
           uang = Val(TextBox3.Text)
           balik = uang - total
           TextBox4.Text = balik
       End Sub
   
   
       Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
           End
       End Sub
   
   
       Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
   
   
       End Sub
   End Class
8. Lalu kita uji program kita, apakah jalan dengan baik atau tidak. Caranya klik menu debug>start debugging / tekan F5 .
   
9. Jika kita mengklik button "Clear" maka program akan selesai dan ditutup secara otomatis

SELAMAT MENCOBA, TERIMA KASIH

Menetukan Nilai Genap, Ganjil dan Prima dengan Menggunakan VB 2010

1.       Buka program Microsoft Visual Studio 2010.
Dengan tampilan seperti berikut :

2.       Klik file – new – project

3.       Lalu ketik nama project dan pilih lokasi untuk penyimpanan file dan OK

4.       Saat klik Ok akan keluar tampilan form.

5.       Klik toolbox yang terdapat pada pinggiran tampilan form, lalu pilih Textbox, Radiobotton, Label dan Button.

6.       Klik double klik pada form dengan linsting program :
Public Class Form1
    Dim bilangan As Double
    Dim I As Integer

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then
            bilangan = TextBox1.Text
            If bilangan Mod 2 = 0 Then
                TextBox2.Text = "Genap"
            Else
                TextBox2.Text = "Ganjil"
            End If
        Else
            bilangan = TextBox1.Text
            If bilangan = 1 Then
                TextBox2.Text = "Bukan Prima"
            ElseIf bilangan = 2 Then
                TextBox2.Text = "Prima"
            Else
                For I = 2 To bilangan - 1
                    If bilangan Mod I = 0 Then
                        TextBox2.Text = "Bukan Prima"
                        Exit For
                    Else
                        TextBox2.Text = "Prima"
                    End If
                Next
            End If
        End If
    End Sub

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

    End Sub
End Class


7.       Lalu save and start debugging

8.       Input angka dan pilih salah satu dari dari robutton (Genap atau Ganjil dan Prima).

Jika memilih Radiobutton Genap dan Ganjil :



Jika dipilih Prima :



9.       Selesai.

Algoritma

Public Class Form4

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

        If RadioButton1.Checked = True Then

            If ComboBox1.Text = "Dewasa" Then

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Bapak.jpg")

            ElseIf ComboBox1.Text = "Orang Tua" Then

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Ayah.jpg")

            Else

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Udin.jpg")

                End If

            End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton2.Checked = True Then

            If ComboBox1.Text = "Anak-anak" Then

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\ana.jpg")

            ElseIf ComboBox1.Text = "Orang Tua" Then

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Ayah.jpg")

            Else

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Udin.jpg")

            End If

        End If

    End Sub

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

        If sender.tag = 1 Then

            PictureBox1.Image = Nothing

            ComboBox1.Text = ""

            RadioButton1.Checked = False

            RadioButton2.Checked = False

        Else

            PictureBox1.Image = Nothing

            ComboBox1.Text = ""

            RadioButton1.Checked = False

            RadioButton2.Checked = False

        End If

    End Sub

End Class