Hey leute,
Ich versuche derzeit ein Programm zu schreiben, welches ein Multiplichoice Quiz darstellt. Bisher(ich bin in der Auswertung und zusammenrechnug der Einzelergebnisse) hat alles gut gegangen, doch nun streikt VB. Dazu sei gesagt, dass ich nicht viel über VB weiß und mir alles selbst zusammengreimt habe. Sollten also Fehler in meinem Code sein, so bitte ich, mir diese aufzuzeigen, damit ich das Programm möglichst optimieren kann.
Mein Programm baut sich derzeit folgendermaßen(Aufrufreihenfolge)auf:
Ich habe schon versucht diese Werte von den einzelnen Quiz frm an einen Public Sub in ErgebnisQuiz zu übergeben, doch was ich auch tue, kein Erfolg. folgendes hab ich bereits versucht:
Call ErgebnisQuiz!QuizErgebnis (Frage1 As Integer) ' VB sagt: ! muss . sein und nach Frage1 muss entweder Listentrennzeichen oder ) kommen'
Call ErgebnisQuiz.QuizErgebnis (ByVal Frage1 As Integer) ' VB sagt: nach Frage1 muss listentrennzeichen oder ) kommen, sowie: Typen unverträglich(dabei hat er ByVal markiert)
Call ErgebnisQuiz.QuizErgebnis (Frage1) ' VB sagt: RefVal Typen unverträglich
Aus Frust hab ich ihm dann einfach das Argument in Doppelklammern gesetzt damit er erzwungen wird und dann motzt er mich an: Argument nicht Optional
Ich könnt den manchmal. hier die verschiedenen Codes. hab die frm dazugeschrieben, einmal von 0 oder 1 Wert (Quiz1) und einmal mehr Antworten (Quiz3) sowie das ErgebnisQuiz. Solltet ihr euch über QuizErgebnis wundern, so hab ich den Public Sub benannt.
hoffe ihr könnt mir helfen, ich verzweifle hier...
Das mit Exel:
Ich habe versucht anhand von OLE oder Datenbank Exel versucht die Formulare an bestimmte Werte der ExelTabelle zu binden, aber ich verstehe nicht wie ich das machen soll, finde weder die richtigen Scripts noch finde ich eine Eigenschaft die mir das ermöglicht einfach zu verknüpfen. HILFE!!!
hab euch auch die Tabelle angehängt, solltet ihr damit etwas anfangen können.
Lg Kathleen
*Topic verschoben*
Ich versuche derzeit ein Programm zu schreiben, welches ein Multiplichoice Quiz darstellt. Bisher(ich bin in der Auswertung und zusammenrechnug der Einzelergebnisse) hat alles gut gegangen, doch nun streikt VB. Dazu sei gesagt, dass ich nicht viel über VB weiß und mir alles selbst zusammengreimt habe. Sollten also Fehler in meinem Code sein, so bitte ich, mir diese aufzuzeigen, damit ich das Programm möglichst optimieren kann.
Mein Programm baut sich derzeit folgendermaßen(Aufrufreihenfolge)auf:
- Quiz1-> sagt TextBox"Text1" in Formular "ErgebnisQuiz" es soll dessen Text Eigenschaft auf gegebenen Wert setzen
- Quiz1 wird durch commandButton Abfolge gehidet und Quiz2 aufgerufen(show)
- (Das geht wie bei Quiz1 so weiter(bis Quiz9) nur dass das Text feld höhere werte-Bis 8- zugewiesen bekommt)
- ... ErgebnisQuiz wird aufgerufen und die Textfelder 1 bis 9 zeigen die richtigen Werte. Soweit so gut.
- ErgebnisQuiz hat noch ein Textfeld indem die Summe der Byte werte von den textfeldern 1 bis 9 angeben soll. Nur scheitert diese Anzeige immer wieder aufs neue, es erscheint nie ein wert.
Ich habe schon versucht diese Werte von den einzelnen Quiz frm an einen Public Sub in ErgebnisQuiz zu übergeben, doch was ich auch tue, kein Erfolg. folgendes hab ich bereits versucht:
Call ErgebnisQuiz!QuizErgebnis (Frage1 As Integer) ' VB sagt: ! muss . sein und nach Frage1 muss entweder Listentrennzeichen oder ) kommen'
Call ErgebnisQuiz.QuizErgebnis (ByVal Frage1 As Integer) ' VB sagt: nach Frage1 muss listentrennzeichen oder ) kommen, sowie: Typen unverträglich(dabei hat er ByVal markiert)
Call ErgebnisQuiz.QuizErgebnis (Frage1) ' VB sagt: RefVal Typen unverträglich
Aus Frust hab ich ihm dann einfach das Argument in Doppelklammern gesetzt damit er erzwungen wird und dann motzt er mich an: Argument nicht Optional
Ich könnt den manchmal. hier die verschiedenen Codes. hab die frm dazugeschrieben, einmal von 0 oder 1 Wert (Quiz1) und einmal mehr Antworten (Quiz3) sowie das ErgebnisQuiz. Solltet ihr euch über QuizErgebnis wundern, so hab ich den Public Sub benannt.
Visual Basic-Quellcode
- (frmQuiz1)
- Public Sub Ergebnis()
- Frage = Frage + 1
- End Sub
- Public Sub Richtig1()
- ErgebnisQuiz!Text1.Text = 1
- Call Ergebnis
- End Sub
- Public Sub Falsch1()
- ErgebnisQuiz!Text1.Text = 0
- End Sub
- Public Sub Richtig2()
- ErgebnisQuiz!Text2.Text = 1
- Call Ergebnis
- End Sub
- Public Sub Falsch2()
- ErgebnisQuiz!Text2.Text = 0
- End Sub
- Private Sub cmdSpeichern_Click()
- cmdWeiter.Enabled = True
- End Sub
- Private Sub cmdWeiter_Click()
- Call ErgebnisQuiz.Ergebnis(Summe, Frage)
- Quiz1.Hide
- Quiz2.Show
- End Sub
- Private Sub Form_Load()
- Dim Frage As Integer
- Frage = 0
- ErgebnisQuiz!Text1.Text = 0
- ErgebnisQuiz!Text2.Text = 0
- End Sub
- Private Sub Option1_Click()
- If Option1.Enabled Then
- Falsch1
- End If
- End Sub
- Private Sub Option2_Click()
- If Option2.Enabled Then
- Falsch1
- End If
- End Sub
- Private Sub Option3_Click()
- If Option3.Enabled Then
- Falsch1
- End If
- End Sub
- Private Sub Option4_Click()
- If Option4.Enabled Then
- Falsch1
- End If
- End Sub
- Private Sub Option5_Click()
- If Option5.Enabled Then
- Falsch1
- End If
- End Sub
- Private Sub Option6_Click()
- If Option6.Enabled Then
- Falsch1
- End If
- End Sub
- Private Sub Option7_Click()
- If Option7.Enabled Then
- Richtig1
- End If
- End Sub
- Private Sub Option8_Click()
- If Option8.Enabled Then
- Falsch1
- End If
- End Sub
- Private Sub Option9_Click()
- If Option9.Enabled Then
- Richtig2
- End If
- End Sub
- Private Sub Option10_Click()
- If Option10.Enabled Then
- Falsch2
- End If
- End Sub
- Private Sub Option11_Click()
- If Option11.Enabled Then
- Falsch2
- End If
- End Sub
- Private Sub Option12_Click()
- If Option12.Enabled Then
- Falsch2
- End If
- End Sub
- Private Sub Option13_Click()
- If Option13.Enabled Then
- Falsch2
- End If
- End Sub
- Private Sub Option14_Click()
- If Option14.Enabled Then
- Falsch2
- End If
- End Sub
- Private Sub Option15_Click()
- If Option15.Enabled Then
- Falsch2
- End If
- End Sub
- Private Sub Option16_Click()
- If Option16.Enabled Then
- Falsch2
- End If
- End Sub
- (frmQuiz3)
- Option Explicit
- Dim Zähler As Byte
- Public Sub Richtig5()
- Zähler = Zähler + 1
- End Sub
- Public Sub Falsch5()
- If Zähler = 0 Then
- Zähler = Zähler
- Else
- Zähler = Zähler - 1
- End If
- End Sub
- Private Sub Check1_Click()
- If Check1.Value Then
- Richtig5
- End If
- End Sub
- Private Sub Check2_Click()
- If Check2.Value Then
- Falsch5
- End If
- End Sub
- Private Sub Check3_Click()
- If Check3.Value Then
- Richtig5
- End If
- End Sub
- Private Sub Check9_Click()
- If Check9.Value Then
- Richtig5
- End If
- End Sub
- Private Sub Check8_Click()
- If Check8.Value Then
- Richtig5
- End If
- End Sub
- Private Sub Check7_Click()
- If Check7.Value Then
- Falsch5
- End If
- End Sub
- Private Sub Check6_Click()
- If Check6.Value Then
- Richtig5
- End If
- End Sub
- Private Sub Check5_Click()
- If Check5.Value Then
- Richtig5
- End If
- End Sub
- Private Sub Check4_Click()
- If Check4.Value Then
- Falsch5
- End If
- End Sub
- Private Sub cmdSpeichern_Click()
- cmdWeiter.Enabled = True
- End Sub
- Private Sub cmdWeiter_Click()
- Select Case Zähler
- Case Is <= 0
- ErgebnisQuiz!Text5.Text = 0
- Case 1
- ErgebnisQuiz!Text5.Text = 1
- Case 2
- ErgebnisQuiz!Text5.Text = 2
- Case 3
- ErgebnisQuiz!Text5.Text = 3
- Case 4
- ErgebnisQuiz!Text5.Text = 4
- Case 5
- ErgebnisQuiz!Text5.Text = 5
- Case 6
- ErgebnisQuiz!Text5.Text = 6
- End Select
- Quiz3.Hide
- Quiz4.Show
- End Sub
- Private Sub Form_Load()
- Zähler = 0
- End Sub
- (frmErgebnisQuiz)
- Public Sub Ergebnis(Summe As Integer, Frage As Integer)
- Summe = Summe + Frage
- If ErgebnisQuiz.Visible = True Then
- QuizErgebnis.Text = Summe
- End Sub
hoffe ihr könnt mir helfen, ich verzweifle hier...
Das mit Exel:
Ich habe versucht anhand von OLE oder Datenbank Exel versucht die Formulare an bestimmte Werte der ExelTabelle zu binden, aber ich verstehe nicht wie ich das machen soll, finde weder die richtigen Scripts noch finde ich eine Eigenschaft die mir das ermöglicht einfach zu verknüpfen. HILFE!!!
hab euch auch die Tabelle angehängt, solltet ihr damit etwas anfangen können.
Lg Kathleen
*Topic verschoben*
"Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!
"Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True
"Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()