vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Bitte helft mir ich hab ein großes Problem! 
Autor: itam2
Datum: 27.11.02 16:11

Hi! Ich programmiere zur zeit einen vokabeltrainer! So jetzt hab ich eigentlich alles programmiert aber irgendwie will der nicht in die textboxen schreiben! ich lasse eine vokabelliste aus einer txtdatei laden und in arrays speichern!

Option Explicit
 
Dim DateiNr As Integer
Dim temp As String
Dim lpos As Long
Dim rpos As Long
Dim pos As Long
Dim m As Integer
Dim n As Integer
Dim tabelle(24, 1) As String
 
Private Form_
 
Private Sub cmdergebnis_Click()
MsgBox "Die richtige Antwort ist " & tabelle(n, 1) & "."
End Sub
 
Private Sub txtenglisch_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Call ok
End If
End Sub
 
Private Sub cmdok_Click()
Call ok
End Sub
 
Private Function ok()
If txtenglisch.Text = "" Then
MsgBox "Bitte geben Sie ein englisches Wort ein"
End If
 
    If txtenglisch.Text = tabelle(n, 1) Then
    MsgBox "Super das war richtig! Die nächste Vokabel kommt sofort!"
    n = n + 1
txtdeutsch = tabelle(n, 0)
txtenglisch = ""
Else
m = m - 1
MsgBox "Du hast noch " & m & " Versuche!"
If m = 0 Then
MsgBox "Die richtige Antwort wäre " & tabelle(n, 1) & " gewesen"
n = n + 1
m = 3
End If
End If
End Function
 
Private Sub form_load()
n = 0
m = 4
DateiNr = FreeFile
Open "c:\Vokabeln.txt" For Input As DateiNr
On Error GoTo Fehler
For n = 0 To 24
    Input #DateiNr, temp
    pos = Len(temp)
    lpos = InStr(temp, ";")
    rpos = pos - lpos
    lpos = lpos - 1
    tabelle(n, 0) = Left(temp, lpos)
    tabelle(n, 1) = Right(temp, rpos)
Next n
Close DateiNr
Exit Sub
Fehler:
    txtdeutsch = tabelle(0, 0)
    n = 0
End Sub
Entweder bin ich blind oder sonst was aber ich finde den fehler nicht! meine vokabelliste sieht so aus: deutscheswort;englischeswort
deutscheswort;englischeswort
deutscheswort;englischeswort
die sind halt mit einem " ; " getrennt!

Also wenn mir jemand helfen könnte wäre das super! Bis dann cu
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bitte helft mir ich hab ein großes Problem!452itam227.11.02 16:11
Re: Bitte helft mir ich hab ein großes Problem!249ModeratorDieter27.11.02 17:33
Re: Bitte helft mir ich hab ein großes Problem!230itam227.11.02 17:54
Re: Bitte helft mir ich hab ein großes Problem!68Martin0127.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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel