Lottoprogram

Hemuppgift 3 Lottoprogram

Vi skall arbeta med subrutiner och till er hjälp får ni ett program som har använder sig av fyra subrutiner.
Försök att förstå hur subrutinerna är uppbyggda och utifrån det skall ni få utföra en betydligt lättare uppgift.

Koden till programmet	Titta på hur subrutinerna är uppbyggda.Sub slump() . Titta även på hur man startar subrutinerna.Call slump() Det finns en subrutin med argument/med värden Call tafram(nr) , Sub tafram( ByVal number As Byte )
Programmet	Skulle programmet inte fungera så hör av er, kan fattas någon fil.
Uppgiften	Två små program med subprocedurer 1. Volymberäkning 2. Valfritt antal tärningskast

Lite mer om hur programmet fungerar:

Programmet börjar med att anropa subproceduren "start" --> hoppar ned till tredje sidan och utför allt i denna procedur.
Start proceduren se till att fältet "siffra" samtliga värden är "False" och tömmer sedan innehållet i samtliga textboxar.
När denna procedur är färdig så återgår programmet till Btn_start.

Programmet anropar sedan proceduren "Slump" det antal ggr som motsvaras av antal tal som skall slumpas fram genom att
använda sig av en for sats.
Subrutinen slump slumpar fram ett värde mellan 0 och 34 - observera att slumpgenerering fungerar anorlunda i vb2005 än vad
det det gjorde i vb98, det krävs en rad för att initiera "kast" och en rad för tilldela variabeln "nr" talet.
Här använder vi en Do loop för att säkerställa att inte ett tal kan förekommer två ggr --> om siffra(nr) =True, siffra håller reda på
om talet är draget tidigare eller inte och "siffra" har värdet True om talet har förekommit tidigare och då dras ett nytt tal.

Subproceduren slump anropar sedan i sin tur subproceduren tafram och här sänder vi med ett värde genom variabeln "nr" och detta byter
namn till "number" när vi skall använda det i subproceduren "tafram". Observera att båda variablerna "nr" och "number" är byte, om de vore
olika så skulle programmet kunna bråka.
I "slump" så ställer vi om variabeln "siffra" till True för just det talet som vi hade slumpat fram och sedan skriver vi in ett värde i rätt textbox
beroende på vilket tal som slumpades fram. vi använder oss av en Select case sats för att göra detta.
När programmet sedan kommer ned till "End sub" så återvänder det först till subproceduren slump och avslutas även denna subprocedur innan
programmet återvänder till Btn_start och då anropas subproceduren "Prisberäkning".

Subproceduren "Prisberäkning" beräknar kostnaden för de antal rader som du har valt, tänk på att alla alternativ förutom det första är system och
ex. 10 ifyllda spelfält motsvarar 120 enkla spelfält. Subproceduren skriver sedan ut värdet i en text ruta.