LANGKAH-LANGKAH VISUAL BASIC 2010 MEMBUAT PROGRAM KONVERSI PERUBAHAN SUHU

·         Langkah awalnya buatlah 3 groupbox, 3 label, 6 textbox, 3 buttton, dan 3 combobox lalu desain sesuai keinginan atau seperti pada gambar di bawah ini :

·         Untuk mengubah nama label, groupbox, ataupun button masukkan coding seperti dibawah ini:

        Label1.Text = "NILAI"

        Label2.Text = "NILAI"

        Label3.Text = "NILAI"

        GroupBox1.Text = "konverensi Celcius"

        GroupBox2.Text = "Konverensi Farenheit"

        GroupBox3.Text = "Konverensi Kelvin"

        GroupBox1.Font = New Font(Font, FontStyle.Bold)

        GroupBox2.Font = New Font(Font, FontStyle.Bold)

        GroupBox3.Font = New Font(Font, FontStyle.Bold)

        Button1.Text = "HASIL"

        Button2.Text = "HASIL"

        Button3.Text = "HASIL"

·         Setelah di RUN maka tampilan yang muncul yakni :

·         Selanjutnya untuk memasukkan daftar yang ingin di konverensi kan ke dalam combobox, contohnya konverensi dari celcius ke farenheit atau yang lainnya dapat dilakukan dengan cara klik pada combobox , lalu pada properties, klik pada ikon items maka akan muncul tab String Collection Editor , lalu tulis lah daftar tersebut pada tab itu, seperti pada gambar dibawah ini :

·         Begitu pula dengan combobox 2 , seperti ini :

·         Dan juga combobox3, seperti gambar di bawah ini :

·         Selanjutnya agar program mengkoverensi celcius, farenheit, dan kelvin dapat berjalan maka lakukan double klik pada button1 untuk celcius, button2 untuk farenheit dan button3 untuk kelvin

·         Button1 seperti berikut :

        If (ComboBox1.SelectedItem = "C ke R") Then

            TextBox2.Text = Val(4 / 5) * Val(TextBox1.Text)

        ElseIf (ComboBox1.SelectedItem = "C ke F") Then

            TextBox2.Text = Val(9 / 3) * Val(TextBox1.Text)

        ElseIf (ComboBox1.SelectedItem = "C ke K") Then

            TextBox2.Text = Val(TextBox1.Text) + Val(273)

        End If

·         Button2 seperti berikut :

        If (ComboBox2.SelectedItem = "F ke C") Then

            TextBox4.Text = Val(5 / 9) * Val(TextBox2.Text) - Val(32)

        ElseIf (ComboBox2.SelectedItem = "F ke R") Then

            TextBox4.Text = Val(4 / 9) * Val(TextBox2.Text) - Val(32)

        ElseIf (ComboBox2.SelectedItem = "F ke K") Then

            TextBox4.Text = Val(5 / 9) * Val(TextBox2.Text) - Val(32) +    Val(273)

        End If

·         Button3 seperti berikut :

        if (ComboBox3.SelectedItem = "K ke C") Then

            TextBox6.Text = Val(TextBox3.Text) - Val(273)

        ElseIf (ComboBox3.SelectedItem = "K ke R") Then

            TextBox6.Text = Val(4 / 5) * Val(TextBox3.Text) - Val(273)

        ElseIf (ComboBox3.SelectedItem = "K ke F") Then

            TextBox6.Text = Val(9 / 5) * Val(TextBox3.Text) - Val(273) + Val(32)

        End If

·         Jika semua sudah dilakukan dan benar maka hasil akhir setelah di RUN seperti dibawah ini, dan anda dapat mencoba program pengkonverensian suhu ini .

 SELAMAT MENCOBA

LANGKAH-LANGKAH VISUAL BASIC 2010 MEMBUAT PROGRAM HITUNG VOLUME BALOK

Tahap pertama yang dilakukan yakni buatlah 3 label , 4 textbox , dan 2 button , seperti pada gambar dibawah ini :

Selanjutnya  untuk mengubah nama , dan desain atau warna  dari masing masing  label , ataupun  button , lakukan double klik pada area form design dan  lakukan pengcodingan pada  form_load  seperti dibawah ini :

        Me.Text = "Menghitung Volume Balok "

        Label1.Text = "PANJANG"

        Label2.Text = "LEBAR"

        Label3.Text = "TINGGI"

        Button1.Text = "HASIL"

        Button2.Text = "HAPUS"

        Label1.Font = New Font(Font, FontStyle.Bold)

        Label2.Font = New Font(Font, FontStyle.Bold)

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

        Label1.ForeColor = Color.OrangeRed

        Label2.ForeColor = Color.OrangeRed

  Label3.ForeColor = Color.OrangeRed

Setelah pengcodingan di atas  sudah di lakukan maka tampilan yang akan muncul setelah di RUN  seperti di bawah ini :

Setelah itu agar program menghitung volume balok dapat dijalankan , lakukan double klik pada button1 dan masukkan coding seperti pada gambar di bawah ini :

Setelah  dilakukan coding , lalu di RUN maka tampilan yang muncul seperti pada gambar di bawah ini :

Untuk memberikan kesan menarik pada tampilan form anda ,  anda dapat menyisipkan gambar . caranya, klik pada area form design , setelah itu pada properties klik bagroundimage, maka akan muncul tab select resource , klik import dan masukkan gambar yang di inginkan lalu klik ok , seperti pada gambar dibawah ini :

Setelah  di RUN maka akan muncul tampilan seperti ini : 

 

 

Untuk mengatur layout gambar pada form anda , dapat dilakukan pada properties , klik backgroundimagelayout  dan pilih sesuai keinginan anda , seperti ini :

