Menghitung volume balok dan luas segitiga pada program visual basic 2010

Hallo, disini saya akan share sedikit tentang cara menghitung volume balok dan luas segitiga  pada program visual basic 2010, walaupun tidak terlalu bagus tapi lumayanlah buat belajar., heee….

Okee…

Tanpa basa basi lagi kita lansung ke langkah-langkahnya,

Terlebih dahulu buka start menu, 

kemudian pilih program visual basic 2010.

Lalu, new project

Kemudian pilih mindows form Application, disini juga terdapat location yaitu untuk mengatur dimana tempat anda menyimpan file, kemudian OK.

Setelah di OK akan muncul tampilan seperti di bawah ini (form 1).

Lalu buat tampilan seperti di bawah ini, menggunakan  7 Textbox, 7 Label , 2 Groupbox, 5 Button, kemudian atur posisinya seperti di gambar.

Groupbox kiri untuk luas segitiga dan yang kanan untuk volume balok.

Untuk merubah nama  sesuai  yang ingin kita buat maka double klik di dalam form 1,Terus buat kodingan seperti dibawahi ini,

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Alas"
        Label2.Text = "Tinggi"
        Label3.Text = "Hasil"
        Label4.Text = "Panjang"
        Label5.Text = "Lebar"
        Label6.Text = "Tinggi"
        Label7.Text = "Hasil"
        Button1.Text = "Proses"
        Button2.Text = "Hapus"
        Button3.Text = "Proses"
        Button4.Text = "Hapus"
        Button5.Text = "Quit"
        GroupBox1.Text = "Luas Segi Tiga"
        GroupBox2.Text = "Volume balok"
    End Sub

