Das deutsche QBasic- und FreeBASIC-Forum

[OneCypher]

Hallo Leute

Hab mal was "neues" geschrieben. Hatte es auch mal in "Allgemeine Fragen zu FreeBASIC." erwähnt das ich an einem Wrapper arbeite, der mit Hilfe des Disphelpers Excel-VBA in Freebasic verfügbar machen soll.

Ist natürlich sehr umfangreiches Vorhaben. Deswegen habe ich bisher nur Grundsteine gelegt, mit denen man auf jeden Fall schon mal ein bischen Datenverarbeitung realisieren kann.

Ich würde mir sehr wünschen, dass sich möglichst viele daran beteiligen mehr Objekte bzw Funktionen zu implementieren!

hier die xlwrapper.bi:
http://www.freebasic-portal.de/index.php?s=fbporticula&mode=show&id=835

und hier ein "einfaches" Beispiel:
http://www.freebasic-portal.de/index.php?s=fbporticula&mode=show&id=836

Im Internet hab ich mich natürlich auch schon umgeschaut (gegoogelt) ob es sowas in der art schon gibt. Tatsächlich haben einige schon Projekte mit dem Disphelper realisiert, aber nicht Grundlegend versucht VBA-Syntax in FB nachzubilden.
Daher hoffe ich einfach mal auf positive Rückmeldung von euch

Danke schon mal!

Gruß Chris

[dreael]

Habe das Ganze nur kurz überflogen: Würde das heissen, mit der Vorgehensweise Deines Beispielcodes mehr oder weniger die Notwendigkeit einer temporäreren .VBS praktisch überall erfolgreich beseitigen können und so in Zukunft praktisch die komplette Palette sämtlicher Automatisierungsobjekte aus FB heraus direkt nutzen zu können?

Falls ja, bist Du in Zukunft sehr herzlich eingeladen, nach meinen Post jeweils ein "Und hier noch die Variante, die dreaels .VBS komplett eliminiert:" zu machen. :-)

Oder vielleicht erfindest Du ja sogar eines Tages der ultimative "vbs2dispelpers"-Codegenerator, der aus einem

[ThePuppetMaster]

@OneCypher

Regulär ist es nie möglich, das man einer "Property" mehr als eine eigenschaft gleichzeitig übergeben kann. Das würde auch den Sinn einer eigenschaft zunichte machen.

Eine Eigenscahft definiert ja ihrem sinn nach >1< Eigenschaft. Vergleich es mit VB. Dort hast du ne Eigenschaftsliste. Wenn man mehrere Eigenschaften gleichzeitig setzen lassen wollen würde, dann müsste man quasi 2 felder nebeneinander haben, die man zeitgleich ändert, so das die eigenschaft auch beide parameter gleichzeitig erhalten kann. Sonst könnte es zu undefinierten zuständen kommen, welche nicht voraussehbar sind.

Das ist auch ein Grund dafür, das man generell Seriell und nicht parallel Programiert. Schliesslich arbeitet auch ein PC alles nacheinander ab (mal abgesehen vom multicore, bei dem das teilweise jedoch auch so ist)


MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ]

[OneCypher]

@Dreael: einen ultimativen vbs2disphelper wird es wahrscheinlich nicht geben können, weil die objekte bzw funktionen von vba/vbs hardcodiert in FB "umwickelt" werden müssen.. Und mit einem Parser oder Preprozessor möchte ich mich nicht beschäftigen.

aber zu deinem beispiel. Was spricht dagegen wenn du es in FB so ausdrückst:

[ThePuppetMaster]

[OneCypher]

Oh mann... ich habs schon fast richtig gecoded... ich hätt nur in den funktionen cells(rc as _rc) die parameter in r und c aufspalten müssten *übermichselbstärger* .. hmm.. vielleicht könnte man noch eine Operatoren überladung (für = ) reinbauen das strings und zahlen auf die value eigenschaft weitergeleitet werden... *überleg*

[dreael]

[OneCypher]

@dreael: ähm.. ich bleib noch mal kurz bei der anderen Problematik:

[vba] .cells(2,2).value = "Hallo Welt!" [/vba]

funktioniert in meiner version schon mal!

aber

[vba] .cells(2,2) = "Hallo Welt!" [/vba]

noch nicht. Dazu habe ich mir folgendes Beispiel ausgedacht:

[code]

type testtype
declare operator let (byref x as string)
value_safe as string
para_safe as string
end type

operator testtype.let (byref x as string)
print "Vorher : " & value_safe
value_safe = x
print "Nachher: " & value_safe
end operator

dim a1 as testtype
a1 = "hallo"
a1 = "12345"

[code]

Dabei wird der operator let von testtype so überladen das er Strings an den value_safe weiterleitet.

Einen schritt weiter könnte man so gehen, indem man eine Funktion in die testtype implementiert die parameter entgegennimmt und mit den parametern die elemente verändert und diese testtype dann weiter an den let operator übergibt:

[code]
type testtype
declare operator let (byref x as string)
declare function testen(a as string) as testtype
value_safe as string
para_safe as string
end type

operator testtype.let (byref x as string)
print "Vorher : " & value_safe
value_safe = x
print "Nachher: " & value_safe
end operator

function testtype.testen(a as string) as testtype
para_safe = a
return this
end function


dim a1 as testtype
a1 = "hallo"
a1 = "12345"

print "#:" & a1.testen("A1").value_safe

sleep

[/code]

möchte man aber a1 über die funktion testen verändern, wie etwa mit:

[code]
a1.testen("A1") = "hallo welt!"
[/code]

nimmt der kompiler das nicht mehr an. obwohl der let-operator für die, von der testen-funktion zurückgegebene testtype korrekt strings entgegen nehmen soll...

puh.. sorry, echt kompliziert...

aber vielleicht weiss einer weiter...