Perubahan Suhu

BELAJAR PEMROGRAMAN DASAR VISUAL BASIC/STUDIO 2010

                Berikut ini saya akan membuat sebuah aplikasi yang sangat dasar/sederhana menggunakan Visual basic/Studio 2010 yaitu “PERUBAHAN SUHU”.

Assalamualaikum War.Wab

Sebelum kita mulai membuat TUTORIALNYA, akan lebih barokahnya apabila kita memulai dengan membaca Bismillahirrohmaanirrohiimm.

Langkah pertama membuka aplikasi Visual Studio 2010. Double Klik VB 2010 pada desktop.

Contoh:

Atau bisa melalui start                     All Program                       Microsoft Visual Studio 2010

Contoh:

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

Lalu Masukan Koding Seperti Dibawah Ini:

Public Class Form1

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

    End Sub

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

        GroupBox1.Text = "C-> R,F,K"

        Label1.Text = "Celcius"

        Label2.Text = ""

        Button1.Text = "Proses"

        Label3.Text = "Fahreanheit"

        Label4.Text = "kELVIN"

    End Sub

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

        If (ComboBox1.SelectedItem = "C->R") Then

            Label2.Text = (4 / 5) * Val(TextBox1.Text)

        ElseIf (ComboBox1.SelectedItem = "C->F") Then

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

        ElseIf (ComboBox1.SelectedItem = "C->K") Then

            Label2.Text = 273 + Val(TextBox1.Text)

        ElseIf (ComboBox1.SelectedItem = "F->C") Then

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

        ElseIf (ComboBox1.SelectedItem = "F->R") Then

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

        ElseIf (ComboBox1.SelectedItem = "F->K") Then

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

        ElseIf (ComboBox1.SelectedItem = "K->C") Then

            Label2.Text = Val(TextBox3.Text) - 273

        ElseIf (ComboBox1.SelectedItem = "K->F") Then

            Label2.Text = (9 / 5) * (Val(TextBox3.Text) - 273) + 32

        ElseIf (ComboBox1.SelectedItem = "K->R") Then

            Label2.Text = (4 / 5) * (Val(TextBox3.Text) - 273)

        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

End Class

Setelah Masukan Kodingnya Lalu Di RUN Atau F5.

Maka Akan Keluar Hasilnya Seperti Dibawah Ini:

Setelah Itu Lalu Masukan Nilainya seperti dibawah ini:

Simpan Program Dengan Mengklik Save All.

Sekian tutorial dari saya, semoga bermanfaat bagi kita semua.

Terima Kasih,Wassalamualaikum War.Wab

“SELAMAT MENCOBA”

GOOD LUCK

MASUJAM

14.MI.089