Getallen afdrukken

[zettekakkers]

hoe druk ik volgende getallen af met geneste lus?
1 2 3
2 3 4
3 4 5
4 5 6

ik maak liever een facturatie programma :d

 

[JoZ1]

Ik heb een functie gemaakt die zo'n rij getallen genereert (met een geneste lus ).

[CPP]Public Function Getallen(ByVal Limiet As Integer)
Dim Resultaat As String = Nothing
Dim AantalRijen As Integer = Limiet - 2
Dim LaatsteGetal As Integer = Nothing

If Not Limiet < 3 Then
For i = 1 To AantalRijen
If LaatsteGetal = Nothing Then
Resultaat &= "1 2 3" + vbNewLine
LaatsteGetal = 3
Else
For i2 = LaatsteGetal - 1 To LaatsteGetal + 1
If Not Limiet < i2 Then
Resultaat &= i2.ToString & " "
If i2 = LaatsteGetal + 1 Then Resultaat &= vbNewLine
End If
Next
LaatsteGetal += 1
End If

Next
Else
If Limiet = 2 Then Resultaat = "1 2" Else Resultaat = "1"
End If

Return Resultaat
End Function[/CPP]


Wil je zo'n rij uitprinten?

 

[zettekakkers]

Dim AantalRijen As Integer = Limiet - 2
wat bedoel je met limiet?

:d

 

[JoZ1]

Dat is het getal waar de rij tot gaat. Dus in jouw voorbeeld:

1 2 3
2 3 4
3 4 5
4 5 6

Is het limiet '6'.

 

[zettekakkers]

Maakt het uit of het public function of private sub is?
Ik ben toch op de juiste forum
ik gebruik visual basic 2008 express edition
is er geen simpeleren code:$
ga 1ste wat nog verder proberen :d
thx

 

[CoD_NL]

@JoZ1: waarom doe je zo moeilijk? Zelf is mijn VB te roestig, maar in een C-achtige taal zou je gewoon iets als het onderstaande schrijven:

[cpp]
for (int i = 1; i <= 4; ++i)
{
for (int j = i; j < i + 3; ++j)
{
// print j
}
}
[/cpp]

(hetzelfde gaat uiteraard op voor VB)

 

[zettekakkers]

@JoZ1: waarom doe je zo moeilijk? Zelf is mijn VB te roestig, maar in een C-achtige taal zou je gewoon iets als het onderstaande schrijven:

[cpp]
for (int i = 1; i <= 4; ++i)
{
for (int j = i; j < i + 3; ++j)
{
// print j
}
}
[/cpp]

(hetzelfde gaat uiteraard op voor VB)

Ziet er wel kort uit maar dit geld toch enkel voor C ofniet?

 

[JoZ1]

@CoD_NL: Zet dat eens om naar VB dan.

@zettekakkers:
Je zit op het juiste forum.
Het maakt niet uit of het Private Sub of Public Function is.

 

[zettekakkers]

ik heb het wat aan gepast hoe ik het heb geleerd op school
Private Sub frm22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strResultaat As String = Nothing
Dim intLaatsteGetal As Integer = Nothing
Dim intLimiet As Integer = 6
Dim intAantalRijen As Integer = intLimiet - 2


For i = 1 To intAantalRijen
If intLaatsteGetal = Nothing Then
strResultaat &= "1 2 3" + vbNewLine
intLaatsteGetal = 3
Else
For i2 = intLaatsteGetal - 1 To intLaatsteGetal + 1

If Not intLimiet < i2 Then
strResultaat &= i2.ToString & " "

If i2 = intLaatsteGetal + 1 Then
strResultaat &= vbNewLine
End If
End If
Next
intLaatsteGetal += 1
'HIER ZOU IK DAN DE GETALLEN IN EEN LABEL STEKEN OF GWN IN MIJN OUTPUT VENSTER WILLEN LATEN VERSCHIJNEN' OF IPV FORM EEN CONSOLE GEBRUIKEN? ideeen?
End If
Next

 

[JoZ1]

Ok, goed. Dan is de vraag opgelost toch?

(Ik raad je trouwens aan om code-tags te gebruiken, dan is je code wat leesbaarder )

 

[zettekakkers]

Ok, goed. Dan is de vraag opgelost toch?

(Ik raad je trouwens aan om code-tags te gebruiken, dan is je code wat leesbaarder )

geef eens een voorbeeld
ik ga het eens proberen of ik iets zie in mij output venster :thumb:

 

[CoD_NL]

@CoD_NL: Zet dat eens om naar VB dan.

        Dim i As Integer
        Dim j As Integer

        For i = 1 To 4
            For j = i To i + 2
                Console.Write(j.ToString() + " ")
            Next
            Console.WriteLine()
        Next

 

[JoZ1]

@CoD_NL:

Je code werkt niet optimaal: Als ik

For i = 1 To 8

doe, dan krijg ik t/m 10.

[edit] Ik zie al wat je bedoeling was: Het aantal rijen opgeven. Maar als je tot bijvoorbeeld 7 wil, kan dat niet.. [/edit]

@zettekakkers: Waar moet ik een voorbeeld van geven?

 

[zettekakkers]

works bedankt allebij

 

[CoD_NL]

@CoD_NL:

Je code werkt niet optimaal: Als ik

For i = 1 To 8

doe, dan krijg ik t/m 10.

Ja, en dus werkt het precies zoals verwacht. Je krijgt bij '1 to 4' immers ook als laatste rij '4 5 6' (wat logisch is, gezien er voor j geldt N + 2 )

 

[JoZ1]

En als ik wil eindigen met 5 6 7 ?

 

[zettekakkers]

voorbeeld van mijn onduidelijke code-tags hehe

 

[zettekakkers]

stel dat ik nog een rechts kolom zou willen toevoegen en 1 rij minder is dit dan gwn 4 vernaderen naar 5?

 

[CoD_NL]

En als ik wil eindigen met 5 6 7 ?

7 - 2 = 5?

 

[zettekakkers]

7 - 2 = 5?

had eerder gedacht aan bv te veranderen naar
1 2 3 4
5 6 7 8
9 10 11 12