/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
case
Fra : Kurt G


Dato : 15-04-07 18:50

Hej NG!

Jeg er helt ny med visual basic, så det er måske et banalt spørgsmål:

Jeg vil gerne bruge et case til at checke brugernavn og password. Der kommer
max 6 brugernavne med tilhørende password.
Men kan man gøre det med case og hvordan?

Mvh Kurt



 
 
Nikolaj Svendsen (15-04-2007)
Kommentar
Fra : Nikolaj Svendsen


Dato : 15-04-07 18:59


"Kurt G" <kurt_g@guldbaek.net> skrev i en meddelelse
news:462265d8$0$90268$14726298@news.sunsite.dk...
> Hej NG!
>
> Jeg er helt ny med visual basic, så det er måske et banalt spørgsmål:
>
> Jeg vil gerne bruge et case til at checke brugernavn og password. Der
> kommer max 6 brugernavne med tilhørende password.
> Men kan man gøre det med case og hvordan?
>
> Mvh Kurt
>

Kan du ikke bare bruge

if password = "password" or brugernavn = "brugernavn" then
det der skal udføres
end if



Nikolaj Svendsen (15-04-2007)
Kommentar
Fra : Nikolaj Svendsen


Dato : 15-04-07 20:23


"Kurt G" <kurt_g@guldbaek.net> skrev i en meddelelse
news:462265d8$0$90268$14726298@news.sunsite.dk...
> Hej NG!
>
> Jeg er helt ny med visual basic, så det er måske et banalt spørgsmål:
>
> Jeg vil gerne bruge et case til at checke brugernavn og password. Der
> kommer max 6 brugernavne med tilhørende password.
> Men kan man gøre det med case og hvordan?
>
> Mvh Kurt
>
Vb har også en standard form til login lav et nyt project gå op i
project/add form/ log in dialog mener jeg nok



Kurt G (15-04-2007)
Kommentar
Fra : Kurt G


Dato : 15-04-07 22:16

"Nikolaj Svendsen" <nikolaj@logtech.dk> skrev i en meddelelse
news:46227bad$0$4165$ba624c82@nntp02.dk.telia.net...
>
> "Kurt G" <kurt_g@guldbaek.net> skrev i en meddelelse
> news:462265d8$0$90268$14726298@news.sunsite.dk...
>> Hej NG!
>>
>> Jeg er helt ny med visual basic, så det er måske et banalt spørgsmål:
>>
>> Jeg vil gerne bruge et case til at checke brugernavn og password. Der
>> kommer max 6 brugernavne med tilhørende password.
>> Men kan man gøre det med case og hvordan?
>>
>> Mvh Kurt
>>
> Vb har også en standard form til login lav et nyt project gå op i
> project/add form/ log in dialog mener jeg nok
Mit problem er bl.a., at jeg ikke har noget specielt program tilat
programmere basic, det er faktisk i forbindelse med ASP, at jeg skal bruge
det.
/Kurt



Ukendt (16-04-2007)
Kommentar
Fra : Ukendt


Dato : 16-04-07 10:39

"Kurt G" <kurt_g@guldbaek.net> wrote in message
news:462265d8$0$90268$14726298@news.sunsite.dk...
> Hej NG!
>
> Jeg er helt ny med visual basic, så det er måske et banalt spørgsmål:
>
> Jeg vil gerne bruge et case til at checke brugernavn og password. Der
> kommer max 6 brugernavne med tilhørende password.
> Men kan man gøre det med case og hvordan?


En traditionel case struktur vil så være:

LoginOK=False
Select case BrugerNavn.LowerCase
case "ib"
if Password="ostehaps" then LoginOK=True
case "per"
if Password="pitstop" then LoginOK=True
End Select

mvh
///M



Kurt G (16-04-2007)
Kommentar
Fra : Kurt G


Dato : 16-04-07 15:50

>> Hej NG!
>>
>> Jeg er helt ny med visual basic, så det er måske et banalt spørgsmål:
>>
>> Jeg vil gerne bruge et case til at checke brugernavn og password. Der
>> kommer max 6 brugernavne med tilhørende password.
>> Men kan man gøre det med case og hvordan?
>
>
> En traditionel case struktur vil så være:
>
> LoginOK=False
> Select case BrugerNavn.LowerCase
> case "ib"
> if Password="ostehaps" then LoginOK=True
> case "per"
> if Password="pitstop" then LoginOK=True
> End Select
>
> mvh
> ///M
Det forklarer det for mig.
Tak for det.
/Kurt



Gert Krabsen (16-04-2007)
Kommentar
Fra : Gert Krabsen


Dato : 16-04-07 16:35

