Jimbo84
Legacy Member
Hallo,
Kan er iemand verder helpen aan Functions toe te voegen of aanpassen adhv een vast stuk code(values ingevuld door de gebruiker)? Naar mijn mening moeten hier 3 functies zijn(die ik al heb beschreven).
Vaste code("value ?" = input gebruiker):
Mijn code + functions momenteel:
Alvast bedankt!
Kan er iemand verder helpen aan Functions toe te voegen of aanpassen adhv een vast stuk code(values ingevuld door de gebruiker)? Naar mijn mening moeten hier 3 functies zijn(die ik al heb beschreven).
Vaste code("value ?" = input gebruiker):
Code:
Values (count=0/capacity=2) :
Value ? : 10
Values (count=1/capacity=2) : 10
Value ? : 20
Values (count=2/capacity=2) : 10 20
Value ? : 30
Values (count=3/capacity=4) : 10 20 30
Value ? : 40
Values (count=4/capacity=4) : 10 20 30 40
Value ? : 50
Values (count=5/capacity=8) : 10 20 30 40 50
Value ? : 60
Values (count=6/capacity=8) : 10 20 30 40 50 60
Value ? : 70
Values (count=7/capacity=8) : 10 20 30 40 50 60 70
Value ? : 80
Values (count=8/capacity=8) : 10 20 30 40 50 60 70 80
Value ? : 90
Values (count=9/capacity=16) : 10 20 30 40 50 60 70 80 90
Value ? :Mijn code + functions momenteel:
Code:
Module GetallenReeks
Sub Main()
Dim count As Integer = 0
Dim values(1) As Integer
Do
PrintValues(values, count)
'
Console.Write("Value ? : ")
Dim newValue As Integer = Console.ReadLine()
count += 1
'
If count > values.Length Then
values = GetArrayWithDoubledCapacity(values)
End If
'
StoreValue(values, newValue, count - 1)
Loop
'
Console.ReadLine()
End Sub
Function PrintValues(ByVal values As Integer(), ByVal count As Integer)
Console.WriteLine("Values (count=" & count + 1 & "/capacity=")
Return values
End Function
Function GetArrayWithDoubledCapacity(ByVal values As Integer() )
Console.Write(values)
Return values
End Function
Function StoreValue(ByVal values As Integer(), ByVal newValue As Integer, ByVal Count As Integer)
Return values
End Function
End ModuleAlvast bedankt!