Membuat Rumus Prubahan Suhu pada VB 2010

Proses menjalankan koding microsoft visuak basic 2010

kita simak bersama

Kali ini kita akan membahas tentang bagaimana cara menjalankan proses cooding di microsoft visual basic 2010.tapi kali ini saya akan memberitahu anda sekalian bagaimana menjalan kan proses cooding di mulai dengan cara yg mudah.

Awal proses membuat koding di microsoft visual basic 2010
untuk menjalankansebuah proses tentu ada beberapa yg akan di lakukan.

kita tidak asing lagi mendengar kata cooding, bagi orang awam mungkin tidak tahu arti koding naaahhh saya akan memberitahu gimana sih cara mnjalankan proses cooding ini. Adapun cara nya sebagai berikut:

Anda buka aplikasi Lalu anda buat 4 label padal kolom form, Dan buat juga Group Box, Button, Combo Box semua itu bisa anda liat di area toolbox. Jika sudah akan muncul gambar seperti di bawah ini:

 

Kemudian anda doble klik pada area form untuk mengkoding rumus supaya program yang anda buat bisa berjalan, dan akan muncul gambar seperti di bawah ini:

  Kemudian masukan rumus nya

·         Untuk memberi nama program gunakan rumus

·           Me.Text = "Konverter Suhu"

·         Untuk mengubah nama suhu gunakan rumus

          GroupBox1.Text = "Merubah Suhu"

        Label1.Text = "Dari"

        Label2.Text = "Ke"

        Label3.Text = "Hasil"

        Label4.Text = ""

        Button1.Text = "Hitung"

        Button2.Text = "Hapus"

Label3 sengaja di kosongkan karna label3 di gunakan untuk output hasil proses

·         Untuk mengedit button1/hitung gunakan rumus

·         If ComboBox1.SelectedItem = "°R" And ComboBox2.SelectedItem = "°C" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°F" And ComboBox2.SelectedItem = "°C" Then

·                     TextBox2.Text = (9 / 5) * Val(TextBox1.Text) + 32

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°K" And ComboBox2.SelectedItem = "°C" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°C" And ComboBox2.SelectedItem = "°R" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°F" And ComboBox2.SelectedItem = "°R" Then

·                     TextBox2.Text = (9 / 4) * Val(TextBox1.Text) + 32

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°K" And ComboBox2.SelectedItem = "°R" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°C" And ComboBox2.SelectedItem = "°F" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°R" And ComboBox2.SelectedItem = "°F" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°K" And ComboBox2.SelectedItem = "°F" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°C" And ComboBox2.SelectedItem = "°K" Then

·                     TextBox2.Text = Val(TextBox1.Text) - 273

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°R" And ComboBox2.SelectedItem = "°K" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°F" And ComboBox2.SelectedItem = "°K" Then

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

·                     Label4.Text = ComboBox1.Text

·                 End If

·             End Sub

·         Koding untuk button2/menghapus

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

·                 TextBox1.Text = ""

·                 TextBox2.Text = ""

·                 ComboBox1.ResetText()

·                 ComboBox2.ResetText()

·                 Label4.Text = ""

·             End Sub

·          

Semua rumus itu dapat anda masukan dalam satu prose seperti gambar di bawah ini

Kemudian ketika anda ingin mengedit Comboboxnya kalian tinggal lihat gambar seperti dibawah ini:

1.  Anda klik comboboxnya terus ada tanda panah diatas combobox terus anda klik maka akan muncul gambar seprti di bawah ini sesudah itu anda pilih edit items

2.Sesudah anda klik edit items maka akan keluar seperti gambar dibawah:

3.Kemudian anda masukkan rumusnya seperti contoh dibawah:

Ø  Setelah di RUN program yang anda buat akan seperti gambar di bawah ini

 Ø  Untuk mencoba program yang di buat anda tinggal klik RUN atau seperti symbol play dengan cara singkat tekan F5 pada keyboard

 

Ø  Dan masukan angka pada textbox yang telah di buat terus anda pilih salah satu konversi suhu seperti contoh dibawah:

Ø  Kemudian anda pilih salah satu konversi pada combobox seperti contoh dibawah:

