רוטר - מעוניין לדעת יותר על יצירת מספרים אקראיים בVB

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"מעוניין לדעת יותר על יצירת מספרים אקראיים בVB"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #6310	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 6310

dfxhgasdfhg

19:16 14.06.03

מעוניין לדעת יותר על יצירת מספרים אקראיים בVB

אם אני רוצה ליצור תוכנית שתציג בעת לחיצה רצף של 5 מספרים רנדומליים ורק את המספר 0 היא תציג תמיד (במיקומים שונים, לא משנה לי איפה תציג) אבל רק פעם 1!
איך אני עושה דבר כזה?מישהו יכול לצרף דוגמא? תודה.

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
הנה משהוא שבניתי הרגע.. לא יודע	hll	14.06.03 19:59	1
תודה אבל..	dfxhgasdfhg	14.06.03 20:13	2
מכתב	hll	14.06.03 20:20	3
אני לא מכיר VB לעומק אבל הנה הרעיון:	szargel	14.06.03 20:24	4
לא כ''כ הבנתי אותך.. אני מסכים עם dryice...	hll	14.06.03 20:34	6
זה דיי פשוט.	dryice	14.06.03 20:29	5

hll

19:59 14.06.03

1. הנה משהוא שבניתי הרגע.. לא יודע
בתגובה להודעה מספר 0

עד כמה זה יעיל אבל זה עושה את העבודה...

n = 5
zero = Round(Rnd() * (n - 1)) + 1
num = 0
For i = 1 To n
If zero = i Then
num = num * 10 + 0
Else
num = num * 10 + Round(Rnd() * 8) + 1
End If
Next

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

dfxhgasdfhg

20:13 14.06.03

2. תודה אבל..
בתגובה להודעה מספר 1

עבר עריכה לאחרונה בתאריך 14.06.03 בשעה 20:18

עשיתי תוכנה שעושה 5 מספרים רנדומלים, אבל הבעיה שלי איך לעשות שאחד המספרים האלה יהיה 0 ורק פעם אחת..מבין? ושהמיקום שלו ישתנה גם כן
בתוכנית שלך קורה שהמספר 0 לא מופיע כלל

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

hll

20:20 14.06.03

3. מכתב
בתגובה להודעה מספר 2

עבר עריכה לאחרונה בתאריך 14.06.03 בשעה 20:20

הוא מיפיע כל פעם במקום אחר (רנדומלי, לא בהכרך אחר)
וכשיש 4 ספרות, ה 0 הוא הספרה הכי שמאלית יעני
01234
ואז רואים רק
1234

וה0 מופיע פעם אחת בלבד.

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

szargel

20:24 14.06.03

4. אני לא מכיר VB לעומק אבל הנה הרעיון:
בתגובה להודעה מספר 2

תשתמש במשתנה עזר מסוג Boolean.
בתחילת התוכנית תקבע אותו כFalse, ותעשה לולאה שלא נגמרת עד שהמשתנה יהיה True וגם הוגרלו כבר 5 מספרים.
בתוך הלולאה, לאחר ההגרלה (Random) תשים משפט בדיקה (IF) שישנה את המשתנה לTrue עם הערך שהוגרל הוא 0
דוגמא קצרה בPascal:

Var
i,j:integer;
zero:boolean;
a: array of integer;
Begin
Radomize;
J:=1;
While (Not(Zero)) and (I<=n) do
Begin
I:=Random;
If I=0 Then Zero:=True;
A:=I;
J:=J+1;
End;
For I:=1 to N do Writeln(A);
End.

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

hll

20:34 14.06.03

6. לא כ''כ הבנתי אותך.. אני מסכים עם dryice...
בתגובה להודעה מספר 4

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

dryice

20:29 14.06.03

5. זה דיי פשוט.
בתגובה להודעה מספר 0

אתה צריך להגריל, 5 מספרים אקראיים,
הראשון יהיה המיקום של 0
ארבעת האחרים יהיו המספרים האקראיים האחרים.

DRYICE

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד