Scribd
Upload
5 views10 pages

Biaya Sekolah Asisi Wira Indrayana

This document contains 4 sections of Visual Basic code for different programming projects: 1. A class for calculating dimensions and areas of shapes. 2. A form for calculating shipping costs that includes fields for quantity, weight, package cost, etc. 3. A form for calculating prepaid phone credit purchases including fields for provider, credit amount, expiration dates. 4. A form for a cooperative savings ledger that includes fields for member name, savings amounts, deposits, withdrawals, balances.

Uploaded by

Wira Indrayana
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
5 views10 pages

Biaya Sekolah Asisi Wira Indrayana

This document contains 4 sections of Visual Basic code for different programming projects: 1. A class for calculating dimensions and areas of shapes. 2. A form for calculating shipping costs that includes fields for quantity, weight, package cost, etc. 3. A form for calculating prepaid phone credit purchases including fields for provider, credit amount, expiration dates. 4. A form for a cooperative savings ledger that includes fields for member name, savings amounts, deposits, withdrawals, balances.

Uploaded by

Wira Indrayana
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

PORTOFOLIO

MATA KULIAH
FUNDAMENTAL
PROGRAMMING

NAMA: WIRA INDRAYANA


NIM: 14157049

STIKOM BINANIAGA
BOGOR

1. DIMENSI

Public Class clsdimensi


Public aPanjang As Double
Public aLebar As Double
Public aLuas As Double
Public Sub HITUNGLUAS()
aLuas = aPanjang * aLebar
End Sub
Public aSisi As Double
Public aLuasbs As Double
Public Sub HITUNGLUASB()
aLuasbs = aSisi * aSisi
End Sub
Public aAlas As Double
Public aTinggi As Double
Public Sub HITUNGLUASSK()
aLuasS = aAlas * aTinggi
End Sub
End Class

2. FORM PENGIRIMAN BARANG

Public Class Form1


Private Sub BERSIHLAYAR()
[Link] = "" : [Link] = "" : [Link] = "" : [Link] =
"" : [Link] = ""
[Link] = "" : [Link] = "" : [Link] = ""
End Sub
Private Sub HITUNGPAKET()
Dim oJML As Double, oKG As Double, oPKT As Double
oJML = Val([Link])
oKG = Val([Link])
oPKT = oJML * oKG * 20000
[Link] = oPKT
End Sub
Private Sub HITUNGSUB()
Dim oJML As Double, oKG As Double, oPKT As Double, oTUJ As Double, oADM
As Double, oSUB As Double
oJML = Val([Link])
oKG = Val([Link])
oPKT = oJML * oKG * 20000
oADM = Val([Link])
oTUJ = Val([Link])
oSUB = oPKT + oADM + oTUJ
[Link] = oSUB

End Sub
Private Sub HITUNGPJK()
Dim oJML As Double, oKG As Double, oPKT As Double, oTUJ As Double, oADM
As Double, oSUB As Double, oPJK As Double, oTOTAL As Double
oJML = Val([Link])
oKG = Val([Link])
oPKT = oJML * oKG * 20000
oADM = Val([Link])
oTUJ = Val([Link])
oSUB = oPKT + oADM + oTUJ
oPJK = oSUB * (10 / 100)
[Link] = oPJK
End Sub
Private Sub HITUNGTOTAL()
Dim oJML As Double, oKG As Double, oPKT As Double, oTUJ As Double, oADM
As Double, oSUB As Double, oPJK As Double, oTOTAL As Double
oJML = Val([Link])
oKG = Val([Link])
oPKT = oJML * oKG * 20000
oADM = Val([Link])
oTUJ = Val([Link])
oSUB = oPKT + oADM + oTUJ
oPJK = oSUB * (10 / 100)
oTOTAL = oSUB + oPJK
[Link] = oTOTAL
End Sub
Private Sub Form1_Shown(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then HITUNGPAKET()
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then HITUNGSUB()
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then HITUNGPJK()
End Sub
Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]

If [Link] = Chr(13) Then HITUNGTOTAL()


End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
BERSIHLAYAR()
End Sub
Private Sub Form1_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End Sub
End Class

3. PULSA

Public Class Form1


Dim pilih_perdana As String
Dim Total_Harga As String
Private Sub BERSIHLAYAR()
[Link] = ""
[Link] = ""
[Link] = "##/##/####"
[Link] = "##/##/####"
[Link] = ""
[Link] = ""
[Link] = "##/##/####"
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub BTNCLEAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
BERSIHLAYAR()
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As
[Link])
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub MSAK1_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then
Dim atgl As Date
atgl = [Link]
[Link] = Format(DateAdd([Link], 2, atgl),
"MM/dd/yyyy")
[Link]()
End If

End Sub
Private Sub CMBTOP_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then
Dim btgl As Date, oPulsa As Double
oPulsa = Val([Link]) / 5000
btgl = [Link]
[Link] = Format(DateAdd([Link], 7 * oPulsa, btgl),
"MM/dd/yyyy")
[Link]()
End If
End Sub
Private Sub MSAK3_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then
Dim hitpls As Double
hitpls = Val([Link]) + Val([Link])
[Link] = hitpls
[Link]()
End If
End Sub
Private Sub PLS_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then
[Link]()
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then
Dim ttlsms As Double
ttlsms = Val([Link] * 150)
[Link] = ttlsms
End If
[Link]()
End Sub
Private Sub COMBPERD1_SelectedIndexChanged(ByVal sender As
[Link], ByVal e As [Link]) Handles
[Link]
pilih_perdana = Val([Link])
If pilih_perdana = "0" Then
[Link] = "5000"
ElseIf pilih_perdana = "1" Then
[Link] = "10000"
ElseIf pilih_perdana = "2" Then
[Link] = "25000"
End If
End Sub
Private Sub Form1_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End Sub
End Class

4. DAFTAR SIMPANAN KOPERASI

Public Class Form1


Private Sub BERSIHLAYAR()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub Form1_GotFocus(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
BERSIHLAYAR()
End Sub
Private Sub NAMA_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub JMLSIMP_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub

Private Sub SIMPOK_KeyPress(ByVal sender As Object, ByVal e As


[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub SIMJIB_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub SIMSUK_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub JMLMASUK_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then Transaksi()
End Sub
Private Sub Transaksi()
Dim Pemasukan As Double
Dim Saldosimpanan As Double
Dim JMLSIMPs As Double
Dim SIMPOKs As Double
Dim SIMJIBs As Double
Dim SIMSUKs As Double
Dim JMLMASUKs As Double
JMLSIMPs = [Link]
SIMPOKs = [Link]
SIMJIBs = [Link]
SIMSUKs = [Link]
JMLMASUKs = [Link]
Pemasukan = JMLSIMPs + SIMPOKs + SIMJIBs + SIMSUKs + JMLMASUKs
[Link] = Pemasukan
End Sub
Private Sub JMLSETOR_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub JMLBYR_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = Chr(13) Then [Link]()

End Sub
Private Sub Transaksi2()
Dim Pengeluaran As Double
Dim JMLBYRs As Double
Dim TextBox1s As Double
Dim TextBox2s As Double
Dim TextBox3s As Double
Dim TextBox4s As Double
JMLBYRs = [Link]
TextBox1s = [Link]
TextBox2s = [Link]
TextBox3s = [Link]
TextBox4s = [Link]
Pengeluaran = JMLBYRs + TextBox1s + TextBox2s + TextBox3s + TextBox4s
[Link] = Pengeluaran
End Sub
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End Sub
Private Sub Form1_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End Sub
End Class

You might also like