Project to Calculate Simple and Compound Interest Using Visual Basic
Learn how to design a Visual Basic project to calculate and display simple interest and compound interest with control and properties settings. Code commands included for clear and exit operations.
Download Presentation
Please find below an Image/Link to download the presentation.
The content on the website is provided AS IS for your information and personal use only. It may not be sold, licensed, or shared on other websites without obtaining consent from the author. If you encounter any issues during the download, it is possible that the publisher has removed the file from their server.
You are allowed to download the files provided on this website for personal or commercial use, subject to the condition that they are used lawfully. All files are the property of their respective owners.
The content on the website is provided AS IS for your information and personal use only. It may not be sold, licensed, or shared on other websites without obtaining consent from the author.
E N D
Presentation Transcript
Sheth N.K.T.T. College of Commerce,Thane T.Y.B.com Computer system and applications Prof.N.N.Varade Topic:Visual Basic
Q.1.Write a project to calculate and display Simple interest and Compound interest Design on screen Principal No of years Rate of interest Interest simple compound clear end
Control and properties: Object Property Setting Form Name frmint Caption Interest Lable1 Name lblprin Caption principal Lable2 Name lblyrs Caption No of years Lable3 Name lblrate Caption Rate of interest Lable4 Name lblint Caption interest
Control and properties: Object Property Setting text1 name txtprin text blank text2 name txtyrs text blank text3 name txtrate Text blank text4 name txtint text blank
Control and properties: Object Property Setting command1 name cmdsimple caption &simple command2 name cmdcompound caption &ompound command3 name cmdclear caption &clear command4 name cmdexit caption &exit
Code Command1: private sub cmdsimple_click() txtint=(val(txtprin)*val(txtyrs)*val(txtrate))/100 end sub Command2: private sub cmdcompound_click() Txtint=val(txtprin)*(1+val(txtrate)/100)^val(txtyrs)-val(txtprin) end sub
Code Command3: private sub cmdclear_click() txtprin= txtyrs= txtrate= txtint= end sub Command4: private sub cmdexit_click() end end sub
