| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
chutullu
Anmeldungsdatum: 18.10.2005
Beiträge: 77
|
 Verfasst am: 12.03.2007, 18:26 Titel: Nutzerdefinierte Typen überladen |
 |
|
Hallo Forum,
kennt jemand FB Variante Nutzerdefinierte Typen zu überladen ?
Normalerweise sollte folgendes mit Freebasic möglich sein aber irgendwie klappt das bei mir nicht
| Code: | type test
declare property rowCount(byval tableSystem as integer) as integer
end type
property test.rowCount(byval tableSystem as integer) as integer
select case tableSystem
case 612: rowCount=12
case 622: rowCount=22
'usw.
end select
end porperty
dim data as test
print data.rowCount(612)
'jetzt sollte hier "12" stehen
sleep
|
Ich weiß nicht mehr weiter |
|
| Nach oben |
|
 |
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
|
| Verfasst am: 12.03.2007, 18:34 Titel: |
|
|
Ich kenne jetzt nur die Möglichkeit, Prozeduren (bzw. Funktionen) zu überladen. Beispiel:
| Code: | DECLARE SUB test OVERLOAD (var AS INTEGER)
DECLARE SUB test(var AS eigenerTyp)
SUB test (var AS INTEGER)
' mache was mit einem Integer
END SUB
SUB test (var AS eigenerTyp)
'mache was mit einer Variablen des eigenen Typs
END SUB |
Was bedeutet eigentlich das 'property'?
edit: Beispiel etwas erweitert |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 12.03.2007, 18:38 Titel: |
|
|
So ganz schlau bin ich aus dem Code jetzt leider auch nicht geworden, vorallem wie und wofür die Tablesystem variable sein soll `?!?!
was soll das Programm, bzw das Beispiel denn genau machen ?!?!
_________________
 |
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
|
| Verfasst am: 12.03.2007, 18:44 Titel: |
|
|
| Wenn ich es richtig verstehe, soll für einen benutzerdefinierten Typ eine Methode eingerichtet werden. Da ist aber FreeBASIC IMHO nicht die richtige Sprache dafür - oder unterstützt das jetzt objektorientierte Programmierung? |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 12.03.2007, 18:47 Titel: |
|
|
naja, ich meinte eigentlich mehr, soll es etwas zählen oder verarbeiten ?! sonst hätte ich an eine callback pointer prozedur gedacht ?!?!
_________________
|
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 12.03.2007, 18:56 Titel: |
|
|
Schau doch einfach mal im Tutorial Type als Objekt nach 
Ich habe mich bemüht, so genau wie möglich, zu übersetzen, was mit Types in FB möglich ist 
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
chutullu
Anmeldungsdatum: 18.10.2005
Beiträge: 77
|
| Verfasst am: 12.03.2007, 19:03 Titel: |
|
|
@ytwinky:
das ist ja man anliegen aber mein FBC (Version 0.17) unstützt das nicht... |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 12.03.2007, 19:11 Titel: |
|
|
Diese Help war beeindruckend  aber leider mehr verwirrend als hilfreich, FB unterstützt derartige Type Objekte nicht, und habe derartiges bisher nur beim überfliegen von Visual Codes so etwas gesehen.
_________________
|
|
| Nach oben |
|
|
chutullu
Anmeldungsdatum: 18.10.2005
Beiträge: 77
|
| Verfasst am: 12.03.2007, 19:15 Titel: |
|
|
| Zitat: | | FB unterstützt derartige Type Objekte nicht, |
@Eternal_pain: da muss ich dir wiedersprechen, laut neuster Codereferenz zu FB sollte der Compiler ab Version 0.17 Objecte unterstützen. Nun habe ich die 0.17 und nichts geht.
Ärgerlich ... |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 12.03.2007, 19:22 Titel: |
|
|
Dann zieh ich hiermit meine Aussage zurück. Punk ist aber, ich habe so etwas noch nie gesehen, habe den FBC 0.17 und nichts ging
Deswegen aber weiss ich immernoch nicht die bedeutung bzw der funktion derartiger Objekte, was tunt sie und wie tun sie es, wenn ich das besser verstehen würde, würde mir vielleicht eine alternative einfallen.
_________________
|
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 12.03.2007, 19:38 Titel: |
|
|
Nun, es scheint von der FB0.17-Version abzuhängen:
http://www.freebasic.net/forum/viewtopic.php?t=6708
Ich habe das noch nie probiert, aber ich schätze 'ne aktuelle sollte es schon sein..
Links dazu gibts im englischen Forum und, wie könnte es anders sein, auf
ytwinky.freebasic.de -> Links
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
|
| Verfasst am: 12.03.2007, 19:43 Titel: |
|
|
| Ansonsten würde ich einfach eine SUB oder FUNCTION einrichten, der du deine Typ-Variable übergibst. Sollte für die allermeisten Anwendungen genauso gut funktionieren wie Methoden. Zumindest fällt mir keine Methode ein, die man nicht auch als Prozedur umsetzen könnte. |
|
| Nach oben |
|
|
chutullu
Anmeldungsdatum: 18.10.2005
Beiträge: 77
|
| Verfasst am: 12.03.2007, 19:52 Titel: |
|
|
Hab ne' Lösung gefunden die ist aber etwas umständlich :
| Code: | Option Explicit
'' Overload/Alias hack!
''
'' First discovered by Jofers
''
'' Abused regularly by the author of this snippet, cha0s ;)
Enum NUMERIC_TYPES
TYPE_INTEGER
TYPE_DOUBLE
End Enum
'' The "alias" is the only thing
'' that links these declares to '' the "argtype" variable is set based on what
'' that function call. '' you call the proc with, as you can see.
Declare Function multiply_ToDouble Overload Alias "HACKED_PROC" _
( _
arg1 As Integer, _
arg2 As Integer, _
argtype1 = TYPE_INTEGER, _
argtype2 = TYPE_INTEGER _
) As Double
Declare Function multiply_ToDouble Overload Alias "HACKED_PROC" _
( _
arg1 As Integer, _
arg2 As Double, _
argtype1 = TYPE_INTEGER, _
argtype2 = TYPE_DOUBLE _
) As Double
Declare Function multiply_ToDouble Overload Alias "HACKED_PROC" _
( _
arg1 As Double, _
arg2 As Integer, _
argtype1 = TYPE_DOUBLE, _
argtype2 = TYPE_INTEGER _
) As Double
Declare Function multiply_ToDouble Overload Alias "HACKED_PROC" _
( _
arg1 As Double, _
arg2 As Double, _
argtype1 = TYPE_DOUBLE, _
argtype2 = TYPE_DOUBLE _
) As Double
Function this_name_is_only_symbolic Alias "HACKED_PROC" _
( _
arg1 As Any Ptr, _
arg2 As Any Ptr, _
argtype1 As NUMERIC_TYPES, _
argtype2 As NUMERIC_TYPES _
) As Double
'' this function takes either integers
'' or doubles, multiplies them and
'' returns the result in double form
'' of course, fb does this kind of thing
'' for you automagically
'' but unless you write a seperate
'' function for each case,
'' it's impossible to do within a sub or func
'' with overloading alone.
Dim As Double left_hand_op, right_hand_op
'' "containers" for the arguments
Select Case As Const argtype1
'' passed an integer
Case TYPE_INTEGER
'' access the ambiguous "any ptr" as an integer
left_hand_op = *Cast( Integer Ptr, Varptr( arg1 ) )
'' passed a double
Case TYPE_DOUBLE
'' access the ambiguous "any ptr" as a double
left_hand_op = *Cast( Double Ptr, Varptr( arg1 ) )
End Select
Select Case As Const argtype2
'' passed an integer
Case TYPE_INTEGER
'' access the ambiguous "any ptr" as an integer
right_hand_op = *Cast( Integer Ptr, Varptr( arg2 ) )
'' passed a double
Case TYPE_DOUBLE
'' access the ambiguous "any ptr" as a double
right_hand_op = *Cast( Double Ptr, Varptr( arg2 ) )
End Select
Return left_hand_op * right_hand_op
End Function
Dim As Integer int1, int2
Dim As Double double1, double2
int1 = 63
int2 = 6
double1 = 42.463
double2 = 50.5
? multiply_ToDouble( int1, int2 )
? multiply_ToDouble( int1, double1 )
? multiply_ToDouble( double1, int2 )
? multiply_ToDouble( double1, double2 ) |
|
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
