Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Omzetten VB30 naar VB60 programm probleem GRAPH.VBX grafiek

nicwilms
2 antwoorden
  • Weet iemand of en hoe je een lijngrafiek kunt maken in Visual Basic versie 6.0. Dit lukt mij niet

    In mijn Visual Basic 3.0 programma gebruikte ik hier GRAPH.VBX voor. Ik kon dan een grafiek tonen met een x en y as zijnde een lijngrafiek.

    Een deel van de oude Visual Basic 3.0 code heb ik hieronder opgenomen om te verduidelijken hoe ik de grafiek opbouwde in versie 3.0.

    Rem Graph1 is het grafiekobject in mijn Form gebaseerd op Graph.vbx

    Graph1.YAxisMax = xy_asgraf
    Graph1.Foreground = 0 ' Zwart, achtergrond
    Graph1.ColorData = 2 ' Groen, goedgekeurd
    Graph1.NumPoints = Int(xmetsec) * Xmaxseconden

    For i% = 1 To 1 ' aantal xdata in grafiek op 1 gezet

    For J% = 1 To Graph1.NumPoints

    If J% <= xteller& Then
    '
    ' Geef de elementwaarde door aan de
    ' datareeks van de grafiek
    '
    Graph1.GraphData = Xinput(J%)
    Else
    '
    ' Ken aan de rest van de datareeks
    ' de waarde 0 toe voor de grafiek
    '
    Graph1.GraphData = 0

    End If
    Next J%
    Next i%

    Graph1.GraphType = 8 ' 6 is lijngrafiek
    ' 8 is oppervlaktegrafiek
    ' 9 is puntenwolk

    If xmetsec > 0 Then
    Graph1.Ticks = 1
    Graph1.TickEvery = Int(xmetsec)

    '
    ' Bouw tevens de x-as titel op
    '

    A1% = 1
    For A% = 1 To Graph1.NumPoints
    If A1% = Graph1.TickEvery Then
    Graph1.LabelText = Format$(A% / 6, "##")
    A1% = 1
    Else
    If A% = 1 Then
    Graph1.LabelText = "Sec"
    Else
    Graph1.LabelText = ""
    End If
    A1% = A1% + 1
    End If
    Next A%
    End If


    Met vriendelijke groet,

    Nic Wilms
  • Kijk eens naar het mschart control: mschart.ocx, als je vb6 professional hebt, dan zou je die moeten hebben, en als component kunnen toevoegen aan je project.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.