Archief - [PROG][VB.Net] Veeltermen

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
p

pieterm

Legacy Member
Hey,


Ik ben nu bezig met een oefening waar ik een begin- en eindwaarde moet ingeven. Daarbij moet ik nog eens een extra getal ingeven waarop de veeltermen berekend worden.

In het een tekstvak krijg je dus alle getallen van de begin- tot eindwaarde. En alle veeltermen van dat extra getal moeten met een ( ) aangeduid worden.

Momenteel heb ik dit:

Code: 
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

        Dim intGetal, intOndergrens, intBovengrens, intTeller As Integer
       
        intOndergrens = CInt(InputBox("Geef een ondergrens in."))
        intBovengrens = CInt(InputBox("Geef een bovengrens in."))

        For intTeller = intOndergrens To intBovengrens
            txtGetallen.Text &= intTeller & Environment.NewLine
        Next
    End Sub
End Class


Ik ben nu zelf al een stapje verder geraakt... Ik heb nu ook alle veelvouden van een bepaald getal kunnen vinden.

Code: 
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

        Dim intGetal, intOndergrens, intBovengrens, intTeller, intUitkomst As Integer
       
        intOndergrens = CInt(InputBox("Geef een ondergrens in."))
        intBovengrens = CInt(InputBox("Geef een bovengrens in."))

        intGetal = InputBox("Geef een getal in.")

        For intTeller = intOndergrens To intBovengrens
            txtGetallen.Text &= intTeller & Environment.NewLine

            intUitkomst = intGetal * intTeller
            txtTest.Text &= intUitkomst & Environment.NewLine

        Next

    End Sub
End Class

Zoals je ziet worden er nu twee aparte tekstvakken aangesproken. Nu moet ik nog de veeltermen kunnen aanduiden in het tekstvak waar alle getallen tussen de begin- en eindwaarde worden opgeslagen.
I

Ice

Legacy Member
Kunde eens een voorbeeldje geven van uw gewenst resultaat?
Want imho is nen veelterm iets in de vorm 4x² + 25x + 13.

Dus ik neem aan dat ge veelvouden bedoeld ipv veeltermen, in dat opzicht denkik dat het eerste nen output geeft in de de vorm van:
input: ondergrens: 1, bovengrens 10
output: 1 2 3 4 5 6 7 8 9 10 (maar dan onder elkaar in een tekstfield)

het 2de geeftvolgens mij nen output van
input: ondergrens 1, bovengrens 10, getal 5:
output:
txtGetallen: 1 2 3 4 5 6 7 8 9 10
txtTest: 5 10 15 20 25 30 35 40 45 50

en wat is nu juist de vraag? :p
p

pieterm

Legacy Member
Dus je hebt dus die tien getallen (boven en ondergrens) :

1
2
3
4
5
6
7
8
9
10

En daar moeten de veelvouden van een bepaald getal in komen. Bijvoorbeeld van 3. Dan krijg je dit...

1
2
(3)
4
5
(6)
7
8
(9)
10
d

denk

Legacy Member
For intTeller = intOndergrens To intBovengrens Step aantal <--- nu werk je met een stapgrootte, vb 3 ofzo ;) (Step aantal is toegevoegd).
ben niet zeker, tijdje geleden dak vb heb gezien :)
I

Ice

Legacy Member
Kunde niet iets doen in den aard van:
Code: 
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

        Dim intGetal, intOndergrens, intBovengrens, intTeller, intUitkomst As Integer
       
        intOndergrens = CInt(InputBox("Geef een ondergrens in."))
        intBovengrens = CInt(InputBox("Geef een bovengrens in."))

        intGetal = InputBox("Geef een getal in.")

        For intTeller = intOndergrens To intBovengrens
            if ( intTeller mod intGetal == 0) {
              txtGetallen.Text &= "(" & intTeller & ")" & Environment.NewLine
          } else {
              txtGetallen.Text &= intTeller & Environment.NewLine
           }
        Next

    End Sub
Syntax is nie juist, maar ge snapt het punt wel neem ik aan ;)

'mod' = modulo oftewel 'rest na gehele deling'
S

SKAFaN

Legacy Member
denk zei:
For intTeller = intOndergrens To intBovengrens Step aantal <--- nu werk je met een stapgrootte, vb 3 ofzo ;) (Step aantal is toegevoegd).
ben niet zeker, tijdje geleden dak vb heb gezien :)
Klik om te vergroten...

die step is inderdaad wel een eenvoudigere oplossing dan je for luss vol te steken met if thens


de code van denk klopt wel denkek, tis al van vorig jaar geleden dak da nog gezien heb dus kweenie alst volledig juist is
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan