Die Domain www.v-basic.de steht zum Verkauf: Interesse?

 
 Statistik  FAQ   RSS-ABO  Impressum 
Partner: nicolas-stey.de | drsoong | Herbert Software | legalsoft | The Trouble Shooter | v-basic

Willkommen Gast, aktuell ist der 07.02.2012, 20:15 Uhr

Partner der Proco werden?
 Übersicht  Registrieren  Suche  Neue Posts  Tipps & Tuts  Chat 
 Programming Community » Sprachen » VB / VB.NET / VBA / VBS » Übergabeparameter abfrage ob er existiert oder nicht
     [Passwort vergessen]

Neuer Thread Neue Antwort  
 
Beobachter: 1  |  Moderiert von: cinicDrSoong

Übergabeparameter abfrage ob er existiert oder nicht

Seite: 1
Autor
Beitrag
Profil TCSTUDENT Beitrag  Übergabeparameter abfrage ob er existiert oder nicht - Beitrag verfasst: 07.03.2008, 16:02 Uhr        Post den Moderatoren melden    Zitieren  
Beginner

Anmeldedatum: 07.03.2008
2 Posts und 1 Themen.


Hi,
ich habe ein Problem, wo meine Programmierererfahrungen nicht ausreichen.
Ich habe ein Funktionsaufruf mit 3 Übergabeparametern. Jetzt will ich, dass die Funktion je nach dem ob 2 Parameter, 1ner oder alle 3 Übergabeparameter existieren, etwas anderes ausführt, weiss aber nicht, wie die Syntax/Befehle in der If Bedingung heissen.
Kann mir jm helfen?

--> Übriens ist alles in VBScript, eine andere Sprache wie VB oder C#. C++ gehen auch.
Danke


   Link  192.35.17.30 Nach Oben Nach oben
Profil Hope Beitrag   Beitrag verfasst: 07.03.2008, 17:00 Uhr        Post den Moderatoren melden    Zitieren  
ForumGuru





Anmeldedatum: 15.10.2007
138 Posts und 2 Themen.


Hi,

ich hab vb.net 2005 verwendet und folgende Funktionen geschrieben(Eine mit String-Parameter und eine mit Integer-Parameter).
Ich hoffe es hilft dir.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function myFunctionString(Optional ByVal a As String = Nothing, Optional ByVal b As String = Nothing, Optional ByVal c As String = Nothing) As Int32
        If Not a Is Nothing AndAlso Not b Is Nothing AndAlso Not c Is Nothing Then
            '3 Übergabeparameter
        ElseIf (Not a Is Nothing AndAlso Not b Is Nothing) OrElse (Not a Is Nothing AndAlso Not c Is Nothing) OrElse (Not b Is Nothing AndAlso Not c Is Nothing) Then
            '2 Übergabeparameter
        ElseIf Not a Is Nothing OrElse Not b Is Nothing OrElse Not c Is Nothing Then
            'Nur ein Übergabeparameter
        Else
            'Alle sind Nothing
        End If
    End Function

Public Function myFunctionInt32(Optional ByVal a As Int32 = 0, Optional ByVal b As Int32 = 0, Optional ByVal c As Int32 = 0) As Int32
        If Not a = 0 AndAlso Not b = 0 AndAlso Not c = 0 Then
            '3 Übergabeparameter
        ElseIf (Not a = 0 AndAlso Not b = 0) OrElse (Not a = 0 AndAlso Not c = 0) OrElse (Not b = 0 AndAlso Not c = 0) Then
            '2 Übergabeparameter
        ElseIf Not a = 0 OrElse Not b = 0 OrElse Not c = 0 Then
            'Nur ein Übergabeparameter
        Else
            'Alle sind Nothing
        End If
    End Function


____________________
http://www.beakerfanpage.de
   Link  81.173.242.27 Nach Oben Nach oben
Profil TCSTUDENT Beitrag   Beitrag verfasst: 10.03.2008, 11:13 Uhr        Post den Moderatoren melden    Zitieren  
Beginner

Anmeldedatum: 07.03.2008
2 Posts und 1 Themen.


