Enkel getallen krijgen deelbaar door 4

[Matthew117]

Ik moet automatisch de getallen krijgen die enkel deelbaar zijn door 4, en het mag geen komma getal uitkomen als je het berekent.

Dus ik zou telkens automatisch 1 random een getal moeten kiezen tussen [4,8,12,16,20,24,28,...]

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Dim strTeken As String
        Dim objRandom As New Random
        Dim intGetal1, intGetal2 As Integer
        Dim arrOefeningen() As Label = {lblOefening1, lblOefening2, lblOefening3, lblOefening4, lblOefening5, lblOefening6, lblOefening7, lblOefening8, lblOefening9, lblOefening10}


        For Each Label In arrOefeningen
            strTeken = objRandom.Next(0, 2)
            If strTeken = 0 Then
                strTeken = "x"
                'Bepalen getal 1,2 maal
                'Getal1
                intGetal1 = 4
                'Getal2
                intGetal2 = objRandom.Next(1, 11)
            Else
                strTeken = ":"
                'Bepalen getal 1,2 gedeeld
                'Getal1
                intGetal1 = [COLOR="#FF0000"] [B]Hier moet de code komen voor random een getal deelbaar door 4 te krijgen[/B][/COLOR]
                'Getal2
                intGetal2 = 4
            End If
            Label.Text = intGetal1 & " " & strTeken & " " & intGetal2
        Next
    End Sub

 

[edmoor]

Een getal van het type Integer is altijd een heel getal, daar heb je dus nooit iets achter de komma.
Kijk ook eens hier:
http://www.aaamath.com/fra72_x5.htm

 

[andre@home]

Je zou een controle lusje kunnen maken.... als een getal door 4 deelbaar is en je trekt er de integer waarde van dat zelfde getal af... moet er nul uit komen...
Als dat >0 is... dan is het dus niet deelbaar door 4...

dus 16 / 4 =4 ..... dus 4-4=0 OK
en 18/4-4,5 ...... dus 4,5-4=0,5 is > 0 dus NOK
etc... voor random getallen...

 

[xanderke]

waarom maak je geen functie die een getal teruggeeft die deelbaar is door 4 . In je functie doe je gewoon een controle (restdeling \4 => 0)

zoiets dus
Public Function getnewrnd() As Integer

Dim rnd As Random = New Random
Dim result As Integer = rnd.Next()
Do Until result Mod 4 = 0
result = rnd.Next()

Loop
Return result

End Function

 

[andre@home]

Dank voor de uitwerking van mijn idee die weer geïnspireerd was op de suggestie van edmoor ... ik ga weer verder met zonnepanelen berekeningen.. kijken welke offerte het aardigst wordt...
samen zijn we sterk...