מישהו יכול להסביר לי על הנושא inputbox ב-visual basic או להפנות אותי לאתר בעברית שיכול להסביר על הנושא אודה למי שיעשה בשבילי את זה או להפנות אותי לספר בנושא.

fcbrcelona

כך שהמשתמש יקליד טקסט כלשהו ותוכל להשתמש בו בתוכנה על ידי קליטה למשתנה למשל.
דוגמא למשהו קטנטן:

קוד:

 dim inputText as string 
 
inputText = inputbox("Please enter some text")
 
msgbox "The text you entered was: " & inputText 

בתקווה שהעניין יותר ברור לך עכשיו.

נכון אבל נגיד איך אני עושה הכנס סיסמא ורק שהסיסמא תהיה 147896325 אז המשתמש יוכל להכנס לform1 .


fcbarcelona

ומגדיר מה הסיסמא הדרושה בשביל שהטופס ייפתח.

קוד PHP:

 inputText = inputbox("Please enter some text")

if inputText=147896325 then
     bla bla bla... 


אם המשתנה שאליו הכנסת את הנתון מה inputbox שווה לסיסמא אז לאפשר למשתמש להכנס

אני לא עובד אם vb אז אולי הסינטקס לא נכון

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.maxthon.com/logo/maxthon2_2.gif]

אבל את הסיסמא עצמה הייתי ממליץ לשים בתור CONST במקום בולט בקוד כדי שיהיה יותר קל להחליף אותה בעתיד.

סליחחה!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

אני חדש יחסית ב-vb ואני לומד לבד רוב הזמן אז אם אתה יכול להביא לי קוד שמציג מה זה ה-const ואם אתה יכול להסביר לי מה זה




fcbarcelona

תחפש קצת בגוגל לגבי ה-syntax המדוייק של זה...
בתכל'ס זה להגדיר משהו קבוע במקום משתנה, אבל אתה יכול גם להגדיר משתנה
ואז לבדוק במשפט ה-IF אם מה שהתקבל ב-inputbox שווה לתוכן המשתנה (או הקבוע).

בתקווה שזה ברור מספיק.

שלום!!!!!!!!!1

הייתי רוצה שתענה לי מ הבעיה בשאלה שכתבתי ????

שאחרי התגובה הזאת!!!!!!!!!!!!!!!!!!!

fcbarcelona

שלום

הופיעה לי הטעות הבאה block if without end if שאלה מה זה אומר?

השאלה השניה היא מה הבעיה הבקוד הזה עם השגיאה הזו?

קוד:

 Private Sub chkExperience_Click()
If Me.chkExperience.Value Then
Me.lblExperience.Visible = True
Me.txtExperience.Visible = True
Else
Me.lblExperience.Visible = False
Me.txtExperience.Visible = False
End If
End Sub
 
Private Sub cmcExit_Click()
End
End Sub
Private Sub cmdResult_Click()
Dim strTemp As String
Dim boolMale As Boolean
Dim boolFemale As Boolean
Dim intMsgBox As Integer
boolMale = Me.optMale.Value
boolFemale = Me.optFemale.Value
If boolMale = True Then
If Me.chkArmyOfficer.Value = True Then strTemp = "ùéøúúé áöáà ë÷öéï" & "àðé áï."
If boolFemale = True Then
If Me.chkArmyOfficer.Value = True Then strTemp = "ùéøøúé áöáà ë÷öéðä" & "àðé áú."
End If
If Me.optAgeTo18.Value = True Then
strTemp = strTemp & " ôçåú îâéì 18, "
ElseIf Me.optAge19To39.Value = True Then
strTemp = strTemp & "áéï 19 ì-39, "
ElseIf Me.optAge40To64.Value = True Then
strTemp = strTemp & " áéï 40 ì-64, "
ElseIf Me.optAge65Plus.Value = True Then
strTemp = strTemp & " îòì âéì 65, "
End If
If Me.chkExperience.Value Then
If Me.chkShowExperienceInResults.Value = True Then
strTemp = strTemp & "åäðéñéåï ùìé äåà:" & vbCr & Me.txtExperience.Text & vbCr
ElseIf Me.chkShowExperienceInResults = False Then
strTemp = strTemp & "àéï ìé ðéñéåï." & vbCr
End If
intMsgBox = MsgBox(strTemp, vbMsgBoxRight + vbMsgBoxRtlReading + _
vbInformation + vbYesNo, "ôøèéí òáåø " & Me.txtName.Text)
If intMsgBox = vbYes Then
MsgBox "äú÷áìú " & Me.txtName.Text & " ðøùîú ìòáåãä,úåãä!", vbMsgBoxRtlReading
ElseIf intMsgBox = vbNo Then
MsgBox "ãçåééú " & Me.txtName.Text & " ðøùîä,úåãä!", vbMsgBoxRight
End Sub

או בקובץ הבא:

https://2006-uploaded.fresh.co.il/2...13/94877880.rar

אני לא יודע VB אבל לפי ה-error ולפי מה שקראתי:

