Problem bei Schulaufgabe

[Stromberg]

Hallo allerseits...

ich habe das Programm mit Hilfe eines Freundes soweit fertiggestellt.
Allerdings habe ich noch ein kleines Problem in meinem Code, wobei ich meinen Fehler allerdings nicht finde.

Vielleicht könnt ihr Mal drüberschauen.

Ganz unten im Code bekomme ich bei Private Sub optsinus_Click() immer angezeigt, daß die Variable nicht definiert sei

Hat da jemand eine Idee, warum das nicht funktioniert?




Option Explicit

'Definierung des Records und der Zeichenanzahl

Private Type HypothenuseTyp
Seitea As Single
Seiteb As Single
Seitec As Single
End Type

Private Type WinkelTyp
Winkel As String * 9
wert As Single
End Type


'Berechnung der Hypothenuse

Private Sub cmdberechne_Click()
'Dimensionierung

Dim HypTyp As HypothenuseTyp
Dim WinTyp As WinkelTyp

'Zuweisung der Textboxen zu den Variablen

HypTyp.Seitea = Val(txtSeitea.Text)
HypTyp.Seiteb = Val(txtSeiteb.Text)
HypTyp.Seitec = Sqr(HypTyp.Seitea ^ 2 + HypTyp.Seiteb ^ 2)

'Ausgabe und Speicherung in Ausgangsdatei.DAT (erster Record)

Open "Ausgangsdatei.DAT" For Output As #1
Write #1, "Seite a: " & HypTyp.Seitea & "Seite b: "; HypTyp.Seiteb & "Seite c: "; HypTyp.Seitec
Close

'Select Case Anweisung

Select Case optauswahl

Case "Sinus"
WinTyp.wert = HypTyp.Seitea / HypTyp.Seitec
Case "Cosinus"
WinTyp.wert = HypTyp.Seiteb / HypTyp.Seitec
Case "Tangens"
WinTyp.wert = HypTyp.Seitea / HypTyp.Seiteb
Case "Cotangens"
WinTyp.wert = HypTyp.Seiteb / HypTyp.Seitea

End Select

'Auswahl der Winkelfunktionen über Option Buttons
'Ausgabe und Speicherung in Trigonometrie.DAT (zweiter Record)

Open "Trigonometrie.DAT" For Output As #1
Write #1, "WinTyp.winkel & "; alpha = " & WinTyp.wert"
Close

End Sub

Private Sub optsinus_Click()
optauswahl = "sinus"
End Sub

Private Sub optcosinus_Click()
optauswahl = "cosinus"
End Sub

Private Sub opttangens_Click()
optauswahl = "tangens"
End Sub

Private Sub optcotangens_Click()
optauswahl = "Cotangens"
End Sub


End Sub

 

[ronaldh]

Du musst ganz einfach oben nach Deinen Type-Definitionen noch die Variable optauswahl, die ja auf Modul-Ebende benutzt wird, dimensionieren, z.B.

Private OptAuswahl as String

Übrigens tun wir uns leichter, Deinen Code zu lesen, wenn Du ihn mit dem Button "Code einfügen" (das ist der Button mit dem # - Zeichen) einfügst.

Viele Grüsse
ronaldh

 

[Stromberg]

Hallo nochmal...
tut mir leid, daß ich nochmal störe, aber ich bekomme noch einen Fehler angezeigt.

Bei dem zweiten Record "TrigonometrieAT"

Open "Trigonometrie.DAT" For Output As #1
Write #1, "WinTyp.winkel & "; alpha = " & WinTyp.wert"
Close

bekomme ich ebenfalls angezeigt "Variable nicht definiert" (alpha wird blau hinterlegt)
Weiß jemand was ich da falsch gemachtr habe?

Kann mir jemand nochmal erklären wo disere # Button auf der Forumseite ist?

 

[ronaldh]

Du musst jede verwendete Variable dimiensionieren, so halt auch "alpha".

Dazu musst Du den Datentyp wissen, vermutlich ist eine Double, dann würdest Du also schreiben:

Private Alpha as Double

(auch oben im Deklarationsteil des Programmes). Du solltest Dich dazu mal durch den Teil "Datentypen" in der Hilfe von VB wühlen.

Mit dem #-Button meine ich hier im Form den 3. Knopf von rechts in der unteren Iconleiste oberhalb des Eingabefensters für Text. Alles klar?

Ich hoffe, Dir geholfen zu haben, und hoffe, dass ich dann von Dir oder Deinem Lehrer auch eine gute Zensur bekomme )

Viele Grüsse
ronaldh

 

[Stromberg]

Ich möchte mich wirklich sehr herzlich bei dir für die tatkräftige Unterstützung bedanken.
War wirklich immer sehr schnell und kompetent.

Vielen Dank nochmal und einen schönen Abend