IE 148 HW 5

IE 148 HW 5 - End If p = txtAL.Text r = txtIR.Text n =...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Morgan Hampel IE 148 HW 5 Professor Sly Public Class Form1 Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.Click Dim payment, tip, p, r, n As Single If txtAL.Text < 0 Then MsgBox( "BAD DATA" ) End If If txtIR.Text < 0 Then MsgBox( "BAD DATA" ) End If If txtDM.Text < 0 Then MsgBox( "Bad Data"
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: ) End If p = txtAL.Text r = txtIR.Text n = txtDM.Text payment = p * (r / 1200) / (1 - (1 + (r / 1200)) ^ (-n)) tip = n * payment - p txtMP.Text = FormatCurrency(payment) txtTIP.Text = FormatCurrency(tip) End Sub End Class Morgan Hampel IE 148 HW 5 Professor Sly...
View Full Document

This note was uploaded on 08/16/2011 for the course IE 148 taught by Professor Davesly during the Spring '11 term at Iowa State.

Page1 / 2

IE 148 HW 5 - End If p = txtAL.Text r = txtIR.Text n =...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online