kan man afsaette flere punkter paa en line?

Brug xy-punkt plottet til det, fx med flg. punkter:
x    y
1    1
2    3
3    5
1    4

hmm... er ikke helt med?

kan du ikke lave et lille eksempel?

ved ikke helt hvordan jeg skal plukke det ind :/

I kolonne 2 skriver du x-værdierne, i kolonne 3 y-værdierne.
Marker området med værdierne. Vælg Diagram fra menuen Indsæt. Vælg xy-punkt som diagramtype. Nu kan du (i højre side af diagramvinduet) vælge om punkterne skal forbindes eller ej. Wizard'en guider dig igennem resten.

hmmm.... er slet ikke med....

hvilken kolonne skal jeg skrive x og y vaerdierne i?
det du snakker om minder mig mest om excel eller noget i den stil...

Du kan da tegne to linier i forlængelse af hinanden - så fremstår det som en linie med et knæk

NB: Vis din kode - så ved vi hvad du taler om. Jeg regner med at du vil tegne linier på en form eller en picturebox, slo tænker vist mere VBA til excel eller en chart-kontrol (eller hvad den hedder) til VB6...

jamen hvad saa hvis jeg har 100 punkter? det ville vaere lidt slave arbejde...

ved ikke om det er muligt med en line men kan du forestille der en parabel bue...
der er paent mange punkter saa jeg kunne godt lave 100 line og saette vaerdien for det men ville vaere lidt dumt.. der maa findes en lettere maade at goere det paa...

Der er noget der hedder løkker. Intet slavearbejde i det!

Sorry - forkert usergroup...

Men prøv lige at fortæl hvad du har gang i inden du spørger videre. Hvad vil du tegne hvor og hvordan? Snakker vi en streg i en Picturebox eller???

martin moth-->

jeg har som saadan ikke noget kode til det endnu... jeg er igang med at lave et program som kan regne en 2. andengradslining og saa ville jeg gerne ha den til tegne den ogsaa :)
kan godt faa den til at regne de ting ud jeg gerne vil ha men kan ikke faa den til at tegne den :-/

kan du hjaelpe mig ?

Du kan sagtens tegne den op i en picturebox - med rette linier mellem punkterne ved kommandoer som

Form1.Picture1.Line (0, 63)-(128, 63), vbRed 'koordinater er bare eksempler

Men du kan også bruge den chart kontrol der er med i VB, den har jeg ikke brugt før, men det er vel lige til, hvis det er det du ønsker:

http://www.eksperten.dk/kat/5?searchtype=txt&words=mschart&method=and&sort=score&catid=5

hmmm... ok :) saa langt saa godt...

men nu har jeg proevet at lede som en syg men jeg kan ikke finde noget om hvordan man faar et kordinat system frem..

og nu det er saa smart lavet kan man saa ikke bare kaste en ligning efter den og saa tegner den den selv?

nu skulle der lige nogen flere point til :)

"og nu det er saa smart lavet kan man saa ikke bare kaste en ligning efter den og saa tegner den den selv?"

Nej!!!

MathCAD og andre programmer kan - VB6 kan ikke (Og Excel kan i øvrigt heller ikke)

"men nu har jeg proevet at lede som en syg men jeg kan ikke finde noget om hvordan man faar et kordinat system frem.."

Dit koordinatsystem har du på den kontrol hvorpå du optener linierne. Med 0,0 i øvre venstre hjørne, positiv nedad og mod højre...

Picture1.Line (0, 0)-(Picture1.Width, Picture1.Height), vbRed

Tegner en diagonel linie (faldende mod højre) igennem din Picture1

Kender ikke det vilde til det men VISO (eller er det VISIO) i Office 2k3 kan måske, har bare hørt om, men da det ikke er noget jeg har kan jeg ikke være mere konkret.....

Det skulle være noget til at tegne grafer i

Hvis du bare vil have et program til at tegne grafer i er der masser af shareware der kan - fx. på ingeninørens hjemmeside. Men jeg går ud fra at opgaven går på, at få tegnet grafer i VB6...

Det jeg tænkte på hvis det er et ms produkt så kan der måske importeres en component som der kan fra så mange andre ms progs.....

Ahhh :o)

lillholm..?

tjaaa.... jeg syntes nu ikke rigtig jeg har faaet et svar jeg kan bruge til noget men jeg har selv fundet en loesning paa mit problem...
---
Private Sub Drawgraph(X1, Y1, X2, Y2 As Double)
Dim point(1) As POINTAPI
Dim handle As Long
Dim temp1 As Long

handle = frmGraph.hdc
'Y * 0,13333
'X * 0,2
Dim Xmulti As Double
Dim Ymulti As Double

Xmulti = 1000 / 7500
Ymulti = 0.2

point(0).X = (Val(txtZoom.Text) * (Xmulti * X1)) + (500 + Val(txtMoveH.Text))
point(0).Y = (Val(txtZoom.Text) * (-1 * (Ymulti * Y1))) + (500 + Val(txtMoveV.Text))
point(1).X = (Val(txtZoom.Text) * (Xmulti * X2)) + (500 + Val(txtMoveH.Text))
point(1).Y = (Val(txtZoom.Text) * (-1 * (Ymulti * Y2))) + (500 + Val(txtMoveV.Text))
temp1 = Polygon(handle, point(0), 2)
End Sub
----
noget alla det der...
men anyway syntes du har proevet at komme med en masse godt saa du faa 30 point hvis jeg da lige kan finde ud af det...

haaber det er i orden :)

naar det kunne jeg saa ikke faa lov til saa du faar bare 60