Function.
Secara umum memanggil prosudur fungsi sama seperti memanggil fungsi pada standar visual basic lainnya.dan memadukan nama fungsi tersebut sebagai suatu expresi seperti..y= f(×)
Berikut adalah soal latihan sederhana .coba menggunakan function..
(1)~~~>> permukaan air dalam reservoar A dan B diukur dari bidang datum 66 meter
dan 61.5 meter..tekanan di D = 1.05 kg/ cm2..
Dan tinggi D dihitung dari bidang datum.= 45 metet
hitunglah tinggi muka air pada reservoar C (dihitung dari bidang datum).
koof diambil ♡=.0.02
Cons Pi=3,14
Gambar.
Rumus nya = persamaan bernaulli..
Bernaulli pada titik A dan D
bernaulli pada titik D dan B
Bernaulli pada titik D dan C
Pada vb dibuat label atau textbox...nilai zc pada reservoat C =......meter ( misal 50m, 51 meter, ...60 metr...)...
(Panjang dan diamtr pipa di tentukn sendiri )
------'''-------selamat mencoba---------------
Link function atau fungsi sebelumnya
(2). Suatu saluran (irigsi) penampang trapesium..kemiringan dinding =3:2
Debit : 10 m3/ detik..
keniringan dasar salran: 1:5000
Tetntukan: dimensi ekonomis ( Q.max).?
Gunakan rumus manning dgnN= 0,012 .?
Gbr..
a. Syarat agar ekonomis ( Q.max)
(B+2ZY /2)= y*V``z^2 +1
B : Lebar dasar sal
y = dalamnya air
z=2/3
Maka diperoleh B = 0;6y....(*)
Jadi lebar B adalah. 0,6 kali tinggi "y
............................
b..rumus manning v= 1/n R^2/3 I^1/2
Dimana R=1/2y
jika disubsutusikan dgn (*)..B=0,6y
maka y=.....?? Meter
maka diperoleh nilai B juga.
----------------------------------------
3. MENGHITUNG KAPASITAS POMPA SUMUR
Diasumsikan kebutuhan air untuk rumah tangga klas menegah kebawah, dengan jumlah :Suami istri : 2 orangAnak : 3 orang
Pembantu : 2 orangJumlah : 7 orang
Kebutuhan air / orang : 120 Ltr/org . . . . . . . . . . . . . .( SNI 03-7065-2005 )jadi total kebutuhan air per hari : 840 Ltr / hari
Kapasitas Rooftank : 1000 LiterWaktu pengisian Rooftank 20 menit
jadi kapasitas pompa sumur : 42 Lpm
Head PompaHead pompa yang diperlukan adalah :Hpump = Hs + Hf + HrHstatik = 12 mtrHfriksi = panjang pipa ( P ) x friksi ( f )P = panjang pipa ( PP ) + panjang ekivalent fitting ( Pe )PP = 20 mtr ( diasumsikan )Pe = (10*E) + (1*CV) + (1*GV)Pe = (10*6) + (1*12) + (1*1.2) . . . . . . . . . . ( friksi fitting diasumsikan )= 60+12+1.2= 73.2 mtrP = PP + Pe.......parameter selanjutnya lihat di blog ini..link
####di buat dgn visual basic..
link pd post sebelumnya link