درخاست پروژه

[CFZ]

سلان به همه دوستان
من يه پروژه داشتم ولي نمي دونم اونركامل كنم.
پروژه من از اين قراره
يه برنامه كه از طريق چهار تا كاماند باتون بتونه چهار درس يك دانش آموز رو از طريقINPUTBOXدريافت كنه ومعدل اون طرف رو تو ليبل نشون بده و در صورتي كه معدل اون يارو از12 كمتر بود برنامه ارور بده

ممنون ميشم اگه كسي اين برنامه رو بنويسه و تو سايت بزاره
:arrow:

[Mohandese_Javan]

سلام!
منظورت اينه:

کد:

Dim a As String, b As String, c As String, d As String
Dim avg As integer

Private Sub Command1_Click()

a = InputBox("äãÑå ÏÑÓ ÚÑÈí ÑÇ æÇÑÏ ˜äíÏ:", "ÚÑÈí")

End Sub

Private Sub Command2_Click()
b = InputBox("äãÑå ÏÑÓ ÑíÇÖí ÑÇ æÇÑÏ ˜äíÏ:", "ÚÑÈí")
End Sub

Private Sub Command3_Click()
c = InputBox("äãÑå ÏÑÓ ÒÈÇä ÑÇ æÇÑÏ ˜äíÏ:", "ÚÑÈí")
End Sub

Private Sub Command4_Click()
d = InputBox("äãÑå ÏÑÓ ÝíÒí˜ ÑÇ æÇÑÏ ˜äíÏ:", "ÚÑÈí")
End Sub

Private Sub Command5_Click()
avg=(Val(a) + Val(b) + Val(c) + Val(d)) / 4
Label1.Caption = avg
if avg < 12 then
msgbox "number <12",64,"sorry"
end if
End Sub

اونايي ناخواناس يه پيام فارسي بود هر چي خودت گذاشتي
:?:

[CFZ]

فك كنم همين باشه

مشكل كار من تو متغير ها بود بعد از وارد كردن عداد اوريج هميشه صفر ميشد
ولي حالا برم اين كد را امتحان بكنم؟

[Mohandese_Javan]

سلام!
البته من تو كد بالا اينجوري نوشته بودم:

کد:

Dim avg As integer

ولي اينجوري اگه معدا اعشار داشته باشه اعشارش رو نشون نميده. ولي اگه اينجوري تعريفش كني اعشاري هم نشون ميده:

کد:

Dim Avg As Single

:wink: