Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
08.11.2009 15:47:04 |
BK |
|
|
|
09.11.2009 12:56:06 |
Holger |
|
|
|
09.11.2009 15:57:09 |
BK |
|
|
|
17.11.2009 13:16:08 |
Holger |
|
|
Aw:Aw:Aw:Aw:Collection "übertragen" |
17.11.2009 17:32:53 |
BK |
|
|
Von:
BK |
Datum:
17.11.2009 17:32:53 |
Views:
613 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Collection "übertragen" |
Das Problem hat sich gelöst, ich hab aber keine Ahnung, warum. Ich hab einfach mal weiter geschrieben, hab dann die Dummys wieder raugemacht und irgendwann gings dann einfach.
Trotzdem hier mal der Code:
Ich habe natürlich immer nur die entsprechenden Fragmente mit den beiden Colls rausgenommen.
Option Explicit
ImportedData As New Collection
'hat später .question und .answer (durch class beim Einlesen)
Randomized Data As New Collection 'hier wird deklariert
Public Sub StartTraining()
Call frmImportData
'ruft eine Userform auf, in der das zu importierende WB ausgewählt wird
'später werden dann die Infos der Reihe nach in die Coll ImportedData eingelesen
Sub Training()
Dim k As Integer
Dim i As Integer
i = 1
Randomize 'Inizialisieren
Do While (ImportedData.Count <> "0")
'bis eben alles raus ist aus ImportedData
k = Int(ImportedData.Count * Rnd) + 1
'Auswahl eines zufälligen Elements aus ImportedData
RandomizedData.Add ((ImportedData.Item(k)))
'Reinschreiben des Elements in RandomizedData
ImportedData.Remove (k)
'Entfernen des Elements aus ImportedData, damit nichts doppelt reinkommen kann
Loop
Dann folgt eine Sub, in der die Usereingaben mit den .answer Items aus der Coll RandomizedData verglichen werden.
An der Stelle kam dann immer der Fehler, dass die Collection leer sei bzw. das habe ich mit MsgBox(**.Count) herausgefunden.
Wie gesagt, ich habe dann einfach weitergecoded und das Problem hat sich von selbst erledigt. Vllt hatte ich auch irgendwo noch irgendwas eingebaut, das die Collection dazu gebracht hat, sich zu leeren, ich bin noch ein ziemliches Greenhorn in VBA.
Falls es jemand interessiert, ich habe eine kleine Belobigung von meinem Englisch Lehrer bekommen (das ganze ist ja ein Vokabeltrainer) und das Programm (wenn es dann auch in der Auswertung der Ergebnisse tadellos funktioniert und grafisch was hermacht) wird mir als GFS (Gleichwertige Feststellung von Schülerlernleistungen) angerechnet, dass heißt: es zählt wie eine Klassenarbeit =)
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
08.11.2009 15:47:04 |
BK |
|
|
|
09.11.2009 12:56:06 |
Holger |
|
|
|
09.11.2009 15:57:09 |
BK |
|
|
|
17.11.2009 13:16:08 |
Holger |
|
|
Aw:Aw:Aw:Aw:Collection "übertragen" |
17.11.2009 17:32:53 |
BK |
|
|