Financial Calculator

Dim Num, n as Integer

Dim I,P,PVIFA,r,pmt,PI,PP As Double

Public sub cmd_Calclate_Click()

P=txtincipal.Text

Num=TextNum_payment.text

r=txt_Interest.Text

I=r/100

PVIFA=1/I-1 / (I*(1+I) ^Num)

pmt=P/PVIFA

Lbl_Amtpayment.Caption=Round(pmt,2)

End Sub

Private sub cmd_Create_Click()

List_Amortization.AddItem “n” & vbTab & “Periodic” & vbtab & vbTab & “Payment” &

vbTab & vbTab & “Payment” & vbTab & vbtab & “Balance”

List_Amortizatiob.AddItem “” & vbTab & “Payment” & vbTab & vbtab & “Interest” &

vbTab & vbTab & “Principal”

List_Amortization.AddItem

“_______________________________________________________”

Do

n=n+1

PI=P*I

PP=pmt-PI

P=P-PP

List_Amortization.AddItem n & vbTab & Round(pmt,2) & vbTab & vbTab & Round(PI,2) & vbTab & vbTab & Round(PP,2) & vbTab & vbTab & Round(P,2)

if n=Num Then

Exit Do

End If

Loop

End Sub

Private Sb cmd_Reser_Click()

Txt_Principal.Text=” “

Txt_Interest.Text=” “

Financial Calculator for Amortization

Txt_Num_payment.Text=” “

Lbl_Amtpayment.Caption=” “

List_Amortization.Clear

n=0

End sub

Private sub cmd_End()

End

End sub

Modify Account System

Private Funcition Modifikasi (yVal strUser As string, ByVak blnEnable As boolean) as Boolean

Dim oInfo As New WinNTSystemInfo

Dim strDomain As String

strDomain=oInfo.Domainname

Dim oDomain as Object

Dim oDomain=getObject(“WinNT://” & strDmain)

oDomain.Filter=Array(“User”)

Dim oUser As IADsUser

For Each oUser In oDomain

if strUser=oUser.Name Then

oUser.AccountDiabled=Not blnEnable

oUser=SetInfo

Modifikasi=trus

End if

Next oUser

Set oUser=Nothing

Set oDomain=Nothing

Set oInfo=Nothing

Private Sub command1_click()

if modifikasi(“Guest”,true) Then

MsgBox(“Account Guest diaktifkan”)

Else

msgBox (“Operasi gagal”)

end if

end sub

Private sub command2_click()

if modifikasi (“Guest”,False) Then

MsgBox (“Account Guest di nonaktifkan”)

Else

MsgBox (“Operasi gagal”)

End if

End Sub