Kalkulator Suhu dengan VB

Membuat Rancangan Model Form (Sket)

Tujuan membuat rancangan model form yaitu agar mempermudah kita dalam mendesain form di aplikasi Visual Studio.

(Gambar Sket Form)

Membuat Alur Logaritma

Berikut Alur Logaritma yang berupa flowchart :

Memulai Ke Visual Studio

  • Berikut desain form di Visual Studio :

Control yang dibutuhkan dan harus diganti teksnya dengan :
  1.  Label 1 = Kalkulator Konversi Suhu
  2. Label 2 = Suhu
  3. Label 3 = Celcius
  4. Label 4 = Reamur
  5. Label 5 = Fahrenheit
  6. Label 6 = Kelvin
  7. Group Box 1 = Suhu Awal
  8. Group Box 2 = Hasil Koversi
  9. Button 1 = Masukan Suhu
  10. Button 2 = Celcius
  11. Button 3 = Reamur
  12. Button 4 = Fahrenheit
  13. Button 5 = Kelvin
  • Dan dibawah ini Coding untuk form :

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox2.BorderStyle = BorderStyle.FixedSingle
        TextBox3.BorderStyle = BorderStyle.FixedSingle
        TextBox4.BorderStyle = BorderStyle.FixedSingle
        TextBox5.BorderStyle = BorderStyle.FixedSingle
        TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim suhu, reamur, fahrenheit, kelvin As Integer
        suhu = Val(TextBox1.Text)
        Select Case True
            Case 1
                reamur = suhu * 4 / 5
                TextBox3.Text = Str(reamur)
                fahrenheit = suhu + 32 * 9 / 5
                TextBox4.Text = Str(fahrenheit)
                kelvin = suhu + 273
                TextBox5.Text = Str(kelvin)
                TextBox2.BorderStyle = BorderStyle.None
                TextBox3.BorderStyle = BorderStyle.FixedSingle
                TextBox4.BorderStyle = BorderStyle.FixedSingle
                TextBox5.BorderStyle = BorderStyle.FixedSingle
                TextBox2.Text = ""
        End Select
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim suhu, celcius, fahrenheit, kelvin As Integer
        suhu = Val(TextBox1.Text)
        Select Case True
            Case 1
                celcius = suhu * 5 / 4
                TextBox2.Text = Str(celcius)
                fahrenheit = suhu + 32 * 9 / 4
                TextBox4.Text = Str(fahrenheit)
                kelvin = suhu + 273 * 5 / 4
                TextBox5.Text = Str(kelvin)
                TextBox2.BorderStyle = BorderStyle.FixedSingle
                TextBox3.BorderStyle = BorderStyle.None
                TextBox4.BorderStyle = BorderStyle.FixedSingle
                TextBox5.BorderStyle = BorderStyle.FixedSingle
                TextBox3.Text = ""
        End Select
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim suhu, celcius, reamur, kelvin As Integer
        suhu = Val(TextBox1.Text)
        Select Case True
            Case 1
                celcius = suhu - 32 * 5 / 9
                TextBox2.Text = Str(celcius)
                reamur = suhu - 32 * 4 / 9
                TextBox3.Text = Str(reamur)
                kelvin = suhu + 273 - 32 * 5 / 9
                TextBox5.Text = Str(kelvin)
                TextBox2.BorderStyle = BorderStyle.FixedSingle
                TextBox3.BorderStyle = BorderStyle.FixedSingle
                TextBox4.BorderStyle = BorderStyle.None
                TextBox5.BorderStyle = BorderStyle.FixedSingle
                TextBox4.Text = ""
        End Select
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim suhu, celcius, reamur, fahrenheit, kelvin As Integer
        suhu = Val(TextBox1.Text)
        Select Case True
            Case 1
                celcius = suhu - 273
                TextBox2.Text = Str(celcius)
                reamur = suhu - 273 * 4 / 5
                TextBox3.Text = Str(reamur)
                fahrenheit = suhu + 32 - 273 * 9 / 5
                TextBox4.Text = Str(kelvin)
                TextBox2.BorderStyle = BorderStyle.FixedSingle
                TextBox3.BorderStyle = BorderStyle.FixedSingle
                TextBox4.BorderStyle = BorderStyle.FixedSingle
                TextBox5.BorderStyle = BorderStyle.None
                TextBox5.Text = ""
        End Select
    End Sub
End Class

Komentar

Posting Komentar

Postingan populer dari blog ini

Program Pinjam Buku Perpustakaan

Gambar
Pada post kali ini saya akan membuat Tutorial Input Peminjaman Buku di Perpustakaan. Pada kesempatan kali ini saya mencoba untuk membuat program “Pinjam Buku Perpustakaan” menggunakan konsep percabangan dan perulangan. Dimana kita harus menginput Nama, NIM, Nama Buku, Jenis Buku, Rak, Bulan dan Tanggal Pinjam. Perulangan saya gunakan untuk menampilkan tanggal pinjam dan percabangan saya gunakan pada saat ada data yang akan diinput belum terisi dan untuk mencari tanggal pengembalian buku. (nb : untuk tanggal saya buat sampai 31). Berikut desain tampilan program yang akan saya buat : Dan dibawah ini merupakan desain sistemnya : Desain program pada Visual Studio : Tool – tool yang digunakan : ·          8 Label. ·          3 Text Box. ·          4 Combo Box. ·          2 Group Box. ·   ...
Baca selengkapnya

Program Nilai Akhir

Gambar
Membuat Alur Logitmara Berikut Alur Logaritma yang berupa flowchart : Membuat Rancangan Model Form (Sket) Memulai Ke Visual Studio Berikut desain form di Visual Studio : Dan dibawah ini Coding untuk form : Public Class Form1     Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.Click         Dim nilai, a, b, c, d As Integer         a = Val(TextBox3.Text)         b = Val(TextBox4.Text)         c = Val(TextBox5.Text)         d = Val(TextBox6.Text)         nilai = (a * 0.1) + (b * 0.15) + (c * 0.35) + (d * 0.4)         If (nilai > 85) And (nilai <= 100) Then       ...
Baca selengkapnya

Program Cek Zodiak

Gambar
Pada post kali ini saya akan membuat program yang berisi Percabangan, Procedure dan variabel Array. Program yang saya buat adalah Program Cek Zodiak beserta Sifat dan Keterangan lainnya, dimana zodiak didapat dari tanggal lahir yg diinput. Berikut flowchart, desain interface, source code dan cara menggunakan programnya. Desain Interface (Sket) (Desain Input) (Desain Output) Flowchart  (Flowchart Zodiak) (Flowchart Zodiak) Disini fungsi flowchart zodiak adalah untuk menetukan zodiak melalui tanggal dan bulan yang telah diinput. (Flowchart Sifat) (Flowchart Sifat) Sedangkan funhsi flowchart sifat adalah untuk menampilkan sifat dan keterangan lainnya beserta simbol dari zodiak yang sudah terpilih pada flowchart zodiak. (Flowchart Utama) Kemudian flowchart utama disini berfungsi untuk menginput nama, tanggal lahir, dan golongan darah lalu outputnya berupa nama, tanggal lahir, hari lahir, umur, golongan darah, zodiak, sifat dan keterang...
Baca selengkapnya