Thursday 17 March 2016

Mencari Nilai Debit Air

Kali ini saya akan menulis sebuah perhitungan tentang mencari nilai debit air yang dihasilkan sebuah turbin dengan menggunakan Visual Basic.
Dimana Q = Net/ (P.g.H.ƞ)
Keterangan :
Q = Debit Air
Net = Daya Efektif Turbin
P = Massa Jenis Air
g = Percepatan Gravitasi
H = Ketinggian
ƞ = Efisiensi Turbin

* Struktur Navigasi




* Coding:

Private Sub Command1_Click()
Text6.Text = (Val(Text1.Text) / Val(Val(Text2.Text) * Val(Text3.Text) * Val(Text4.Text) * Val(Text5.Text))) * 100
End Sub

No comments:

Post a Comment