این برنامه ساده رو کسی بلد هست بنویسه ؟

[3ッドマクス]

سلام من پس فردا اامتحان دارم خواهشا کمک کنید :41:

من دوتا برنامه ساده میخوام بنویسم !

اولیش : برنامه ای بنویسید که وقتی تو 4 تا تکست باکس 4 تا عدد رو وارد میکنید و روی ok کلیک میکنیم عدد های زوج بره تو یه کادر و عدد های فرد تو کادر دیگه ؟

دومیش : برنامه بنویسید که با زدن دکمه ADD با توجه به اینکه کنترل روی کدام عنصر List box می باشد آن عنصر را به combo box اضافه نماید ؟

یه جون مرد پیدا بشه کمک کنه ما رو نجات بده :10:

این دوتا برنامه زیر هم کسی بنویسه ممنونش میشم .

برنامه ای بنویسید که نام و معدل تعدادی دانش آموز را توسط دکمه input گرفته و شامل دکمه ای به نام maxavg می باشد که معدل دانش اموزانی که معدل آنها بیشتر از معدل کل کلاس باشد را به list box1 اضافه نماید .

برنامه ای بنویسید که وقتی روی ok کلیک میکنیم یه تصویر روی صفحه اضافه کنه و رنگ فرم رو به صورت صورتی در بیاره ...

[RapidPc]

به چه برنامه اي بنويسيم
++c
vb
#c

[3ッドマクス]

ویژوال بیسیک . Vb

[samiblog]

-------برای اجدا کردن اعداد زوج و فرد----------------------------------------
Private Sub Command1_Click()
Dim cc As String
cc = Text1.Text & Text2.Text & Text3.Text & Text4.Text
For i1 = 1 To Len(cc)
k = Mid(cc, i1, 1)
If k Mod 2 = 0 Then
Label1.Caption = Label1.Caption & k 'adad zoj dar
label1 garar migiram
Else
Label2.Caption = Label2.Caption & k 'adad fard dar
label2 garar migiran
End If
Next i1
End Sub
-----------------تمرین 2-----------------------------------------
Private Sub Command1_Click()
'in ye barname sade hastesh vagti ti yek onsor ro dar list entekhab
mikoni ba zadan add be combo ezafe mishe
Combo1.AddItem List1.Text
End Sub
-----------------تمرین اظافه کردن عکس-------------------------------------
-------
Private Sub Command1_Click()
Me.Picture = LoadPicture("مسیر عکس رو در اینجا قرار بده")
Me.BackColor = &H8080FF
End Sub
------------------------- تمرین معدل برای دانش اموزان------------------------
Option Base 1
Dim arrm(1 To 5) As Integer
Dim arrn(1 To 5) As String
Private Sub Command1_Click()
Dim inp As Integer
Dim avvg As Integer
For i = 1 To 5
inp2 = InputBox("!!!!!!!!!!!!!name danesh amozan ro vared konid")
arrn(i) = inp2
inp = InputBox("moadel danesh amozan : " & arrn(i))
arrm(i) = inp
avvg = avvg + arrm(i)
Next i
For j = 1 To 5
Avg = avvg / 5
Label1.Caption = Avg
If arrm(j) > Avg Then
List1.AddItem arrn(j)
End If
Next j
End Sub

[3ッドマクス]

دوست عزیز فوق العاده ممنون من میرم روشون کار کنم بازم ممنون ...

[3ッドマクス]

من دوتا سوال دیگه ام دارم اولیش اینکه اگر بخوام برنامه ای بنویسم که در 3 تکست باکس عددی وارد کنم و قتی ok میزنم بزرگ ترین عدد رو توی تکست باکس 4 نمایش داده بشه چه کدی باید بنویسم ؟
و دوم اینکه میخوام برنامه ای بنویسم که دوتا لیست باکس داشته باشه و توی لیست باکس اولی چندتا نام که وقتی یکی از نام ها رو انتخاب میکنم و روی ok کلیک میکنم اون نام بره از بیست باکس اولی به دومی منتقل بشه !

اهان راستی یه برنامه دیگه هم هست که فکر کنم آخریش هست ! :31: چطور میشه برنامه ای نوشت که وقتی روی فروم کلیک میکنی یه دایره قسمتی که اشاره گر موس هست ظاهر بشه ؟

این 3 تا رو هم یکی از دوستان جواب بده دیگه برادری رو در حقم کامل کردید :10:

[j a n]

این سه تایی که خواسته بودی

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
یک پروژست با سه تا فرم که هر تا برنامه که خواستی توشه
البته سومی رو اگر درست منظورت رو فهمیده باشم