VB.NET Forum RSS Feed

hamming code

Tue, 17 Nov 2009 20:19:58 -0700

has any1 ever tried to program the hamming code in vb.net? and are u willing to share !?

need help!!

Tue, 17 Nov 2009 09:06:19 -0700

On my form load event, i populate three comboboxes by code.... in the button click event i try to insert into the database and i use combobox.selecteditem and it generates an insert error.
but when i use combobox.selectedindex, it runs.
dont know wat to do.

dynamic arrays in vb.net ?????

Sun, 15 Nov 2009 19:40:07 -0700

im trying to declare an array with an unknown length and no way of figuring it out untill the actual data has been placed within the array, in c++ it possible to fill a dynamic array with data and then find out the length if u need 2, but in vb.net im not sure, i know abt the redim concept, but does it work in this case...

thank u sooo much !!!

Drag and drop from IE8

Sun, 15 Nov 2009 19:06:46 -0700

I have an app where I let the user select text from a website and drop it into a textbox on my app. This works well when the browser is Firefox, but IE8's protected mode doesn't allow it. In earlier versions when you tried you'd get a pop up asking to authorize it, and if you did it went into the registry into IE's lowrights/dragdrop. It no longer seems to do this. If I already have the lowrights entry, then IF I hold down the ctrl key, it will work.

So does anyone know how I'm supposed to get this to work again? Also what is the ctrl key telling IE8 when I'm doing a drag and drop. I can't find that documented anywhere.

Any help would be greatly appreciated.

Dan

Exit button with yes/no options

Fri, 13 Nov 2009 10:56:23 -0700

Hi everyone and thanks for reading my question!

This is my first topic related on vb.net!

I want to implement an exit button with yes/no option in vb.net.

Here's what I've tried:

Dim intrebare As String
        intrebare = MsgBox("Doriti parasirea aplicatiei?", MsgBoxStyle.YesNo)
        If intrebare = "Yes" Then ' if we press yes it quits vb.net
'here is the problem how to say him if he selects yes to quit from 'visual studio 2008?            

'Me.Close() if I select yes I want that it exits my full 'software , so exits visual studio 2008 is it possible?
           
        Else 
          'ok
            Me.Close()

No syntax error the problem is that even if I select yes or no it returns to me to the initial form. I want to return me on initial form only if I press No Button of MessageBox.

vb6 handles .net com class event

Fri, 13 Nov 2009 08:08:27 -0700

i have the ComClassSearchCustomers class and interface IComClassSearchCustomersat .net which used to create a tlb file. The class raise an event inside new. After that i have a vb6 form Form1 which catch the event , but it never see the event. Any ideas?
Option Strict On
Option Explicit On
Imports System.Runtime.InteropServices

<Guid("BB86EB1C-6444-424f-B83B-A667561E06C3"), _
ComSourceInterfaces(GetType(IComClassSearchCustome rs))> _
Public Class ComClassSearchCustomers

Public Delegate Sub printReportEventHandler(ByVal codes As String)
Public Event printReport As printReportEventHandler

Public Sub New()
MyBase.New()
RaiseEvent printReport(“MARIA”)
End Sub
End Class

Imports System.Runtime.InteropServices

<Guid("D8F7EC74-0EFC-4e43-9B59-4CF741DF616D"), _
InterfaceType(ComInterfaceType.InterfaceIsIDispatc h)> _
Public Interface IComClassSearchCustomers
<DispId(1)> _
Sub printReport(ByVal codes As String)
End Interface
Public WithEvents Instance As Search.ComClassSearchCustomers

Private Sub Form_Load()
Set Instance = New Search.ComClassSearchCustomers
End Sub

Private Sub Instance_printReport(ByVal codes As String)
MsgBox ("raise")
End Sub

Anyone interesed in doing VIRTUAL MALL project

Thu, 12 Nov 2009 15:17:35 -0700

Hi, I a have a small term project titled "Virtual Mall".
Is there someone who is interested in doing this project.
The project is based on VB.Net and SQL Server 2005.
The deadline is Nov 30th.

Let me know who can do this so I can mail the details and get in touch with him/her.
Budget is moderate as I am a student.
Reply ASAP.

