Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > General Coding
You last visited: Today at 16:41

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Virtual Basic Scripting *Teil 2*

Discussion on Virtual Basic Scripting *Teil 2* within the General Coding forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: LOCKED
Join Date: Jun 2008
Posts: 773
Received Thanks: 393
Post Virtual Basic Scripting *Teil 2*

Halli Hallo,
Wilkommen zum *Teil2*
Meiner Scripting Tutorials =)
Viel Spaß

f-Then-Else-Anweisung


Genau wie Menschen müssen Computer die Möglichkeit haben, Entscheidungen zu treffen, auf Grund von bekannten (oder auch zufälligen) Kriterien.

In VB verwendet man If ... Then Konstruktionen für eben solche Operationen, die von Bedingungen abhängen.

Sagen wir mal ein Festplatten-Bereinigungsprogramm sollte nur Sonntags gestartet werden, dann würde man folgende Konstruktion verwenden:

Quote:
If WeekDay(Now) = vbSunday Then
Shell "scandskw.exe"
End If
Meist reichen solch einfache If-Bedingungen nicht aus; daher hat man die Möglichkeit, mehrere Kriterien zu kombinieren mit z.B. den Operatoren AND (=und) oder OR (=oder).
Achtung! Wichtig sind die Klammern um die einzelnen Bedingungen!

Quote:
If (WeekDay(Now) = vbSunday) Or (WeekDay(Now) = vbWednesday) Then
Shell "scandskw.exe"
End If

Jetzt wird Scandisk also Sonntags ODER Mittwochs gestartet. Warum kann man nicht AND verwenden?
Würde man beides mit AND verknüpfen, müßte heute (also der Weekday(Now)) SOWOHL Sonntag als AUCH Mittwoch sein.

Nehmen wir einmal an, Freitags sollte noch Defrag (Festplatten-Defragmentierung) gestartet werden; der Code sieht dann folgendermaßen aus:

Quote:
If (WeekDay(Now) = vbSunday) Or (WeekDay(Now) = vbWednesday) Then
Shell "scandskw.exe"
ElseIf Weekday(Now) = vbFriday Then
Shell "defrag.exe"
End If

Wenn die IF-Anweisung nicht erfüllt ist, wird die ElseIf-Anweisung überprüft; sind beide nicht erfüllt (TRUE), dann tritt die Else-Anweisung in Kraft:

Quote:
If (WeekDay(Now) = vbSunday) Or (WeekDay(Now) = vbWednesday) Then
Shell "scandskw.exe"
ElseIf Weekday(Now) = vbFriday Then
Shell "defrag.exe"
Else
Shell "sol.exe"
End If

Wenn also WEDER Sonntag NOCH Mittwoch NOCH Freitag ist (also Mo,Di,Do,Sa) wird Solitär gestartet.

Alle oben gezeigten If-Blöcke werden durch 'End If' beendet. Dies ist immer dann notwendig, wenn eine If-Konstruktion mehrere Zeilen beansprucht; folgende If-Zeile verlangt kein 'End If':

Quote:
If (Nachname$ = "Müller") And (Vorname$ = "Werner") Then MsgBox "Werner Müller ist bereits im Datenbestand erfasst!"


Zusammenfassung:

+ Die If-Then Anweisung macht Operationen von Bedingungen abhängig
+ Nach der If-Anweisung wird eine eventuell vorhandene ElseIf-Anweisung abgearbeitet
+ Sind beide unwahr (FALSE), so tritt eine eventuell vorhandene Else-Anweisung ein
+ If-Blöcke werden mit 'End If' abgeschlossen, sofern sie mehrere Zeilen umfassen
+ Durch logische Operatoren (AND/OR/XOR/NOT) kann man Bedingungen verknüpfen

Graaz
knollo14
Cael. is offline  
Thanks
4 Users
Old 11/24/2008, 19:33   #2
 
DamageBreaker's Avatar
 
elite*gold: 0
Join Date: Nov 2008
Posts: 358
Received Thanks: 43
good tut kannst sowas gut schreiben^^

mach weiter so

PS: ich hasse visual basic kennste noch ne^^
DamageBreaker is offline  
Old 11/24/2008, 21:27   #3
 
elite*gold: LOCKED
Join Date: Jun 2008
Posts: 773
Received Thanks: 393
Quote:
Originally Posted by DamageBreaker View Post
good tut kannst sowas gut schreiben^^

mach weiter so

PS: ich hasse visual basic kennste noch ne^^
Jop das kenne ich doch irgentwoher den Satz Ich hasse VB

Naja Werde Auf jedenfall nochmehr Tutorials Machen Über vb..

Danach Folgt

C++ und PHP

Also Viel Spaß Leute =)
Cael. is offline  
Old 11/24/2008, 21:56   #4
 
DamageBreaker's Avatar
 
elite*gold: 0
Join Date: Nov 2008
Posts: 358
Received Thanks: 43
Quote:
Originally Posted by knollo14 View Post
Jop das kenne ich doch irgentwoher den Satz Ich hasse VB

Naja Werde Auf jedenfall nochmehr Tutorials Machen Über vb..

Danach Folgt

C++ und PHP

Also Viel Spaß Leute =)
c++ wäre schön hau rein^^
DamageBreaker is offline  
Old 11/24/2008, 23:20   #5


 
Cholik's Avatar
 
elite*gold: 4
Join Date: Aug 2008
Posts: 6,786
Received Thanks: 4,992
Was ist denn bitte Virtual Basic Scripting ?
Cholik is offline  
Old 11/28/2008, 16:52   #6
 
mr.rattlz's Avatar
 
elite*gold: 0
Join Date: Aug 2005
Posts: 896
Received Thanks: 334
Quote:
Originally Posted by al_j View Post
Was ist denn bitte Virtual Basic Scripting ?
ein falsch geschriebenes Visual Basic Scripting vielleicht
mr.rattlz is offline  
Reply


Similar Threads Similar Threads
[Virtual Basic 2008] Hotkey Funktion ! Help :S
05/03/2010 - General Coding - 1 Replies
Hallo elitepvpers, Ich wollte eine Combobox in mein Programm einbringen, wo man einen beliebigen Hotkey aussuchen kann. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim MouseMoverOn As Boolean MouseMoverOn = GetAsyncKeyState(ComboBox1.Text) If MouseMoverOn = True Then Timer1.Enabled = True End If
Visual Basic Scripting *Teil 4*
11/27/2008 - Tutorials - 1 Replies
Die Benutzung der Winsock in ihrer Applikation ______________________________________________ ********************************************** Beschreibung: ************* Das Winsock Control ist ein mächtiges Steuerelement und kann in ihrer Applikation benutzt werden, um Daten exakt und sicher über eine Verbindung zu übertragen. In diesem Artikel werde ich etwas tiefer in die
scripting??
11/14/2008 - Lineage 2 - 1 Replies
guys can u help me whats wrong on my script?? Label(MAN) CharStatus(MP,<=,90) { USEITEM(Elixir Of Mental Strength (B-Grade)) } Call(MAN) why is it wont use elixer???
Scripting
12/10/2006 - World of Warcraft - 1 Replies
Hello, I have used the search button on this site and ive used google in order to find out how to Script and then add the items to the game but with no luck. Can someone please link a guide or explain to me how to make a item and add it to my private server... text2schild.php?smilienummer=1&text=Thanks' border='0' alt='Thanks' />



All times are GMT +2. The time now is 16:41.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.