Berita unik | inspiratif | menarik | sejuk dihati :)

APLIKASI DENGAN ACTIVEX.DLL VB6.0 - KONVERTER SUHU



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:


APLIKASI DENGAN ACTIVEX.DLL VB6.0 - KONVERTER SUHU Rating: 4.5 Diposkan Oleh: Abang Blitari

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..