Help::Automatic textbox generation

Thu, 12 Nov 2009 08:26:32 -0700

Sub textbox1_textchanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim count As Integer
Dim t As New TextBox
For count = 4 To 6
MsgBox("vbbvbnv")
t.Text = "TextBox" & count.ToString()
t.ID = "TextBox" & count.ToString()
Panel1.Controls.Add(t)
count = count + 1

Next count

end sub

ERROR::::Multiple controls with the same ID 'TextBox6' were found. FindControl requires that controls have unique IDs.
Description: An unhandled exception occurred during the execution of the current web request.How Can i Rectify this

Help::Automatic textbox generation

Thu, 12 Nov 2009 08:25:01 -0700

System.InvalidOperationException error

Thu, 12 Nov 2009 05:43:22 -0700

Hi,

I have designed a application in VB.net using the MS Office spreadsheet component.

When launching the app on the client PC it gives a 'Windows has encountered a problem and needs to close' error, when clicked on Debug the error says 'An Unhandled exception occured ('System.InvalidOperationException') in 'ApplicationName.exe'.

The client PC runs WinXP SP3 with .NET framework 3.5 with SP1 and Office Web Components, also has Office 2007 installed.

When I remove the spreadsheet componenet from the app and redeploy the app to the client it works fine!

Please help.

Thanks.

Printing picturebox on printer

Tue, 10 Nov 2009 12:30:34 -0700

I would like to print the content of a picturebox to the printer.
I am using the code below. I am sending the graph to the printer, the same way i send it to the picturebox. BUT, only the grid and text gets printed. The bars of the graph is not printed.

What am i doing wrong

Private Sub btnPrintGraph_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintGraph.Click
        PrintPreviewDialog1.ShowDialog()
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim canvas As Graphics = e.Graphics
        Dim heighestamount As Integer
        ' ----- Create an array of data points to plot.
        Dim chartData() As Single = {mark0, mark10, mark20, mark30, mark40, mark50, mark60, mark70, mark80, mark90}
        ' ----- Create some pens.
        heighestamount = 0
        For a = 0 To 9
            If heighestamount < chartData(a) Then
                heighestamount = chartData(a)
            End If
        Next
        Dim penRed As New Pen(Color.Red, -1)
        Dim penBlack As New Pen(Color.Black, -1)
        Dim penShadow As New Pen(Color.Gray, -1)
        ' ----- Prepare to add labels.
        Dim labelFont As New Font("Arial", 3, FontStyle.Regular)
        Dim labelFont2 As New Font("Arial", 5, FontStyle.Regular)
        Dim labelBrush As New SolidBrush(Color.Blue)
        ' ----- Used to plot the various elements.
        Dim x1, y1 As Single 'Lower left corner
        Dim x2, y2 As Single 'Upper right corner
        Dim scaleX, scaleY As Single
        Dim xScan, yScan As Single
        Dim oneBar As RectangleF
        ' ----- Set the scaling.
        x1 = -20
        y1 = -20
        x2 = 110
        y2 = 110
        scaleX = PictureBox1.ClientSize.Width / (x2 - x1)
        scaleY = PictureBox1.ClientSize.Height / (y2 - y1)
        canvas.ScaleTransform(scaleX, -scaleY) '(inverted)
        canvas.TranslateTransform(-x1, -y2) '(inverted)
        ' ----- Color the background.
        canvas.Clear(Color.Cornsilk)

        ' ----- Draw chart outline rectangle.
        canvas.DrawRectangle(penBlack, New Rectangle(0, 0, 100, 100))

        ' ----- Draw the chart grid.
        For xScan = 10 To 90 Step 10
            canvas.DrawLine(penBlack, xScan, 0, xScan, 100)
        Next xScan
        For yScan = 1 To 100 Step 100 / heighestamount
            canvas.DrawLine(penBlack, 0, yScan, 100, yScan)
        Next yScan

        ' ----- Draw some shadowed bars.
        For xScan = 0 To 90 Step 10
            ' ----- Draw the shadow first.
            oneBar.X = xScan + 0.6
            oneBar.Y = 0
            oneBar.Width = 6
            oneBar.Height = (chartData((xScan \ 10)) * 5 - 2)
            canvas.FillRectangle(New SolidBrush(Color.FromArgb(127, Color.Gray)), oneBar)

            ' ----- Now draw the bars in front.
            oneBar.X = xScan + 2
            oneBar.Y = 0
            oneBar.Height = (chartData((xScan \ 10)) * 5)
            canvas.FillRectangle(New SolidBrush(Color.Red), oneBar)
        Next xScan
        ' ----- Need to un-invert the scaling so text labels are
        '       right-side-up.
        canvas.ResetTransform()
        canvas.ScaleTransform(scaleX, scaleY)
        canvas.TranslateTransform(-x1, -y1)
        ' ----- Label the Y-axis.
        For yScan = 1 To 100 Step 100 / heighestamount
            canvas.DrawString(Math.Round(yScan / heighestamount, 0).ToString, labelFont, labelBrush, _
               -2 * yScan.ToString.Length - 3, 98 - (yScan))
        Next yScan
        ' ----- Label the X-axis.
        For xScan = 0 To 100 Step 10
            canvas.DrawString(xScan.ToString, labelFont, labelBrush, _
               xScan + 1.7 - 2 * xScan.ToString.Length, 93)
        Next xScan
        canvas.DrawString("Distrubution Chart:" & grouping & " " & testname, labelFont2, Brushes.Red, 5, 100)
        ' ----- Clean up.
        labelFont.Dispose()
        labelBrush.Dispose()
        penRed.Dispose()
        penBlack.Dispose()
        penShadow.Dispose()
        canvas = Nothing
        mark0 = 0
        mark10 = 0
        mark20 = 0
        mark30 = 0
        mark40 = 0
        mark50 = 0
        mark60 = 0
        mark70 = 0
        mark80 = 0
        mark90 = 0
    End Sub