קוד:

***If Me.chkExperience.Value Then*** <== i think its not closed
If Me.chkShowExperienceInResults.Value = True Then
strTemp = strTemp & "&aring;&auml;&eth;&eacute;&ntilde;&eacute;&aring;&iuml; &ugrave;&igrave;&eacute; &auml;&aring;&agrave;:" & vbCr & Me.txtExperience.Text & vbCr
ElseIf Me.chkShowExperienceInResults = False Then
strTemp = strTemp & "&agrave;&eacute;&iuml; &igrave;&eacute; &eth;&eacute;&ntilde;&eacute;&aring;&iuml;." & vbCr
End If
intMsgBox = MsgBox(strTemp, vbMsgBoxRight + vbMsgBoxRtlReading + _
vbInformation + vbYesNo, "&ocirc;&oslash;&egrave;&eacute;&iacute; &ograve;&aacute;&aring;&oslash; " & Me.txtName.Text)
***If intMsgBox = vbYes Then*** <=== and i think this is not closed either
MsgBox "&auml;&uacute;÷&aacute;&igrave;&uacute; " & Me.txtName.Text & " &eth;&oslash;&ugrave;&icirc;&uacute; &igrave;&ograve;&aacute;&aring;&atilde;&auml;,&uacute;&aring;&atilde;&auml;!", vbMsgBoxRtlReading
ElseIf intMsgBox = vbNo Then
MsgBox "&atilde;&ccedil;&aring;&eacute;&eacute;&uacute; " & Me.txtName.Text & " &eth;&oslash;&ugrave;&icirc;&auml;,&uacute;&aring;&atilde;&auml;!", vbMsgBoxRight
End Sub

שוב... אני לא יודע VB אבל אני מנחשב אלו הבעיות

זו אחת מהודעות השגיאה הברורות יחסית, לא?
המבנה הוא
IF... THEN
...
ELSE
...
END IF
וגם אם לא כתבת ELSE, עדיין צריך END IF.
(אני חושב שלא צריך END IF רק אם כתבת הכל בשורה אחת ובלי ELSE, אבל אני לא בטוח...)

בהצלחה!
(ושהכל יהיה שקט)

שלום!!!!!!!!!!!!!!!11

מישהו יכול לפתוח קובץ זה ולראות מה לא טוב בו ולשלוח לי אותו חזרה!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


https://2006-uploaded.fresh.co.il/2...13/26972023.rar

שלום!!!

הייתי רוצה שתענה לי על השאלה שבתגובה שלפני זאת (=לפתוח את הקובץ) בבקשה!!!


fcbarcelona

זה ממש דומה ל PHP..

קוד:

Private Sub chkExperience_Click()
	If Me.chkExperience.Value Then
		Me.lblExperience.Visible = True
		Me.txtExperience.Visible = True
	Else
		Me.lblExperience.Visible = False
		Me.txtExperience.Visible = False
	End If
End Sub
Private Sub cmcExit_Click()
End
End Sub
 
Private Sub cmdResult_Click()
	Dim strTemp			 As String
	Dim boolMale			As Boolean
	Dim boolFemale		 As Boolean
	Dim intMsgBox		 As Integer
 
	boolMale = Me.optMale.Value
	boolFemale = Me.optFemale.Value
	If boolMale = True Then
		If Me.chkArmyOfficer.Value = True Then
			strTemp = "שירתתי בצבא כקצין" & "אני בן."
		End If
	ElseIf boolFemale = True Then
		If Me.chkArmyOfficer.Value = True Then
			strTemp = "שיררתי בצבא כקצינה" & "אני בת."
		End If
	End If
	If Me.optAgeTo18.Value = True Then
		strTemp = strTemp & " פחות מגיל 18, "
	ElseIf Me.optAge19To39.Value = True Then
		strTemp = strTemp & "בין 19 ל-39, "
	ElseIf Me.optAge40To64.Value = True Then
		strTemp = strTemp & " בין 40 ל-64, "
	ElseIf Me.optAge65Plus.Value = True Then
		strTemp = strTemp & " מעל גיל 65, "
	End If
	If Me.chkExperience.Value Then
		If Me.chkShowExperienceInResults.Value = True Then
			strTemp = strTemp & "והניסיון שלי הוא:" & vbCr & Me.txtExperience.Text & vbCr
		ElseIf Me.chkShowExperienceInResults = False Then
			strTemp = strTemp & "אין לי ניסיון." & vbCr
		End If
	End If
	intMsgBox = MsgBox(strTemp, vbMsgBoxRight + vbMsgBoxRtlReading + _
	vbInformation + vbYesNo, "פרטים עבור " & Me.txtName.Text)
	If intMsgBox = vbYes Then
		MsgBox "התקבלת " & Me.txtName.Text & " נרשמת לעבודה,תודה!", vbMsgBoxRtlReading
	ElseIf intMsgBox = vbNo Then
		MsgBox "דחויית " & Me.txtName.Text & " נרשמה,תודה!", vbMsgBoxRight
	End If
End Sub