Lid |
|
hm... moeilijk uit te leggen. Ik moet een kerstboom printen. Alles wordt mooi geprint. Het aantal lijnen wordt gevraagd en door de user ingegeven. Alles werkt prima.
Maar de opdracht vraagt ook om een controle te doen op de ingave van de user. Deze mag enkel oneven getallen ingeven om het programma te laten werken. Indien hier niet wordt aan voldaan, dan wordt opnieuw het aantal lijnen gevraagd aan de user.
voor de geïnteresseerden:
Module Module1
Sub Main()
Console.Write("Count ? ")
'
Dim count As Integer = Console.ReadLine()
If count Mod 2 <> 0 Then
Console.WriteLine("------------------------------------------------")
For i As Integer = 1 To count
For j As Integer = i To count - 1
Console.Write(" ")
Next
For j As Integer = 1 To i
Console.Write("*")
Next
For j As Integer = 1 To i - 1
Console.Write("*")
Next
Console.WriteLine()
Next
For i As Integer = 1 To count - 1
Console.Write(" ")
Next
Console.WriteLine("*")
Console.WriteLine("------------------------------------------------")
Else : Console.WriteLine(" Sorry enkel oneven nummers")
End If
Console.ReadLine()
End Sub
End Module
Module Module1 Sub Main() Console.Write("Count ? ") ' Dim count As Integer = Console.ReadLine() If count Mod 2 <> 0 Then Console.WriteLine("------------------------------------------------") For i As Integer = 1 To count For j As Integer = i To count - 1 Console.Write(" ") Next For j As Integer = 1 To i Console.Write("*") Next For j As Integer = 1 To i - 1 Console.Write("*") Next Console.WriteLine() Next For i As Integer = 1 To count - 1 Console.Write(" ") Next Console.WriteLine("*") Console.WriteLine("------------------------------------------------") Else : Console.WriteLine(" Sorry enkel oneven nummers") End If Console.ReadLine() End Sub End Module
Voor mijn End If moet mijn programmaatje gewoon weer de CW ("Count ") geven, en het programma afloopt.... |