Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Tutorials
Autor
Nachricht
ZiG
Überflieger
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 421
Funktionen schreiben
Verfasst am: 15.06.2009, 17:56
Thema: Funktionen schreiben
Autor: c0re

Ich erkläre euch in diesem Tutorial wie ihr Funktionen schreiben könnt. Das Ganze werde ich am Beispiel meiner "CutString"-Funktion erklären.

Eine Funktion ist folgendermaßen aufgebaut:

Zuerst wird der Anfang der Funktion definiert. Die Parameter "Private" oder "Public" kennzeichen, ob die Funktion im ganzen Projekt verfügbar sein soll, oder nur im Code des Formulars / Moduls / Klasse, in der sie liegt. Wenn die Funktion im ganzen Projekt verfügbar sein soll, ist das Parameter Public", wenn nicht, ist das Parameter "Private".

Die erste Zeile sieht also folgendermaßen aus:

Code:
Private Function Funktionsname() as Typ
oder

Code:
Public Funktion Funktionsname() as Typ
Wenn man eine Funktion zum Ausführen und nicht zum Bearbeiten eines String (o.Ä.) erstellen möchte,
lässt man einfach den Deklarationstyp weg. Also:

Code:
Private Function Funktionsname()
oder

Code:
Public Funktion Funktionsname()
In der Klammer werden die Variablen deklariert, deren Wert beim Aufrufen der Funktion angegeben werden müssen.
Dazu muss unbedingt der Parameter "ByVal" stehen. Also in unserem Beispiel:

Code:
Public Function CutString(ByVal TheString As String, _<br />TheStringToCut As String) As String
Jetzt wird beim Aufrufen der Funktion die angegebenen Daten an die Funktion übergeben.
In dieser können diese dann verwendet werden.

In unserem Beispiel splitten wir den in der Variable "TheString" mit dem String,
der in der Variable "TheStringToCut" angegeben wurde.

Also wird der Teil vor der zu entfernenden Zeichenkette und Der dahinter in einem Array gespeichert:

Code:
Dim Var() As String<br />Var = Split(TheString, TheStringToCut)
Dieses Array fügen wir dann wieder zusammen:

Code:
EndString = Var(0) & Var(1)
Den Rückgabewert, den man beim Aufrufen einer Funktion erhält, bekommt man,
indem man den Funktionsnamen als Variable benutzt, und den Rückgabewert in ihr speichert:

Code:
CutString = EndString
Das Ende einer Funktion ist durch die Zeile

Code:
End Function
gekennzeichnet.
Die Funktion ruft man in anderen Subs nun auf, indem man den Rückgabewert in einer neuen Variable speichert.

In unserem Beispiel:

Code:
Dim NewString As String<br />NewString = CutString("AlterString", "ZuEntfernenderString")
Anmerkung: Diese Funktion ist nicht besonders gut geworden, da man sie nur benutzen kann, wenn ein String nur an einer Stelle des Strings vohanden ist. Die Funktion dient nur zur Erläuterung, gut benutzen kann man sie nicht unbedingt.

Ruft man eine Funktion auf, die keinen Rückgabewert ausgibt, sondern einen Codeabschnitt,
so benutzt man Call. Zum Beispiel bei einer FTP Upload Funktion:

Code:
Call FTPUpload("username.us.funpic.de", "username", "passwort", _<br />"C:local.txt", "/remote.txt")
Mein Funktion dazu wäre die Folgende:

Code:
Public Function FTPUpload(ByVal FTP_Server As String, FTP_Username As String, _<br />FTP_Passwort As String, LocalFile As String, RemoteFile As String)<br />On Local Error Resume Next<br />Dim Inet1 As Inet<br />Inet1.AccessType = icUseDefault<br />Inet1.Protocol = icFTP<br />Inet1.URL = FTP_Server<br />Inet1.UserName = FTP_Username<br />Inet1.Password = FTP_Passwort<br />Inet1.Execute , "Put", LocalFile, RemoteFile<br />Do<br />Loop Until Inet1.StillExecuting = True<br />End Function
Ach so, die fertige CutString Funktion hätte ich fast vergessen. ;D

Code:
Public Function CutString(ByVal TheString As String, _<br />TheStringToCut As String) As String<br />Dim Var() As String<br />Dim EndString As String<br />Var = Split(TheString, TheStringToCut)<br />EndString = Var(0) & Var(1)<br />CutString = EndString<br />End Function
So, dann sag ich mal End Sub und viel Spaß beim Funktionen schreiben.
Ich hoffe, dass ich alles gut und verständlich erklärt habe.

mfg Orbz
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Tutorials

Tags: funktionen schreiben, funktion funktionsname

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Wie kann ich mich bei euch anmelden?? 796 20.05.2002, 00:28
Keine neuen Beiträge Eine kleine Frage an euch.. 906 30.09.2007, 08:57
Keine neuen Beiträge TopMost Funktion unter DirectX 921 27.07.2007, 10:48
Keine neuen Beiträge Wie Funktion nutzen ? 1098 29.06.2007, 20:59
Keine neuen Beiträge update funktion einbauen 1341 28.01.2007, 23:11
 




[ Time: 0.1318s ][ Queries: 83 (0.0217s) ][ GZIP on - Debug on ]