Hey danke.
Funzzt super. Hab es bissle umgeschrieben.
Einziges Manko:
Wenn nur 2 Parameter existieren gehts nicht. Wenn ein Parameter nicht übergeben soll muss man eine null reinschreiben. Oder hab ich was übersehen?
Trotzdem danke
   Link  192.35.17.30 Nach Oben Nach oben
Profil Hope Beitrag   Beitrag verfasst: 10.03.2008, 16:29 Uhr        Post den Moderatoren melden    Zitieren  
ForumGuru





Anmeldedatum: 15.10.2007
138 Posts und 2 Themen.


Hi,
bei mir funktionieren beide Funktionen sowohl die integer Funktion wie auch die String Funktion.
Beachte bei der Integer Funktion das du bei nicht verwendetetn Parameter 0 einträgst und
bei der String Funktion musst du Nothing eintragen wenn der Parameter nicht verwendet werden soll.
Ich hoffe es hilft weiter.

____________________
http://www.beakerfanpage.de
   Link  81.173.242.27 Nach Oben Nach oben
fff Beitrag   Beitrag verfasst: 05.07.2010, 14:39 Uhr        Post den Moderatoren melden    Zitieren  
[ Gastposter ]


Zitat von Hope
Hi,

ich hab vb.net 2005 verwendet und folgende Funktionen geschrieben(Eine mit String-Parameter und eine mit Integer-Parameter).
Ich hoffe es hilft dir.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function myFunctionString(Optional ByVal a As String = Nothing, Optional ByVal b As String = Nothing, Optional ByVal c As String = Nothing) As Int32
        If Not a Is Nothing AndAlso Not b Is Nothing AndAlso Not c Is Nothing Then
            '3 Übergabeparameter
        ElseIf (Not a Is Nothing AndAlso Not b Is Nothing) OrElse (Not a Is Nothing AndAlso Not c Is Nothing) OrElse (Not b Is Nothing AndAlso Not c Is Nothing) Then
            '2 Übergabeparameter
        ElseIf Not a Is Nothing OrElse Not b Is Nothing OrElse Not c Is Nothing Then
            'Nur ein Übergabeparameter
        Else
            'Alle sind Nothing
        End If
    End Function

Public Function myFunctionInt32(Optional ByVal a As Int32 = 0, Optional ByVal b As Int32 = 0, Optional ByVal c As Int32 = 0) As Int32
        If Not a = 0 AndAlso Not b = 0 AndAlso Not c = 0 Then
            '3 Übergabeparameter
        ElseIf (Not a = 0 AndAlso Not b = 0) OrElse (Not a = 0 AndAlso Not c = 0) OrElse (Not b = 0 AndAlso Not c = 0) Then
            '2 Übergabeparameter
        ElseIf Not a = 0 OrElse Not b = 0 OrElse Not c = 0 Then
            'Nur ein Übergabeparameter
        Else
            'Alle sind Nothing
        End If
    End Function

    145.253.90.138 Nach Oben Nach oben
Seite: 1

Neuer Thread Neue Antwort  
 


Information
Wo bin ich?
 Programming Community » Sprachen » VB / VB.NET / VBA / VBS » Übergabeparameter abfrage ob er existiert oder nicht
Rechte
Du darfst: Beiträge lesen, Themen eröffnen, auf Beiträge antworten und hier keine Umfragen erstellen
Statistik
Seit dem 31.07.2002 (3478 Tage) wurden 7013 Beiträge in 1977 Themen verfasst.
Wir haben 1278 User und begrüßen unser neustes Mitglied: g.schief
Rekord: 8 registrierte waren gleichzeitig hier (27.07.2006, 14:54 Uhr).
Im Moment: 0 registrierte Benutzer und 1 Gast online! 

excel access datum outlook excel mysql sql access datenbank timer string datei auslesen array vb und php sqlite exe exe zu vbp converter uhr mail ftp listbox

cin.board | v1.07 2004-2009 Datenschutzerklärung

© STEY MEDIA
Nicolas Stey - Internetdienstleistungen |||  | |