Buat Prosen dan Statistik di Classic ASP

‘——————————————————————–
‘———- Fungsi Penghitungan Persentase dan Gambar Statistik —–
‘———- Diprogram oleh Armansyah, S.Kom; Rabu 18 Juni 2003 ——
‘——————————————————————–

Dim PanjangGambar1
Dim PanjangGambar2
Dim PanjangGambar3
Dim PanjangGambar4
Dim TotalPersen

Dim Total
Total = Total_Semua_OEFSELESAI + Total_Semua_OEFBLMSELESAI + Total_Semua_OEFBatal

Function HitungPersen(Angka)
TotalPersen = (angka/total) * 100
TotalPersen = Cint(TotalPersen)
HitungPersen = TotalPersen
End Function

Function Gambar1(x)
PanjangGambar1 = (x*2)
Gambar1 = PanjangGambar1
End Function
Function Gambar2(y)

PanjangGambar2 = (y*2)
Gambar2 = PanjangGambar2
End Function

Function Gambar3(z)

PanjangGambar3 = (z*2)
Gambar3 = PanjangGambar3
End Function

Function Gambar4(Arman_Mita)
PanjangGambar4 = (Arman_Mita*2)
Gambar4 = PanjangGambar4
End Function

Categories: Classic ASP | Tinggalkan komentar

Navigasi pos

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com 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 )

Foto Google+

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

Connecting to %s

Blog di WordPress.com.

%d blogger menyukai ini: