Menghitung Debit Aliran Air

“Debit air merupakan ukuran banyaknya volume air yang dapat lewat dalam suatu tempat atau yang dapat di tampung dalam sutau tempat tiap satu satuan waktu. Debit air dapat di hitung dengan rumus: Q=A.v, dimana Q merupakan debit air, A merupakan luas penampang dan v adalah volume air.” menurut catatan kuliah.blogspot.com.

Kali ini saya tidak akan banyak membahas tentang debit aliran air, yang akan saya bahas di sini adalah langkah – langkah membuat suatu program untuk menghitung debit aliran air dengan menggunakan program microsoft visual basic 6.0.  Untuk mendapatkan program microsoft visual basic 6.0 dapat anda download di situs – situs yang telah mengupload file tersebut. Penggunaan langkah – langkah yang tertulis di bawah ini akan dapat dimengerti dan dilakukan jika anda sudah pernah membuat suatu program dengan microsoft visual basic 6.0, karena saya tidak menjelaskan secara mendetail cara menggunakan microsoft visual basic 6.0 ini.

Langkah – lakah pembuatan program antara lain :

Langkah – 1 :

Disain program dapat dilihat seperti di bawah ini :

Langkah-2 :

Masukkan obyek-obyek yang diperlukan dalam form, seperti berikut :

Langkah – 3 :

Atur Properti dari obyek-obyek yang dipergunakan, dengan pengaturan sebagai berikut :

 

NO

FORM/OBYEK

PROPERTY

SETTING

1

FORM Name Frm_debit

  Caption MENGHITUNG DEBIT

  Picture (Bitmap)

2

Label 1 Caption MENGHITUNG DEBIT AIR

  Font Copperplate Gothic, Bold Oblique, 26

  ForeColor Palette, Ungu tua

3

Label 2 Caption VOLUME (liter)

  Font Segoe Print, Bold, 22

  ForeColor Palette, Biru tua

  Alignment 2 – center

4

Label 3 Caption WAKTU (detik)

  Font Segoe Print, Bold, 22

  ForeColor Palette, Biru tua

  Alignment 2 – center

5

Label 4 Caption DEBIT (liter/detik)

  Font Segoe Print, Bold, 22

  ForeColor Palette, Biru tua

  Alignment 2 – center

6

Text1 Name Txt_bilvolume
    Font MS Sans Serif, Bold, 24
    Text <kosongkan>

7

Text2 Name Txt_bilwaktu
    Font MS Sans Serif, Bold, 24
    Text <kosongkan>

8

Text3 Name Txt_bilhasil
    Font MS Sans Serif, Bold, 24
    Text <kosongkan>

9

Command1 Name cmd_lagi

  Caption LAGI

  Font Ravie, Bold Oblique, 22

  BackColor Palette, biru muda – 2

  Style 1 – Graphical

10

Command2 Name cmd_jawab

  Caption JAWAB

  Font Ravie, Bold Oblique, 22
    BackColor System, Active Title Bar
    Style 1 – Graphical

11

Command3 Name cmd_selesai

  Caption SELESAI

  Font Ravie, Bold Oblique, 22

  BackColor Palette, merah muda

  Style 1 – Graphical

 

 

Langkah – 4 :

Buat kode program untuk masing-masing command obyek yang diperlukan, sebagai berikut :

 

Private Sub cmd_jawab_Click()

 

Dim Bilvolume, Bilwaktu, Bilhasil As Long

 

Bilvolume = Val(Txt_bilvolume.Text)

Bilwaktu = Val(Txt_bilwaktu.Text)

 

Bilhasil = Val(Bilvolume / Bilwaktu)

Txt_bilhasil.Text = Bilhasil

 

 

End Sub

 

Private Sub cmd_lagi_Click()

Txt_bilvolume.Text = Empty

Txt_bilwaktu.Text = Empty

Txt_bilhasil.Text = Empty

Txt_bilvolume.SetFocus

 

End Sub

 

Private Sub cmd_selesai_Click()

End

End Sub

 

Untuk mendapatkan program yang telah jadi dapat didownload di sisi.

 

Bagaimana???? Saya baik sakali khan????

heheheee…. Becanda Bos.

OK, sekian dan terimakasih,

Berikan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s