Große Übung: Programmieren in VBA
Aus unregelmäßig verteilten Punkten (siehe Abbildung links) sollen mit Hilfe einer Interpolation Attribute z.B. wie hier Höhen in einem regelmäßigen Raster (siehe Abbildung rechts) berechnet werden. Als Interpolationsmethode soll das gewichtete Mittel (Inverse Distance Weighting) angewandt werden, wobei sich das Gewicht p für jedes Punktattribut aus 1/Abstandsquadrat ergeben soll. Die Rasterweite soll frei wählbar sein.
Die interpolierten Rasterdaten sollen auf einem zweiten Tabellenblatt „Darstellung“ visualisiert werden (siehe Abbildung rechts unten).
Beachten Sie folgende Bearbeitungshinweise:
1. Ergänzen Sie in der zur Verfügung gestellten Mappe „Rasterinterpolation“ das obige Dialogfenster nach Vorlage. Individuelle Erweiterungen der Funktionalität sind willkommen!
2. Machen Sie sich intensiv mit der function „interpol“ (in der Mappe „Rasterinterpolation“) - nicht nur mit dem Programmablauf - vertraut!
3. Hinterlegen Sie der Befehlsschaltfläche „Interpolation starten“ ein Makro, das für die einzelnen Rasterpunkte die zugehörigen Attributwerte interpoliert. Bitte verwenden Sie dazu die function „interpol“. Legen Sie den Rasterbereich geeignet, aber flexibel fest. Die interpolierten Attributwerte sollen im Tabellenblatt „Darstellung“ eingetragen werden.
4. Programmieren Sie die in der obigen Vorlage des Dialogfensters sichtbaren weiteren Steuerelemente wie Drehfelder etc..
5. Formatieren Sie das Tabellenblatt „Darstellung“ in der Mappe „Rasterinterpolation“ bedingt, um die verschiedenen Attribute der Rasterdaten farblich unterschiedlich zu visualisieren.
6. Schreiben Sie ein weiteres Makro, das den benutzerdefinierten Dialog öffnet und verbinden Sie dieses mit einem Textfeld o.ä. zum komfortablen Aufruf des Dialogs aus dem Tabellenblatt.
7. Kommentieren Sie den VBA - Programmcode ausreichend! Testen Sie Ihr Makro!
häng gerade bei 3. brauche dringend hilfe, weiß nicht wie ich die interpolierten werte in einem anderen datenblatt aufrufen kann
|