FAQ | Points | Add... | Recent posts | Search | Register | Log in


liczba losowa w Visual Basic 2008
Search:  
Post new topic  Reply to topic      Main Page -> Forum Index -> Programming Generally -> Beginners Programming -> liczba losowa w Visual Basic 2008
Author
Message
black-11
Poziom 6
Poziom 6


Joined: 04 Nov 2009
Posts: 17
Location: gbw
Post#1 Post from the author of the topic 16 Mar 2010 23:10   

Re: liczba losowa w Visual Basic 2008
Mam problem z aplikacją visual Basic 2008, a mianowicie potrzebuje program który losuję liczbę z zakresu np. label2.text do label3.text z góry dziękuję.

Dodano po 5 [godziny] 17 [minuty]:

Ok znalazłem sam jak ktoś potrzebuje to:
Label1.Text = Int((Label3.Text - Label2.Text + 1) * Rnd() + Label2.Text)
dodatkowo podaje wartość w label1
Back to top
   
Google

Google Adsense
Post# Post from the author of the topic 16 Mar 2010 23:10   



Back to top
   
Dżyszla
Poziom 24
Poziom 24


Joined: 15 May 2005
Posts: 4736
Location: Żory (kiedyś Opole)
Post#2 16 Mar 2010 23:36   

Re: liczba losowa w Visual Basic 2008
dużego uzytku z tego nie będzie - mieszasz dość niebezpiecznie teksty i liczby - lepiej posłużyć się funkcjami Val i Str. Dodatkowo brak inicjalizacji generatora liczb pseudolosowych - będziesz miał za każdym razem ten sam ciąg liczb.
Back to top
   
Google

Google Adsense
Post# 16 Mar 2010 23:36   



Back to top
   
black-11
Poziom 6
Poziom 6


Joined: 04 Nov 2009
Posts: 17
Location: gbw
Post#3 Post from the author of the topic 17 Mar 2010 07:51   

Re: liczba losowa w Visual Basic 2008
a mógłbyś poprawić ten kod bo jestem początkujący i nie bardzo wiem jak to zmontować?
Back to top
   
Google

Google Adsense
Post# Post from the author of the topic 17 Mar 2010 07:51   



Back to top
   
Dżyszla
Poziom 24
Poziom 24


Joined: 15 May 2005
Posts: 4736
Location: Żory (kiedyś Opole)
Post#4 17 Mar 2010 08:13   

Re: liczba losowa w Visual Basic 2008
Code:
Public Function WylosujLiczbe(ByRef GranicaDolna As Short, ByRef GranicaGorna As Short) As Short
      Randomize()
      WylosujLiczbe = Int((GranicaGorna - GranicaDolna + 1) * Rnd() + GranicaDolna)
End Function

Label1.Text:=Str(WylosujLiczbe(Val(Label2.text),Val(Label3.Text));
Przy czym funkcja Randomize może być wyniesiona do części początkowej programu i wywołana jednorazowo. Dla wygody warto posłużyć się też funkcją własną.
Back to top
   
black-11
Poziom 6
Poziom 6


Joined: 04 Nov 2009
Posts: 17
Location: gbw
Post#5 Post from the author of the topic 17 Mar 2010 22:38   

Re: liczba losowa w Visual Basic 2008
a jeszcze tek przy okazji komenda
PictureBox1.Top -= 5
Spowoduję że picturebox pojedzie w górę, a jaka komenda spowoduję że pojedzie w prawą lub lewą???
Back to top
   
Post new topic  Reply to topic      Main Page -> Forum Index -> Programming Generally -> Beginners Programming -> liczba losowa w Visual Basic 2008
Page 1 of 1
Similar topics
Visual Basic 2008- przełączanie pomiędzy Formami- jak to zrobić? (12)
Visual Basic 2005 - 2008 Jak zrobić buttona z grafiką ? (1)
Visual basic 2008, Jak usunąć spacje i zostawić tekst? (3)
Visual Basic 2008 Jak animować rysunek (6)
visual basic 2008 rs232 odczyt (11)
Visual Basic 2008 potrzebna komenda (10)
[VISUAL BASIC 2008] Odczyt z RS232 (4)
Jak stworzyć nowy element od strony kodu w Visual Basic 2008 (6)
Visual basic 2008 Wykres (7)
[VISUAL BASIC]Visual Basic 2008 DataGridView (4)

Page generation time: 0.158 seconds


FAQ || Administrator || Moderators || Widgets and banners || Contact
elektroda.pl topic RSS feed