Setelah itu double klik di Button untuk memberikan perintah (koding) agar bias di jalankan, begitu juga berikkutnya, disini kita bermain sedikit logika.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = (1 / 2) * Val(TextBox1.Text) * Val(TextBox2.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Alas"
        Label2.Text = "Tinggi"
        Label3.Text = "Hasil"
        Label4.Text = "Panjang"
        Label5.Text = "Lebar"
        Label6.Text = "Tinggi"
        Label7.Text = "Hasil"
        Button1.Text = "Proses"
        Button2.Text = "Hapus"
        Button3.Text = "Proses"
        Button4.Text = "Hapus"
        Button5.Text = "Quit"
        GroupBox1.Text = "Luas Segi Tiga"
        GroupBox2.Text = "Volume balok"
    End Sub

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox7.Text = Val(TextBox4.Text) * Val(TextBox5.Text) * Val(TextBox6.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
    End Sub
End Class
 

Jika semua sudah , coba klik run (jalankan) atau F5. Jika berhasil akan muncul tampilan seperti ini,,

Jika sudah muncul coba masukkan angka dan tekan tombol Proses, kemudian coba tombol Hapus, setelah itu Quit.

Jika semua sudah OK/bisa dijalankn, selamat deh…. Yang belum, coba lagi ya,,,, upayakan agar lebih teliti lagi,,, hheeeeeeeeeeee

OKhanya itu dari saya,,,

Tanks,,

MEMBUAT DAFTAR MENU MAKANAN DAN MINUMAN DENGAN VB 2010

CARA MEMBUAT DAFTAR MENU PADA PROGRAM VISUAL BASIC 2010

ASS. Wr. Wb. Dalam kesempatan Kali ini saya ingin berbagi sedikit tentang membuat daftar menu makanan pada program visual basic 2010, walaupun ndak terlalu bagus tapi lumayanlah buat belajar.

Okee… tanpa basa basi lagi kita lansung ke langkah-langkahnya, 
    

   Terlebih dahulu buka start menu, 

         

Kemudian pilih program visual basic 2010.

       Lalu, new project

      

          Kemudian pilih mindows form Application, disini juga terdapat location yaitu untuk mengatur dimana tempat anda menyimpan file, kemudian OK.

            Setelah di OK akan muncul tampilan seperti di bawah ini (form 1).

     

               Lalu buat tampilan seperti di bawah ini, menggunakan Radiobutton, Label, Groupbox, dan Button.

 Untuk merubah nama  sesuai daftar menu yang ingin kita buat maka double klik di dalam form 1,Terus buat kodingan seperti dibawahi ini,

Setelah itu double klik di Radiobutton untuk memberikan perintah (koding) agar bias di jalankan, begitu juga berikkutnya, disini kita bermain sedikit logika.

Double klik di button1 untuk membuat koding supaya total penbelian bisa muncul, dan double klik di button2 untuk membuat perintah (koding) hapus,

Nie.. koding lengkapnya,,

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Menu Makanan"
        RadioButton1.Text = "Mie Ayam"
        RadioButton2.Text = "Nasi Goreng"
        RadioButton3.Text = "Lalapan"
        RadioButton4.Text = "Soto Ayam"
        Label1.Text = "Menu"
        Label2.Text = "Harga"
        GroupBox1.Text = "Menu Makanan"
        GroupBox2.Text = "Menu Miniman"
        RadioButton5.Text = "Teh Manis"
        RadioButton6.Text = "Jus"
        RadioButton7.Text = "Air Putih"
        Label3.Text = "Menu"
        Label4.Text = "Harga"
        GroupBox3.Text = "Total"
        Label5.Text = "Total yang harus di bayar"
        Label6.Text = "Rp. ..."
        Button1.Text = "Show"
        Button2.Text = "Clear"

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then
            Label1.Text = RadioButton1.Text
            Label2.Text = "Rp. 8,000"
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then
            Label1.Text = RadioButton2.Text
            Label2.Text = "Rp. 12,000"
        End If

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked Then
            Label1.Text = RadioButton3.Text
            Label2.Text = "Rp. 10,000"
        End If
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        If RadioButton4.Checked Then
            Label1.Text = RadioButton4.Text
            Label2.Text = "Rp. 11,000"
        End If
    End Sub

   
    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        If RadioButton5.Checked Then
            Label3.Text = RadioButton5.Text
            Label4.Text = "Rp. 2,000"
        End If
    End Sub

    Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
        If RadioButton6.Checked Then
            Label3.Text = RadioButton6.Text
            Label4.Text = "Rp. 3,000"
        End If
    End Sub

    Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
        If RadioButton7.Checked Then
            Label3.Text = RadioButton7.Text
            Label4.Text = "Rp. 1,000"
        End If
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label6.Text = "Rp. ..."
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked And RadioButton5.Checked Then
            Label6.Text = "Rp. 10,000"
        End If
        If RadioButton2.Checked And RadioButton5.Checked Then
            Label6.Text = "Rp. 14,000"
        End If
        If RadioButton3.Checked And RadioButton5.Checked Then
            Label6.Text = "Rp. 12,000"
        End If
        If RadioButton4.Checked And RadioButton5.Checked Then
            Label6.Text = "Rp. 13,000"
        End If
        If RadioButton1.Checked And RadioButton6.Checked Then
            Label6.Text = "Rp. 11,000"
        End If
        If RadioButton2.Checked And RadioButton6.Checked Then
            Label6.Text = "Rp. 15,000"
        End If
        If RadioButton3.Checked And RadioButton6.Checked Then
            Label6.Text = "Rp. 13,000"
        End If
        If RadioButton4.Checked And RadioButton6.Checked Then
            Label6.Text = "Rp. 14,000"
        End If
        If RadioButton1.Checked And RadioButton7.Checked Then
            Label6.Text = "Rp. 9,000"
        End If
        If RadioButton2.Checked And RadioButton7.Checked Then
            Label6.Text = "Rp. 13,000"
        End If
        If RadioButton3.Checked And RadioButton7.Checked Then
            Label6.Text = "Rp. 11,000"
        End If
        If RadioButton4.Checked And RadioButton7.Checked Then
            Label6.Text = "Rp. 12,000"
        End If


    End Sub
End Class

 Jika semua sudah , coba di run (jalankan). Jika berhasil akan muncul tampilan seperti ini,,

nie juga hasilnya....

 Selamat deh klo berhasil,, bagi yang belum coba lagi yaa,,, jangan menyerah OK….

Sekian dari saya, tanks,,

pengenalan program VB2010

hallo... ni saya sharing sedikit tentang program visual basic 2010 tapi baru pengenalan ajja yaa..... heheeee,, bwat yang udah pinter VB, tolong di bantu aja yaa,,,

 oke to thepoin aja,,,

•  pertama-tama jalankan apps Visual Basic 2010, kemudian pilih new project   
  
  
  \kemudian buat tampilan seperti ini, menggunakan label, textbox,button, radiobutton, dan checkbox, yang ada pada toolbox
   

 kemudian tulis coding/perintahnya,...
 











kalo kurang jelas nii, saya lbih jelasnya..

Public Class Form1

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

        Me.Text = "latihan Q"

        Label1.Text = "program percobaan VB"

        Label2.Text = "tulis dibawah"

        Label3.Text = "    "

        Button1.Text = "prosesing"

        radiobutton1.ForeColor = Color.Red

        RadioButton2.ForeColor = Color.Blue

        RadioButton3.ForeColor = Color.Green

        CheckBox1.Text = "bold"

        CheckBox2.Text = "underline"

        CheckBox3.Text = "italic"

    End Sub

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

        Label3.Text = TextBox1.Text

    End Sub

    Private Sub radiobutton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiobutton1.CheckedChanged

        Label3.ForeColor = Color.Red

    End Sub

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

        Label3.ForeColor = Color.Blue

    End Sub

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

        Label3.ForeColor = Color.Green

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked Then

            Label3.Font = New Font(Label3.Font, Label3.Font.Style Or FontStyle.Bold)

        Else

            Label3.Font = New Font(Label3.Font, Label3.Font.Style And Not FontStyle.Bold)

        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked Then

            Label3.Font = New Font(Label3.Font, Label3.Font.Style Or FontStyle.Underline)

        Else

            Label3.Font = New Font(Label3.Font, Label3.Font.Style And Not FontStyle.Underline)

        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox3.Checked Then

            Label3.Font = New Font(Label3.Font, Label3.Font.Style Or FontStyle.Italic)

        Else

            Label3.Font = New Font(Label3.Font, Label3.Font.Style And Not FontStyle.Italic)

        End If

    End Sub

End Class

 kemudian coba jalankan, klick run atau f5 dan hasilnya seperti ini,

 

itulah sedikit  dari saya, selamat mencoba

good lock,,,,