UGN Security Forums
My ProfileMember DirectoryLogin
Search our ForumsView our FAQView our Site Rules
View our CalendarView our Active TopicsGo to our Main Page

UGN Security Store
 

Network Sites UGN Security, The GoNix Initiative, Elite Web Gamers, Back of the Web, EveryDay Helper, VNC Web Design & Development
December
Su M Tu W Th F Sa
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31
Sponsored Links
Latest Postings
Latest Reviews
Topic Options
Rate This Topic
#17800 - 06/16/02 12:03 AM need help
BackSlash Offline
UGN's Resident Homo

Registered: 03/16/02
Posts: 599
Loc: 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."

Top
Sponsored Links
      
#17801 - 06/16/02 01:39 PM Re: need help
Soap Offline
Member

Registered: 03/08/02
Posts: 119
Loc: 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
 

Top
#17802 - 06/16/02 01:40 PM Re: need help
Soap Offline
Member

Registered: 03/08/02
Posts: 119
Loc: 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
 

Top
#17803 - 06/16/02 01:45 PM Re: need help
Soap Offline
Member

Registered: 03/08/02
Posts: 119
Loc: AfriKA
damn me.....

Top
#17804 - 06/16/02 06:50 PM Re: need help
BackSlash Offline
UGN's Resident Homo

Registered: 03/16/02
Posts: 599
Loc: 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."

Top
#17805 - 06/16/02 07:02 PM Re: need help
BackSlash Offline
UGN's Resident Homo

Registered: 03/16/02
Posts: 599
Loc: 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."

Top
#17806 - 06/17/02 04:36 AM Re: need help
Soap Offline
Member

Registered: 03/08/02
Posts: 119
Loc: 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

Top
#17807 - 06/17/02 08:21 AM Re: need help
SilentRage Offline
DollarDNS Owner

Registered: 03/04/02
Posts: 1273
Loc: 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

Top
#17808 - 06/17/02 02:44 PM Re: need help
BackSlash Offline
UGN's Resident Homo

Registered: 03/16/02
Posts: 599
Loc: TN
alright, i'll try that, thanks
_________________________
"It's better to burn out, than to fade away."

Top
#17809 - 06/17/02 05:05 PM Re: need help
olosoft Offline
Member

Registered: 03/02/02
Posts: 143
Loc: .
yea, i was gonna put exactly what sr put, i dunno what the hell the rest of you were talking about....

Top

Featured Member
Registered: 10/28/14
Posts: 1
Forum Stats
2152 Members
46 Forums
36214 Topics
71384 Posts

Max Online: 1567 @ 04/25/10 05:20 AM
Top Posters
UGN Security 29375
Gremelin 7193
§intå× 3255
SilentRage 1273
Ice 1146
pergesu 1136
Infinite 1041
jonconley 955
Girlie 908
unreal 860
Newest Members
cdefgh368568, HushHush, golqm, Tim050, Gecko666
2151 Registered Users
Who's Online
0 registered (), 364 Guests and 340 Spiders online.
Key: Admin, Global Mod, Mod
Latest News


Donate
  Get Firefox!
Get FireFox!