Mittwoch, 11. Juni 2008

Lissajous-Funktionen

Lissajous-Funktion

Allgemeines:
Lissajous-Figuren sind Kurvengrapfen, die durch Überlagerung harmonischer Schwingungen entstehen. Sie sind benannt nach dem französischen Physiker Jules Atoine Lissajous (1822-1880). Einen besonders faszinierenden anblick bietet die Kurve bei geringfügiger Abweichung zwischen den Schwingungen, weil durch die langsam rotierende Figur ein 3D Eindruck entsteht.



Gruppe: alleine


Genaue Aufgabenstellung/ Arbeitsschritte im Detail: Wir müssen mit Hilfe von Excel eine Lissajous-Figur erstellen. Wir müssen eine Tabellemit 68 Zeilen erstellen. Darin sollen ganz links die Zahlen 0 - 6,4 um 0,1 aufsteigend stehen. Daneben soll die Spalte x sein. Die Zahlen in dieser Spalte ergeben sich so: SIN(A9*$B$4) Die Zahlen in der Spalte y ergeben sich aus SIN(A9*$C$4+$E$8)

In den Feldern B4 und C4 steht das Verhältnis zwischen x und y Achse
Im Feld E8 steht die Phasenverschiebung. Diese muss jedoch in das Bogenmaß umgerechnet werden.

Mit diesen Koordinaten muss man ein Diagramm (unbedingt Punktediagramm verwenden) erstellen. Es werden die Achsen und die gesamte Beschriftung entfernt.

Das Umstellen des Verhältnisses zwischen den beiden Achsen funktiniert mittels Checkbox. Diese ist auf ein Feld mit S-Verweis Verknüpft. In der Tabelle vom S-Verweis stehen die verschiedenen Verhältnisse.

Die Phasenverschiebung stellen wir mittel Bildlaufleiste und Drehfeld um.

Das funktioniert so: Rechter Mausklick auf das Drehfeld -> Steuerelement formatieren -> Minimalwert auf 0, Maximalwert auf 360 und Schrittweite auf 5 stellen. Danach muss man noch eine Zellverknüpfung auf die Phasenverschiebung erstellen. Das gleiche geschieht mit der Bildlaufleiste. Zum Schluss werden noch ein Reset und ein Endlos Button programmiert. Das geschieht mittels Makro.

Das sieht für die Reset-Funktion so aus:

Sub Makro4()
Range("a4").Value = 1
Range("d8").Value = 0
End Sub

und für die Endlos-Schlaufe so:

Sub Endlos()
While 1 = 1
Wend
End Sub

Diese Makros werden dann dem jeweiligen Button zugewiesen. Das geschieht mit einem Klick mit der rechten Maustaste auf den Rand vom Button -> Makro zuweisen.

Theorie:

Das ist mir gut gelungen: Mir ist das erstellen des Diagramms und der Makros gut gelungen.



Das ist uns weiniger gut gelungen: Weniger gut ist mir das Erstellen des S-Verweises gelungen


Das habe ich dabei gelernt: kennenlernen von den Lissajous-Funktionen, Arbeiten mit Makros

Wo kann ich das gelernte einsetzten: erstellen von Sinuskurven mit verschiedenen Verhältnissen zwischen x und y Achse


Zeitaufwand:
2 Stunden


Arbeitsanfang: 21.05.2008

Arbeitsende: 21.05.2008

Verwendete Software: Microsft Excel


Quellen: http://de.wikipedia.org/wiki/Lissajous-Figur

Arbeitsergebnis im Detail:









Mittwoch, 4. Juni 2008

Visual-Basic

Visual-Basic



Gruppe: alleine


Genaue Aufgabenstellung/ Arbeitsschritte im Detail: Wir hatten die Aufgabe im Excel eine Temeraturumrechner zu erstellen.Dafür muss man unter Extras auf Makros und anschließend auf Visual-Basics-Editor klicken. Um den Umrechner erstellen zu können, muss man unter Einfügen auf User Form klicken. Danach werden 2 Bezeichnungsfelder eingefügt. Ihre Caption wird auf Fahrenheit und Celsius geändert. Das macht man in der Liste mit den Eigenschaften ganz links am Bildschirm.
Als nächstes werden 2 Textfelder mit dem Namen tbCelsius und tbFahrenheit erstellt. Als Text wird jedes Mal 0 verwendet.
Jetzt fehlen noch die Buttons zum Umrechnen von Celsius auf Fahrenheit und von Fahrenheit auf Celsius. Durch eien Doppelklick auf einen der beiden Buttons gelangt man in ein Fenster wo man den auszuführenden Befehl eingibt. Dieses lautet: Private Sub cbCelsiusinFahrenheit_Click()
ufTemperatur.tbFahrenheit.Value = ufTemperatur.tbCelsius.Value * 1.8 + 32
End Sub

Für das Umrechen von Fahrenheit auf Celsius muss (.Value - 32) / 1.8 eigegeben werden. Weiters sind noch die Button "Drucken" und "Schließen" notewendig. Diese haben den Befehlstext

Private Sub cbDrucken_Click()
ufTemperatur.Printform
End Sub

für das Drucken und

Private Sub cbSchliessen_Click()
ufTemperaturumrechner.Hide
End Sub

Zum Schluss muss man noch einen Button im Excelblatt erstellen, mit dem man den Umrechner startet.

Theorie:
Exel Grundlagen

Das ist mir gut gelungen: Mir ist das Erstellen der einzelnen Textfelder und Buttons in Visual Basic gut gelungen.



Das ist uns weiniger gut gelungen: Weniger gut ist mir das Erstellen der Befehle für die einzelnen Buttons.


Das habe ich dabei gelernt: Das Arbeiten mit Visual-Basic und die Grundlagen von Visual-Basic


Wo kann ich das gelernte einsetzten: Beim Erstellen von verschiedenen Umrechnern


Zeitaufwand:
2 Stunden


Arbeitsanfang: 21.05.2008

Arbeitsende: 21.05.2008

Verwendete Software: Microsft Excel


Arbeitsergebnis im Detail: