Mesa duket nuk jeni i regjistruar, kliko ne butonin Regjisrohu nqs dëshironi të bëheni pjesë e forumit tonë, per t'u regjistruar ju hargjoni maksimumi 1 min kohë. Me respekt Staffi.
Mesa duket nuk jeni i regjistruar, kliko ne butonin Regjisrohu nqs dëshironi të bëheni pjesë e forumit tonë, per t'u regjistruar ju hargjoni maksimumi 1 min kohë. Me respekt Staffi.
Would you like to react to this message? Create an account in a few clicks or log in to continue.



 
ForumPortaliKërkoLatest imagesRegjistrohuidentifikimiChatBilardo

 

 Kalkulime Matematikore

Shko poshtë 
AutoriMesazh
Crespy
Moderator
Moderator
Crespy


Postimet : 162

Kalkulime Matematikore Empty
MesazhTitulli: Kalkulime Matematikore   Kalkulime Matematikore Icon_minitimeSun Apr 12, 2009 12:30 am

Kalkulime Matematikore








Private Sub Text1_Change()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Command1_Click()

End Sub

Private Sub cmdCalculate_Click()
Dim cPrincipal As Currency
Dim fIntRate As Single
Dim nTerm As Integer, cPayment As Currency

cPrincipal = Val(txtPrincipal.Text)

fIntRate = Val(txtIntRate.Text) / 100

fIntRate = fIntRate / 12

nTerm = Val(txtTerm.Text) * 12

cPayment = cPrincipal * (fIntRate / (1 - (1 + fIntRate) ^ -nTerm))

txtPayment.Text = Format(cPayment, "Fixed")

End Sub

Private Sub cmdExit_Click()
Dim sMsg As String
sMsg = "Jeni i sigurte qe doni te dilni?"
If MsgBox(sMsg, vbYesNo) = vbYes Then
End
End If
End Sub
Mbrapsht në krye Shko poshtë
 
Kalkulime Matematikore
Mbrapsht në krye 
Faqja 1 e 1

Drejtat e ktij Forumit:Ju nuk mund ti përgjigjeni temave të këtij forumi
 :: Paneli i Kontrollit :: Tutorials & Mësime-
Kërce tek: