German Vokabeln

[Uli]

Irgendwie ist die Fehlermeldung nicht mitgekommen eben.
2. Versuch
Ach so, das File war zu groß.
Jetzt sollte es klappen.
Uli

 

[klaus]

Hallo Uli,

Entschuldige bitte, die default.csv Datei ist nicht in der zip Datei.

Beiliegend findest Du sie, musst sie entzippen und in den File Ordner kopiern, aber nicht mit dem IDE.

Beste Grüsse.

 

[Uli]

Ich bin schon mal total begeistert.
Ich habe das Programm auch schon im DHD.
Natürlich mit der gleichen Fehlermeldung.
Ich hatte noch mein ICON dazu geladen.
Ich verstehe aber noch nicht, wohin ich die Default.csv
laden muss?
Kann ich die auch schon irgendwo in das DHD laden?
Auf jedenFall sieht das toll aus auf dem Handy.
Wundbar große "Tasten".
Uli

 

[klaus]

Versuche mal folgendes:
- kopiere die Default.csv auf die SD Karte direkt in den Wurzelordner.
- im Programm ersetzte Zeile 14:

Dim ProgDataPath As String : ProgDataPath = File.DirInternal

durch

Dim ProgDataPath As String : ProgDataPath = File.DirRootExternal

Ich habe noch kein Gerät und kann nur mit dem Emulator versuchen.

Beste Grüsse.

 

[Uli]

VocabTrainer

Hurra, es geht.
Nach ein paar Irrungen und Wirren auf meiner Seite,
läuft das Programm nun auf dem HTC DHD.
Es kommt wohl am Anfang immer noch eine Fehlermeldung:

An error occured in sub:
main_initfilelists (B4A line: 171)
If FileName.SubString2(FileName.
Length)=ProFileFilter Then
java.lang.
StringIndexOutOfBoundsException
Continue?

Wenn ich dann aber YES anklicke, läuft es.
Das Default.csv liegt nun auf der SD-card im obersten Verzeichnis.
Etwas übersichtlicher wäre aber sicher, wenn man die dann in einem
Verzeichnis "Vokabeln" unterbringen könnte.
Das Icon muss ich auch noch etwas modifizieren.
Das hat nun rechts einen weißen Rand.
Aber das sind ja Kleinigkeiten.
Uli

 

[klaus]

Hast Du im Programm etwas geändert ?
Denn in meinem Programm sieht die Zeil 171 so aus:

If FileName.SubString2(FileName.Length - 4, FileName.Length) =ProgFileFilter Then

Für den Vokabelnordner versuche mal folgende Zeile 13:

Dim ProgDataPath As String : ProgDataPath = File.DirRootExternal & "Vokabeln"

Beste Grüsse.

 

[Uli]

VocabTrainer

Nein, geändert habe ich nichts - zumindest nicht bewusst.
Die Zeile sieht aber genau so aus, wie von Dir geschrieben:

If FileName.SubString2(FileName.Length-4,FileName.Length)=ProgFileFilter Then

Sobald ich das &/"Vokabeln" in Zeile 13 anhänge, klappt das
compilieren nicht mehr.
Da stimmt dann wohl noch was nicht?
Uli

 

[klaus]

Entschuldige bitte, Ich hab mich verschrieben:
Die Zeile muss so aussehen:

Dim ProgDataPath AsString : ProgDataPath=File.DirRootExternal[COLOR=red]&"/[/COLOR]Vokabeln"

Wegen dem werde Ich später nachschauen:

If FileName.SubString2(FileName.Length-4,FileName.Length)=ProgFileFilter Then

Beste Grüsse.

 

[Uli]

VocabTrainer

Einfach toll wie Du das machst.
Alles klappt und ich kann alle meine csv-Dateien aus dem
Verzeichnis aufrufen.
Es kommt nun auch keine Fehlermeldung mehr.
Ich bin begeistert.
Uli

 

[klaus]

Da bin Ich auch froh !

Beste Grüsse.

 

[Uli]

VocabTrainer

Hallo Klaus,
ich habe noch eine Frage:
wenn ich das Programm in Basic4Android lade und dann mit dem
Designer Tool auf Connect gehe, erscheinen die Tasten weder im
Emulator noch auf dem angeschlossenen Gerät (Desire HD).
Beim SCalculator klappt das.
Ist das Absicht oder mache ich was falsch?
Uli

 

[klaus]

Im Designer musst Du eine der Layoutdateien laden den es gibt drei davon.
Im Menu unter File/Open

Beste Grüsse.

 

[JOTHA]

Hallo Klaus,

nach langer Abstinenz habe ich mich mal wieder im Forum umgeschaut und festgestellt, dass sich kaum einer mehr für WindowsMobile 6.5 interessiert.
Wen wundert es (es wird ja nicht mehr weiterentwickelt), und Android hat einen riesigen Marktanteil erobert.

Also habe ich mir die Vollversion von B4A geholt und bin auf dein Projekt VocabTrainer gestossen.

Ein Bekannter von mir bräuchte genau so eine App um seine Englischkenntnisse aufzubessern ...

