Source Code Konversi Suhu dengan Visual Basic .NET

Read Time:3 Minute, 1 Second

Artikel kali ini akan membagikan satu atau beberapa source code pada aplikasi berbasis desktop dengan menggunakan bahasa pemrograman Visual Basic .NET yaitu Aplikasi Konversi Suhu. Manatahu source code ini sangat berguna untuk kalian yang terutama pelajar atau mahasiswa dalam mempelajari pemrograman.

Konversi suhu merupakan cara untuk menyatakan suhu suatu benda dari satu skala ke dalam skala lainnya terhadap suatu objek atau ruang. Jadi, suhu suatu benda dalam Celcius dapat dikonversi (diubah) ke dalam skala lainnya yaitu Reamur, Fahrenheit, dan Kelvin. Disini memiliki titik melebur dan titik mendidih masing-masing pada jenis suhu. Alat untuk pengukuran suhu ialah Termometer.

Dengan adanya source code ini, maka kamu bisa mengembangkan aplikasi konversi suhu berbasis desktop dengan menggunakan VB.NET lebih baik lagi seperti penerapan IOT, atau lainnya.

Daftar Isi

TAMPILAN APLIKASI

Berikut dari beberapa tampilan aplikasi Konversi Suhu dengan menggunakan bahasa pemrograman Visual Basic.NET yang bisa diterapkan dengan berbagai versi Mirosoft Visual Studio, kecuali Visual Basic 6.

Pembuatan aplikasi ini menggunakan array yang dimana bisa efisiensi dalam pengetikan kode perintah agar tidak terlalu panjang. Untuk rumus dari masing-masing konversi suhu telah dibuatkan ke dalam bagian coding.

KODE PERINTAH (CODING)

Public Class Form1
    'Membuat jenis suhu beserta satuannya ke dalam bentuk array
    Dim jenissuhu As String() = {"Reamur", "Celcius", "Fahreinheit", "Kelvin"}
    Dim satuan As String() = {"°R", "°C", "°F", "°K"}

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Menambahkan jenis suhu ke dalam opsi pilihan Dari suhu ke Suhu lain pada saat membuka aplikasi pertama kali.
        cbsuhudari.Items.AddRange(jenissuhu)
        cbsuhuke.Items.AddRange(jenissuhu)
        txtnilai.Focus()
    End Sub

    Private Sub btnhasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhasil.Click
        'Menghitung hasil nilai suhu yang telah ditentukan.
        If cbsuhudari.SelectedItem = "Reamur" Then
            If cbsuhuke.SelectedItem = "Celcius" Then
                txthasil.Text = CDbl(5 / 4 * txtnilai.Text)
            ElseIf cbsuhuke.SelectedItem = "Fahreinheit" Then
                txthasil.Text = CDbl(9 / 4 * txtnilai.Text + 32)
            ElseIf cbsuhuke.SelectedItem = "Kelvin" Then
                txthasil.Text = CDbl(5 / 4 * txtnilai.Text + 273)
            End If
        End If

        If cbsuhudari.SelectedItem = "Celcius" Then
            If cbsuhuke.SelectedItem = "Reamur" Then
                txthasil.Text = CDbl(4 / 5 * txtnilai.Text)
            ElseIf cbsuhuke.SelectedItem = "Fahreinheit" Then
                txthasil.Text = CDbl(9 / 5 * txtnilai.Text + 32)
            ElseIf cbsuhuke.SelectedItem = "Kelvin" Then
                txthasil.Text = CDbl(txtnilai.Text + 273)
            End If
        End If

        If cbsuhudari.SelectedItem = "Fahrenheit" Then
            If cbsuhuke.SelectedItem = "Celcius" Then
                txthasil.Text = CDbl(5 / 9 * (txtnilai.Text - 32))
            ElseIf cbsuhuke.SelectedItem = "Reamur" Then
                txthasil.Text = CDbl(4 / 9 * (txtnilai.Text - 32))
            ElseIf cbsuhuke.SelectedItem = "Kelvin" Then
                txthasil.Text = CDbl(5 / 9 * (txtnilai.Text - 32) + 273)
            End If
        End If

        If cbsuhudari.SelectedItem = "Kelvin" Then
            If cbsuhuke.SelectedItem = "Celcius" Then
                txthasil.Text = CDbl(txtnilai.Text - 273)
            ElseIf cbsuhuke.SelectedItem = "Fahreinheit" Then
                txthasil.Text = CDbl(9 / 5 * (txtnilai.Text - 273) + 32)
            ElseIf cbsuhuke.SelectedItem = "Reamur" Then
                txthasil.Text = CDbl(4 / 5 * (txtnilai.Text - 273))
            End If
        End If
        'Menampilkan satuan suhu di dalam input teks hasil hitung suhu.
        txthasil.Text = txthasil.Text & " " & satuan(cbsuhudari.SelectedIndex)
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        'Membersihkan seluruh data.
        txthasil.Clear()
        txtnilai.Clear()
        txtnilai.Focus()
        cbsuhudari.Text = ""
        cbsuhuke.Text = ""
    End Sub
End Class

LINK UNDUH SOURCE CODE

Kamu bisa mendapatkan source code untuk program aplikasi Konversi Suhu dengan menggunakan bahasa pemrograman Visual Basic.NET dengan klik tombol di bawah ini.

KLIK DISINI

PENUTUP

Kamu bisa belajar tentang konversi suhu melalui membuat aplikasi atau program berbasis desktop dengan menggunakan bahasa pemrograman Visual Basic.NET. Apalagi kamu yang telah memiliki kemampuan fisika tetapi ingin mencoba membuat aplikasi sendiri, tidak salahnya kamu mencoba implementasi fisika melalui ngoding dengan Visual Basic.NET.