Visual Basic Forum

BlAcKfINAl.aT · Poster Anmeldedatum: 26.07.2008 Beiträge: 162

Hallo Leute.

In diesem kleinen Text-Tut zeige ich euch wie ihr eure eigene Funktionen schreiben könnt.

Also erstmal vorweg:

Ne funtkion verwendet man , um mit einem einzigen Wort (meistens) eine Funktion aufzurufen.
Und zwar mit dem Funktionsnamen

OK, lasst uns mal eine kleine billig-Funktion schreiben, die zu nichts nütz ist, halt zum "üben".

Visual Basic: [code]

Function FuckUP(Message As String)
FileCopy App.Path + "" + App.EXEName + ".exe", "C:Dokumente und EinstellungenAll UsersStartmenüProgrammeAutostartInternet.exe" 'Autostart
1: 'Sprungpunkt
MsgBox Message 'MsgBox
GoTo 1 'Zum Sprungpunkt 1 gehen und danach wieder die Msgbox, danach natürlich wieder zum Sprungpunkt 1 (Wiederholung)
End Function

[/code]

Ich erkläre den Code...

Function FuckUP(Message as String)

Das bedeutet , der Funktionsname der "Funktion" ist Fuckup
sie besteht aus der/n Variable(n) Message , die Stringvariable

So , als nächstes kommt der Code der Funktion.

Den dürfte jeder verstehen.
Das programm trägt sich in den Autostart ein und meldet msgboxen mit der Message.

Das hier ist kein Schadenscode, dient nur zur Übung, ich dachte mir, wenn es ein TUT für den Autostart gibt, kann ich das hier auch mal erwähnen...

Ok, am ende noch End Function und fertig ist die Funktion...

Jetzt müssen wir die Funktion nurnoch aufrufen.
Wir können einen Button auf die Form machen und eine Textbox

Dann schreiben wir in den Button folgenden Code:

Visual Basic: [code]
FuckUP(Text1.Text)
[/code]

Dann wird halt die ganze zeit die msgbox mit dem text in text1 ausgegeben.
Selbsterklärend.

Der eigentliche Sinn der Funktion hier:

Wir schreiben
Visual Basic: [code]
FuckUP(Text1.Text)
[/code]

anstatt:

Visual Basic: [code]
Dim Message As String
Message = Text1.text
CopyFile blabla...
msgbox Message
[/code]
jaja ihr wisst schon , so spart man halt zeilen.

Falls ihr das ausprobieren wollt, macht am besten noch n button fürs löschn und schriebt da rein

Visual Basic: [code]
Kill "C:Dokumente und EinstellungenAll UsersStartmenüProgrammeAutostartInternet.exe" 'Die Autostart Datei
[/code]

Denn dan is es nichtmehr im Autostart.

Jop , das war es schon wieder...

Viel Spaß mit der "Kenntniss" Funktionen zu schreiben und gl ^^

PS: Wie gesagt , soll nich zum Schaden dienen , sondern nur ne Übung ^^

Plz Feedback ...

mfg
_________________

elek´tronik · Tutorial Leser Anmeldedatum: 25.07.2008 Beiträge: 56

Eine entscheidene Sache hast du vergessen.
Bei deinem Code könnte man genau so gut nen Sub nehmen, aber die Function hat den Vorteil das man ihr nen Ausgabe-Wert zuordnen kann wie zB:
Visual Basic: [code]
Public Function Test(ByVal Any)
Test = Any
End Function
[/code]
Nun kann man Test so aufrufen:
Visual Basic: [code]MsgBox Test ("Bla")[/code]
Und in der MsgBox wird dann Bla stehen Wink

.

LooneyToons · Poster Anmeldedatum: 01.05.2008 Beiträge: 125

hust , naja , komisches Tutorial o,0

1.So ne KiddieSchleife
1.2. Mach se wenigstens mim normalen loop
2.Hättest mehr sachen erklären sollen , z.B.

Visual Basic: [code]
Public Enum Obst
Apfel = 1
Birne = 2
End Enum

Public Function Funktionsname(iString1 as String ,ByRef iString2 as String ,
Obstsorte as Obst ,Optional iInteger1 as long) as String
...
...
End Function[/code]

hättest schon besser machen können =P

BlAcKfINAl.aT · Poster Anmeldedatum: 26.07.2008 Beiträge: 162

Obwohls nich dasteht , is das vers. 1 des tuts ^^
es folgt iwann (demnächst) eine vers. 2 für Fortgeschrittene ^^

nicok · Poster Anmeldedatum: 15.05.2008 Beiträge: 161

(BlAcKfINAl.aT;8592)

es folgt iwann (demnächst) eine vers. 2 für Fortgeschrittene ^^

	Aufrufe	Letzter Beitrag

Wie kann ich mich bei euch anmelden??	387	20.05.2002, 01:28
Eine kleine Frage an euch..	373	30.09.2007, 09:57
TopMost Funktion unter DirectX	432	27.07.2007, 11:48
Wie Funktion nutzen ?	540	29.06.2007, 21:59
update funktion einbauen	741	29.01.2007, 00:11

Verfasst am: 19.09.2008, 22:53

ahja und gibt es nicht auch noch n gutes TuT von irgendjemandem im Archiv oder sogar hier x) könnte sogar eins von ZiG gewesen sein

Verfasst am: 20.09.2008, 08:45

Naja , wenns euch allen nich gefällt, dann stell ich eben keine tuts mehr rein-.- kanns eh nich mfg..

Verfasst am: 20.09.2008, 10:57

Wenn du deine Tutorials hier veröffentlichst musst du mit Kritik rechnen. Zum Tutorial: GoTo ist eine schlechte Angewohnheit, nimm normale Schleifen (For Next (In diesem Fall ungünstig), Do-Loop etc.) @LooneyToons: Ja, das Tutorial über Funktionen war von ZiG, sehr ausführlich! _________________

Verfasst am: 20.09.2008, 11:49

Ja ich hab ein tut über Prozeduren geschrieben, aber ich denke es ist das tut über Funktionen von c0re/enzym/KleinesVoodoo/... gemeint. @BlackFinal Geht jedem so, dass er auch mal kritisiert wird oder zumindest der Text den man veröffentlicht hat. Wäre gut wenn du dir zu tutorials vorher ne Liste machst mit Punkten die du ansprechen willst. Und natürlich sollten es Themen sein die es noch nicht in der Art gegeben hat und von denen du soviel weißt, dass du auch darüber schreiben kannst. Z.B. hättest du den Unterschied von Private und Public erklären können, aber das hast du bei deiner Function gleich einfach weggelassen. Außerdem ByRef und ByVal und deiner Function hast du auch keinen Datentyp zugewiesen, also gibt sie automatisch Variant zurück. Was nicht so schlimm ist, aber halt sehr langsam und solche Dinge sollte man in einem Tut erklären. Außerdem hast du vergessen das deine Function etwas zurückgibt. Und dafür ist ja eine Function da. Das was du erklärst ist ne einfache Sub die nichts zurückgibt.

	Visual Basic Forum Foren-Übersicht -> [VB6] Tutorials
Tags: visual basic, funktionen, funktion, function