Kemudian anda klik hitung seperti gambar dibawah ini:

       Kemudian untuk menghapus semua angka dan konversi suhu tadi anda tinggal klik hapus seperti contoh gambar dibawah ini:

Coba masukkan angka dan konversi suhu yang saya jelaskan tadi ketika benar maka program anda berhasil.

“selamat mencoba”

"good luck"

Membuat Rumus Luas Segitiga dan Volume Balok

Ass…wr….wb

Kali ini saya akan membuat coding rumus segitiga dan rumus balok. Tapi kali ini bukan rumus yg sepeti di ajarkan di SD SMP bahkan SMA, melain kan ruas segitiga dan balok tersebut. Anda pasti tahu rumus segitiga dan balkyakni PxLxT( panjang  x Lebar x tinggi). Baiklah untuk mempersingkat waktu langsung saja ke topik

Pertama buka dulu  MVB2010 (Microsoft  visual basic 2010 anda seperti contoh di bawah:
 Langsung saja buat desain seperti gambar dibawah ini.

 

  

Kelik dua kali pada form1, kemudian masukan coding seperti di bawah ini

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Segitiga & Balok"
        Label1.Text = "Menghitung Luas Segitiga"
        Label1.Font = New Font("Segoe UI", 10, FontStyle.Bold)
        Label2.Text = "Alas"
        Label3.Text = "Tinggi"
        Label4.Text = "----------"
        Label5.Text = "Menghitung Volume Balok"
        Label5.Font = New Font("Segoe UI", 10, FontStyle.Bold)
        Label6.Text = "Panjang"
        Label7.Text = "Lebar"
        Label8.Text = "Tinggi"
        Label9.Text = "-----------"
        Button1.Text = "Hitung"
        Button2.Text = "Hapus"
        Button3.Text = "Hitung"
        Button4.Text = "Hapus"
    End Sub

Maka hasilnya setelah di jalankan hasilnya seperti gambar di bawah ini

Setelah itu, klik dua kali pada button1, kemudian masukan codingnya

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

Klik juga dua kali di button 3, dan masukkan kodingnya

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

Masukkan koding juga pada button2

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

Masukkan juga koding pada button3

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

Jika sudah maka hasilnya seperti ini

 Jika Hasilnya sudah seperti gambar di atas, maka anda sudah berhasil.!!!!

Selamat Mencoba

Membuat Tabel Menu Makanan

BELAJAR PEMROGRAMAN DASAR VISUAL BASIC/studio 2010

                Berikut ini saya akan membuat sebuah aplikasi yang sangat dasar/sederhana menggunakan Visual basic/studio 2010 yaitu “MEMBUAT TABEL MENU MAKANAN DAN MINUMAN”.

Baiklah langsung saja kita memulai, akan lebih barokahnya apabila kita memulai dengan membaca basmalah. Bismillahirrohmaanirrohiimm.

Langkah kedua. Sebelum masuk kedalam VB 2010 maka akan tampil gambar seperti dibawah ini kemudian pilih pada menu “New Project...”

Setelah menekan New Project... maka akan tampil tampilan seperti gambar dibawah ini, kemudian klik/tekan OK

Setelah anda masuk kedalam VB 2010 maka tampilannya akan seperti ini, disana akan ada tampilan Form1 yang berfungsi untuk tempat memasukkan menu yang digunakan pada toolbox, jika toolbox pada layar tidak tampil dan hanya properties saja yang tampil maka ketik pada keyboard anda “Ctrl+Alt+ X

Jika ingin mengganti nama “form1” bisa anda melakukannya dengan mengganti dari properties dengan menggantinya dalam menu “text” dan anda bisa melakukannya dengan menggunakan “koding” agar lebih pasih dalam menggunakan rumus pada VB 2010.

CARANYA dengan mengklik dua kali pada “form1” yang kosong tersebut kemudian ketik rumus atau formulanya.

Dan anda bisa memperbesar lembar kerja/”form1” dengan mengarahkan kursor kearah pojok dari “form1” dan menariknya lebih besar.

Cara mengubah nama “form1” menggunakan nama lain seperti “Latihanku” adalah:

Masukkan rumus ditengah-tengah antara “private sub” dengan “End Sub” seperti dibawah ini:

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

Me.Text = "Latihanku"             Koding yang benar.

End Sub

Setelah anda mengisi koding/rumus maka “RUN” pada menu yaitu “start debugging(F5)” setelah hasilnya keluar maka akan tampil seperti ini.

Jangan lupa ketika anda ingin melanjutkan untuk memasukkan koding/rumus maka stop dulu “RUN”nya dengan menekan icon “X” berwarna merah pada form1/”Latihanku” pada gambar diatas. Atau bisa dilakukan dengan menekan “stop debugging(Ctrl+Alt+Break)”.

Ingat.

mengisi koding harus seperti pada teks diatas, tanpa harus perlu menggunakan “spasi” karena apabila koding/rumusnya memang benar maka secara otomatis koding tersebut mempunyai jarak atau spasi.

                 Baiklah setelah semuanya beres langsung saja kita praktikkan bagaimana cara membuat “tabel menu makanan dan minuman” pada VB 2010.

BAHAN-BAHAN:

-         Dua buah “Groupbox”

-         Empat buah “Label”

-         Empat buah “Textbox”

-         Empat buah “Radiobutton”

-         Dan empat buah “Checkbox”

Aturlah menu form1/”Latihanku” seperti gambar di bawah ini:

Setelah anda mengaturnya seperti ini silahkan anda masuk ke dalam koding pada menu form1/”Latihanku” dengan cara mengklik 2 kali.

Dan masukkanlah koding seperti ini:

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

        Me.Text = "LATIHANKU"

        GroupBox1.Text = "MENU MAKANAN"

        GroupBox2.Text = "MENU MINUMAN"

        Label1.Text = "MAKANAN"

        Label2.Text = "HARGA"

        Label3.Text = "MINUMAN"

        Label4.Text = "HARGA"

        RadioButton1.Text = "Nasi Goreng"

        RadioButton2.Text = "Pecel Lele"

        RadioButton3.Text = "Ayam Bakar"

        RadioButton4.Text = "Sate Pusut"

        CheckBox1.Text = "Es Teler"

        CheckBox2.Text = "Es Alpukat"

        CheckBox3.Text = "Kopi"

        CheckBox4.Text = "Teh Manis"

    End Sub

Setelah anda memasukkan semua koding di atas kemudian kliklah 2 kali pada radio button untuk memasukkan kodingnya agar bisa menampilkan makanan dan harga yang anda pilih.

Contoh:

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

        If RadioButton1.Checked = True Then

            TextBox1.Text = "Nasi Goreng"

            TextBox2.Text = "7.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

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

        If RadioButton2.Checked = True Then

            TextBox1.Text = "Pecel Lele"

            TextBox2.Text = "15.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

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

        If RadioButton3.Checked = True Then

            TextBox1.Text = "Ayam Bakar"

            TextBox2.Text = "20.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

        If RadioButton4.Checked = True Then

            TextBox1.Text = "Sate Pusut"

            TextBox2.Text = "10.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

INGAT:

Masukkanlah koding diatas secara satu persatu pada setiap “Radiobutton” anda bisa copy paste untuk lebih mempertmudah anda, dan mengganti nomer dari setiap radiobutton tersebut beserta nama menu makanan dan harganya.

Setlah anda menjalankannya atau “RUN” maka hasilnnya seperti ini.

Setelah seperti ini sekarang adalah langkah terakhir anda yaitu memasukkan koding pada “Checkbox” secara satu persatu seperti peraturan pada “Radiobutton” diatas.

Contoh:

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

        If CheckBox1.Checked = True Then

            TextBox3.Text = "Es Teler"

            TextBox4.Text = "6.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

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

        If CheckBox2.Checked = True Then

            TextBox3.Text = "Es Alpukat"

            TextBox4.Text = "9.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

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

        If CheckBox3.Checked = True Then

            TextBox3.Text = "Kopi"

            TextBox4.Text = "2.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

        If CheckBox4.Checked = True Then

            TextBox3.Text = "Teh Manis"

            TextBox4.Text = "2.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

End Class

Setelah anda “RUN” maka hasilnya seperti ini.

Sekian tutorial dari saya, dan terimakasih...