Es gibt zwar im Market schon einiges, aber es ist ja immer besser, wenn man an der einen oder anderen Stellschraube etwas verändern kann.

Leider bekomme ich deine App nicht zum Laufen.

Diese Fehlermeldungen habe ich schon abgeschaltet:

' reads first line to check the file format UTF-8 or ISO-8859-1 (ANSI)
'   txtReader.Initialize2(File.OpenInput(FilePath,FileName),"ISO-8859-1")
'   Line=txtReader.ReadLine
'   txtReader.Close
   
'checks if the file is UTF-8
'   If Line.SubString2(0,2)="ï»" Then
'      txtReader.Initialize(File.OpenInput(FilePath,FileName))
'      FileFormatUTF8=True
'   Else
'      txtReader.Initialize2(File.OpenInput(FilePath,FileName),"ISO-8859-1")
'      FileFormatUTF8=False
'   End If

... aber die nächste lautet:

'   Words=txtReader.ReadList
'   txtReader.Close

Ich kann ja wohl schlecht alles deaktivieren, sonst läuft ja gar nichts mehr, oder?

Ansonsten ist deine App sehr schön gemacht, ich bin gespannt wie die läuft!

 

[awama]

Habe das Programm heute runtergeladen und hatte selbe Fehlermeldung wie Uli. Habe dann den Dateinamen Default.csv überall auf Kleinschreibung geändert und dann hats funktioniert.
Ich werde versuchen mit Hilfe dieses Programms meine bescheidenen Englischkenntnisse zu verbessern damit ich in Zukunft alles im Forum verstehe und mich besser verständigen kann.

Besten Dank Klaus!

 

[Uli]

Habe das Programm heute runtergeladen und hatte selbe Fehlermeldung wie Uli. Habe dann den Dateinamen Default.csv überall auf Kleinschreibung geändert und dann hats funktioniert.
Ich werde versuchen mit Hilfe dieses Programms meine bescheidenen Englischkenntnisse zu verbessern damit ich in Zukunft alles im Forum verstehe und mich besser verständigen kann.

Besten Dank Klaus!

Im Designer musst Du eine der Layoutdateien laden den es gibt drei davon.
Im Menu unter File/Open

Beste Grüsse.

Ich weiß nicht, ob Klaus sich noch an das Programm erinnert.
Es hat einige Jahre auf verschiedenen Handy bei mir gelaufen.
Nun habe ich aber ein S4 active und es läuft nicht mehr.
Was könnte ich tuen um es auch auf dem S4 Active zum Laufen zu kriegen?
Schönen Dank schon mal für eine Antwort.
Uli

 

[klaus]

Klar erinnere Ich mich an das Programm.

Nun habe ich aber ein S4 active und es läuft nicht mehr.

Was funktioniert nicht ?
Du musst schon genauer erklähren was nicht funktioniert.
Ich habe gerade das Programm auf meinem Sony Xperia Z1 probiert und es funktioniert.
Das hat aber nur die Default.csv Datei im File.DirInternal Ordner.
Ich befürchte dass der externe Ordnernamen auf dem S4 Active anders ist.

 

[Uli]

Aha, das ist super Klaus nach so langer Zeit.
Beim Start kommt eine Fehlermeldung:
Error occurred
An error has occurred in sub:main_inifilelist (B4A line:165)
FileList-File.ListFiles(ProgDataPath)
java.io.IOException:/storage/
emulated/0/Vokabeln is not a folder.
Continue?

Demnach ist deine Vermutung richtig.
Nur - wie kriege ich das geändert?
Gerade dämmert es mir etwas:
ich müsste also erst mal das Verzeichnis anlegen.
Das mache ich nachher mal und berichte.

Beim S4 gibt es ja zwei SD Speicher - intern und extern.

Dann müsste ich das sicher auch neu compilieren,
da das Programm jetzt nicht den Bildschirm ausfüllt?
Uli

 

[Uli]

Zu blöd von mir.
Es steht ja schließlich da, dass der Ordner nicht
gefunden wird.
Verzeichnis angelegt und Programm klappt wieder.
Jetzt muss ich nur mal schauen, wie ich den
Bildschirm wieder ausgefüllt bekomme.

Das Sony Xperia Z1 hätte mir auch gefallen.
Es kam aber etwas später als das S4 Active.
Ich setze das zur Outdoornavigation auf dem
Rad ein (bisher dieses Jahr 10.000 km),
da sollte es natürlich wasserdicht sein.
Die Hardware-Tasten helfen zwar etwas, aber wenn der
Regen so richtig auf den Touch-Screen platscht, spielt es
verrückt.

Schönen Dank mal wieder.
Uli

 

[klaus]

Ich habe heute mit dem Program etwas 'rumgespielt' un ein Paar Sachen geändert.
Werde Morgen eine neue Version schicken die auch den Bildschirm füllt.

 

[Uli]

Ich bin gespannt Klaus.
Für mich ist das immer noch ein Programm, das ich fast täglich
nutze. Mit zunehmendem Alter muss man sich neue Vokabeln
schon ziemlich einhämmern, damit sie bei Konversationen parat
sind.
Dazu kann das auch eine Art geistiger Gymnastik sein.
Uli