Program Aplikasi Sederhana Menggunakan Vb.net

Aplikasi untuk Menghitung Perubahan suhu dari Celcius ke Fahrenheit,Rheamur,Kelvin

Deskripsi

aplikasi ini merupakan aplikasi yang digunakan untuk mengetahui konversi suhu dari derajat Celcius ke Fahrenheit,Rheamur,atau Kelvin








Cara menggunakan aplikasi ini
1. Masukan nilai suhu yang ingin di konvert.
   contohnya 10 derajat Celcius

2. Klik tombol Farenheit jika ingin dikonversikan ke derajat Fahrenheit

Dapat dilihat setelah tombol Fahrenheit di klik muncul di kotak hasil nilai konversinya.

Jadi 10 derajat Celcius sama dengan 50 Fahrenheit

Begitu juga dengan mengkonversikan ke Rheamur

Dikotak hasil akan muncul hasil konversinya.
jadi 10 derajat Celcius sama dengan 8 Rheamur






Sama hal nya jika kita mengklik tombol Kelvin

Sama hal nya dengan sebelumnya dapat dilihat di kotak hasil nilai konversinya.
Jadi 10 derajat Celcius sama dengan 37,315 Kelvin




3. Tombol Clear pada aplikasi  ini berfungsi untuk mengosongkan data agar bisa memasukkan data yang baru

Dapat dilihat setelah mengklik tombol Clear data kembali kosong dan dapat dimasukkan data baru yang ingin di konversikan


4. Selanjutnya tombol Exit digunakan untuk keluar dari aplikasi

Setelah mengklik tombol Exit akan keluar kotak konfirmasi yang bertuliskan "Are you sure?",jika ingin keluar klik Yes








Demikianlah salah satu contoh aplikasi sederhana dengan menggunakan Vb.net semoga bermanfaat

aplikasi ini dapat di download disini :


http://www.ziddu.com/download/18756051/WindowsApplication4.exe.html

• Source Code

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

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

        Thasil.Text = (Tsuhu.Text * 18 / 10) + 32

    End Sub

    Private Sub Thasil_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thasil.TextChanged

    End Sub

    Private Sub Rheamur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rheamur.Click

        Thasil.Text = (Tsuhu.Text * 8 / 10)

    End Sub

    Private Sub Kelvin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kelvin.Click

        Thasil.Text = (Tsuhu.Text + 27315 / 1000)

    End Sub

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

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

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

        Tsuhu.Text = ""

        Thasil.Text = ""

        Tsuhu.Focus()

    End Sub

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

        Dim x As Integer

        x = MsgBox("Are you sure?", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Question)

        If x = vbYes Then

            End

        End If

    End Sub

End Class

Selamat mencoba :)

NB: apabila ada kekurangan harap dimaafkan,karena saya baru belajar. jika ada kritik dan saran saya menerima dengan senang hati. TERIMA KASIH :)