✔ Programm mit mehreren Formularen

[Hugo80]

Ich habe mal eine Frage. ;-)

Ich habe ein Programm mit mehreren Formularen. Auf dem Hauptformular soll das Ergebnis ausgegeben werden.

Hier der Quelltext:

Hauptformular

Private Sub cmd_Beenden_Click()
End
End Sub

Private Sub cmd_Start_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Form_Load()
Form1.Show
Form2.Hide
Form3.Hide
End Sub

Nebenformular

Public Sub cmd_Eingabe_Click()

If chk_DRAM.Value = 0 And chk_VRAM.Value = 0 And chk_SRAM.Value = 0 And chk_RDRAM.Value = 0 And chk_EDO.Value = 0 Then
MsgBox "Eingabe erforderlich", 48, "Fehler"
ElseIf chk_DRAM.Value = 1 And chk_VRAM.Value = 0 And chk_SRAM.Value = 0 And chk_RDRAM.Value = 0 And chk_EDO.Value = 0 Then
MsgBox "Sehr schön Ihre Antwort war richtig."
Form1.Hide
Form2.Hide
Form3.Show
Zähler = Zähler + 1 Der Zähler soll im Hauptformular ausgegeben werden
Else
MsgBox "Schade Ihre Antwort war leider falsch."
Form1.Hide
Form2.Hide
Form3.Show
End If

End Sub

Private Sub Form_Load()
chk_VRAM.Value = 0
chk_SRAM.Value = 0
chk_DRAM.Value = 0
chk_RDRAM.Value = 0
chk_EDO.Value = 0
End Sub


Wie und wo muß ich die Variable (Zähler) dimensionieren damit ich den Wert im Hauptformular ausgeben kann?

 

[RamonR]

Prinzipiell ist nicht so wichtig, wo Du die Variable definierst, sondern wie:

Beispiel:

Hauptformular
' Variable In Form1 ausserhalb von Funktionen definieren
public Zähler as long


Nebenformular
' Variable in Form2 erhöhen
private sub Deine_Funktion
  Form1.Zähler = Form1.Zähler + 1
end sub

Die Variable Zähler muss als 'public' (öffentlich) definiert werden, dann kannst Du sie in jeder Form deines Projekts ansprechen.

Für einen sauberen, übersichtlichen Programmierstill solltest Du allerding ein seperates Modul anlegen, in dem globale Variablen definiert werden.

Beispiel.:

Modul 'Variablen.bas':
public Zähler as long

Nebenmodul
private sub Deine_Funktion
  Variablen.Zähler  = Variablen.Zähler + 1
end sub

Hauptmodul
private sub Deine_Funktion
  Textbox1.text = Variablen.Zähler
end sub

Ich hoffe, dass hilft Dir weiter

 

[Hugo80]

Vielen Dank für deine Antwort. Es funktioniert jetzt alles.