Setelah  semuanya sudah dilkukan program anda sudah dapat dijalankan , tampilan yang muncul akan seperti pada gambar di bawah ini :

SELAMAT MENCOBA

PROGRAM MENU MAKANAN MENGGUNAKAN VISUAL BASIC 2010

• pertama , buka aplikasi visual basic 2010 
• setelah muncul worksheet pada area form , mulailah mendesain dengan membuat 3 groupbox
• dalam groupbox1 masukkan 5 radiobutton
• dalam groupbox2 masukkan 4 checkbox
• dalam groupbox3 dan groupbox4 masing masing masukkan 8 textbox , jika semuanya sudah lengkap desainnya seperti gambar di bawah ini:

• untuk menambahkan gambar seperti yang terlihat pada gambarr diatas, hal yang dilakukan seperti di bawah ini :

•  Caranya pilih Picturebox pada area all windows form yang berada di sebelah kiri form design.
• setelah picturebox tersebut muncul, pada ujung picturebox tersebut terdapat tanda seperti segitiga , klik tanda tersebut maka akan muncul tampilan seperti gambar di atas, lalu pada pilihan size mode pilih perintah strechimage dan klik choose image yang berada diatas pilihan size mode.
• setelah itu akan muncul jendela gambar, dan anda pilih menu import untuk memasukkan gambar, lalu anda dapat memilih gambar sesuai keinginan, lalu tinggal pilih perintah ok
• dan untuk memberikan warna pada groupbox seperti pada gambar di atas, anda dapat mengubahnya secara langsung pada properties dengan cara meng klik terlebih dahulu area groupbox lalu arahkan kursor ke areal properties, dan anda dapat langsung mengubah sesuai dengan warna yang di inginkan  pada areal back color.
• Jika semua design sudah selesai dibuat , untuk mengubah nama yang terdapat pada radiobutton dan checkbox dan groupbox , dapat dilakukan dengan memberi coding dengan cara double klik pada areal form dan lakukan coding pada areal form1_load , coding yang dimaksud seperti di bawah ini :
•         Me.Text = "Fauzy Rifallah"
          GroupBox1.Text = "Menu Makanan"
          RadioButton5.Text = "Tidak ada Pilihan "
          RadioButton5.Checked = True
          RadioButton1.Text = "Nasi Goreng Seafood"
          RadioButton2.Text = "Ujip's Pizza"
          RadioButton3.Text = "Kepiting Laut"
          RadioButton4.Text = "Ikan Nila"
          GroupBox2.Text = "Menu Minuman"
          CheckBox1.Text = "White Choffe"
          CheckBox2.Text = "Es Jeruk"
          CheckBox3.Text = "Es Kelapa Cincau"
          CheckBox4.Text = "Es Strawberry"
          GroupBox3.Text = "Menu Yang di Pesan"
          GroupBox4.Text = "Harga"  

•  Seperti yang terlihat pada gambar pengcodingan dibawah ini :

• Jika pengcodingan di atas sudah dilakukan , maka tampilan yang muncul setelah di Run(F5) seperti gambar di bawah ini :

•  Tahap selanjutnya yakni memberi coding pada setiap radiobutton dan checkbox agar pada saat radiobutton atau checkbox di klik nama makanan minuman dan harganya muncul pada textbox yang sudah di sesuaikan.
• untuk radiobutton1 lakukan coding dengan cara double klik pada radiobutton1, masukkan coding seperti dibawah ini .
•         If RadioButton1.Checked = True Then
              TextBox1.Text = "Nasi Goreng Seafood"
              TextBox9.Text = "Rp.20.000"
          Else
              TextBox1.Text = ""
              TextBox9.Text = ""
  
  
  
  
          End If

• lakukan hal yang sama pada radiobutton 2 , 3, dan 4 ,  namun pada radiobutton 5  tidak perlu dilakukan pengcodingan seperti perintah di atas. 
• pengcodingan yang dimaksud seperti pada gambar berikut :

•   pada checkbox lakukan pengcodingan seperti di bawah ini dengan cara double klik pada checkbox1, 2, 3, dan 4 seperti dibawah ini :
•     Private Sub CheckBox1_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesCheckBox1.CheckedChanged
          If CheckBox1.Checked = True Then
              TextBox5.Text = "White Coffe"
              TextBox13.Text = "Rp.15.000"
          Else
              TextBox5.Text = ""
              TextBox13.Text = ""
          End If
      End Sub
  
  
      Private Sub CheckBox2_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesCheckBox2.CheckedChanged
          If CheckBox2.Checked = True Then
              TextBox6.Text = "Es Jeruk"
              TextBox14.Text = "Rp.10.000"
          Else
              TextBox6.Text = ""
              TextBox14.Text = ""
          End If
  
  
      Private Sub CheckBox3_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesCheckBox3.CheckedChanged
          If CheckBox3.Checked = True Then
              TextBox7.Text = "Es Kelapa Cincau"
              TextBox15.Text = "Rp.25.000"
          Else
              TextBox7.Text = ""
              TextBox15.Text = ""
          End If
      End Sub
  
  
      End Sub
  
  
      Private Sub CheckBox4_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesCheckBox4.CheckedChanged
          If CheckBox4.Checked = True Then
              TextBox8.Text = "Sari Strawberry"
              TextBox16.Text = "Rp.12.000"
          Else
              TextBox8.Text = ""
              TextBox16.Text = ""
          End If
      End Sub

• pengcodingannya  seperti dibawah ini :

• setelah semua pengcodingan selesai dilakukan , setelah di run maka akan muncul tampilan seperti di bawah ini :

•  jika tampilan yang muncul seperti gambar di atas , maka program yang dibuat sudah berjalan dan berhasil.

"SELAMAT MENCOBA"