In Hochsprachen wie C#.NET und JAVA hilft der Einsatz vom trinären Operator oftmals, den Code leserlicher zu machen.
Ein Beispiel dafür ist das Zuweisen von Werten für ein Datenbankmodell bei einer Cursor-Iteration.
Wenn eine Materialnummer nicht vorhanden/leer ist, soll als String „not available“ angegeben werden:
Bsp. in C#
...
SqlDataReader reader = comm.ExecuteReader();
...
while (reader.Read())
{
vo = new WorkflowPositionVO();
vo.material = (reader.GetValue(0).ToString()=="")?
"not available":reader.GetValue(0).ToString();
...
Da der obige Code kompakt auf einer Zeile steht, und die gewünschte Funktionalität nicht durch 6-zeilige if/else-Konstrukte gewährleistet wird, führt dies bei vielen Attributen des Objektes „WorkflowPositionVO“ zu einer erhöhten Lesbarkeit des Codes. Man stelle sich 100 WorkflowPositionVO-Attribute vor, die zugewiesen werden müssen. Die Zahl von 600 (+100 Leerzeilen) würde auf 100 Zeilen reduziert werden, und die Fehleranfälligkeit dramatisch reduziert.
Problem
Der trinäre Operator ?: wird in VBA leider nicht unterstützt.
Ansatz
Die Funktionalität von ?: kann auf einen einfachen IF/ELSE-Zweig abgebildet werden, den man in eine Funktion auslagern könnte. Man könnte sich jetzt eine Funktion selbst implementieren, oder die fertige Funktion IIF benutzen. Hierbei handelt es sich um eine echte VBA-Funktion, die evtl. bereits durch ACCESS-Abfragen in SQL Statements bekannt ist.
Lösung
Bsp. in VBA:
material = IIf(Tabelle.Cells(i,1)="","not available",Tabelle.Cells(i,1))
Wenn es nicht möglich ist, Werte nach einem fortlaufendem Index (Ordinalskala) zu klassifizieren, da keine wirklich logische Reihenfolge existiert, kann man auf assoziative Array/HashMaps oder Dictionaries (synonyme Bezeichnung für nominell skalierte Merkmale) zurückgreifen. Dies ist in der Regel aussagekräftiger als ein Index. Diese Datenstruktur bietet beim Zugriff auf ein Element eine sehr hohe Performance. Bei einem Index müßte man alle Elemente der Datenstruktur durchlaufen um einen geeigneten Schlüssel zu finden.
Ansatz
Da VBA nativ keine solche Datenstruktur besítzt, wird auf Microsoft Scripting Runtime Object Library (scrrun.dll) zugegriffen.
Vorraussetzungen
Die DLL Datei hierfür wird automatisch ab Office 2000 mitinstalliert. Im VBA Editor muss unter „Tools -> Verweise/References“ die Microsoft Scripting Runtime option angehakt werden.
Lösung
Dim dictio As Object
Dim dictioItem As Variant
Set dictio = CreateObject("scripting.dictionary")
dictio.Add "key1", "value1"
dictio("key2") = "value2"
dictio("key3") = "value3"
MsgBox "-" & dictio("gibtsnich") & "-"
Dim i As Integer
i = 1
For Each dictioItem In dictio
If dictio(dictioItem) = "" Then Cells(i, 14).Value = "ich sagte das gibts nich"
Cells(i, 12).Value = dictioItem
Cells(i, 13).Value = dictio(dictioItem)
i = i + 1
Next
Von einer Office/VBA-Anwendung aus, soll auf eine Microsoft Access Datenbank (.mdb-Datei) zugegriffen werden.
Vorraussetzungen
Im VBA Editor im Menüpunkt Verweise wird die Option Microsoft ActiveX ADO Objects angehakt.
Lösung
Selektionsanweisung
Public Sub HoleDaten()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
' Datei liegt im aktuellen Projektverzeichnis
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & _
"\diedatei.mdb"
Set rs = cn.Execute("SELECT * FROM einetabelle")
i = 1
Do While Not rs.EOF
Cells(i, 1).Value = rs.Fields("Feld1")
Cells(i, 2).Value = rs.Fields("Feld2")
Cells(i, 3).Value = rs.Fields("Feld3")
Cells(i, 4).Value = rs.Fields("Feld4")
rs.MoveNext
i = i + 1
Loop
cn.Close
End Sub
Manipulationsanweisung
Public Sub SchubseInMDB()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=unfug.mdb"
Set rs = cn.Execute("INSERT INTO einetabelle(zweck)VALUES ('Unsinn')")
cn.Close
End Sub
Meine Intention ist es ein kompaktes JQuery-Tutorial zu veröffentlichen, welches (nach diesem Abschnitt) ein Überblick über die wichtigsten JQuery-Funktionen gibt.
Warum JQuery?
JQuery ist eine Javascript-Klassenbibliothek, welche zahlreiche Funktionen für die Selektion im HTML-Baum (DOM) und dessen Manipulation (HTML-Manipulation wie z.B. das Austauschen von TABLE-Tags oder dem dynamischen Hinzufügen von TR-Tags…) enthält.
Es bietet Funktionen für…
Elementselektion im Document Object Model über die Sizzle Selector Engine, die weitgehend den XPATH/CSS-3-Selektoren entspricht
Effekte und Animationen (einblenden, ausblenden, aufklappen, zuklappen…)
Ajax-Funktionalitäten (POST/GET, JSON…)
Zahlreiche frei verfügbare Plug-ins
Wer nutzt JQuery?
Vorwiegend Web-Entwickler, die auf einer etwas niedrigeren Ebene ein Javascript-Framework benötigen. JQuery ist kein High-Level-Framework mit WYSIWYG-Editor.
Moderne AJAX/DHTML-Webanwendungen nutzen immer häufiger High-Level-Frameworks wie GWT, ASP.NET, JSF usw…
Diese Frameworks bieten UI-Komponenten (z.B. Kalender, Tabellen mit DB-Anbindung, Bäume…) an, die herkömmlichen HTML-Seiten durch simples „Draufziehen“ (in einem WYSIWYG-Editor) oder Instanzierung neuer Teile (z.B. in einem UI-Composite-Pattern) die Fähigkeit verleiht sich durch Nutzerinteraktion (z.B. Mausklicks, Tastatureingaben…) zu verändern, ohne die Seite komplett neu zu laden (AJAX/DHTML).
Hierbei findet im Hintergrund eine DOM-Manipulation statt (häufig per AJAX – hier werden z.B. asynchron Abschnitte aus der Datenbank nachgeladen). Der Browser zuckt dabei nicht/Die Seite verschwindet bei einem Klick nicht kurz. Wenn man solche Komponenten selber entwickelt, ist JQuery eine ausgezeichnete Erweiterung zu herkömmlichen Javascript-Funktionen.
Microsoft hat in seiner IDE Visual Studio JQuery integriert und verwendet es bei der Entwicklung von Drag-And-Drop-UI-Komponenten. Aus diesem Grund ist ein Zugriff in Visual Studio auf die Funktionen möglich.
Tutorial
Zu Beginn…
Man benötigt 2 Dinge um mit JQuery zu beginnen
Das Einbinden der Bibliothek (herunterladen oder wie hier googlecontent nutzen)
Die READY-Funktion welche ein Ereignis ist, das sofort auftritt wenn das HTML-Dokument (oder das DOM) zur Manipulation bereit ist
…JQuery ermöglichen…
Hierfür fügen wir zwischen die HEAD-Tags des HTML-Dokuments die folgenden Skripte hinzu:
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.5/jquery.min.js">// <![CDATA[
// ]]></script><script type="text/javascript">// <![CDATA[
// Hier kommt die READY-Methode (s.u.) hin
// ]]></script>Hello World
… und die Ready-Methode implementieren
Hierfür gibt es 3 Möglichkeiten
1. Vollständig:
jQuery(document).ready(function() {
// Code hier einfügen
})
2. Mit $ als Alias für die jQuery-Klasse
$(document).ready(function() {
// Code hier einfügen
})
3. Kurzform:
$(function() {
// Code hier einfügen
})
Die READY-Methode ist das erste Event, was auftreten kann. Das Ereignis tritt ein, wenn auf das DOM zugegriffen werden kann. Ein ALERT-Fenster in dieser Methode aufzurufen macht nicht viel Sinn, da es nicht notwendig ist auf das geladene DOM zugreifen zu müssen. Dies könnte auch früher passieren.
Einschub: Was ist DOM?
Beim DOM handelt es sich um ein Modell, welches den Zugriff auf Elemente, Teilbäume oder Teil-XML-Strukturen erlaubt. Grundsätzlich sieht das DOM eine HTML-Dokumentes mit einer Tabelle folgendermaßen aus:
Verwendung des Selektions-Teils für den DOM
Bei den Beispielen werde ich nur noch die Kurzform der READY-Methode nutzen.
$(function() {
// Wähle alle <a>-Tags aus und definiere ein CLICK-Ereignis
$("a").click(function(event){
// wird bei jedem klick auf einen Link aufgerufen
alert('Hello JQuery!');
// verhindert das Aufrufen des in Link-Zieles
event.preventDefault();
});
});
</a>
Wer den obigen Code bereits versteht, hat auch das Selektions-Konzept von JQuery verstanden.
Der erste Aufruf ist immer eine Selektion auf das DOM/HTML-Dokument. Mit $(„a“) (alternativ auch jQuery(„a“) ) wurden alle -Tags im gesamten HTML-Dokument ausgewählt. Das Anhängen von .click hängt dann an die Selektion (also alle Links, bzw. -Tags) ein onClick-Ereignis, welches ein ALERT-Fenster öffnet. Die Methode preventDefault() des Event-Objektes verhindert das Standardverhalten des Links, nämlich den Aufruf der Seite. Somit könnte man für alle Links die Zielseite ändern oder abfangen. Der Funktionskörper function() deklariert eine anonyme, namenlose Methode die ausgeführt wird, wenn das onClick-Ereignis des Links (also des -Tags) aufgerufen wird.
Man kann grundsätzlich alle – oder XML-Tags eines „Baumes“ (nämlich dem DOM) selektieren.
Doch was gibt es für Möglichkeiten der Selektion?
Oberflächlich gesehen gibt es 2 Möglichkeiten…
Kombination aus CSS und XPATH -> $(„div > ul a“)
Nutzung verschiedener Methoden des JQuery-Objektes (z.B. $(„a“).each mit $(this) Referenz
Selektion …
… auf eine TAG-ID
$(„#eineDivID“).addClass(„red“);
Die Raute # sagt der Selektion, das sie ein Attribut id=“..“ suchen soll. Die Selektion beinhaltet dann das Element (z.B. ein DIV). Hier wird diesem DIV die CSS-Klasse .red zugewiesen.
Beispiel:
Div-Inhalt
… auf alle Kind-Elemente aller Tabellen eines Dokumentes
$(„table > tr > td“).addClass(„blue“);Die Selektion wählt alle td-Tags aller Tabellen aus und fügt diesen die CSS-Klasse .blue hinzu. Für Kind-Elemente (Unter-Tags) wird das Ist-Größer-Als-Zeichen > verwendet.
… auf das letzte -Element aller Tabelle eines Dokumentes
Unter Verwendung vom HOVER-Event, welches 2 Parameter onMouseOver/onMouseOut als „functions“ übergeben bekommt, wird ein Mouse-Over-Event auf alle letzten Zeilen aller Tabellen gelegt. Fährt man mit der Maus drüber nimmt dieses die Farben/Styles an, die in der CSS-Klasse .green definiert wurden. Ist die Maus wieder außerhalb der Zeile wird die Klasse entfernt.
… auf alle
-Tags, die ein Class-Attribut haben
$(„p[@class]“).hide()
Selektiert alle p-Tags im Dokument, die ein Attribut für eine CSS-Klasse vorgegeben haben class=“…“ und versteckt diese.
… auf den ersten
-Tag einer Seite
$(„p:eq(0)“)…..
… auf alle sichtbaren DIVs der Seite
$(„div:visible“)…
… auf alle -Tags die unter einem -Tag sind
$(„ul > li“)…. alternativ auch $(„ul/li“)
… auf alle
-Tags mit einer CSS-Klasse „foo“, die einen Link haben
$(„p.foo[a]“)…
… auf alle -Tags mit einem Link mit dem Text „Register“
$(„li[a:contains(‚Register‘)]“)…
… auf alle -Tags mit dem Name „bar“
$(„input[@name=bar]“)…..
… auf alle angehakten/gecheckten Radio-Buttons
$(„input[@type=radio][@checked]“)….
CSS Selektoren
Selektionen nach Stylesheet folgen der Syntax
E:STYLE
wobei E ein HTML-Element/HTML-Tag bezeichnet.
… auf ein
-Element als einziges Kind-Element seines Eltern-Tags
$(„p:only-child“) …
… auf ein
-Tag als letztes Kind-Element seines Eltern-Elements
$(„p:last-child“) …
Mit regulären Vergleichsoperatoren…
… z.B. bei der Suche nach Attributen
… auf alle -Tags, in deren href-Attribut der String /content/gallery vorkommt
Es wird eine Datenstruktur benötigt, die mehrere FilterFunctions unterstützt und mit der mx:ArrayCollection kompatibel ist.
Problem
mx:ArrayCollection besitzt nur die Eigenschaft für eine einzige Filter-Funktion. Möchte man mehrere Filter setzen, muss man komplexe Funktionen mit Filter-Logik implementieren.
Ansatz
Durch die Erweiterung der mx:ArrayCollection wird eine Methode filterFunctions implementiert, welche mehrere Filter entgegennehmen kann. Die erweiterte BjoernsArrayCollection kann in ArrayCollection gecastet oder ggfs. (z.B. durch eine Schleife) befüllt werden.
Lösung
Folgende Klasse erweritert die normale ArrayCollection um mehrere Filter-Funktionen:
package components
{
import mx.collections.ArrayCollection;
public class BjoernsArrayCollection extends ArrayCollection
{
private var _filterFunctions:Array;
public function BjoernsArrayCollection( source:Array = null )
{
super(source);
}
public function set filterFunctions( filtersArray:Array ):void
{
_filterFunctions = filtersArray;
this.filterFunction = complexFilter;
}
public function get filterFunctions():Array
{
return _filterFunctions;
}
protected function complexFilter( item:Object ):Boolean
{
var filterFlag:Boolean = true;
var filter:Function;
for each(filter in filterFunctions)
{
filterFlag = filter( item );
if( !filterFlag ) break;
}
return filterFlag;
}
}
}
Der Filterfunktionen werden so deklariert:
// Result-Methode von Service liefert eine mx:ArrayCollection, die
// anhand mehrerer Kriterien gefiltert wird.
public function getResetableOrganizationsHandler(event:ResultEvent):void
{
// Instanzieren des neuen Objektes
resetableorgas = new BjoernsArrayCollection();
// Deklaration der Filter
resetableorgas.filterFunctions =
[
filterByProductGroup,
filterByCompcode,
filterBySalesdiv,
filterByMarket
];
// Umsortierung in BjoernsArrayCollection
resetableorgas.removeAll();
for each(var item:ResetableOrganizationsVO in event.result)
{
resetableorgas.addItem(item);
}
resetableorgas.refresh();
}
Der Aufbau der Filter-Funktion:
...
// Rückgabe ist true wenn der Vergleich des Eingegebenen (txtCompcode.text)
// mit einem Element der ArrayCollection (item.compcode) passt
private function filterByCompcode( item:Object ):Boolean
{
if( String(item.compcode).indexOf(txtCompcode.text)>-1 )return true;
return false;
}
...
Ggfs. (z.B. in einem mx:TextInput) die Refresh-Methode aufrufen:
Gelegentlich ist es nötig über alle Komponenten eines mx:Canvas-Elements, einem Container oder einer UIComponent zu iterieren.
Beispiele:
* Deaktivieren von allen Controls eines bestimmten Typs (alle Textfelder ausgrauen)
* Neuschriftung von allen Labels
* Deaktivieren aller Reiter
Ansatz
Durch den Typecast in einen DisplayObjectContainer lässt sich über jedes UI-Element iterieren. Eine Startmethode übergibt das Canvas, bzw. das UI-Urelement. Die Rekursionsmethode castet in den kompatiblen Supertyp DisplayObjectContainer und verfügt über Möglichkeiten der Iteration über seine Eigenschaften.
Lösung
// Startmethode übergibt Urelement der Rekursion
public function startSearch():void
{
searchRecursion(this);
}
// Rekursionsmethode ruft sich selbst auf wenn Child-Elemente v.h.
public function searchRecursion(current:DisplayObjectContainer):void
{
for ( var i:Number=0; i< current.numChildren; i++)
{
var child:DisplayObject = current.getChildAt(i);
trace(getQualifiedClassName(child));
var childContainer:DisplayObjectContainer = child as DisplayObjectContainer;
if(childContainer)
{
searchRecursion(childContainer);
}
}
}
[/javascript]
Die Datei librfc32.dll muss im VBA Editor eingebunden werden (sie ist nach der Installation der SAPGUI verfügbar).
Lösung
Aufbau der Verbindung
Public Function SAP_Logon(username As String, password As String) As Boolean
'*************************************************
' ANMELDUNG AN SAP
' ACHTUNG: USER MUSS BERECHTIGUNGEN HABEN!!!!
'*************************************************
Set FunctionCtrl = CreateObject("SAP.Functions")
'Objekt für die SAP Verbindung
Set SapConnection = FunctionCtrl.Connection
SapConnection.Client = "100"
SapConnection.User = username
SapConnection.Language = "DE"
SapConnection.password = password
SapConnection.hostname = "rechnername.firma.com" 'nicht das kuerzel wie DE9
SapConnection.systemnumber = "0"
If Not SapConnection.Logon(0, True) Then 'True silent - false offen
MsgBox "Logon failed!!!", vbCritical
CMS_Logon = False
Else
CMS_Logon = True
End If
End Function
Abmelden
Public Function SAP_Logoff() As Boolean
SapConnection.LogOff
End Function
Funktionbaustein befüllen und aufrufen
Public Function SAP_Create_Request() As Long
'******************************************************
' Request erzeugen
' Strukturen füllen und übergeben, dann Log ausgeben
'******************************************************
On Error GoTo ErrorMSG
Dim FunctionModule As Object
Dim e_EXPORTSTRUKTUR As Object
Dim T_TABELLENSTRUKTUR As Object
Dim te_messtab As Object
Dim lCnt As Long
' Assign Function Module
Set FunctionModule = FunctionCtrl.Add("Z_FUBA")
' Set export Variables
Set e_EXPORTSTRUKTUR = FunctionModule.Exports("P_STRUKTURPARAMETER")
' Set structrue fields in export parameter
e_EXPORTSTRUKTUR ("ZEXPORTPARAM1") = "BLA"
e_EXPORTSTRUKTUR ("ZEXPORTPARAM1") = "BLA2"
Set T_TABELLENSTRUKTUR = FunctionModule.Tables("T_ZMMMATANF8")
T_TABELLENSTRUKTUR.appendRow
T_TABELLENSTRUKTUR(1, "SPALTE1") = 1
T_TABELLENSTRUKTUR(1, "SPALTE2") = 2
T_TABELLENSTRUKTUR.appendRow
T_TABELLENSTRUKTUR(2, "SPALTE1") = 3
T_TABELLENSTRUKTUR(2, "SPALTE2") = 4
' Call Function Aufruf
If FunctionModule.Call = True Then
Set te_messtab = FunctionModule.Tables("TE_MESSTAB")
' Meldungen ausgeben:
Dim intRow As Integer
For intRow = 1 To te_messtab.RowCount
If te_messtab(intRow, "ARBGB") = "ZMM0001" And _
te_messtab(intRow, "MSGNR") = "003" Then
' ANForderung wurde erstellt.
CMS_Create_Request = Val(te_messtab(intRow, "MSGV1"))
End If
Debug.Print te_messtab(intRow, "ARBGB")
Debug.Print te_messtab(intRow, "MSGNR")
Debug.Print te_messtab(intRow, "NATXT_DE")
sMSGTXT = te_messtab(intRow, "NATXT_DE")
Debug.Print te_messtab(intRow, "FLDNAME")
Debug.Print te_messtab(intRow, "MSGV1")
Debug.Print te_messtab(intRow, "MSGV2")
Debug.Print te_messtab(intRow, "MSGV3")
Debug.Print te_messtab(intRow, "MSGV4")
Debug.Print "----------------------------------"
Next
Else
CMS_Create_Request = 0
MsgBox "Error creating the CMS Request." & vbNewLine & _
"See Log for details", vbCritical
End If
ErrorMSG:
End Function
Die Testfunktion
Public Sub Start()
'*************************************************
' TESTUMGEBUNG
'*************************************************
Dim RequestNo As Long
Dim username As String
Dim password As String
username = "BJOERN"
password = "ICHBINDERBESTE"
Call CMS_Logon(username, password)
RequestNo = SAP_Create_Request
Call CMS_Logoff
End Sub
Es wird ein Grundgerüst für eine Flex-Anwendung erstellt, auf dessen Basis Animationen und Charaktere, die aus Flash CS4 exportiert worden, gesteuert werden können.
Intention
Da Adobe Flex als Entwicklungsumgebung für Programmierungen wesentlich mehr Features bietet als Flash (Context-Hilfe, Syntax-Highlighting, Design-Time-Prüfungen), wird versucht die Vorteile von Beiden Umgebungen zu nutzen und ein Flashspiel mit Flex, dessen Focus auf der Entwicklung mit Eclipse liegt, zu implementieren.
Ziel
Ziel ist das Auffinden von Bests Practices bei der Spieleentwicklung mit Flash/Flex.
Vorgehensweise 1
Erstellen von Animationen
Es werden 2 Loop-fähige Animationen erstellt, die nachher als Symbol konvertiert werden
Hier:
– Moving Landscape
– Character
Export aus Flash / Import in Flex
Flash schließen
Adobe Account anlegen
Flex Component Kit bei Adobe runterladen
Flex Component Kit mit Adobe Extension Installer installieren
Nur bei Problem mit Deutschen Versionen: Das in C:\User … … AppData … Adobe Flash CS4 … !!!DE!!! … Configuration-Verzeichnis in das auf der gleichen Ebene befindliche !!!EN!!! Verzeichnis kopieren
Flash neu starten
Die auf der Stage befindlichen Ebenen markieren
Menülieste: Modify -> Convert to Symbol
In Library (STRG+L) Symbol anklicken
Neues Menü: Command – Convert to Flex Component aufrufen
File->Publish aufrufen
In der Library auf dem neuen Flex Symbol -> Rechte Maustaste -> Convert to SWC (vorher auch unter Properties die Classnamen angeben)
In das Flex Projekt (lib-Verzeichnis) kopieren
Die Komponente steht in MXML zur Verfügung, wenn man den unter Properties angegebenen Classnamen aufruft
