VISUAL BASIC 6: Percentuálna náhodnosť

tom1597530

Dobrý deň. Robím si hru vo VB6 a potreboval by som vedieť, ako môžem spraviť niečo takéto:
Mám Command1 a 2, Text1, Label1.
Pri spustení má Label1 "0" Caption

Keď kliknem na Command1, Hodnota v Label1 sa zvýši o 5, čo predstavuje 5% pravdepodobnosti.

Keď kliknem na Command2, pravdepodobnosť, že sa v Text1 objaví "A" namiesto "B" je Label1 percentná, teda ak je Label1 "0" tak sa vždy objaví "B", a keď je 100, tak sa vždy A.

Takže hodnota v Label1 predstavuje na koľko percent je pravdepodobné, že sa v Text1.Text objaví "A"

Dúfam, že ste ma pochopili.

manager666

a co od nas chces ?

//autoeditácia príspevku ( 05 Jan 2010, 19:37 )
toto si chcel ?:D

Kód: Vybrať všetko

' pisane z hlavy
Dim help As Byte

Private Sub Command1_Click()
If help < 100 Then
help = help + 5
Label1.caption = help
End If
End Sub

Private Sub Command2_Click()
If help = 0 Then
Text1.Text = "B"
ElseIf help = 100 Then
Text2.Text = "A"
End If
End Sub

ale nechapem jedno... ked je help vacsie ako 0 a mensie ako 100, tak co to ma robit ?

tom1597530

Tu ide o tom, ze to cislo je PERCENTO pravdepodobnosti ze sa objavi "A"

manager666

no myslim, ze sme sa uz pochopili, ale skor ako sem pastnem zasa nejaku radu, chcem sa uistit:
takze chces, aby sa zobrazilo bud A alebo B, avsak s ohladom na to, ze pravdepodobnost zobrazenia A bude napr 5% a teda pravdepobonost B bude 95%, teda mozme to pokladat za "ovplyvnenu nahodu". Chapeme sa uz teda ?

tom1597530

Ano ano presne tak

manager666

ouki, douki... ste ma, ze ti sem davam cely kod, ale tym sa vyhnem aspon dalsim zbytocnym prispevkom, typu "nejde mi toto", "neviem urobit toto", atd.
Nech sa paci(moje riesenie problemu

):

Kód: Vybrať všetko

Private Sub Command1_Click()
If Label1.Caption < 100 Then
Label1.Caption = Label1.Caption + 5
End If
End Sub

Private Sub Command2_Click()
Dim help(99) As String
Dim i As Byte
If Label1.Caption = "0" Then
Text1.Text = "A"
ElseIf Label1.Caption = "100" Then
Text1.Text = "B"
Else

For i = 0 To Label1.Caption - 1
help(i) = "B"
Next i
For i = Label1.Caption To 99
help(i) = "A"
Next i
Randomize (Time * Date)
i = CInt(Rnd * 99 + 1)
If i < Label1.Caption Then
Text1.Text = "B"
Else
Text1.Text = "A"
End If
End If
Me.Caption = i
End Sub

celé toto:

Kód: Vybrať všetko

For i = 0 To Label1.Caption - 1
help(i) = "B"
Next i
For i = Label1.Caption To 99
help(i) = "A"
Next i

a teda aj pole help je ti tam zbytočné, keďže vygenerované číslo porovnávaš s tým v labele a s týmto poľom po naplnení vôbec nepracuješ

manager666

no jasne, mas pravdu.. to sa mi stane, pretoze som najprv myslel, ze to urobim jednym sposobom a potom som to nakoniec urobil inak

Tom, to tam nemusis davat

audiotrack

tom1597530

Heh, ale dakujem vam obom ale nejako to nefunguje:

help(i) = Sub or Function not defined

písal som že to máš zmazať

tom1597530

Ale keď to zmažem ako bude ten program vedieť čo má v text1.text zobrazovať? Keď tam nechám len "B" alebo "A" tak to vypíše chybu

no jo, sorry. Tebe nestačí napísať čo zmeniť a čo zmazať, lebo to nezvládaš. Očividne ti treba napísať hotový zdroják ako to bude vypadať po zmazaní. Zapoj trošku hlavu, prečítaj si čo sme písali, prečítaj si ten kod a musíš to zvládnuť upraviť aj po slepiačky. Jednoducho celé pole help a všetko čo s ním narába pomaž

tom1597530

Kašľať na to, ja použijem managerov666 spôsob, ten mi aspoň funguje. Díky vám obom.