Archief - Visual Basic Starter vraagje

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.
O

ObI1KeNoBi

Legacy Member
Hey,
Een vraagje voor de programmeurs onder jullie. :)
Enig idee hoe dit simpeler kan gecodeerd worden? Let wel, mag alleen met de do while lus geschreven worden, dus geen FOR NEXT loops.

Module module1
Sub main()
Dim value1 As Integer = 1
Dim value4 As Integer = 39
Dim value5 As Integer = 39
'
Do While value1 <= 80
Dim value2 As Integer = (80 - value1) \ 2
Dim value3 As Integer = 1
value1 = value1 + 2

Do While value3 <= value4
Console.Write(" ")
value3 = value3 + 1
Loop
'
Do While value2 <= value5
Console.Write("X")
value2 = value2 + 1

Loop
value5 = value5 + 1
value4 = value4 - 1
console.writeline()
Loop
'
console.readline()
End Sub
End Module
p

pieta

Legacy Member
-ff vluchtig bekeken :p
-code tags gebruiken maakt het wa overzichtelijker! (ziet ge uw geneste functies ook beter)
-value 2 en 3 gaat ge nu 40 keer ofzo opnieuw aanmaken, nodig?
-.. voor als ik de code bekijk :)
Code: 
Module module1
Sub main()
Dim value1 As Integer = 1
Dim value4 As Integer = 39
Dim value5 As Integer = 39
'
Do While value1 <= 80

   Dim value2 As Integer = (80 - value1) \ 2
   Dim value3 As Integer = 1
   value1 = value1 + 2

   Do While value3 <= value4
     Console.Write(" ")
     value3 = value3 + 1
   Loop
'
   Do While value2 <= value5
     Console.Write("X")
     value2 = value2 + 1
   Loop

   value5 = value5 + 1
   value4 = value4 - 1
   console.writeline()
Loop
'
console.readline()
End Sub
End Module
p

pieta

Legacy Member
heb het eens bekeken, en eeum.. wtf moet uwe uitvoer voorstellen? :p
P

Prior

Legacy Member
Ik heb bovenstaande code even gecopied en gepasted in Microsoft Visual Studio.

Ik weet al naar waar hij toe wil toen ik de uitvoer zag, want ik heb de oefening ook gekregen vorig semester, maar ik heb mijn studies moeten stop zetten wegens privé redenen op de avondschool CVO Panta Rhei te Gent.

Dit is de eerste oefening die gevraagd wordt om te maken voor de module A5 Programmeren 1 door leerkracht "Frederiek De Wolf".

Dit is de eerste gequoteerde opdracht die je krijgt en en je krijgt een bonus als je erin slaagt er een kerstboom van te maken. (totaal 10 punten)

A5PROG1 - Volwassenenonderwijs

De module A5 Programmeren 1 is een onderdeel om het graduaatsdiploma Toegepaste Informatica optie Netwerken of Programmeren te verkrijgen.
p

pieta

Legacy Member
hier voorbeeldje in java enkel met do whiles. wss kan het nog simpeler mja :)

Code: 
 int heightTree = 0;
        int widthTree = 20;
        int checkWidth = 0;
        int actXSize = 1;
        int treeBranch = 0;
        
       do{
         treeBranch = 0;
         do{
            System.out.print(' ');
            checkWidth++;
          }while (checkWidth < widthTree);
            do {
               System.out.print('X');
               treeBranch++;
            }while(treeBranch < xSize);
         actXSize = actXSize + 2;
         widthTree--;
         checkWidth = 0;
         heightTree ++;
         System.out.println();
       }  while (heightTree < 10);
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