דוקטור ויבי לויזואל בייסיק

נושא הדיון: בקשה עזרה בטבלה 4X4- למלא אותה מספרים
נושא זה נצפה 105 פעמים.

נושא ההודעה: בקשה עזרה בטבלה 4X4- למלא אותה מספרים
מחבר: rty59

נשלחה ב:08/02/2010 15:33:47

דווח למנהל

שלום..

אני מנסה לעשות טבלה 4X4 וכפתור שכל פעם שאני לוחץ על כפתור הטבלה מתמלאת במספרים 1-16 ומספר שהיה לא יחזור שוב..

אני יודע שבהתחלה צריך -
DIM x as integer
ככה 16 פעמים..

אבל מכאן אני מבובל..

מישהו בבקשה יכול לרשום לי את ההמשך??

תודה רבה@!@!

תגובה 1: תגובה: בקשה עזרה בטבלה 4X4- למלא אותה מספרים
מחבר: rty59

נשלחה ב:09/02/2010 10:45:39

דווח למנהל

מישהו? בבקשה זה דחוף...

תגובה 2: תגובה: בקשה עזרה בטבלה 4X4- למלא אותה מספרים
מחבר: ShayW

נשלחה ב:10/02/2010 10:22:10

דווח למנהל

Private Sub FillTable()
\'מערך לאחסון 16 מספרים
Dim vector(15) As Byte
Dim iter As Byte
Dim number As Byte
Dim found As Boolean
\'מעררך בוליאני לבזוק אם המספר היה בשימוש
Dim checknumber(15) As Boolean
Randomize
\'איתחול המערך הבוליאני
For iter = 0 To 15
checknumber(iter) = False
Next iter
For iter = 0 To 15
found = False
\' מציאת מספר האקראי שלא בשימוש\'
number = Int(16 * Rnd + 1)
While checknumber(number - 1) = True
number = Int(16 * Rnd + 1)
Wend
checknumber(number - 1) = True
vector(iter) = number
Next iter

End Sub

דף זה נוצר ב-0.558 שניות.



ראשי \| חיפוש \| קוד לדוגמא \| שו"ת FAQ \| מאמרים \| קישורים \| לימוד VB \| הפורום \| צ'אט \|