[VB6] Array *

[Verwijderd]

Visual Basic:

Module Module1
    Sub Main()
        Console.WriteLine(1)
        Console.WriteLine(2)
        Dim Deler As Integer = 0
        Dim A As Integer = 0
        Dim Q() As Integer
        Dim I As Integer = 2
        Dim J As Integer = 0
        Dim B As Integer = 1
        Q(0) = 1
        Q(1) = 2
        For Getal As Integer = 3 To 100
            A = 0
            Deler = 2
            J = 0
            B = 0
            While (B = 0)
                If J > Q.Length Then
                    B = 1
                Else
                    If Getal Mod Q(J) = 0 Then
                        A = 1
                    End If
                    J += 1
                    Deler += 1
                End If
            End While
            If A = 0 Then
                Console.WriteLine(Getal)
                I = I + 1
                Q(I) = Getal
            End If
        Next Getal
        Dim lol = Console.Read()
    End Sub
End Module

Wat doe ik fout?
Ik probeer een programma te schrijven dat snel priemgetallen zoekt.

Nu heb ik ondekt dat je de vorige getallen als delers kunt gebruiken!

Alleen lukt het mij niet om deze nethes in een array te krijgen en deze ook netjes uit te lezen.
Verder heb ik ook gevonden dat als ik de delers van 50 nodig heb dat ik dan maar moet zoeken tot 50 / 2 omdat 2 x 25 = 50 en 5 x 10 = 50 en er dus geen delers boven de 50 zijn (in dit geval) :-)

Maar, wat doe ik fout?

Ik heb al vanalles geprobeerd maar het blijkt dat bij mij Arrays en VB niet samengaan

[RobIII]

Uhm, je zegt nergens hoe groot je array is en je redim-ed 'm nergens... Het is geen javascript

Verder geef je niet aan waar het fout gaat, wat je zelf al hebt geprobeerd, welke foutmelding je krijgt enzovoorts. Je geeft niet eens aan wélke VB je gebruikt, maar dat is zo te zien VB.Net

Tot slot is het een algemeen bekend feit dat je "maar" tot de helft hoeft te gaan voor het onderzoeken of een getal een priemgetal is, sterker: je hoeft niet eens verder te gaan dan de wortel van dat getal als ik me niet vergis. En hoewel ik je algoritme niet tot in detail heb bekeken lijkt me er nog meer aan te mankeren zo op het eerste gezicht...

[ Voor 109% gewijzigd door RobIII op 28-04-2005 17:42 ]

[Verwijderd]

RobIII schreef op donderdag 28 april 2005 @ 17:34:
Uhm, je zegt nergens hoe groot je array is en je redim-ed 'm nergens... Het is geen javascript

Verder geef je niet aan waar het fout gaat, wat je zelf al hebt geprobeerd, welke foutmelding je krijgt enzovoorts. Je geeft niet eens aan wélke VB je gebruikt, maar dat is zo te zien VB.Net

Hoe groot?
Hij moet constant aangevuld worden...

Redimmen?
Dan gaat het array toch constant terug leeg?

Welke versie?
Ik gebruikt inderdaad VB.NET

[RobIII]

Verwijderd schreef op donderdag 28 april 2005 @ 17:38:
[...]


Hoe groot?
Hij moet constant aangevuld worden...

Redimmen?
Dan gaat het array toch constant terug leeg?

Check de helpfile dan eens...

redim preserve

[Verwijderd]

RobIII schreef op donderdag 28 april 2005 @ 17:40:
[...]

Check de helpfile dan eens...

redim preserve

Hey bedankt

Nu krijg ik een System.NullReferenceException op deze regel: Q(0) = 1

Nu kan ik er helemaal niet meer aan uit?

[RobIII]

Verwijderd schreef op donderdag 28 april 2005 @ 17:42:
[...]


Hey bedankt

Nu krijg ik een System.NullReferenceException op deze regel: Q(0) = 1

Nu kan ik er helemaal niet meer aan uit?

Wat dacht je van zélf debuggen? Of moeten we je aan je handje houden?
Wat heb je nou gedaan / veranderd?

[Verwijderd]

RobIII schreef op donderdag 28 april 2005 @ 17:43:
[...]

Wat dacht je van zélf debuggen? Of moeten we je aan je handje houden?
Wat heb je nou gedaan / veranderd?

Heb het al opgelost, maar krijg weer een error *pfffffffffff*

Visual Basic:

