Your browser does not seem to support CSS. If images appear below, please disregard them.
It appears that you're running an Ad-Blocker. This site is monetized by Advertising and by User Donations; we ask that if you find this site helpful that you whitelist us in your Ad-Blocker, or make a Donation to help aid in operating costs.
Previous Thread
Next Thread
Print Thread
Rate This Thread
#17800 - 06/16/02 04:03 AM need help  
Joined: Mar 2002
Posts: 599
BackSlash Offline
UGN's Resident Homo
BackSlash  Offline
UGN's Resident Homo

Joined: Mar 2002
Posts: 599
TN
i don't know anything about visual basic, but i'm trying to create something that has a 2 text boxes and a button. my idea is that the user types something in the first text box, then clicks the button, and if the text he typed is correct the second text box will display "correct" or "wrong" if the user is wrong. so far i've got my two text boxes on there name text1 and text2, then i clicked the button to get to the code and did the following...

Private Sub Command1_Click()
passwordX = Val(Text1.Text)
If passwordX = "hey" Then
display.Text2 = "Access Granted"
Else
display.Text2 = "Access Denied"
End If

End Sub

as i said i have no experience so i'm not expecting to even be close, but i was just wondering if someone could tell me how it would be done. thanks


"It's better to burn out, than to fade away."
Sponsored Links
#17801 - 06/16/02 05:39 PM Re: need help  
Joined: Mar 2002
Posts: 119
Soap Offline
Member
Soap  Offline
Member

Joined: Mar 2002
Posts: 119
AfriKA
I think that's globally correct apart from one bit.

Code:
 
If passwordX = "hey" Then
[B]display.Text2[/B] = "Access Granted"
Else
[B]display.Text2 [/B]= "Access Denied"
End If
 
i don't what display.text2 would do but if you have a txtbox control called text2 if think it would be smtg like

Code:
 
If passwordX = "hey" Then
[B]Text2.text[/B] = "Access Granted"
Else
[B]Text2.text [/B]= "Access Denied"
End If
 

#17802 - 06/16/02 05:40 PM Re: need help  
Joined: Mar 2002
Posts: 119
Soap Offline
Member
Soap  Offline
Member

Joined: Mar 2002
Posts: 119
AfriKA
I think that's globally correct apart from one bit.

Code:
 
If passwordX = "hey" Then
[B]display.Text2[/B] = "Access Granted"
Else
[B]display.Text2 [/B]= "Access Denied"
End If
 
i don't what display.text2 would do but if you have a txtbox control called text2 if think it would be smtg like

Code:
 
If passwordX = "hey" Then
[B]Text2.text[/B] = "Access Granted"
Else
[B]Text2.text [/B]= "Access Denied"
End If
 

#17803 - 06/16/02 05:45 PM Re: need help  
Joined: Mar 2002
Posts: 119
Soap Offline
Member
Soap  Offline
Member

Joined: Mar 2002
Posts: 119
AfriKA
damn me.....

#17804 - 06/16/02 10:50 PM Re: need help  
Joined: Mar 2002
Posts: 599
BackSlash Offline
UGN's Resident Homo
BackSlash  Offline
UGN's Resident Homo

Joined: Mar 2002
Posts: 599
TN
humm, only once was necesarry, but thanks. i will try that and let you know


"It's better to burn out, than to fade away."
Sponsored Links
#17805 - 06/16/02 11:02 PM Re: need help  
Joined: Mar 2002
Posts: 599
BackSlash Offline
UGN's Resident Homo
BackSlash  Offline
UGN's Resident Homo

Joined: Mar 2002
Posts: 599
TN
i tried that, and it works better, no more error messages, however, it comes up as "Access Granted" no matter what the password is. Below is the code i used.

Private Sub Command1_Click()
passwordX = Val(Text1.Text)
If passwordX = hey Then
Text2.Text = "Access Granted"
Else
Text2.Text = "Access Denied"
End If
End Sub


"It's better to burn out, than to fade away."
#17806 - 06/17/02 08:36 AM Re: need help  
Joined: Mar 2002
Posts: 119
Soap Offline
Member
Soap  Offline
Member

Joined: Mar 2002
Posts: 119
AfriKA
I know I posted lousely...That's y I said "damn me"

ANyway about your code well aparently the error is a the pw check

the comparison part I mean:
Code:
 If passwordX = hey Then 
try putting hey bettwen "" like

Code:
 If passwordX = "hey" Then 
that prolly won't do jack so I recommend u try and debug it:
MAke sure the passwordX variable contains the password BEFORE the comparison occurs.

If I sound confusing plz let me know

#17807 - 06/17/02 12:21 PM Re: need help  
Joined: Mar 2002
Posts: 1,273
SilentRage Offline
DollarDNS Owner
SilentRage  Offline
DollarDNS Owner

Joined: Mar 2002
Posts: 1,273
OH, USA
Code Correction and modified for efficiency

Private Sub Command1_Click()
If Text1.Text = "hey" Then
Text2.Text = "Access Granted"
Else
Text2.Text = "Access Denied"
End If
End Sub

I don't know why you tried to use the "Val" function. That converts text into numbers. "hey" is converted to 0. "123" is converted to 123. And you don't need to use a variable anyway.


Domain Registration, Hosting, Management
http://www.dollardns.net
#17808 - 06/17/02 06:44 PM Re: need help  
Joined: Mar 2002
Posts: 599
BackSlash Offline
UGN's Resident Homo
BackSlash  Offline
UGN's Resident Homo

Joined: Mar 2002
Posts: 599
TN
alright, i'll try that, thanks


"It's better to burn out, than to fade away."
#17809 - 06/17/02 09:05 PM Re: need help  
Joined: Mar 2002
Posts: 143
olosoft Offline
Member
olosoft  Offline
Member

Joined: Mar 2002
Posts: 143
.
yea, i was gonna put exactly what sr put, i dunno what the hell the rest of you were talking about....

Sponsored Links

Member Spotlight
Gremelin
Gremelin
Portland, OR; USA
Posts: 7,195
Joined: February 2002
Show All Member Profiles 
Forum Statistics
Forums45
Topics47,469
Posts82,639
Average Daily Posts8
Members2,159
Most Online1,567
Apr 25th, 2010
Latest Postings
Top Posters(All Time)
UGN Security 40,633
Gremelin 7,195
§intå× 3,255
SilentRage 1,273
Ice 1,146
pergesu 1,136
Infinite 1,041
jonconley 955
Girlie 908
unreal 860
Top Liked Users (All Time)
§intå× Likes: 1
Cold Sunn Likes: 1
Crime Likes: 1
Cyrez Likes: 1
Ghost Likes: 1
Gremelin Likes: 4
Ice Likes: 1
unreal Likes: 1
Top Liked Users (30 Days)
No Data Found
Powered by UBB.threads™ PHP Forum Software 7.6.0
(Snapshot build 20160902)