MEMBUAT KONVERTER SUHU DENGAN VB6 .DLL
Hallo agan sista lagi cari program buat tugas kuliah ya?? Ini saya ada program konverter suhu dengan menggunakan ActiveX.dll dari microsoft visual basic 6.0. Program saya ini masih terbilang sangat sederhana dan umum dibuat oleh para mahasiswa sih tapi menurut saya fungsi fungsinya juga sudah cukup lengkap untuk program konversi suhu,
Dalam program ini sengaja saya menambahkan file Projectnya supaya bisa di edit dan disempurnakan lagi.
Oke kita ke tutorialnya dulu , berikut ini sedikit tutorial dan penjelasan membuat program konversi suhu dengan menggunakan activeX.dll pada VB . 6.0:
1. Pada tampilan pertama VB 6.0 pilih ActiveX.dll
2. Pada lembar kerja ActiveX.dll copykan scribt rumus berikut ini:
'celcius
Public Function cker(ByVal x As Double) As Double
cker = (4 / 5 * x)
End Function
Function ckef(ByVal x As Double) As Double
ckef = (9 / 5 * x) + 32
End Function
Public Function ckek(ByVal x As Double) As Double
ckek = x + 273
End Function
Public Function ckec(ByVal x As Double) As Double
ckec = x
End Function
'reamur
Public Function rkec(ByVal x As Double) As Double
rkec = 5 / 4 * x
End Function
Public Function rker(ByVal x As Double) As Double
rker = x
End Function
Public Function rkef(ByVal x As Double) As Double
rkef = (9 / 4 * x) + 32
End Function
Public Function rkek(ByVal x As Double) As Double
rkek = (5 / 4 * x) + 273
End Function
'fahrenheith
Public Function fkec(ByVal x As Double) As Double
fkec = (x - 32) * 5 / 9
End Function
Public Function fkek(ByVal x As Double) As Double
fkek = (x + 459) * 5 / 9
End Function
Public Function fker(ByVal x As Double) As Double
fker = (x - 32) * 4 / 9
End Function
Public Function fkef(ByVal x As Double) As Double
fkef = x
End Function
'kelvin
Public Function kkec(ByVal x As Double) As Double
kkec = (x - 273)
End Function
Public Function kker(ByVal x As Double) As Double
kker = (x - 273) * 4 / 5
End Function
Public Function kkef(ByVal x As Double) As Double
kkef = (x * 9 / 5) - 459
End Function
Public Function kkek(ByVal x As Double) As Double
kkek = x
End Function
Kalau saya tulis semua disini kepanjangan ya gan, maka dari itu saya sudah siapkan tutorial + projectnya, agan tinggal download di bawah sini:
0 komentar:
Post a Comment
Silahkan tinggalkan komentar Anda,
Berkomentarlah yang bijak sesuai artikel dan jangan menyertakan link dalam komentar, saya akan membalas komentar di blog kawan..
Terimakasih..