Module Module1
    Sub Main()
        Console.WriteLine(1)
        Console.WriteLine(2)
        Dim Deler As Integer = 0
        Dim A As Integer = 0
        Dim Q(2) As Integer 'Hier moest ik dus 2 zetten
        Dim I As Integer = 2
        Dim J As Integer = 0
        Dim B As Integer = 1
        Q(0) = 1 ' Hier maakte hij dus de fout * opgelost *
        Q(1) = 2
        For Getal As Integer = 3 To 100
            A = 0
            Deler = 2
            J = 0
            B = 0
            While (B = 0)
                If J > Q.Length Then
                    B = 1
                Else
                    If Getal Mod Q(J) = 0 Then ' Nu krijg ik hier de error dat hij niet door 0 kan delen ?
                        A = 1
                    End If
                    J += 1
                    Deler += 1
                End If
            End While
            If A = 0 Then
                Console.WriteLine(Getal)
                I = I + 1
                ReDim Preserve Q(I)
                Q(I) = Getal
            End If
        Next Getal
        Dim lol = Console.Read()
    End Sub
End Module

[ Voor 8% gewijzigd door Verwijderd op 28-04-2005 17:47 ]

[gorgi_19]

Verwijderd schreef op donderdag 28 april 2005 @ 17:45:
[...]


Heb het al opgelost, maar krijg weer een error *pfffffffffff*

Zonder concrete informatie kunnen we weinig en kan ik het topic net zo goed op slot doen. Oftewel, zie P&W FAQ - De "quickstart"

[RobIII]

Verwijderd schreef op donderdag 28 april 2005 @ 17:45:
[...]


Heb het al opgelost, maar krijg weer een error *pfffffffffff*

* Kuch *
Kom op zeg

gorgi_19 schreef op donderdag 28 april 2005 @ 17:46:
[...]

Zonder concrete informatie kunnen we weinig en kan ik het topic net zo goed op slot doen. Oftewel, zie P&W FAQ - De "quickstart"

Dank u Je was me voor

[ Voor 43% gewijzigd door RobIII op 28-04-2005 17:47 ]

[bigbeng]

De MSDN site kan je redelijk eenvoudig meer vertellen. Zoals, hoe programmeer ik in VB.NET en hoe werken arrays nou eigenlijk. Je zult hier toch echt meer research in moeten stoppen. Veel plezier met leren programmeren

edit:
En spuit 11...

[ Voor 7% gewijzigd door bigbeng op 28-04-2005 17:49 ]

[Verwijderd]

Ik raak echt niet verder.

Nu ben ik hier geraakt:

Visual Basic:

Module Module1
    Sub Main()
        Console.WriteLine(1)
        Console.WriteLine(2)
        Dim Deler As Integer = 0
        Dim A As Integer = 0
        Dim Q(2) As Integer
        Dim I As Integer = 2
        Dim J As Integer = 0
        Dim B As Integer = 1
        Q(0) = 1
        Q(1) = 2
        For Getal As Integer = 3 To 100
            A = 0
            Deler = 2
            J = 0
            B = 0
            While (B = 0)
                If J = I Then
                    B = 1
                Else
                    If Getal Mod Q(J) = 0 Then
                        A = 1
                    End If
                    J += 1
                    Deler += 1
                End If
            End While
            If A = 0 Then
                Console.WriteLine(Getal)
                I = I + 1
                ReDim Preserve Q(I)
                Q(I) = Getal
            End If
        Next Getal
        Dim lol = Console.Read()
    End Sub
End Module

en doet hij niets meer?

[RobIII]

bigbeng schreef op donderdag 28 april 2005 @ 17:49:
De MSDN site kan je redelijk eenvoudig meer vertellen. Zoals, hoe programmeer ik in VB.NET en hoe werken arrays nou eigenlijk. Je zult hier toch echt meer research in moeten stoppen. Veel plezier met leren programmeren

edit:
En spuit 11...

Die kan prima als reference dienen, of als naslagwerk voor de wat duistere hoekjes... maar je leert er niet snel programmeren. Daar heb je andere sites voor, en (IMHO nog beter:) boeken.

Verwijderd schreef op donderdag 28 april 2005 @ 17:50:
Ik raak echt niet verder.

Nu ben ik hier geraakt:

Ben je doof

[ Voor 18% gewijzigd door RobIII op 28-04-2005 17:52 ]

[gorgi_19]

Mja, dit heeft weinig zin op deze manier. Je bent al een paar keer gevraagd om aan te geven WAT er niet lukt, WAAR gaat het fout. De term debuggen is al een paar keer gevallen; dat geldt ook voor jou. Isoleer het probleem en los het dan op.

Dit topic heeft op deze manier weinig zin; deze gaat dan ook dicht bij gebrek aan relevante informatie en het is een kwestie van debuggen.