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.


ForumPortaliCalendarPytësoriKërkoLista AnëtarëveGrupet e AnëtarëveRegjistrohuidentifikimiChatBilardo

Share | 
 

 Kalkulime Matematikore

Shiko temën e mëparshme Shiko temën pasuese Shko poshtë 
AutoriMesazh
Crespy
Moderator
Moderator


Postimet : 162

MesazhTitulli: Kalkulime Matematikore   Sun 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ë
Shiko profilin e anëtarit
 
Kalkulime Matematikore
Shiko temën e mëparshme Shiko temën pasuese Mbrapsht në krye 
Faqja 1 e 1
 Similar topics
-
» Probleme logjike...Kush i gjen ?
» Enigma e Ajnshtajnit
» Rrethi është formulë matematikore
» Numri pi
» Një nga çështjet matematikore në Doktrinën Sekrete!

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