Membuat Program Konversi Suhu di Visual Studio 2010

Kali ini kita akan membuat program konversi suhu. Dalam program ini, kita menggunakan fungsi If dan statement Val, ini rupa programnya.....

Dan bentuk formnya begini.....

Anda belum tahu cara memasukkan masing - masing elemen (ciat.... kayak avatar)? klik di Dasar - Dasar Visual Studio 2010

TextBox1 tempat isi (eh.... input) angka suhu yang ingin diketahui, ComboBox1 dan berisi pilihan suhu yang ingin diketahui dan ComboBox2 berisi suhu yang hendak diinputkan. Hasilnya akan keluar di TextBox2.

Dan agar terlihat seperti program yang saya tampilkan di paling atas, klik ganda di Form, dan ini Statementnya :

Me.Text = "Konverter Suhu"GroupBox1.Text = "Merubah Suhu"Label1.Text = "Dari"Label2.Text = "Ke"Label3.Text = "Hasil"Label4.Text = ""Button1.Text = "Hitung"Button2.Text = "Hapus"

Ah.....

Kita bicarakan elemen baru, si ComboBox, dalam ComboBox ada daftar pilihan, pilihannya kita yang tentukan, :D

Cara untuk menentukan pilihan apa saja yang akan ada dalam ComboBox adalah :

Pertama - Klik ComboBox, arahkan pandangan ke Properties dan cari Items

Lalu saya klik tombol kecil di sebelah kata (Collection) dan akan muncul window baru, karena saya membuat program untuk konversi suhu maka saya memasukkan 4 suhu (Celci, Reamu, Fahr, dan Kelv). Kita lakukan hal yang sama untuk ComboBox2. Dalam menentukan pilihan, satu baris untuk satu pilihan saja ya....

Oke, berikutnya kita debugging, untuk melihat apa yang telah kita perbuat tadi.....

Berikutnya kita akan menentukan aksi Tombol Hitung (Button1), ini akan jadi panjang........

Untuk Konversi Celcius ke Reamur, Fahrenheit dan Kelvin. Statementnya :

If ComboBox1.SelectedItem = "°R" And ComboBox2.SelectedItem = "°C" ThenTextBox2.Text = (4 / 5) * Val(TextBox1.Text)Label4.Text = ComboBox1.TextElseIf ComboBox1.SelectedItem = "°F" And ComboBox2.SelectedItem = "°C" ThenTextBox2.Text = (9 / 5) * Val(TextBox1.Text) + 32Label4.Text = ComboBox1.TextElseIf ComboBox1.SelectedItem = "°K" And ComboBox2.SelectedItem = "°C" ThenTextBox2.Text = Val(TextBox1.Text) + 273Label4.Text = ComboBox1.Text

Untuk Reamur ke Celcius, Fahrenheit dan Kelvin (diletakkan setelah mengetik yang barusan):

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 

Berikutnya, Fahrenheit Ke Celsius, Reamur dan Kelvin :

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 

Dan yang terakhir, Kelvin ke Celcius, Reamur dan Fahrenheit :

ElseIf ComboBox1.SelectedItem = "°C" And ComboBox2.SelectedItem = "°K" ThenTextBox2.Text = Val(TextBox1.Text) - 273Label4.Text = ComboBox1.TextElseIf ComboBox1.SelectedItem = "°R" And ComboBox2.SelectedItem = "°K" ThenTextBox2.Text = (4 / 5) * (Val(TextBox1.Text) - 273)Label4.Text = ComboBox1.TextElseIf ComboBox1.SelectedItem = "°F" And ComboBox2.SelectedItem = "°K" ThenTextBox2.Text = (9 / 5) * (Val(TextBox1.Text) - 273) + 32Label4.Text = ComboBox1.TextEnd If

Berikutnya kita ke tombol Hapus (Button2), statementnya :

TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.ResetText()
ComboBox2.ResetText()
Label4.Text = ""

 

Debugging terakhir, testing program.....

Saya masukkan angka 45 di TextBox1 lalu di ComboBox2 memilih °C. Di ComboBox1 saya Memilih °K lalu klik tombol hitung dan Hasilnya.....

Jika kurang akurat, anda bisa menghitung sendiri kan....?
Sekian artikel ini, Semoga bermanfaat.

Baca Selengkapnya »

Membuat Penghitung Luas Segitiga dan Volume Balok di Visual Studio 2010

Kali ini kita akan membuat aplikasi untuk menghitung luas segitiga dan volume balok, dalam pembahasan kali ini kita akan menggunakan statement Val (singkatan dari Value) dari suatu TextBox.

Oke, buka Visual Studionya dan klik new project.....

Berikutnya, saya membuat rancangan form dari aplikasinya, seperti ini :

Lalu saya akan memberi nama untuk masing-masing elemen dalam form diatas.

Dan berikut adalah hasilnya :

Aplikasinya masih belum bisa dipakai, saya akan menambahkan statement agar saat diklik, masing masing button akan menampilkan hasil berikut adalah statement untuk masing-masing tombol :

• Button1.C : Label4.Text = 1 / 2 * (Val(TextBox1.Text) * Val(TextBox2.Text))
• Button2 : Label9.Text = (Val(TextBox3.Text) * Val(TextBox4.Text)) * Val(TextBox5.Text)

Waktunya debugging, lihatlah.....

Oke, saya sudah membuat cara agar hasilnya tampil. Sekarang saya ingin menghapus apa yang sudah saya ketik, jadi saya menambahkan 2 tombol untuk menghapus masing-masing isi dari TextBox tadi.

Tombol sudah jadi, sekarang saatnya membuat tombolnya berfungsi. Statement untuk masing - masing tombol adalah : 

• Button3 :
TextBox1.Text = ""

TextBox2.Text = ""

Label4.Text = "----------"

• Button4
TextBox3.Text = "" 

TextBox4.Text = "" 

TextBox5.Text = ""

Label9.Text = "-----------"

Debugging lagi, saya masukkan nilai di masing - masing TextBox dan akan menghapus :

Dan TextBoxnya kembali kosong.......

Nah......

Aplikasinya kan nggak pake satuan sentimeter kubik atau sentimeter persegi nih.

Jadi jika anda ingin tahu satuannya, maka bilang saja, hasilnya adalah sekian satuan volume atau sekian satuan luas. 

Baca Selengkapnya »

Fungsi If - Then - Else di Visual Studio 2010

Bahas VB lagi nih…..

Kali ini bahasannya tentang fungsi If-Then-Else di VB 2010

Apa itu fungsi If-Then-Else?

If-Then-Else digunakan untuk  mengembalikan nilai Boolean (true dan false ) atau benar dan salah.

Jadi jika suatu kondisi memenuhi syarat pertama maka program akan di eksekusi dan program akan berakhir tetapi jika syarat pertama/kondisi pertama tidak terpenuhi maka If-Then-Else ini akan mengeksekusi syarat yang kedua dan jika syarat yang kedua tidak terpenuhi maka program akan menjalankan syarat yang ketiga. 

Berikut ini adalah syntax If Condition : 

If Kondisi then
Pernyataan

Else If kondisi Then
Pernyataan

Else
Pernyataan

End If

Untuk fungsi if, saya membuat program seperti ini :

Hmm…..

Daftar menu Warung Mi So Ba, singkatan dari Mie Ayam, Soto dan Bakso, haha…….

Kayaknya bakal lapar nih, lapar statement maksudnya….

Oke, kita penuhi lapar statement ini dengan buka VB lalu klik New Project

Bentuk Form dari Program di atas adalah

Statement agar Formnya seperti Tampilan Program diatas adalah (Klik ganda di formnya)

        Me.Text = "Warung Mi So Ba"

        Me.BackColor = Color.OrangeRed

        Me.ForeColor = Color.Black

        Label1.Text = "Daftar Menu"

        Label1.ForeColor = Color.Yellow

        Label1.Font = New Font("Segoe UI", 14, Label1.Font.Style Xor FontStyle.Bold)

        Label2.Text = "Kelompok"

        Label3.Text = "Harga (Rp.)"

        Label4.Text = "Kelompok"

        Label5.Text = "Harga (Rp.)"

        Label6.Text = "Pesanan"

        Label7.Text = "Bayar sejumlah Rp."

        Button1.Text = "Pilih Semua"

        Button2.Text = "Batal Memilih"

        Button3.Text = "Pilih Semua"

        Button4.Text = "Batal Memilih"

        Button5.Text = "Tampilkan Harga"

        GroupBox1.Text = "Makanan"

        GroupBox1.BackColor = Color.Orange

        GroupBox2.Text = "Minuman"

        GroupBox2.BackColor = Color.Orange

        CheckBox1.Text = "Mie Ayam Pangsit"

        CheckBox2.Text = "Mie Ayam Ceker"

        CheckBox3.Text = "Soto Ayam"

        CheckBox4.Text = "Soto Kambing"

        CheckBox5.Text = "Bakso Kikil"

        CheckBox6.Text = "Bakso Urat"

        CheckBox7.Text = "Es Teh"

        CheckBox8.Text = "Teh Hangat"

        CheckBox9.Text = "Teh Botol"

        CheckBox10.Text = "Capuccino"

        CheckBox11.Text = "Kopi Susu"

        CheckBox12.Text = "White Coffee"

