---

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

---

"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

---

"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

---

"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

---

"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

---

>> 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

---

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 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"


>

---

>>>> 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?

---

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

---

"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" <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.
>

---

"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

---

"///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

---

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"

---

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

---

"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

---

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

Henrik