Hilfe bei Informatik Projekt (Sinus, Kosinuskurven)

T

timo0804

Mitglied
Moin Moin,
habe in der Schule die Aufgabe, eine Sinus eine Kosinus und eine Tangenskurve zeichnen zu lassen. Sinus und Kosinus hab ich dank einem Tutorials schon geschafft (leicht getrickst), aber bei den anderen beiden weis ich net ganz was ich machen soll/kann.
Folegnde Sachen würde ich gerne haben:
- Sinuskurve
- Kosinuskurve
- Tangenskurve
- X Funktionen ausrechnen und zeichnen (z.B. Parabelln und so weiter)

Die letzten beiden schaff ich nicht ganz. Ich hänge mein bis heriges Projekt an und hoffe dsa ihr schöne, schülerverständliche Ergänzungen machen könnt und z.B. das mit den X-Funktionen lösen könnt.

Danke schonmal

Gruß Timo
 
Leider kann ich Deine Zip-Datei nicht öffnen, scheint defekt zu sein !?

Aber ich habe mal ein ähnliches Programm geschrieben, welches Sinus-, Kosinus- und Parabelfunktionen darstellen kann.

Im Hauptfenster kannst Du die gewünschte Funktion über den gleichnamigen Button auswählen.

Das Berechnen der Funktionnswerte geschieht in der Sub "Private Sub cmdZeichnen_Click()"

In der Schleife

Code: 
    For i = Xmin To Xmax Step Funktion_Schritt
        If i > Xmax Then
            Exit For
        End If
        
        ReDim Preserve y(0 To counter)
        y(counter) = Funktion.Funktion(i)       ' Funktion f(i)
        
        If y(counter) < ymin Then
            ymin = y(counter)
        End If
        If y(counter) > ymax Then
            ymax = y(counter)
        End If
        counter = counter + 1
        DoEvents
    Next i

werden die einzelnen Punkte der Funktion berechnet und im Array y gespeichert.

Dabei wird die jeweilige Funktionsgleichung aus dem Modul "Funktion" genommen:

Code: 
Public Function Funktion(x As Double) As Double
    
    Select Case (Funk_Nr)
        Case 0          ' m*x+n
            Funktion = m * x + n
        Case 1          ' m*x^2+n
            Funktion = m * x ^ 2 + n
        Case 2          ' m*x^3+n
            Funktion = m * x ^ 3 + n
        Case 3          ' m*x^y+n
            Funktion = m * x ^ y + n
        Case 4          ' m*sin(x)+n
            Funktion = m * Sin(x) + n
        Case 5          ' m*cos(x)+n
            Funktion = m * Cos(x) + n
        Case 6          ' m*sin(y*x)+n
            Funktion = m * Sin(y * x) + n
        Case 7          ' m*cos(y*x)+n
            Funktion = m * Cos(y * x) + n
        Case Else
            Funktion = 0
    End Select
End Function

Ich häng Dir das Projekt mal an, vielleicht hilft es Dir weiter.
 

Anhänge

Moin Moin,
was soll ich dazu sagen? Das Programm ist der Hammer...
Das einzige Problem was ich dabei ahbe ist die Erkärung. Ich versteh das Programm einfach nihct, denn ich bin gerade einmal 1 Jahr in einem Informatik Kurs, wo die Hälfte der Zeit der Unterricht augefallen ist.
Ich probiers mir anzugucken, aber kannst du mir vielelciht noch eine kurze Erklärung schrieben.

Danke schonmal Timo
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück