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


"שאלה בקשר ל RANDOM ב VISUAL BASIC"
גירסת הדפסה        
קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #8968 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 8968
admin2000  לחץ כאן להצגת דירוג המשתמש
חבר מתאריך 18.3.02
63537 הודעות, 2 פידבק		   20:30   29.01.03   
אל הפורום  
  שאלה בקשר ל RANDOM ב VISUAL BASIC  
 
יש לי שאלה קטנה

נתתי בחירה בין 0 ל 5 למשל
ושכל פעם יצאו 2 מספרים באופן רנדומלי

הנה קוד


Private Sub Command3_Click()
    Dim R1 As Long
    Dim R2 As Long
Randomize
    I = 5
    I ' maks a value betwin 0 and I
    R1 = Rnd * I 
    Label1.Caption = R1
    R2 = Rnd * I
    Label2.Caption = R2
End Sub

שאלתי היא כזו

איך אני מוסיף פקודה שתוודא שמספר לא יצא פעמיים
איך אני יכול להתחיל את הרנדום מ 1 ולא מ 0


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

  האשכול     מחבר     תאריך כתיבה     מספר  
  פתרון Cd-Writer 29.01.03 21:19 1
     אחלה - גם אני מצאתי פתרון בינתיים admin2000  29.01.03 21:39 2
     יש דרכים יותר יעילות dryice 29.01.03 23:46 3

       
Cd-Writer

   21:19   29.01.03   
אל הפורום  
  1. פתרון  
בתגובה להודעה מספר 0
 
   Private Sub Command3_Click()
Dim R1 As Long
Dim R2 As Long
Randomize
I = 5
R1 = Rnd * (I - 1) + 1
R2 = Rnd * (I - 1) + 1
Do While R2 = R1
R2 = Rnd * (I - 1) + 1
Loop
End Sub

מקווה שזה בסדר כתבתי את זה בלי לבדוק...


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
admin2000  לחץ כאן להצגת דירוג המשתמש
חבר מתאריך 18.3.02
63537 הודעות, 2 פידבק		   21:39   29.01.03   
אל הפורום  
  2. אחלה - גם אני מצאתי פתרון בינתיים  
בתגובה להודעה מספר 1
 
פשוט חשבתי ומצאתי

   If X2 = X1  Then
     X2 = Rnd * Y
     Label22.Caption = X2
      if X2 = 0 Then
        X2 = Rnd * Y
        Label22.Caption = X2
      End If
   End If


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
dryice

   23:46   29.01.03   
אל הפורום  
  3. יש דרכים יותר יעילות  
בתגובה להודעה מספר 1
 
   R1=Rnd * (I-1)+1
R2=Rnd *(I-2)+1
if (R2 >= R1) then
R2=R2+1
end if

בלי לולאה, יותר נחמד, ואילו אנו עדיין מקבלים שני מספרים
שונים בתחום 1 עד I בהתפלגות אחידה.

DRYICE


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net