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 :
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..
Begitulah kawaNn,,
selamat mencoba n guD Luck...