Newbie Question: How to put sound effect on a buttons?

Tue, 10 Nov 2009 04:07:07 -0700

I want to learn more... Please help me..

Im using VB 2008 Express Edition right now
but VB.Net is also acceptable. please help me....

Thanks a lot.

Convert PDF To Word

Tue, 10 Nov 2009 04:02:47 -0700

Hi all

i am doing a vb.net windows application
In that i want to conver PDF file to word throgh code.
Is there any way for this ?? if so, please help.
Any help is appreciated.
Thanks in advance

problem with VB.NET SAPI 5.1

Mon, 09 Nov 2009 19:00:40 -0700

hi to everyone
i having this problem about sapi 5.1 and vb.net.. i cant run the program becuase it gives me an error.. i think the engine is not running or my codes is incorrect..

can you help me guys to solve this problem??

very much appreciated.. thanks!!

here's my code...

Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gmode = 0
        gRestoreGrammar = False

        On Error GoTo GeneralFail
        Dim engine
        REM Initialize the recognizer. We want command and control, so find and select that engine (or best match)
        AxDirectSR1.Initialized = 1

        engine = AxDirectSR1.Find("MfgName=Microsoft;Grammars=1")
        AxDirectSR1.Select(engine)

        REM menu.txt is our uncompiled grammar. Compile and load it now.
                AxDirectSR1.GrammarFromFile("C:\Documents and Settings\kaex21\My Documents\Visual Studio 2008\Projects\Project1\WindowsApplication6\Windows
Application6\menu.txt")
        REM Now load the synthesizer, find and select any female voice from microsoft
        AxDirectSR1.EngineId(AxDirectSR1.Find("MfgName=Mic
rosoft;Grammars=1"))

        REM Start the voice interface...control goes to DirectSS1_AudioStop after this is said, gMode=0
        AxDirectSS1.Speak("Welcome to kaex restaurant, sit back and enjoy as you take your order.")

        REM sometimes the vb environment comes to front while we're loading, so take the screen back
        Me.Show()
        GoTo done
GeneralFail:
        MsgBox("Unable to start using text to speech or recognition.")
done:

    End Sub

problem with VB.NET SAPI 5.1

Mon, 09 Nov 2009 18:58:55 -0700

Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gmode = 0
        gRestoreGrammar = False

        On Error GoTo GeneralFail
        Dim engine
        REM Initialize the recognizer. We want command and control, so find and select that engine (or best match)
        AxDirectSR1.Initialized = 1

        engine = AxDirectSR1.Find("MfgName=Microsoft;Grammars=1")
        AxDirectSR1.Select(engine)

        REM menu.txt is our uncompiled grammar. Compile and load it now.
                AxDirectSR1.GrammarFromFile("C:\Documents and Settings\kaex21\My Documents\Visual Studio 2008\Projects\Project1\WindowsApplication6\Windows
Application6\menu.txt")
        REM Now load the synthesizer, find and select any female voice from microsoft
        AxDirectSR1.EngineId(AxDirectSR1.Find("MfgName=Mic
rosoft;Grammars=1"))

        REM Start the voice interface...control goes to DirectSS1_AudioStop after this is said, gMode=0
        AxDirectSS1.Speak("Welcome to kaex restaurant, sit back and enjoy as you take your order.")

        REM sometimes the vb environment comes to front while we're loading, so take the screen back
        Me.Show()
        GoTo done
GeneralFail:
        MsgBox("Unable to start using text to speech or recognition.")
done:

    End Sub

sapi 5.1 in vb.net problem!! voice program

Sat, 07 Nov 2009 00:16:33 -0700

hello to everyone.. i having a problem with my program.. it seem like it wont detect a voice.. my program is all about ordering a food in the restaurant via voice commands.. i used notepad instead of xml.. can you help me?? thank you in very much.. your reply is very much appriciated..

here's my code..

Public gmode As Integer
Public gRestoreGrammar As Boolean
Public additional As Boolean

Private Sub AxDirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
If (parsed = "") Then
AxDirectSR1.Deactivate()
If (Rnd() > 0.5) Then
AxDirectSS1.Speak("kindly repeat your order again sir.")
Else
AxDirectSS1.Speak("please follow the menu.")
End If
Else
If (parsed = "ok") Then
AxDirectSR1.Deactivate()
If (additional = False) Then
gmode = 2
AxDirectSS1.Speak("Would like to have drinks?")

Else
gmode = 3
AxDirectSS1.Speak("would that be all sir?")
End If
ElseIf (parsed = "cancel") Then
Dim Item As String
Item = ListBox1.Items.Count - 1
If (Item >= 0) Then
ListBox1.Items.Remove(ListBox1.Items.Count - 1)
AxDirectSR1.Deactivate()
AxDirectSS1.Speak("your order cancel")
End If
ElseIf (parsed = "no") Then
If (gmode = 2) Then
gmode = 3
additional = True
AxDirectSR1.Deactivate()
AxDirectSS1.Speak("verifying your order")
ElseIf (gmode = 3) Then
gmode = 0
gRestoreGrammar = True
AxDirectSR1.Deactivate()
AxDirectSS1.Speak("you can continue your order")
Else
gmode = 0
gRestoreGrammar = True
End If
ElseIf (parsed = "yes") Then

If (gmode = 2) Then
'form2.Show()
gmode = 3
AxDirectSR1.Deactivate()
AxDirectSS1.Speak("would that be all")

ElseIf (gmode = 3) Then
Dim total As Integer
total = 0
For i = 0 To ListBox1.Items.Count - 1
total = total + Val(ListBox1.Items(i))
Next i
ListBox1.Items.Add("---total is: $" + Format(total, "###0.00"))
gmode = 1
gRestoreGrammar = True

AxDirectSR1.Deactivate()

AxDirectSS1.Speak("Your total will be $" + Format(total, "###0.00") + " at the next window please.")
End If
Else
AxDirectSR1.Deactivate()
ListBox1.Items.Add(parsed)
End If
End If

ListBox1.SelectedIndex = ListBox1.Items.Count - 1
AxDirectSS1.Speak(Phrase)

End Sub
Private Sub DirectSS1_AudioStop(ByVal hi As Long, ByVal lo As Long)
If (gmode = 1) Then
ListBox1.Items.Clear()
gmode = 0
AxDirectSS1.Speak("Hi! May I take your order?")
Else
If (gmode = 2) Or (gmode = 3) Then
'HighLightOrder (False)
AxDirectSR1.GrammarFromFile("C:\Documents and Settings\kaex21\My Documents\Visual Studio 2008\Projects\Project1\WindowsApplication6\Windows Application6\yesno.txt")

ElseIf (gRestoreGrammar) Then
'HighLightOrder (True)
AxDirectSR1.GrammarFromFile("C:\Documents and Settings\kaex21\My Documents\Visual Studio 2008\Projects\Project1\WindowsApplication6\Windows Application6\menu.txt")
gRestoreGrammar = False

End If
REM we had to turn off listening before talking, so now that we are done talking we
REM should start listening again
AxDirectSR1.Activate()
End If
End Sub

Private Sub main_Terminate()
AxDirectSR1.Deactivate()
End Sub
Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
gmode = 0
gRestoreGrammar = False

End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
On Error GoTo GeneralFail
REM we just use this function once, on the first callback, then the timer isn't needed anymore
Timer1.Enabled = False
Dim engine As String
REM Initialize the recognizer. We want command and control, so find and select that engine (or best match)
AxDirectSR1.Initialized = 1

engine = AxDirectSR1.Find("MfgName=Microsoft;Grammars=1")
AxDirectSR1.Select(engine)

REM Burger.txt is our uncompiled grammar. Compile and load it now.
'HighLightOrder(True)
'AxDirectSR1.GrammarFromFile(app.path + "\menu.txt")
AxDirectSR1.GrammarFromFile("C:\Documents and Settings\kaex21\My Documents\Visual Studio 2008\Projects\Project1\WindowsApplication6\Windows Application6\menu.txt")
REM Now load the synthesizer, find and select any female voice from microsoft
Dim voice As String
voice = AxDirectSS1.Find("MfgName=Microsoft;Gender=2")
AxDirectSS1.Select(voice)

REM Start the voice interface...control goes to DirectSS1_AudioStop after this is said, gMode=0
AxDirectSS1.Speak("Welcome to kaex restaurant, sit back and enjoy as you take your order.")

REM sometimes the vb environment comes to front while we're loading, so take the screen back
Me.Show()
GoTo done
GeneralFail:
MsgBox("Unable to start using text to speech or recognition.")
done:
End Sub

Two Dimensional Arrays in VB.NET

Fri, 06 Nov 2009 19:18:53 -0700

I'd really appreciate it if anyone could help me out with two dimensional arrays. I am to enter a high and low temperature for five stations and find the average high and low. I understand that I need a two dimensional array to enter the values such as temp(5, 2) , and that I need to used a dual loop structure to enter the values, but I am having trouble figuring out how to initialize or execute the array. It is just a console application. Thanks for any suggestions.

Converting VBA to VB.NET

Thu, 05 Nov 2009 15:14:40 -0700

Hello All,

I am a newbie to Visual Studio and am looking to convert my VBA scripts to an Add-In. The first thing I need to do is create the custom toolbar.

In VBA:
Set MyBar = CommandBars("My Macros")
Debug.Print MyBar
If MyBar Is Nothing Then
Set MyBar = CommandBars.Add(Name:="My Macros", Position:=msoBarTop,
temporary:=False)
MyBar.Protection = msoBarNoCustomize
MyBar.Visible = True
End If

In Visual Studio using VB this is where my porting comes unstuck and where I need to be pointed in the right direction.

MyBar = CommandBars("My Macros")
If MyBar Is Nothing Then
CommandBars.Add(Name:="My Macros", Position:=MsoBarPosition.msoBarTop, Temporary:=False)
MyBar.Protection = MsoBarProtection.msoBarNoCustomize
MyBar.Visible = True
End If

The problem is with the use of "CommandBars". I have imported
Microsoft.VisualStudio.CommandBars. The context message I receive is:
'Reference to a non-shared member requires an object reference.' Everything else is good.

This has been buggin me for a couple of days. I've tried using
_CommandBars.CommandBars - nup; Application.CommandBars - nup; among other
attempts.

Any ideas, please?

Michael A.

Access 2007 & VB 2008

Thu, 05 Nov 2009 12:52:31 -0700

I have a real problem here. I am connecting to an access 2007 database (accdb) via an OLEDB connection, and I have no idea why this code isn't working!

Imports System.Data.OleDb
Public Class Form1

    Private Sub Form1_Load(...)
        Dim dbCon As OleDbConnection
        Dim dbCmd As OleDbCommand
        Dim dbRead As OleDbDataReader

        dbCon = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0
;Data Source=C:\My.accdb;Persist Security Info=False;")
        dbCon.Open()  

        dbCmd = New OleDbCommand("SELECT * FROM CITY", dbCon)
        dbRead = dbCmd.ExecuteReader
        Do While dbRead.Read
            MsgBox(dbRead(1))
        Loop
    End Sub
End Class

The result is the program crashes with no errors. I tried it in a different form/project and it launches the forum without any messages. So, in short, I'm getting no error messages and I don't know why. It will not go past dbCon.Open(). Please help!

Automatic generation of textboxes in vb.net

Thu, 05 Nov 2009 00:40:23 -0700

Pick multiples from single table on one form?

Wed, 04 Nov 2009 11:12:56 -0700

I am using VB 2005 and Access 2007

How can I select four different things from the same list?

Basically, here's what I'm trying to do: I have table of intermediates. On my form, I want to be able to choose up to four different intermediates, which will be used in creating calibration standards.

In my CalStandards table I have listed intermediate1 through intremediate4
These 4 different intermediates are the 4 comboboxes used on the form.

When I place the four comboboxes, they all point to the same thing. If one changes, they all change.

So, here's what I did next: I added 4 different datasources, each pointing to the intermediates table in the dataset; (Intermediates1-Intermediates4), as well as the the whole dataset (LabDataSet). I dragged CalStandards under the LabDataSet to the form, then from the CalStandards table, I dragged the four Intermediate(1-4)Descriptions to the form.

Intermediate1Description ComboBox: DataSource = IntermediatesBindingSource, Display and Value Member = IntermediateDescription, SelectedValue = IntermediatesBindingSource - IntermediateDescription

Intermediate2Description ComboBox: DataSource = IntermediatesBindingSource1, Display and Value Member = IntermediateDescription, SelectedValue = IntermediatesBindingSource1 - IntermediateDescription

While they no longer match, I cannot move from one combobox to the next. It appears that I have the comboboxes setup incorrectly, which I don't understand because I have set my comboboxes the same way in other applications.

Well, apparently I had text assigned under the (DataBindings). Removing that allows me to move to and from comboboxes. But here's something curious, Say I have A, B, and C populated in the combobox. A is the first, and is what is initially showing. If I choose B, then A disappears, and the choice is B, B, and C. Then if I choose C, A is still gone, and the choice becomes C, B, C.

Where is A going? Does this mean that there is still something wrong with my comboboxes? If so, what?

Share Module to Any New Project

Sun, 01 Nov 2009 22:29:30 -0700

Dear Forum

I’m beginning at VB.Net and plan to Upgrade My VB 6 code to VB.Net 2005

In VB 6, I can write a Bas module and Add the module to every project to share the function inside
But i can’t find on VB.Net

I trying to create a set of functions which will work for all forms in a visual studio .net visual basic 2005 project.
I do not want to have to put the function code inside of every form. It would be tedious and sloppy programming.

Any Solution please ?
tq

Share Module to Any New Project

Sun, 01 Nov 2009 22:27:56 -0700

Read FingerPrint Data

Sun, 01 Nov 2009 20:29:48 -0700

Dear Friends,

we have using finger print machine for capturing our in and outs, for that we using fox pro program its gets data through IP address.

so i want to develop a new application for capturing purpose by VB.NET
i have no idea about this
can you please direct me to get some points.

if you have any samples its highly appreciated.

Thanks.

Nelson Rodrigo

Attachment: FPImage.JPG (3868 bytes | downloaded 11 times)

Math Challenge!

Wed, 28 Oct 2009 09:51:58 -0700

Here's the challenge: I have 4 points of a circle: top, bottom, left and right. I don't want to draw a circle in the screen or something like that! I only want to know if a point is INSIDE the circle.

Example:

Top: 50
Bottom: -50
Left: -50
Right: 50

Does the point (60, 60) inside the circle? NO
Does the point (10, 10) inside the circle? YES

I need a function like that:

Public Function Contais(Top, Bottom, Left, Right, Point_X, Point_Y) as Boolean

Help!!