Geen zin dat eens in VB of c# te proberen?

Ben nog steeds op zoek naar vb6, bij ma3d is dat tot versie 4. Was die lusstructuur goed? Na de grote vakantie ga ik een module vb net volgen in geel.

Ik zou het kunnen gedaan krijgen in acces denk ik, maar het vergt heel wat tijd om het foutloos te krijgen,
om het programma te kunnen debuggen.


Diezel

Hoi,

In bijlage mijn werkje.

Even enkele tips om je code wat overzichtelijker en leesbaarder te maken.

• Begin een variabele steeds met het type. intVar1 as integer, dblVar2 as double, strTekst1 as string. Zo weet je verderop in je code nog direct welk type je hebt. Ook als je dan bijvoorbeeld int typt en je neemt dan ctrl spatie krijg je (in 2003 toch) alles wat aan de criteria voldoet. Wees ook consequent in je naamgeving. Doe het van in het begin zodat het een gewoonte wordt. Doe het ook consequent bij wat oefeningskes.
• Spring je code in bij elke loop, elke if of elke nieuwe sub. Zo blijft veel duidelijker wat de scope is.
  voorbeeld
  private sub jawadde()
          Do While intTeller < intArrLengte
          ' random cijfer bepalen
          intRandom = CInt(Rnd() * intMaxWaarde + 1)
          If (IsUniek(arrInt, intRandom)) Then
                arrInt(intTeller) = intRandom
                intTeller = intTeller + 1
          End If
      Loop
  
  end sub
  
  dit is veel overzichtelijker dan het volgende
  private sub jawadde()
  Do While intTeller < intArrLengte
  ' random cijfer bepalen
  intRandom = CInt(Rnd() * intMaxWaarde + 1)
  If (IsUniek(arrInt, intRandom)) Then
  arrInt(intTeller) = intRandom
  intTeller = intTeller + 1
  End If
  Loop
  end sub
  

Buckfast beekeeper,

Dit was zeer goed, enkel de +1 resulteerde in een lottogetal 43 na een x aantal trekkingen

intRandom = CInt(Rnd() * intMaxWaarde) '+1


Voor het overige was het weer eens een goede happy end. Ik zou rekening houden met uw feedback ivm de syntax.

Nog een leuke paasdag, in Antwerpen schijnt de zon vollop.

Vriendelijke groet,

Diezel

Een vraagje:

Is dat met de functie timer in combinatie met random om het draaiende effect in getallen te geven? zoals bij de machines in een casino bijvoorbeeld.

Of wordt er een vertrager ingebouwd

Dizzl, jou project met de msgBox is ook leuk.

Diezel

Dit is eventueel voor de afwerking.

Ik heb een oud projectje van lotto terug van stal gehaald, bewerkt en verbeterd waar ik vroeger een paar hints en verbeteringen van dizzl heb gekregen.

Het is als volgt:

7 tekstboxen voor de getallen tijdens de lottotrekking op televisie in te vullen en 7 tekstboxen om met 1 druk op de knop te sorteren en gesorteerd weer te gevenen, en als laatste weg te schrijven in een tblLottotrekkingen.

7 listboxen om het typewerk uit handen te nemen en de lottocijfers te selecteren.

Dit alles is tot hiertoe geslaagd.

Het volgende wens ik dan een historiek van de getrokken cijfers bij te houden. De historiek (lottotrekkingen)is downloadbaar van bij lotto zelf.

De kunst van hierbovenstaande bestaat erin om per cijfer het getrokken aantal te kennen.

Als laatste wens ik dan ook dat een lottogebruiker zijn cijfers met 1 druk op de knop een query kan oproepen om te zien hoeveel juiste cijfers, de lottogebruiker heeft kunnen raden.

Samenvatting:

Er is al een generator, en we kunnen de getrokken lottocijfers probleemloos geordend wegschrijven in de tabel. Nu dien ik nog de historiek en de hoeveel juiste er wat op te vinden. Maar ik denk dat het gaat lukken, dat is temiste al een motivatie om verder te werken.

Vriendelijke groet,

Diezel.

Heb ondertussen de interface afgekregen om je eigen lottonummers te beheren, de invoer bestaat uit de keuze tussen manueel en het genereren van lottocijfers.
In een keuzelijst zie je de persoonlijke nummers gerangschikt en gesorteerd. Als je dan in de keuzelijst klikt, wordt de rij lottogetallen verwijderd uit de tabel. Er is ook aandacht besteed aan invoercontrole, je kan enkel nummerieke waarden selecteren. er zijn er altijd bij die proberen hé. Ook bij bepaalde acties worden de vakken vergrendeld en waar nodig terug ontgrendeld. Het gebruik van de knoppen go, reset, wissen en sluiten zijn op de acties afgesteld(Visible true of false). Ook is er veel aandacht besteed aan het gebruiksgemak en uitstraling van het formulier.

De basis is rond om eigen lottonummers te beheren, nu is de 2de stap de controle, aantallen, reeds getrokken.
Hierin is het ook goed weten wat je doet. In elk geval ga ik van de basis een kopij opslaan. Uit het verleden deed ik dat te weinig tot wanneer je een fout hebt gemaakt die onherstelbaar is. Het project begint al wat profesioneel te worden.

Ik ga verder proberen, als ik er niet aan uit kan zal ik niet verlegen zijn om uw hulp in te roepen.


Diezel

ik vul de lijst van getal2 pas  op al getal1 gekozen is.
zie vb