سلام به همه ی دوستان
من دانشجو ترم اول نرم افزارم
استاد ما یه پروژه داده تکمیل کنیم.حتی کد پروژه هم در اختیارمون گذاشته ولی وقتی میخوام اجرا بگیرم ارور میده.متن ارور رو چک کردم توی سایت های خارجی ولی چیزی دستگیرم نشد.
با ویژوال هم خیلی کم کار کردم و سر رشته ندارم !!!!
توضیح پروژه : یک برنامه بنویسید که عدد از 0 تا 20 (نمره ی یک دانشجو) رو از ورودی بگیره و طبق اون نمره به دانشجو رتبه بده.
جدول رتبه بندی :
نمرات از 18 تا 20 ======= A
نمرات از 16 تا 18 ======= B
نمرات از 14 تا 16 ======= C
نمرات از 12 تا 14 ======= D
نمرات از 10 تا 12 ======= E
نمرات از 0 تا 10 ======= F
دستورات VB:
Private Sub Exit_Click()
End
End Sub
Private Sub RUN_Click()
Dim Num As Single
Num = Val(Text1.Text)
If Num > 20 Or Num < 0 Then Text2.Text = "PLZ Enter 0/20"
End Sub
Select Case Number
Case Is >= 18
Text2.Text = "A"
Case Is >= 16
Text2.Text = "B"
Case Is >= 14
Text2.Text = "C"
Case Is >= 12
Text2.Text = "D"
Case Is >= 10
Text2.Text = "E"
Case Else
Text2.Text = "F"
End Select
End Sub
دوستانی که بلدن اگه ممکنه یه اجرا بگیرن از این فرم و مشکلش رو بهم بگن. فرم هم سیو کردم اتچ میکنم زیر همین پست.ممنون از شما
فرم پروژه >>>>>>>>
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]