Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Bitte helft mir ich hab ein großes Problem!
Autor: Martin01
Datum: 27.11.02 19:35
Option Explicit Private lVokabelnAnzahl As Long Private lVokabelnJetzt As Long Private lVersuche As Long Private Type VokabelnT DeutschesWort As String EnglischesWort As String End Type Dim Tabelle() As VokabelnT Private Sub form_Load() ZählerNeuStart VokabelnLaden If lVokabelnAnzahl = 0 Then MsgBox "Fehler ... Programmende" End End If txtdeutsch.Text = Tabelle(lVokabelnJetzt).DeutschesWort End Sub Private Sub cmdergebnis_Click() MsgBox "Die richtige Antwort ist " & Tabelle(lVokabelnJetzt).EnglischesWort & "." End Sub Private Sub cmdok_Click() ok End Sub Private Sub txtenglisch_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then ok End If End Sub Private Sub VokabelnLaden() Dim DateiNr As Integer Dim temp As String Dim lpos As Long Dim rpos As Long Dim pos As Long lVokabelnAnzahl = 0 DateiNr = FreeFile Open "Vokabeln.txt" For Input As #DateiNr Do Until EOF(DateiNr) Line Input #DateiNr, temp pos = Len(temp) lpos = InStr(temp, ";") If lpos > 0 Then rpos = pos - lpos lpos = lpos - 1 lVokabelnAnzahl = lVokabelnAnzahl + 1 ReDim Preserve Tabelle(1 To lVokabelnAnzahl) With Tabelle(lVokabelnAnzahl) .DeutschesWort = Left$(temp, lpos) .EnglischesWort = Right$(temp, rpos) End With End If Loop Close #DateiNr Exit Sub Fehler: lVokabelnAnzahl = 0 End Sub Private Sub ZählerNeuStart() lVersuche = 4 lVokabelnJetzt = 1 End Sub Private Sub ok() If txtenglisch.Text = "" Then MsgBox "Bitte geben Sie ein englisches Wort ein" txtenglisch.SetFocus Exit Sub End If If txtenglisch.Text = Tabelle(lVokabelnJetzt).EnglischesWort Then MsgBox "gefunden" lVokabelnJetzt = lVokabelnJetzt + 1 If lVokabelnJetzt > lVokabelnAnzahl Then ZählerNeuStart MsgBox "Super, gleich noch mal" End If txtenglisch.SetFocus Exit Sub End If lVersuche = lVersuche - 1 If lVersuche = 0 Then 'Neustart ZählerNeuStart MsgBox "Die richtige Antwort wäre " & Tabelle(lVokabelnJetzt).EnglischesWort & " gewesen." & vbCrLf & _ "Start noch mal neu" txtenglisch.SetFocus Exit Sub 'oder 'MsgBox "Nein, nein, nein und Programmende" 'End End If MsgBox "Du hast noch " & CStr(lVersuche) & " Versuch(e)!" txtenglisch.SetFocus End Sub

Bitte helft mir ich hab ein großes Problem!	452	itam2	27.11.02 16:11
Re: Bitte helft mir ich hab ein großes Problem!	249	Dieter	27.11.02 17:33
Re: Bitte helft mir ich hab ein großes Problem!	230	itam2	27.11.02 17:54
Re: Bitte helft mir ich hab ein großes Problem!	69	Martin01	27.11.02 19:35

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen