Previous Thread
Next Thread
Print Thread
Rate Thread
#17800 06/15/02 09:03 PM
Joined: Mar 2002
Posts: 599
UGN's Resident Homo
OP Offline
UGN's Resident Homo
Joined: Mar 2002
Posts: 599
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."
#17801 06/16/02 10:39 AM
Joined: Mar 2002
Posts: 119
Member
Offline
Member
Joined: Mar 2002
Posts: 119
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 10:40 AM
Joined: Mar 2002
Posts: 119
Member
Offline
Member
Joined: Mar 2002
Posts: 119
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 10:45 AM
Joined: Mar 2002
Posts: 119
Member
Offline
Member
Joined: Mar 2002
Posts: 119
damn me.....

#17804 06/16/02 03:50 PM
Joined: Mar 2002
Posts: 599
UGN's Resident Homo
OP Offline
UGN's Resident Homo
Joined: Mar 2002
Posts: 599
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."
#17805 06/16/02 04:02 PM
Joined: Mar 2002
Posts: 599
UGN's Resident Homo
OP Offline
UGN's Resident Homo
Joined: Mar 2002
Posts: 599
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 01:36 AM
Joined: Mar 2002
Posts: 119
Member
Offline
Member
Joined: Mar 2002
Posts: 119
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 05:21 AM
Joined: Mar 2002
Posts: 1,273
DollarDNS Owner
Offline
DollarDNS Owner
Joined: Mar 2002
Posts: 1,273
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 11:44 AM
Joined: Mar 2002
Posts: 599
UGN's Resident Homo
OP Offline
UGN's Resident Homo
Joined: Mar 2002
Posts: 599
alright, i'll try that, thanks


"It's better to burn out, than to fade away."
#17809 06/17/02 02:05 PM
Joined: Mar 2002
Posts: 143
Member
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....


Link Copied to Clipboard
Member Spotlight
Posts: 43
Joined: November 2002
Forum Statistics
Forums41
Topics33,840
Posts68,858
Average Daily Posts1
Members2,176
Most Online3,253
Jan 13th, 2020
Latest Postings
Where and how do you torrent?
by danni75 - 03/01/24 05:58 AM
Animation,
by JohanKaariainen - 08/15/19 01:18 AM
Blackbeard.....
by Gremelin - 10/03/18 07:02 PM
my old account still exists!
by Crime - 08/10/18 02:47 PM
Okay WTF?
by HenryMiring - 09/27/17 01:45 AM
The History Thread...
by Gremelin - 08/11/17 12:11 PM
My friend NEEDS your HELP!
by Lena01 - 07/21/17 12:06 AM
I'm having fun with this guy.
by gabithompson730 - 07/20/17 01:50 AM
I want to upgrade my phone
by gabithompson730 - 07/20/17 01:49 AM
Doom 3
by Cyrez - 09/11/14 08:58 PM
Amazon Gift Card Generator/KeyGen?te
by Gecko666 - 08/22/14 09:21 AM
AIM scene 99-03
by lavos - 09/02/13 08:06 AM
Planetside 2
by Crime - 03/04/13 07:10 AM
Beta Testers Wanted
by Crime - 03/04/13 06:55 AM
Hello Everyone
by Gremelin - 02/12/12 06:01 PM
Tracfone ESN Generator
by Zanvin Green - 01/18/12 01:31 PM
Python 3 issue
by Testing - 12/17/11 09:28 PM
tracfone airtime
by Drache86 - 07/30/11 03:37 AM
Backdoors and the Infinite
by ZeroCoolStar - 07/10/11 03:52 AM
HackThisZIne #12 Releaseed!
by Pipat2 - 04/28/11 09:20 PM
gang wars? l33t-wars?
by Gremelin - 04/28/11 05:56 AM
Consolidate Forums
by diggin2deep - 04/21/11 10:02 AM
LAN Hacking Noob
by Gremelin - 03/12/11 12:42 AM
Top Posters
UGN Security 41,392
Gremelin 7,203
§intå× 3,255
SilentRage 1,273
Ice 1,146
pergesu 1,136
Infinite 1,041
jonconley 955
Girlie 908
unreal 860
Top Likes Received
Ghost 2
unreal 1
Crime 1
Ice 1
Dartur 1
Powered by UBB.threads™ PHP Forum Software 7.7.5