Page 63 - أساسيات الحاسب الالي2
P. 63
جمل التحكم الفصل الرابع
مثال
اس تخدم العب ارة ال شرطية ف ى التحق ق م ن كلم ة ال سر المدخل ة م ن الم ستخدم ف إذا كان ت
NADAبالحروف الصغيرة أو الكبيرة نظهر صندوق نص ب ه رس الة تخب ر الم ستخدم
بأنه مسموح له بدخول النظام وإﻻ نظه ر ص ندوق ن ص ب ه رس الة تخب ر الم ستخدم بأن ه
غير مسموح له بدخول النظام.
)(Sub Main
Dim password As String
)"password = InputBox("Enter Pass Word
If password = "" Then
)"MsgBox("Please Enter Pass Word
Else
If UCase(password) = "NADA" Then
)"النظام بدخول لك يسمح"(MsgBox
Else
)"النظام بدخول لك مسموح غير"(MsgBox
End
End If
End If
End Sub
٦٣
