ورود

نسخه کامل مشاهده نسخه کامل : یه مشکل خیلی ساده با اولین پروژه VB در دانشگاه



rastinb
11-12-2016, 18:59
سلام به همه ی دوستان
من دانشجو ترم اول نرم افزارم
استاد ما یه پروژه داده تکمیل کنیم.حتی کد پروژه هم در اختیارمون گذاشته ولی وقتی میخوام اجرا بگیرم ارور میده.متن ارور رو چک کردم توی سایت های خارجی ولی چیزی دستگیرم نشد.
با ویژوال هم خیلی کم کار کردم و سر رشته ندارم !!!!




:n33:توضیح پروژه : یک برنامه بنویسید که عدد از 0 تا 20 (نمره ی یک دانشجو) رو از ورودی بگیره و طبق اون نمره به دانشجو رتبه بده.



:n33:جدول رتبه بندی :

نمرات از 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
دوستانی که بلدن اگه ممکنه یه اجرا بگیرن از این فرم و مشکلش رو بهم بگن. فرم هم سیو کردم اتچ میکنم زیر همین پست.ممنون از شما


فرم پروژه >>>>>>>> لینک دانلود فرم پروژه ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

rastinb
11-12-2016, 19:01
راستی اینم بگم که هر سری که دستکاری میکنم یه ارور میده واسه همین متن ارور رو نذاشتم. حس میکنم کلآ یه جای کار میلنگه .............!

kenzu
11-12-2016, 19:03
number رو به num تغییر بده احتمالا درست میشه

rastinb
11-12-2016, 23:07
number رو به num تغییر بده احتمالا درست میشهخیر متاسفانه نشد

JustVB6
13-01-2017, 05:00
خب عزیزم چرا 2 تا اضافی گذاشتی اینو
End Sub


درضمن کدت هم باگ داره می تونی از این هم استفاده کنی



Dim Num As Integer
Num = Val(Text1.Text)
Select Case Num
Case 0 To 9
Text2.Text = "F"
Case 10 To 12
Text2.Text = "E"
Case 13 To 14
Text2.Text = "D"
Case 15 To 16
Text2.Text = "C"
Case 17 To 18
Text2.Text = "B"
Case 19 To 20
Text2.Text = "A"
Case Else
Text2.Text = "Nadorost"
End Select

mahdi.askari
20-01-2017, 03:28
ویژوال بسیک رو ران از ادمینستریتور اجرا کن