دوستان فقط تا فردا وقت دارم یک برنامه ساده تمرین ویژوال بیسیک

[sirous_sus]

یکی از آشنا های ما رو حسب اینکه من چند سال قبل مهندسی نرم افزار گرفتم تمرین بجشو داده به من منم اصلا وی بی یادم نیست حتی محیطو قالبشم فراموش کردم



تمرین اینه

یک مربی فوتبال از بین ۲۲ بازیکن می خواهد ۱۱ بازیکن را انتخاب کند هر بازیکن درای ۱ شماره ۱ سابقه و ‍‍بست به عنوان ورودی ارنج تیم دریافت می شود . در صورتی که جمع ارنج مخالف ۱۰ بوذ برنامه باید خطا هد نگذارد که ادامه کار انجام شود با توجه به تعداد بازیکن در هر بست در صورتی که با تعداد ورودی ارنج مطابقت نداشته باشد خطا دهد
برنامه وظیفه دارد با توحه به نسبت هر بازیکن و سابقه کار و ارح برای هر بست لیستی از شماره بازیکنان در خروجی چاب کند


private sub add player _click ()
dim arange ass integer
dim player (21,2)
for j as integer=0 to 2
if insert.click() then
palyer(i.j)=textbox1.text
palyer(i.j+1)=textbox2.text
player (i,j+2)=texetbox3.text
textbox1.text="enter other name of player"
textbox2.text="enter other number of player"
textbox3.text="enter othe post of playr"
end if
next
next
end sub


private sub select player _click()
am adage as integer
lable1.text , "please select 10 player enter number of player in the text box"
if select plater _click() of if select paler.pree then arrange =0;
for i as integer 0 to 9
arrange val(textbox.text)
"
next end if
if arrange >10 then
,messagebox.show(tedade bazikon ha gheyre mojaz asz)
,vb ok only ,
end if



private sub show info of player _cal
aim b as integer
for i as integer=0 to 9
for i as integer =0 to 2
b=vai(textbiix4.text
textbox.visible.true
textbox.text=player(b,j)& player (b,j+2)
next
next
end sub

فقط تا شب وقت دارم

منون

 

[saeed-omnia]

عزیز شما یه بار اونی که نوشتی رو بخون ببین خودت متوجه میشی؟!! یه خورده منظور برنامه رو بهتر بنویس.

 

[sirous_sus]

عزیز شما یه بار اونی که نوشتی رو بخون ببین خودت متوجه میشی؟!! یه خورده منظور برنامه رو بهتر بنویس.

آخه همینو بهم داده
اینارو از روی برگه زدم