צריך עזרה קטנה וקלה

[המצאיות]

צריך עזרה קטנה וקלה

פעם קצת עבדתי על ויז´ואל בייסיק אבל עשיתי הפסקה מאז ופתאום עלה לי רעיון גאוני (מהדברים האלה שאין בהם שום היגיון אבל לא מפסיקים להשתמש בהם) בכל מקרה שכחתי איך לעשות שמשתנה יודדר באקראי וישנה את הקפשין של תווית זה מה שעשיתי Dim x As Integer For x = 1 To 4 Next x ´variable choose keys If x = 1 Then lblkey.Caption = "J" End If If x = 2 Then lblbkey.Caption = "H" End If If x = 3 Then lblkey.Caption = "G" End If If x = 4 Then lblkey.Caption = "F" End If האותיות לא מופיעות לי בתווית אז כנראה שיש פה בעיה או שאני לא משתמש בפקודה הנכונה אשמח לקבל עזרה תודה

 

[mich]

הבעיה בקוד הוא המיקום של הnext X

היי הבעיה בקוד הוא המיקום של הnext X הוא נכנס ללואה 4 פעמים וכשאר הוא יוצא משם ערכו הוא 5, לכן הוא לא מתאים לאף אחד מהIFים ולא נוצר CAPTION מקווה שעזרתי מיכל

 

[MaD-d0g]

לא ממש הבנתי את הבקשה..

לא ממש הבנתי מה רצית פה.. בכל מקרה, אם אתה רוצה שמשהו פה יהיה רנדומלי אז אתה צריך להשתמש בפקודת Radomize דוגמא לRadonmize

Dim i As Integer i = Int(Rnd * 99) + 1 MsgBox i​

הדוגמא הנ"ל מחזירה מספר אקראי בין 1 ל 100. עכשיו, במקרה של האותיות הרנדומליות, אולי כדאי להשתמש ב Select case?

Randomize dim i as integer dim c as integer dim Str as String for i = 1 to 10 ´Makes a string with 10 random chars c = int(rnd*6)+1 select case c Case 1 Str = Str & "T" Case 2 Str = Str & "A" Case 3 Str = Str & "L" Case 4 Str = Str & "d" Case 5 Str = Str & "0" Case 6 Str = Str & "g" Case 7 Str = Str & "!" End Select next i msgbox str​

 

[המצאיות]

תודה

זה מה שרציתי טיפ קטן: אל תעשו הפסקה זה גורם לשכוח המון

 

[MaD-d0g]

Anytime

זה כמו לרכוב על אופניים, רק צריך שאבא שלך יחזיק לך את היד ותוך 5 דקות אתה נזכר

ומויזואל בייסיק אני לא אעשה הפסקה...