Formnya sudah jadi, berikutnya saya akan menentukan apa yang akan terjadi di program rancangan ini.

Saya akan membuat agar saat CheckBox di klik (atau dalam istilah VB nya Checked), maka di textbox akan keluar harga dari makanan yang dipilih dan nama makanan yang dipilih keluar di ListBox

Jadi syntaxnya seperti ini:

If CheckBox dicentang then

Textbox1 tampilkan harga makanan

ListBox1 Menampilkan nama makanan yang terpilih

Elseif CheckBox tidak dicentang then

Textbox1 kosong

ListBox1 menghilangkan nama makanan yang terpilih

End if

Dan Statementnya jadi seperti ini (untuk CheckBox1 Kelompok Mie ayam pangsit)

If CheckBox1.Checked = True Then

TextBox1.Text = "7000"

ListBox1.Items.Add(CheckBox1.Text)

ElseIf CheckBox1.Checked = False Then

TextBox1.Text = ""

ListBox1.Items.Remove("Mie Ayam Pangsit")

End If

Maksud dari masing-masing statement fungsi if di atas adalah

If CheckBox1.Checked = True Then     TextBox1.Text = "7000"     ListBox1.Items.Add(CheckBox1.Text)	Menunjukkan kondisi jika CheckBox1 dicentang ·         Textbox1 akan terisi dengan text di CheckBox1 (Harga Makanan) ·         Text (Nama makanan) yang ada di CheckBox1 akan ditambahkan ke ListBox1
ElseIf CheckBox1.Checked = False Then     TextBox1.Text = ""     ListBox1.Items.Remove("Mie Ayam Pangsit")	Jika kondisi di if sebelumnya tidak terpenuhi ·         Textbox1 akan dikosongkan (Harganya dihapus” ·         Teks (Nama makanan) “Mie Ayam Pangsit” akan dihapus dari ListBox1
End If	Akhir dari fungsi If

Berikut ini statement di CheckBox1 – CheckBox3 yang terletak dalam GroupBox1 (Kelompok Makanan)

Bayarlah...............

Di CheckBox4 – CheckBox6 :

CheckBox7 – CheckBox9, di GroupBox2 (Kelompok Minuman)

CheckBox10 – CheckBox12

Sehingga inilah yang terjadi saat CheckBox saya centang (proses debugging):

Jika misalnya seorang pelanggan memesan semua makanan yang ada di menu maka saya membuat agar saat tombol Pilih semua (Button1) diklik maka semua CheckBox di GroupBox1 (Kelompok Makanan) tercentang, saya klik ganda di Button1 lalu ketikkan

CheckBox1.Checked = True

CheckBox2.Checked = True

CheckBox3.Checked = True

CheckBox4.Checked = True

CheckBox5.Checked = True

CheckBox6.Checked = True

  

dan jika ingin membatalkan, agar semua centang di GroupBox1 hilang maka saya ketikkan (klik ganda di Button2):

CheckBox1.Checked = False

CheckBox2.Checked = False

CheckBox3.Checked = False

CheckBox4.Checked = False

CheckBox5.Checked = False

CheckBox6.Checked = False

Berikut ini statement untuk masing-masing 4 tombol dari kiri (Button1 - Button4) :

Kemudian saya lakukan proses debugging, sehingga saat tombol pilih semua diklik:

Berikutnya saya akan menampilkan harga dari makanan yang sudah dipesan, klik ganda di tombol tampilkan harga (Button5), masih dengan fungsi if

Syntaxnya seperti ini :

If Nilai dari semua textbox sama dengan 0  then
Tampilkan kata “Tidak Ada Pesanan”

Else If Nilai dari semua text dalam textbox lebih besar dari 0 Then
Tampilkan nilai dari semua text dalam textbox

End If

Karena semua text yang di textbox adalah angka,  Statementnya menjadi :

If Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text) + Val(TextBox9.Text) + Val(TextBox10.Text) + Val(TextBox11.Text) + Val(TextBox12.Text) = 0 Then

            TextBox13.Text = "Tidak Ada Pesanan"

        ElseIf Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text) + Val(TextBox9.Text) + Val(TextBox10.Text) + Val(TextBox11.Text) + Val(TextBox12.Text) > 0 Then

            TextBox13.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text) + Val(TextBox9.Text) + Val(TextBox10.Text) + Val(TextBox11.Text) + Val(TextBox12.Text)

        End If

 

Jalankan programnya, dan setelah memilih menu lalu klik tombol tampilkan harga :

Baca Selengkapnya »