ميخوام با وي بي 6 برنامه اي درست كنم كه 100 تا سوال موقع نوشتن برنامه بهش بدم بعد با زدن يك دكمه به صورت تصادفي 20 تا سوال خودش برام بياره ممنون ميشم زودتر جوابمو بديد خيلي گيرم :19:
Printable View
ميخوام با وي بي 6 برنامه اي درست كنم كه 100 تا سوال موقع نوشتن برنامه بهش بدم بعد با زدن يك دكمه به صورت تصادفي 20 تا سوال خودش برام بياره ممنون ميشم زودتر جوابمو بديد خيلي گيرم :19:
سلام
اگه سورس شو می خواهی که ندارم اما می توانم کمکت کنم
به دو روش می شود 1- استفاده از بانک اطلاعاتی 2- بصورت دستی
اول بصورت دستی بهت می گم که راحتر است بعد نوع اول
اول از همون طوری که بهت قبلا گفتم به این صورت که
در ضمن شما 5 رو به 20 و 6 رو به 100 تغییر بدهنقل قول:
dim a, b, c, i
private sub cmd1_click()
for i = 1 to 5
randomize
a = int(rnd * 6) + 1
if a = 1 then b = "ali"
if a = 2 then b = "hoseen"
if a = 3 then b = "javad"
if a = 4 then b = "majid"
if a = 5 then b = "goli"
if a = 6 then b = "baran"
'....
C = c & ("سوال" & i & ":" & " " & b & " ")
next
print c
c = ""
i = 0
end sub
در مورد بانک اطلاعاتی هم بگو تا برات بنویسم اگه کارت راه نیفتاد
در ضمن تنها مشکلی که داره این است که اگه عدد تکرار بشه سوال تکراری هم بهت میده البته قبلا راه حل رو بهت گفتم
تشکر هم یادت نره
دوست عزيز دست شما درد نكنه ولي يه توضيح درباره كدهايي كه نوشتي بده بفهميم چي كار بايد بكنيم دمت گرم منتظر جوابمنقل قول:
سلام
توضیحی نمی خواهد عزیز برادر
اما چون گفتی چشم
خط اول : تعریف متغیر a b c
خط سوم: ایجاد حلقه تکرار 1 تا 5 که شما آن را 20 می کنی
خط چهارم و پنجم : یاد داری که هیچ ایجاد عدد تصادفی که شما 6 را به 100 تغییر می دهی
خط های بعدی : این را که یاد داری دستور if که شما بجای اسم ها سوال هایت را می نویسی
خط بعد : قرار دادن 20 سوال در کنار هم
next
خط بعد: نشان دادن 20 سوال
کاری دیگه داشتی ما در خدمتیم
تشکر هم یاد ت نره