[Sparklies]

I am trying to write a program where you enter 2 numbers (Arg1 and Arg2) and then a MessageBox pops up that tells you what Arg1 raised to Arg2's is.

All I can come up with is "Arggggggggggggggggghhhhhhhhhhh!"

Below is my code.

Option Strict On
Option Explicit On 

Public Class PowerForm
	Inherits System.Windows.Forms.Form

Private Function Power() As Double
		Dim Sum As Double
		Dim Arg1 As Double
		Dim Arg2 As Double

		Arg1 = CInt(txtArg1.Text)
		Arg2 = CInt(txtArg2.Text)
		Sum = Arg1 ^ Arg2
		Return (Sum)

End Function

Private Sub btnCall_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles btnCall.Click
		Dim Sum As Double
		Power()
		MsgBox(Sum)
End Sub

End Class

When I run the program, the MessageBox shows an answer of zero.

Can someone tell me what I am doing wrong?



Thanks...

[Advertisements]

hi there


I think you might need to convert the text box values to doubles rather then integers...................


Spence

[SpencerClark]

hi there


I think you might need to convert the text box values to doubles rather then integers...................


Spence

[Ctrl_Alt_Del]

Option Strict On

Option Explicit On 



Public Class PowerForm

	Inherits System.Windows.Forms.Form



Private Function Power() As Double

		Dim Arg1 As Double

		Dim Arg2 As Double



		Arg1 = Cdbl(txtArg1.Text)

		Arg2 = Cdbl(txtArg2.Text)

		Power = Arg1 ^ Arg2

		



End Function



Private Sub btnCall_Click(ByVal sender As Object, ByVal e As System.EventArgs) _

Handles btnCall.Click

		Dim Sum As Double

		Sum = Power()

		MsgBox(cstr(Sum))

End Sub



End Class