Pemrograman RAB dengan Microsoft Visual Basic 6

Hari/Tgl/M.Kul/Dosen: Rabu/27-10-2010/Pemr. VB/Rahmadya Trias H., ST., MKom.

Pemasangan Dinding 1 m2 butuh:

  • 70 bata (300rb/buah)
  • 0,093 m3 pasir (ditambah waste 2 %) – 0,13 Kijang (1 kijang: 180 rb).
  • 1 m3 adukan butuh 4-6 sak semen (tergantung perbandingan adukannya) – 5 sak (65rb/sak)
  • 1 tukang dan 1 kenek mampu memasang 8 m2 dinding perhari. – (100rb/hari)

Rancanglah program dengan Microsoft Visual Basic untuk menghitung biaya serta bahan-bahan yang diperlukan untuk membuat dinding bangunan.

Inputan:

  • Luas Dinding :

Keluaran:

  • Jumlah Bata:
  • Jumlah Pasir (kijang):
  • Semen (sak):
  • Ongkos Tukang:
  • Biaya Total:

Rancang Form sebagai berikut:

 

Iklan

6 respons untuk ‘Pemrograman RAB dengan Microsoft Visual Basic 6

  1. Nih, listingnya: sesuaikan nama variabelnya ya .. (sorry masih nama default-nya)

    Private Sub Command1_Click()
    Text2 = Val(Text1.Text) * 70
    Text3 = Val(Text1.Text) * 0.13
    Text4 = Val(Text1.Text) * 5
    Text5 = Val((Text1.Text) / 8)

    selisih = Val(Text5.Text) – Int(Text5.Text)
    If selisih = 0 Then
    tukang = Val(Text5.Text)
    Else
    tukang = Int(Text5.Text + 1)
    End If

    delta = Val(Text3.Text) – Int(Text3.Text)
    If delta = 0 Then
    kijang = Val(Text3.Text)
    Else
    kijang = Int(Text3.Text + 1)
    End If

    Text6 = Val(Text2.Text) * 300 + kijang * 180000 + Val(Text4.Text) * 65000 + tukang * 100000
    Text7 = kijang
    Text8 = tukang

    End Sub

Tinggalkan Balasan

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

Logo WordPress.com

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

Foto Google+

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

Gambar Twitter

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

Foto Facebook

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

w

Connecting to %s