Brugernavn:




Kodeord: Husk
Forside Forum Artikler Downloads Søg
 

Igang med Visual Basic 08 2/9

Forord

Dette er min anden part af "Igang med visual basic". Vi vil lære om If sætninger.

Indholdsfortegnelse

1.0   Rock 'n Code!
   1.1   Else?
   1.2   Simpelt login.
   1.3   Jeg har et Problem!
   1.4   Din næste artikel?

Introduktion..


Hej Rowlere!

Så er det tid til min anden part af "Igang med Visual Basic", i denne artikel vil vi lære om If sætninger. Nu tænker du sikkert "PHP". Ja, der er If sætninger i PHP, men jeg vil mene at de er lidt lettere i Visual Basic. Jeg kan så sige ang. mit nyeste Projekt, at jeg lige er kommet igang, da jeg fik mange andre ting at se til :).

1.0  Rock 'n Code!



Godt. Vi vil gerne vide lidt om If sætninger, og den bedste måde at lære det på er ved at åbne Visual Basic, det er selvfølgelig altid den bedste måde. At prøve det selv!

Så vi åbner Visual Basic engang.

Godt så. Nu kommer jeg med et lille eksempel. Forklaringen kommer efter, og der er lidt forklaring, men ikke det hele inde i Scriptet. Forklaringen starter altid med '.

OBS! I denne form er der 1 Knap og en TextBox, dette er vigtigt at vide, da du selv skal prøve at lave det. Knappen skal hedde "Test". Hvis du ikke kan huske hvordan du omdøbede Knapper, kan du læse det i Artikel 1.

  1.       If TextBox1.Text = "" Then 'Vi tjekker om der er noget tekst i TextBox1
  2.             MsgBox("Du har ikke udfyldt feltet") 'Der er ikke noget, ergo, der kommer en Popup med "Du har ikke udfyldt feltet"
  3.         End If 'Lukker vores If.

Det er MEGET lidt forklaring. Hvis jeg var nybegynder, ville jeg ikke fatte noget. Så derfor kommer den gode forklaring her ;).

If er hvis, altså hvis (og alt andet her). I dette tilfælde har vi med Teksten i TextBox1 at gøre (TextBox1.Text). If TextBox1.Text, altså oversat til forståeligt sprog. Hvis Teksten i TekstBoks 1. = "", altså hvis teksten i TekstBoks 1 er tom, så sker følgende (Then).


Så vi kan have det således.

If <Tilbehøret eller tingen i Visual Basic>.<Det den skal tjekke> = <Hvad den skal være lig med> Then <Så sker følgende>

MsgBox("Du har ikke udfyldt feltet") Hvis fletet er tomt, så kommer der en Popup med teksten "Du har ikke udfyldt feltet" op.

End if, lukker vores If.

1.1  Else?



Nu vil vi bygge lidt videre på Applikationen vi har brugt her. Så i koden tilføjer vi

  1.            Else 'Ellers
  2.             MsgBox("Tak for det!") 'Der kommer en Popup med teksten "Tak for det!"

Så vores kode ser sådan her ud:

  1.         If TextBox1.Text = "" Then 'Vi tjekker om der er noget tekst i TextBox1
  2.             MsgBox("Du har ikke udfyldt feltet") 'Der er ikke noget, ergo, der kommer en Popup med "Du har ikke udfyldt feltet"
  3.         Else 'Ellers
  4.             MsgBox("Tak for det!") 'Der kommer en Popup med teksten "Tak for det!"
  5.         End If 'Lukker vores If.

Her kommer forklaringen så.

Else betyder ellers. Så i dette tilfælde, hvis Tekstboksen ikke er tom, så sker dette.

MsgBox("Tak for det!") Så laver vi en Popup med Teksten "Tak for det".

Så dette script gør dette:

Hvis teksBoksen er tom, så kommer en Popup med "Du har ikke udfyldt feltet" ellers kommer der en Popup med Teksten "Tak for det!" hvis der er tekst i.

1.2  Simpelt login.



If og Else kan også bruges til et lille Login system :D.

Det er meget Simpelt. Men følg med mig engang :).

I denne Applikation har vi En knap, med teksten "Log ind" 2 TextBox'e og 2 Labeler, med Teksten "Brugernavn:" og "Password:"

Screenie:




Så indsætter vi følgende kode:

  1.         If TextBox1.Text = "test" And TextBox2.Text = "test" Then 'Vi tjekker vores informationer
  2.             MsgBox("Velkommen") 'Vi laver en popup
  3.         Else 'Ellsers
  4.             MsgBox("Forkert info") 'Laver vi en anden Popup
  5.         End If 'Lukker vores if


Forklaringen er lige her. If TextBox1.Text = "test" And TextBox2.Text = "test". Vi oversætter det til forståeligt sprog. Hvis (If) Teksten i TekstBoks 1 (TextBox1.Text) er lig med test (= "test") og (And) Teksten i TekstBoks 2 (TextBox2.Text) er lig med test (= "test") så sker følgende (Then).

Vi laver en Popup med Velkomstbeskeden som lyder sådan her "Velkommen" (MsgBox("Velkommen")).

Ellers (Else)

Vi laver en Fejl Popup, med teksten "FOrkert info" (MsgBox("Forkert info"))

1.3  Jeg har et Problem!


Så skriv dem lige her :).

1.4  Din næste artikel?


***Den næste artikel er ændret til noget andet. Den næste artikel vil omhandle hvordan man gemmer og henter info fra programmet så den fx. kan have indstillinger.


Sidst redigeret 16:43 03/02/2009
Oprettet af:

Visual Basic

Point modtaget: 200

Rate:
16:47 28/11/2008

Kommentarer

Giv din mening tilkende om denne artikel, eller læs andres.
Har du spørgsmål eller brug for hjælp til denne artikel henvises du til forummet.
No Comments?
Oprettet af:
  Mail
06:54 01/12/2008
Den er rigtig god, jeg har prøvet den.
Skynd dig at komme med nolge flere artikler om VB.
Oprettet af:
  Mail
09:02 03/12/2008
Jeg er skam igang :).


Tak for din kommentar.
Oprettet af:
  Mail
10:17 03/12/2008
Her hos min mor, kan jeg ikke downloade VB, da jeg er ikke er administrator på computeren, men skal hjem til min far senere i dag også downloader jeg det - også skal jeg sgu også prøve det ;)
Oprettet af:
  Mail
10:42 06/12/2008
Fedt! :)
Oprettet af:
  Mail
20:05 06/12/2008
God artikel 4/5


Istedet for:
  • Me.Close ()
Kan du skrive:
  • End

Men meget fin artikel :)
Oprettet af:
  Mail
10:18 04/07/2010
Du skal være oprettet og logget ind for at kommentere en artikel
Copyright © Rowl.dk v/ Michael Raagaard | 2005-12 | Alle rettigheder forbeholdes