Kurt G wrote:
>>>Hej NG!
>>>
>>>Jeg er helt ny med visual basic, så det er måske et banalt spørgsmål:
>>>
>>>Jeg vil gerne bruge et case til at checke brugernavn og password. Der
>>>kommer max 6 brugernavne med tilhørende password.
>>>Men kan man gøre det med case og hvordan?
>>
>>
>>En traditionel case struktur vil så være:
>>
>>LoginOK=False
>>Select case BrugerNavn.LowerCase
>> case "ib"
>> if Password="ostehaps" then LoginOK=True
>> case "per"
>> if Password="pitstop" then LoginOK=True
>>End Select
>>
>>mvh
>>///M
>
> Det forklarer det for mig.
> Tak for det.
> /Kurt

Principielt glemte han en..

case else
megbox "ukendt brugernavn"



mvh

Krabsen

Gert Krabsen (16-04-2007)
Kommentar
Fra : Gert Krabsen


Dato : 16-04-07 17:44

Gert Krabsen wrote:
> Kurt G wrote:
>
>>>> Hej NG!
>>>>
>>>> Jeg er helt ny med visual basic, så det er måske et banalt spørgsmål:
>>>>
>>>> Jeg vil gerne bruge et case til at checke brugernavn og password.
>>>> Der kommer max 6 brugernavne med tilhørende password.
>>>> Men kan man gøre det med case og hvordan?
>>>
>>>
>>>
>>> En traditionel case struktur vil så være:
>>>
>>> LoginOK=False
>>> Select case BrugerNavn.LowerCase
>>> case "ib"
>>> if Password="ostehaps" then LoginOK=True
>>> case "per"
>>> if Password="pitstop" then LoginOK=True
>>> End Select
>>>
>>> mvh
>>> ///M
>>
>>
>> Det forklarer det for mig.
>> Tak for det.
>> /Kurt
>
>
> Principielt glemte han en..
>
> case else
> megbox "ukendt brugernavn"
især hvis man kan stave

> case else
> msgbox "ukendt brugernavn"


>

Henrik (16-04-2007)
Kommentar
Fra : Henrik


Dato : 16-04-07 20:47


>>>> LoginOK=False
>>>> Select case BrugerNavn.LowerCase
>>>> case "ib"
>>>> if Password="ostehaps" then LoginOK=True
>>>> case "per"
>>>> if Password="pitstop" then LoginOK=True
>>>> End Select

> > case else
> > msgbox "ukendt brugernavn"



Undskyld mig, men jeg har også prøvet den kode ^
men hvorfor sætter den streg under "LoginOK" der står bare at "LoginOK" is
no declared.
nogen der har en idé til hvordan jeg fjerne stregen?



Gert Krabsen (16-04-2007)
Kommentar
Fra : Gert Krabsen


Dato : 16-04-07 21:26

Henrik wrote:
>>>>>LoginOK=False
>>>>>Select case BrugerNavn.LowerCase
>>>>>case "ib"
>>>>> if Password="ostehaps" then LoginOK=True
>>>>>case "per"
>>>>> if Password="pitstop" then LoginOK=True
>>>>>End Select
>
>
>>>case else
>>> msgbox "ukendt brugernavn"
>
>
>
>
> Undskyld mig, men jeg har også prøvet den kode ^
> men hvorfor sætter den streg under "LoginOK" der står bare at "LoginOK" is
> no declared.

Har du defineret variablen?

Dim LoginOK as Boolean


Henrik (17-04-2007)
Kommentar
Fra : Henrik


Dato : 17-04-07 16:07


"Gert Krabsen" <fjernkrabsen@fjernkrabsenfjern.dk> skrev i en meddelelse
news:4623daa0$0$90268$14726298@news.sunsite.dk...
> Henrik wrote:
>>>>>>LoginOK=False
>>>>>>Select case BrugerNavn.LowerCase
>>>>>>case "ib"
>>>>>> if Password="ostehaps" then LoginOK=True
>>>>>>case "per"
>>>>>> if Password="pitstop" then LoginOK=True
>>>>>>End Select
>>
>>
>>>>case else
>>>> msgbox "ukendt brugernavn"
>>
>>
>>
>>
>> Undskyld mig, men jeg har også prøvet den kode ^
>> men hvorfor sætter den streg under "LoginOK" der står bare at "LoginOK"
>> is no declared.
>
> Har du defineret variablen?
>
> Dim LoginOK as Boolean
>

Mange tak for det jeg manglede, men da jeg skrev koden ind, kom der bare
streg under "Lowercase"?



Henrik (17-04-2007)
Kommentar
Fra : Henrik


Dato : 17-04-07 16:09


"Henrik" <Henrik.kralle@hense.dk> skrev i en meddelelse
news:4624e292$0$2106$edfadb0f@dtext02.news.tele.dk...
>
> "Gert Krabsen" <fjernkrabsen@fjernkrabsenfjern.dk> skrev i en meddelelse
> news:4623daa0$0$90268$14726298@news.sunsite.dk...
>> Henrik wrote:
>>>>>>>LoginOK=False
>>>>>>>Select case BrugerNavn.LowerCase
>>>>>>>case "ib"
>>>>>>> if Password="ostehaps" then LoginOK=True
>>>>>>>case "per"
>>>>>>> if Password="pitstop" then LoginOK=True
>>>>>>>End Select
>>>
>>>
>>>>>case else
>>>>> msgbox "ukendt brugernavn"
>>>
>>>
>>>
>>>
>>> Undskyld mig, men jeg har også prøvet den kode ^
>>> men hvorfor sætter den streg under "LoginOK" der står bare at "LoginOK"
>>> is no declared.
>>
>> Har du defineret variablen?
>>
>> Dim LoginOK as Boolean
>>
>
undskyld... det var "Brugernavn" jeg mente. det må i meget undskylde.
>



