Hvordan ville i lave det?

lad hver spiller få 501 øl, og for hver point der skal trækkes fra, skal spilleren drikke en øl.

Enig med skq!

Dit problem er at du vil trække nogle tal fra et tal indtil du når nul. Du kan til det f.eks. bruge windows lommeregner.

Men for at svare på dit spørgsmål - jeg ville slet ikke lave det! Men når du har valgt hvordan du SELV synes det skal se ud, så stil gerne nogle spørgsmål til hvordan det skal programmeres, og jeg skal forsøge at svare.

Et forslag: lav et tekstfelt, et sæt optionbuttons svarende til antal spillere og en trykknap.

Når en pil er kastet, skrives pointtallet i tekstfeltet, der vælges spiller med radiobuttons, og der trykkes på knappen for at regne nyt pointtal ud. Vil du have kodet det, skal jeg gerne gøre det for dig :o)

Send eventuelt dit spil til mig, så kan jeg se på det.

northcode@e-mail.dk

Mvh. NC

Så skal jeg lige kode det først - giv mig lige et kvarter :o)

Er sendt - jeg lavede lige konceptet om og bruger combo-boxe ;o)

En udvidelsesmulighed - hav en tæller, der tæller antal gange der klikkes på knappen - hver 3. gang skal den så gå videre til næste spiller - den skulle være lige til at putte ind :o)

Og byt lige lidt om på text-boxene - de står nu i lidt forkert rækkefølge :o(

Kan du bruge det...?

skg:>En kommentar ville være nok :>

martin_moth:> Jeg har da også tænkt en del på hvordan det kunne laves!
Det første er at windows lommeregneren ikke er så god, når man ønsker at gemme point regnskabet i en db til statistik. men ellers er den da meget fin.

Hvordan knytter du spilleren med de point der indtastes i textfeltet? for hvad nu hvis der er 10 deltagere

kantoraza:> jeg har ikke noget spil!

tanken er at:
3 text felter, en command knap, og en listbox så man kan se resultater.
men ellers:
spiller 1 kaster sine 3 pile.
Point indtastes i de 3 text felter.
point trækkes fra 501 (eller trækkes fra de point der er tilbage).
Pointsummen fra de 3 pile vurderes imod tidligere score (højeste score skal gemmes og score over 99 skal registres).
Antal pile kastet tælles.
spiller 2 kaster sine 3 pile.
osv..

Skal jeg lave et array med strSpillernavn(x) og et array iPoint(x), og hvordan knytter jeg dem sammen.

Håber det er et lidt mere seriøst stillet spørgsmål...
:>Gizom

Jeg har fået en hjerneblødning - jeg har lavet et spil og sendt det til kantoraza ??? - Hvad tænkte jeg lige på der? Dummeslag til mig!!!

Nå, vil du gerne have programmet også, gizom?

Der er i øvrigt lige så mange måder at lave det spil på som der er mennesker - vælg den måde du bedst synes om. Du kan sagtens lave det med arrays som du selv foreslår - Du kan fx. lave en menu, hvor du vælger antal spillere. Afhængigt af antal spillere, redim'mer du dine arrays svarende til antal spillere (fx. Redim strSpillernavn(1 to 7)). Dine arrays kan være "knyttet sammen" ved at spiller og points har samme plads i arrayet - så kan de kaldes med samme array-index.

NB:

I stedet for at have 2 arrays kan du også have blot ET array med en variabeltype, du selv definerer, fx: 

Type Spiller
    Navn As String
    Points as Integer
End Type

Dim SpillerArray(1 To antalSpillere) as Spiller

Så kan du fx. gøre følgende:

SpillerArray(3).Navn= "Anders And"
SpillerArray(3).Points= 23

  -0-

Du kan skrive dine points til en textfil, til en database, til hvad som helst du ønsker.

Godt beskrevet eksempel, det vil jeg sikker arbejde videre med. Jeg har som du forslog lavet så man kan vælge antal spillere og spiltype, men havde glemt at der var noget med Redim.

Ja jeg kunne da godt tænke mig at se hvad du fik lavet:

willi@gizom.com

:>Gizom

Martin_moth:>
Det virker fint med at smide Navne ind i SpillerArray(X).Navn, men hvordan kan jeg se hvad der ligger i Fx. SpillerArray(3).Navn?

Private Sub Command2_Click()
  label1.caption = SpillerArray(3).Navn
End Sub

jeg har prøvet på denne måde! men får fejl:
Sub or Function not defined

hvad gør jeg dog forkert?

Hej.

Undskyld at jeg lige har været væk. Jeg går ud fra at du vil bruge Type funktionen, her er et lille eksempel som virker:

Private Type ObC
    navn As String
    points As Integer
End Type

Private spiller(10) As ObC
Private Sub Command1_Click()
For n = 0 To 10
    MsgBox spiller(n).navn & " Points " & spiller(n).points
Next n
End Sub


Private Sub Form_Load()
For n = 0 To 10
    spiller(n).navn = "Peter " & Rnd * 10
    spiller(n).points = 501 - Int(Rnd * 10)
Next n
End Sub

Som du ser er Type funktionen placeret i Private format i formens generel procedure, så derfor kun kan bruges på form1 selvfølgelig.

Mvh. Nc.

PS: Erklær din type i et modul :o)

Hej qizom.

Jeg har lavet det program som du spurgte om i mailen. Hvis du opretter et spørgsmål, så vedlægger jeg svaret så det biver tilgængeligt for alle. (husk at hentyde til dette spørgsmål, eller skrive soørgsmålet igen).

Mvh. NC

Jeg kan da også godt lægge det her i første omgang.

http://medlem.jubii.dk/Download/Dartspil.zip

NB.
Jeg har lavet det meget udførligt!

Mvh. Nc.

kantoraza:> http://www.eksperten.dk/spm/288603