VB6 - random
Prikazujem rezultate 1 do 3 od 3

Tema: VB6 - random

  1. #1
    Aktivan član acca (avatar)
    Učlanjen
    12.07.2004.
    Pol
    muški
    Lokacija
    zavisi od situacije
    Poruke
    1.548
    Tekstova u blogu
    57
    Reputaciona moć
    75

    Podrazumevano VB6 - random

    Nov sam u VisualBasic-u. Radim neki programcic za tablicu mnozenja. Stavio sam sledece kodove
    Private Sub Command1_Click()
    cin1 = Int(Rnd * 10) + 1
    cin2 = Int(Rnd * 10) + 1
    Text1.Text = Str$(cin1)
    Text2.Text = Str$(cin2)
    End Sub

    Private Sub Command3_Click()

    If Text3.Text = Text1.Text * Text2.Text Then
    Text4.Text = "tacno"
    Else
    Text4.Text = "nije tacno"
    End If
    End Sub

    Private Sub Command4_Click()
    Unload Me
    End Sub

    E sad, zasto mi uvek daje iste brojeve, konkretno prilikom startovanja, uvek prvo nudi 8*6, pa onda 1*8, i dalje ali uvek isti redosled. Kako da to izbegnem?



  2. #2
    Početnik
    Učlanjen
    03.11.2004.
    Lokacija
    Beograd
    Poruke
    9
    Reputaciona moć
    0

    Podrazumevano Resenje

    Pre Rnd ubaci Randomize u svoj kod. Nije obavezno, ali trebao bi uvek da definises promenljive.

    KOD:

    Private Sub Command1_Click()
    Dim cin1 As Integer, cin2 As Integer

    Randomize

    cin1 = Int(Rnd * 10) + 1
    cin2 = Int(Rnd * 10) + 1
    Text1.Text = Str$(cin1)
    Text2.Text = Str$(cin2)
    End Sub

    Private Sub Command3_Click()

    If Text3.Text = Text1.Text * Text2.Text Then
    Text4.Text = "tacno"
    Else
    Text4.Text = "nije tacno"
    End If
    End Sub

    Private Sub Command4_Click()
    Unload Me
    End Sub

  3. #3
    Aktivan član acca (avatar)
    Učlanjen
    12.07.2004.
    Pol
    muški
    Lokacija
    zavisi od situacije
    Poruke
    1.548
    Tekstova u blogu
    57
    Reputaciona moć
    75

    Podrazumevano

    hvala.

Slične teme

  1. DVD - Random izbor spotova i pravljenje liste - kako?
    Autor cLick - OR - Die u forumu Softver
    Odgovora: 2
    Poslednja poruka: 01.08.2005., 13:43

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •