'***************
' Fungsi Utama
' menghitung kebutuhan besi beton
' http://kangasep.com/
'***************
'perhitungan kebutuhan besi poor dalam kg
'ntuk ngitung berat besi plat lantai DALAM SATUAN KG/M3 BETON
'Nama fungsi = berat besi plat
'Argumen fungsi =tebal_plat, berapa_lapis, dia_besi, Jarak_besi
'pc = panjang cincin per buah
'jc = jumlah cincin
'pct = panjang cincin total
Function berat_besi_poor(tebal_poor, Jarak_besi, diameter_besi)
x = (1 / tebal_poor) ^ 0.5
y = x
bb = (3.14 * (diameter_besi / 10) ^ 2 * 100 / 4 * 7.85 / 1000)
pc = (2 * tebal_poor) + (2 * x)
jc = ((x / Jarak_besi) + 1) * 2
berat_besi_poor = pc * jc * bb * 1.15
End Function
'perhitungan BERAT BESI / M1
'ntuk ngitung berat besi plat lantai DALAM SATUAN KG/M3 BETON
'Nama fungsi = berat besi plat
'Argumen fungsi = diameter_besi
Function berat_besi(diameter_besi)
berat_besi = (3.14 * (diameter_besi / 10) ^ 2 * 100 / 4 * 7.85 / 1000)
End Function
'perhitungan plat besi KG / M3
'ntuk ngitung berat besi plat lantai DALAM SATUAN KG/M3 BETON
'Nama fungsi = berat besi plat
'Argumen fungsi =tebal_plat, berapa_lapis, dia_besi, Jarak_besi
Function berat_besi_plat(tebal_plat, berapa_lapis, diameter_besi, Jarak_besi)
bb = (3.14 * (diameter_besi / 10) ^ 2 * 100 / 4 * 7.85 / 1000)
pjb = (1 / Jarak_besi) * 2 * berapa_lapis
beratb_persegi = pjb * bb
berat_besi_plat = (beratb_persegi / tebal_plat) * 1.05
End Function
'ntuk ngitung berat besi balok KG / M3
'Nama fungsi = berat besi BALOK, SLOOF, KOLOM DALAM SATUAN KG/M3 BETON
'Argumen fungsi = diameter, beratbesi, total dan jumlah
Function BERAT_BESI_BALOK(tinggi, lebar, diameter_TULANGAN, JMLH_BESI, diameter_CIN, jarak_cincin, Optional volume_beton)
PJNG_BLK = 1 / (lebar * tinggi)
BERAT_BESI_TUL = (3.14 * (diameter_TULANGAN / 10) ^ 2 * 100 / 4 * 7.85 / 1000) * PJNG_BLK * JMLH_BESI
JUMLH_CINCIN = (PJNG_BLK / jarak_cincin) + 1
berat_bESI_CIN = (3.14 * (diameter_CIN / 10) ^ 2 * 100 / 4 * 7.85 / 1000) * JUMLH_CINCIN * (2 * lebar + 2 * tinggi - 0.125)
BERAT_BESI_BALOK = (berat_bESI_CIN + BERAT_BESI_TUL) * 1.05 * volume_beton
End Function
'ntuk ngitung kebutuhan besi balok dalam Batang
'Nama fungsi = keb besi tulangan utama DALAM SATUAN BATANG
'Argumen fungsi = diameter, beratbesi, total dan jumlah
Function KEB_BESI_TULANGAN_BALOK(panjang, JMLH_BESI)
KEB_BESI_TULANGAN_BALOK = (panjang * JMLH_BESI * 1.1) / 12
End Function
'ntuk ngitung kebutuhan besi balok dalam Batang
'Nama fungsi = keb besi tulangan utama DALAM SATUAN BATANG
'Argumen fungsi = diameter, beratbesi, total dan jumlah
Function KEButuhan_BESI_poor(tebal, panjang, jarak_cincin)
pc = tebal * 2 + panjang * 2
jc = ((panjang / jarak_cincin) + 1) * 2
KEButuhan_BESI_poor = (pc * jc) / 12
End Function
'***************
' Fungsi Utama
' menghitung kebutuhan besi cicin dalam satuan batang
' asep tony adjawijaya
' http://kangasep.com/
'***************
'*******************
'ntuk ngitung kebutuhan besi cincin balok dalam batang
'Nama fungsi = KEBUTUHAN BESI CINCIN DALAM SATUAN BATANG
'Argumen fungsi = diameter, beratbesi, total dan jumlah
Function KEBUTUHAN_BESI_CINCIN(lebar, tinggi, jarak_cincin, VOL_BETON)
PJNG_BLK = 1 / (lebar * tinggi)
JUMLH_CINCIN = (PJNG_BLK / jarak_cincin) + 1
PANJANG_CINCIN = (2 * lebar + 2 * tinggi)
KEBUTUHAN_BESI_CINCIN = VOL_BETON * (JUMLH_CINCIN * PANJANG_CINCIN) / 12
End Function
'ntuk ngitung kebutuhan besi cincin balok dalam batang
'Nama fungsi = KEBUTUHAN BESI CINCIN DALAM BATANG
'Argumen fungsi = diameter, beratbesi, total dan jumlah
Function KEBUTUHAN_BESI_platlantai(jarak, jmlh_lapis, luas_lantai)
jb = (1 / jarak) + 1
KEBUTUHAN_BESI_platlantai = jb * 2 * jmlh_lapis * luas_lantai / 11
End Function
'***************
' Fungsi Utama
' Mengubah Angka Menjadi Teks
' Eka Priatna
' http://priatna.or.id/
'***************
Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg
ReDim Place(9) As String
Place(2) = "Ribu "
Place(3) = "Juta "
Place(4) = "Milyar "
Place(5) = "Trilyun "
'Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))
'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If
'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupiah
Case ""
Rupiah = "nol rupiah"
Case Else
Rupiah = Rupiah & "Rupiah"
End Select
Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " dan " & Sen & "sen"
End Select
If IsNeg = True Then
Terbilang = "minus " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If
End Function
'**************************************
' Mengubah angka 100-999 menjadi teks *
'**************************************
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "se"
Exit Function
End If
'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "seratus "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "Ratus "
End If
End If
'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If
Ratusan = Result
End Function
'*******************
' Mengubah puluhan *
'*******************
Function Puluhan(TeksPuluhan)
Dim Result As String
Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "sepuluh "
Case 11: Result = "sebelas "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "belas "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "Puluh "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function
'********************************
' Mengubah satuan menjadi teks. *
'********************************
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "Satu "
Case 2: Satuan = "Dua "
Case 3: Satuan = "Tiga "
Case 4: Satuan = "Empat "
Case 5: Satuan = "Lima "
Case 6: Satuan = "Enam "
Case 7: Satuan = "Tujuh "
Case 8: Satuan = "Delapan "
Case 9: Satuan = "Sembilan "
Case Else: Satuan = ""
End Select
End Function
'*************************************************************************************************************
'
'***************
' Fungsi Utama
' menghitung kebutuhan besi dalam satuan batang
' asep tony adjawijaya
' http://kangasep.com/
'***************
'*******************
'Prosedur sub untuk membuat kategori baru
Sub Kategori_berat_besi()
'Nama fungsi = berat_besi
'Deskripsi fungsi = Fungsi yang digunakan untuk _
berat_besi
'Kategori yang dibuat = hitung besi
Application.MacroOptions Macro:="berat_besi", _
Description:="Fungsi yang digunakan untuk" _
& " menghitung besi beton dalam satuan meter. input diameter dalam mm", _
Category:="hitung besi"
End Sub
'Prosedur sub untuk membuat kategori baru
Sub Kategori_KEB_BESI_TULANGAN_BALOK()
'Nama fungsi = berat_besi
'Deskripsi fungsi = Fungsi yang digunakan untuk _
KEB_BESI_TULANGAN_BALOK
'Kategori yang dibuat = hitung besi
Application.MacroOptions Macro:="KEB_BESI_TULANGAN_BALOK", _
Description:="Fungsi yang digunakan untuk" _
& " menentukan kebutuhan besi balok dalam satuan batang, satuan yang di pakai : tinggi (m) , panjang (m), diameter besi ( mm ), jarak cincin ( m )", _
Category:="hitung besi"
End Sub
'Prosedur sub untuk membuat kategori baru
Sub Kategori_KEBUTUHAN_BESI_CINCIN()
'Nama fungsi = KEBUTUHAN_BESI_CINCIN
'Deskripsi fungsi = Fungsi yang digunakan untuk _
KEBUTUHAN_BESI_CINCIN
'Kategori yang dibuat = hitung besi
Application.MacroOptions Macro:="KEBUTUHAN_BESI_CINCIN", _
Description:="Fungsi yang digunakan untuk" _
& " menentukan kebutuhan besi cincin balok dalam satuan batang", _
Category:="hitung besi"
End Sub
'Prosedur sub untuk membuat kategori baru
Sub Kategori_kebutuhan_besi_poor()
'Nama fungsi = KEBUTUHAN_BESI_CINCIN
'Deskripsi fungsi = Fungsi yang digunakan untuk _
kebutuhan_besi_poor
'Kategori yang dibuat = hitung besi
Application.MacroOptions Macro:="kebutuhan_besi_poor", _
Description:="Fungsi yang digunakan untuk" _
& " menentukan kebutuhan besi poor dalam satuan batang", _
Category:="hitung besi"
End Sub
'Prosedur sub untuk membuat kategori baru
Sub Kategori_KEBUTUHAN_BESI_platlantai()
'Nama fungsi = KEBUTUHAN_BESI_CINCIN
'Deskripsi fungsi = Fungsi yang digunakan untuk _
KEBUTUHAN_BESI_platlantai
'Kategori yang dibuat = hitung besi
Application.MacroOptions Macro:="KEBUTUHAN_BESI_platlantai", _
Description:="Fungsi yang digunakan untuk" _
& " menentukan kebutuhan besi plat lantai dalam satuan batang.^B^LUAS LANTAI^B^ dalam satuan m2", _
Category:="hitung besi"
End Sub
GRIYA " SUMBER MULYO "
Perumahan " GRIYA SUMBER MULYO " Kraton - Maospati - Magetan
Minggu, 28 Maret 2010
ENGINEER ESTIMATOR Coloum
Langganan:
Postingan (Atom)