visual-basic - Graf ud fra 2. gradsfunktion i vb2005 - Udvikleren.dk

Tags: visual-basic

Bruger #15322 @ 22.09.09 09:53

Hej

Jeg sidder med programmering i skolen, og jeg er i gang med et projekt, hvor jeg skal udregne en andengradsligning. Jeg har fået den til dette, og fået den til at finde toppunkt og sådan.
Da vi har ret lang tid til denne opgave, og jeg er færdig med det jeg oprindeligt skulle lave, vil jeg gerne have den til at vise grafen for denne funktion.
Jeg har ledt på nettet, men alle de koder jeg har fundet har været i vb6 og det har ikke været muligt at konvertere dem til 2005 versionen.
Mit spørgsmål er derfor:
Er der nogen der ved hvordan man kan få den til at lave en graf over den funktion man har indtastet? eller evt. nogle der ved hvor der ligger en kode jeg kan åbne.
I må undskyld hvis en lignende tråd har været postet før, men jeg har ikke fundet nogen funktion til at søge i forum?

Mvh Rasmus, HTX

Bruger #14029 @ 22.09.09 18:21

Hej
For at vise grafen kan du bruge en Picturebox, jeg har lavet et eksempel med koden og tilføjet nogle hurtige kommentarer(du må lige spørge hvis der noget du ikke kan læse)
baggrunden bliver det samme som Pictureboxen's baggrund

Kode

  Private Grap As Graphics 'Laver en Graphics controller så man kan bruge grafik
    Private Pic As Bitmap 'Laver en billede variable

    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Pic = New Bitmap(PictureBox1.Width, PictureBox1.Height) 'Sætter billede variabelen til Pictureboxs bredde og højde
        PictureBox1.Image = Pic 'Sætter billede i Pictureboxs lig med billede variabelen
        Grap = Graphics.FromImage(PictureBox1.Image) 'Siger til graphics controller at den skal påvirke Pictureboxen

        For x = 0 To PictureBox1.Width - 2
            Grap.DrawLine(Pens.Black, x, Convert.ToInt32((PictureBox1.Height / 2) - ((0.5 * (x - (PictureBox1.Width / 2)) ^ 2))), x + 1, Convert.ToInt32((PictureBox1.Height / 2) - (0.5 * (x + 1 - (PictureBox1.Width / 2)) ^ 2)))
            'Siger til graphics controller at den skal tegne en linje
            'Den tegner fra x til x + 1 på x akselen af billede
            'På y akselen:
            'Finder vi den halve højde af Picturebox så vi kan centre 0 punktet på y akselen
            'Det samme gør vi med med bredden af billedet
            'Derudover + vi med 1 tilsidste for at få højden af det næste punkt
            'Jeg har sat en andengradsformel ind der hedder 0.5 * x ^ 2, så hvis du kan finde det kan du bare sætte din formel ind i stedet
        Next




    End Sub

Bruger #15322 @ 24.09.09 08:43

Hej Lasse. Jeg siger tak for hjælpen. Jeg har dog et problem. Når jeg sætter x til et tal, får jeg en fejl med overload. Den gør det samme hvis jeg sætter x til at være afhængig af en textbox.
Jeg ville gerne komme frem til at man kan indtaste 3 tal i 3 tekstbokse, i form af en andengradsligning, men det burde jeg kunne komme frem til, ud fra det du har givet mig. Jeg kan dog ikke forstå denne "overload" fejl. Fejlen har jeg sat ind som kode.

Kode

Error	1	Overload resolution failed because no accessible 'DrawLine' can be called without a narrowing conversion:
    'Public Sub DrawLine(pen As System.Drawing.Pen, x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)': Argument matching parameter 'x1' narrows from 'Double' to 'Integer'.
    'Public Sub DrawLine(pen As System.Drawing.Pen, x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)': Argument matching parameter 'x2' narrows from 'Double' to 'Integer'.
    'Public Sub DrawLine(pen As System.Drawing.Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single)': Argument matching parameter 'x1' narrows from 'Double' to 'Single'.
    'Public Sub DrawLine(pen As System.Drawing.Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single)': Argument matching parameter 'x2' narrows from 'Double' to 'Single'.	C:\Users\Egekjær\Documents\Visual Studio 2005\Projects\Projekt 1\Projekt 1\Form1.vb	66	13	Projekt 1

EDIT: Jeg ændrede min variabel fra double til single, og så virkede det.
Jeg siger mange tak for hjælpen!

Indlæg senest redigeret d. 24.09.2009 09:06 af Bruger #15322

Graf ud fra 2. gradsfunktion i vb2005

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler