sinbad68
Registered User
- تاریخ عضویت
- 6 دسامبر 2006
- نوشتهها
- 272
- لایکها
- 21
يك برنامه ساده.
اين برنامه معدل يه دانش آموز يا دانشجو رو دريافت مي كنه وبه شما ميگه كه خوبه يا بده . اين موضوع رو به صورت نوشتاري و رنگ به كاربر اعلام ميكنه.
اجزاي اين برنامه شامل زير است:
يك عدد Command
سه عدد label
براي امروز بسه.
تا بعد.
اين برنامه معدل يه دانش آموز يا دانشجو رو دريافت مي كنه وبه شما ميگه كه خوبه يا بده . اين موضوع رو به صورت نوشتاري و رنگ به كاربر اعلام ميكنه.
اجزاي اين برنامه شامل زير است:
يك عدد Command
سه عدد label
کد:
Private Sub Command2_Click()
Dim num As Variant
num = InputBox("Please enter your average")
If num >= 1 And num <= 10 Then
Label3.BackColor = vbRed
Label1.BackColor = vbWhite
Label2.BackColor = vbWhite
Else
If num > 10 And num <= 15 Then
Label2.BackColor = vbYellow
Label1.BackColor = vbWhite
Label3.BackColor = vbWhite
Else
If num > 15 Then
Label1.BackColor = vbGreen
Label2.BackColor = vbWhite
Label3.BackColor = vbWhite
End If
End If
End If
End Sub
براي امروز بسه.
تا بعد.