Ukendt (18-04-2007)
Kommentar
Fra : Ukendt


Dato : 18-04-07 10:42

"Henrik" <Henrik.kralle@hense.dk> wrote in message
news:4624e30b$0$2090$edfadb0f@dtext02.news.tele.dk...
>>> Har du defineret variablen?
>>> Dim LoginOK as Boolean

> undskyld... det var "Brugernavn" jeg mente

Det er samme situation som med LoginOK. Du skal definere dine objekter og
variabler før du tilgår dem. For "brugernavn" og "Password" er der blot tale
om kontroller i stedet for. Du har ikke skrevet så meget om hvordan du laver
din løsning, men det kunne være textboxe der hed Brugernavn og Password.

Jeg tror du mangler lidt grundlæggende viden om programmering i .Net,
navnlig omkring hvordan objekter og variable anvendes - det er der ikke
noget galt i. Gruppen her kan sagtens hjælpe dig, men du må hellere lige
starte med at forklare hvad du vil, og gerne poste din fulde kode med. Det
gør det meget nemmere at assistere dig, og undgår i mange tilfælde at vi
bruger tid på at hjælpe med noget du alligevel ikke vil


mvh
///M



Ukendt (18-04-2007)
Kommentar
Fra : Ukendt


Dato : 18-04-07 10:49

"///M" <nomail> wrote in message
news:4625e7ac$0$149$edfadb0f@dread11.news.tele.dk...
> Jeg tror du mangler lidt grundlæggende viden om programmering i .Net,

Ups - var lidt hurtig - der skulle stå "Visual Basic" da det jo er denne
gruppe vi er i.

///M



Henrik (18-04-2007)
Kommentar
Fra : Henrik


Dato : 18-04-07 19:41

Ok, det skal jeg huske og du har helt ret, jeg er helt ny til VB, men her
kommer den kode jeg bruger:

Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate

Dim LoginOK As Boolean

LoginOK = False

Select Case UserName.LowerCase

Case "ib"

If Login1.Password = "ostehaps" Then LoginOK = True

Case "per"

If Login1.Password = "pitstop" Then LoginOK = True

End Select

End Sub

End Class



Jeg håber det er nok og den sætter streg under "username" i
"username.lowercase"





Gert Krabsen (18-04-2007)
Kommentar
Fra : Gert Krabsen


Dato : 18-04-07 20:44

Henrik wrote:
> Ok, det skal jeg huske og du har helt ret, jeg er helt ny til VB, men her
> kommer den kode jeg bruger:
>
> Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As
> System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate
>
> Dim LoginOK As Boolean
>
> LoginOK = False
>
> Select Case UserName.LowerCase
>
> Case "ib"
>
> If Login1.Password = "ostehaps" Then LoginOK = True
>
> Case "per"
>
> If Login1.Password = "pitstop" Then LoginOK = True
>
> End Select
>
> End Sub
>
> End Class
>
>
>
> Jeg håber det er nok og den sætter streg under "username" i
> "username.lowercase"
>


Prøv

Select Case UCASE(UserName)
Case "IB"
...
Case "SVEND"
end select




Ukendt (19-04-2007)
Kommentar
Fra : Ukendt


Dato : 19-04-07 08:54

"Henrik" <Henrik.kralle@hense.dk> wrote in message
news:46266625$0$2083$edfadb0f@dtext02.news.tele.dk...

> Select Case UserName.LowerCase

> Jeg håber det er nok og den sætter streg under "username" i
> "username.lowercase"

Som Gert har opfanget er jeg allerede fra starten, kommet til at give dig
forkert vejledning. Jeg troede desværre ligesom i går at jeg sad og læste i
..Net gruppen. My bad!
Den korrekte syntax i VB6 er naturligvis som Gert skriver:

Select Case UCase(Username)
eller
Select Case LCase(Username)

Afhængigt af om den skal gøre det stort eller småt.

Det andet med .lowercase hører kun hjemme i VB.Net. Sorry!

mvh
///M



Henrik (19-04-2007)
Kommentar
Fra : Henrik


Dato : 19-04-07 16:22

Mange tak. jeg har hvad jeg skal bruge.
Mange tak, jeg skriver igen hvis jeg får brug for hjælp.

Henrik



Søg
Reklame
Statistik
Spørgsmål : 177549
Tips : 31968
Nyheder : 719565
Indlæg : 6408820
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste