KONVERSI SUHU PADA VB.NET DENGAN PROCEDURE

Ini adalah contoh program menggunakan VB.Net kawan, kaitan nya menggunakan fungsi posedur.
pastinya kalian kenal kan dengan parameter nilai ( byVal), parameter acuan (byRef), dan parameter Array.
Nah, di sini saya akan memberikan conto sederhana dari penggunaan byReff , jadi dengan ByReff nantinya akan memberikan nilai asli, sesuai pada hasil operasi, tidak mengembalikan nilai 0.
supoorted by :




1. Ini adalah contoh program menghitung Konversi Suhu dari reamur ke Suhu yg lain kawaNn,,


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim reamur, celcius, fahrenheit, kelvin As Integer
        Dim nilai As Double
        nilai = 0 'tak ada pengaruh jika menggunakan ByRef
        reamur = CInt(InputBox("inputan data dalam reamur : "))
        Call hitung(reamur, celcius, fahrenheit, reamur, kelvin)
    End Sub
    Sub hitung(ByVal re As Double, ByVal a As Double, ByVal b As Double, ByVal c As Double, ByVal d As Double)
        a = re * (5 / 4) 'celcius
        b = ((re * (5 / 4)) + 32) 'fahrenheit
        c = re 'reamur
        d = ((re / (5 / 4)) + 273.15) 'kelvin
        MessageBox.Show("Nilai celcius :" & a & vbCrLf & "Nilai fahrenheit :" & b & vbCrLf & "Nilai Reamur : " & c & vbCrLf & "Nilai Kelvin : " & d, "Hasil Konversi")
    End Sub

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

    End Sub

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

    End Sub
End Class


dan utuk tampilan nya seperti ini kawaNn..
 klik pada button DEMO lanjut nya :


 klik OK, kemudian


Begitulah kawaNn,,
selamat mencoba n guD Luck...

2 komentar:

bongas mengatakan...

maaf gan ane masih newbie..script diatas itu cuma class nya aja kan,?kalo untuk button demo itu ada script nya ga?

Unknown mengatakan...

admin : ndak pake sob :)

Posting Komentar

Jangan Pernah Kita Usul Jika Asal, Dan Jika Mau Usul Lebih Baik Jangan Pernah Asal...

andibayu. Diberdayakan oleh Blogger.

PEMBELAJARAN BERBASIS ONLINE