4k - Morse-Hörtrainer

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Unsere Datenschutzerklärung wurde aktualisiert. Mit der Nutzung unseres Forums akzeptierst Du unsere Datenschutzerklärung. Du bestätigst zudem, dass Du mindestens 16 Jahre alt bist.

    • 4k - Morse-Hörtrainer

      Morse-Hörtrainer, inklusive 1 Goto :D, korrigiert um ein End-# am 22.3.2013

      [Blockierte Grafik: http://s2.postimg.org/8rf8w10qt/Screen_22_03_2013_20_Uhr_53_44_Sek.jpg]

      Quellcode

      1. WindowTitle "Morse-Hörtrainer: NumPad +/- ClipBd:Text=* ESC=Reset"
      2. WindowStyle 1048
      3. Window 400,200
      4. Font 2
      5. Var m$=\
      6. "A§.-#B§-...#C§-.-.#D§-..#E§.#F§..-.#G§--.#H§....#I§..#J§.---#K§-.-#L§.-..#"+\
      7. "M§--#N§-.#O§---#P§.--.#Q§--.-#R§.-.#S§...#T§-#U§..-#V§...-#W§.--#X§-..-#"+\
      8. "Y§-.--#Z§--..#0§-----#1§.----#2§..---#3§...--#4§....-#5§.....#6§-....#"+\
      9. "7§--...#8§---..#9§----.#À§.--.-#ŧ.--.-#ħ.-.-#ȧ.-..-#ɧ..-..#Ö§---.#ܧ..--#"+\
      10. "ߧ...--..#ѧ--.--#.§.-.-.-§(AAA)#,§--..--§(MIM)#:§---...§(OS)#"+\
      11. ";§-.-.-.§(NNN)#?§..--..§(IMI)#-§-....-#_§..--.-§(UK)#(§-.--.§(KN)#"+\
      12. ")§-.--.-§(KK)#'§.----.#=§-...-#+§.-.-.§(AR)Ende#/§-..-.§(DN)#@§.--.-.§(AC)#"+\
      13. "[§-.--. -.--.#]§-.--.- -.--.-#{§---... -.--.#}§-.--.- ---...#!§.-.-.- -..-.#"+\
      14. " § #<§-..-. ..--.-#>§..--.- -..-.#*§.-.-.-#"+chr$(34)+"§.-..-.#$§.-.-. .-.-."
      15. Declare brk%,b!,a$,g$,s$,k&,j&,b$[],c$[],z$[],mc$[]
      16. b$[]=explode(m$,"#")
      17. Clear m$
      18. WhileLoop 0,SizeOf(b$[])-1
      19. Clear c$[]
      20. c$[]=Explode(b$[&Loop],"§")
      21. z$[&Loop]=c$[0]
      22. Case SizeOf(c$[])>1:mc$[&Loop]=c$[1]
      23. EndWhile
      24. Clear c$[],b$[]
      25. b!=0.666
      26. rept:
      27. locate 2,1
      28. Print "Text = ";
      29. Input a$
      30. if a$="*"
      31. a$="°"+GetClip$()
      32. case len(a$)<4:a$="°"+"Das Clipboard war leer. Ersatztext: The quick brown fox jumps over the lazy dog. "
      33. endif
      34. a$=upper$(a$)
      35. WhileLoop len(a$)
      36. g$=mid$(a$,&Loop,1)
      37. whileloop 0,sizeof(mc$[])-1
      38. j&=&Loop
      39. if g$=z$[j&]
      40. case left$(a$,1)<>"°":print mc$[j&]+" ",
      41. whileloop len(mc$[j&]+" §")
      42. select mid$(mc$[j&]+" §",&Loop,1)
      43. caseof "§"
      44. waitinput 100
      45. continue
      46. caseof " "
      47. waitinput 330*b!+120
      48. k&=%key
      49. if k&=27:brk%=1:break:cls:endif
      50. if k&=45:b!=1.1*b!:print int(2000-b!*1000),:endif
      51. if k&=43:b!=b!*0.9:print int(2000-b!*1000),:endif
      52. continue
      53. caseof "."
      54. waitinput 40*b!
      55. sound 880,60*b!
      56. waitinput 30
      57. continue
      58. caseof "-"
      59. waitinput 20*b!
      60. sound 880,190*b!
      61. waitinput 20
      62. continue
      63. endselect
      64. endwhile
      65. endif
      66. case brk%:break
      67. endwhile
      68. case brk%:break
      69. EndWhile
      70. brk%=0
      71. if left$(a$,1)="°":print:print right$(a$,len(a$)-1);:waitinput 7000:endif
      72. waitinput 2200
      73. cls
      74. Goto "rept"
      Alles anzeigen
      Win7-64HomPremSP1,XProfan11.2a,XPIA,JWasm,xpse,IntelCoreQuad2.5GHz/4GB/je1TB HD intern:esataBay:USB3
    • Will bei mir irgendwie nicht :-(

      XProfan Fehler schrieb:

      ---------------------------
      XProfan Fehler
      ---------------------------
      Das Element gibt es nicht!



      Zeile 17 in C:\Users\Thomas\AppData\Local\Temp\~X-ProfPad (x64)\{E983D91A-B05F-417A-A58A-05B8AFF8BBEE}.prf:

      z$[&Loop]=c$[0]
      ---------------------------
      OK
      ---------------------------
      Gruß Thomas

      "Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen – Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen."
      ComputerInfo für PPF
    • Danke fürs feedback! Und für die Titelkorrektur. Schuld war ein Explode-Trennzeichen # zu viel am Ende des letzten Definitionsstrings. Man soll halt nix um 02:10 Uhr früh hochladen :-)
      Korrektur oben eingearbeitet.
      Gruss
      Win7-64HomPremSP1,XProfan11.2a,XPIA,JWasm,xpse,IntelCoreQuad2.5GHz/4GB/je1TB HD intern:esataBay:USB3
    • Update mit Wiedergabemöglichkeit der Zwischenablage (* eingeben)!

      Quellcode

      1. WindowTitle "Morse-Hörtrainer: NumPad +/- ClipBd:Text=* ESC=Reset"
      2. WindowStyle 1048
      3. Window 400,200
      4. Font 2
      5. Var m$=\
      6. "A§.-#B§-...#C§-.-.#D§-..#E§.#F§..-.#G§--.#H§....#I§..#J§.---#K§-.-#L§.-..#"+\
      7. "M§--#N§-.#O§---#P§.--.#Q§--.-#R§.-.#S§...#T§-#U§..-#V§...-#W§.--#X§-..-#"+\
      8. "Y§-.--#Z§--..#0§-----#1§.----#2§..---#3§...--#4§....-#5§.....#6§-....#"+\
      9. "7§--...#8§---..#9§----.#À§.--.-#ŧ.--.-#ħ.-.-#ȧ.-..-#ɧ..-..#Ö§---.#ܧ..--#"+\
      10. "ߧ...--..#ѧ--.--#.§.-.-.-§(AAA)#,§--..--§(MIM)#:§---...§(OS)#"+\
      11. ";§-.-.-.§(NNN)#?§..--..§(IMI)#-§-....-#_§..--.-§(UK)#(§-.--.§(KN)#"+\
      12. ")§-.--.-§(KK)#'§.----.#=§-...-#+§.-.-.§(AR)Ende#/§-..-.§(DN)#@§.--.-.§(AC)#"+\
      13. "[§-.--. -.--.#]§-.--.- -.--.-#{§---... -.--.#}§-.--.- ---...#!§.-.-.- -..-.#"+\
      14. " § #<§-..-. ..--.-#>§..--.- -..-.#*§.-.-.-#"+chr$(34)+"§.-..-.#$§.-.-. .-.-."
      15. Declare brk%,b!,a$,g$,s$,k&,j&,b$[],c$[],z$[],mc$[]
      16. b$[]=explode(m$,"#")
      17. Clear m$
      18. WhileLoop 0,SizeOf(b$[])-1
      19. Clear c$[]
      20. c$[]=Explode(b$[&Loop],"§")
      21. z$[&Loop]=c$[0]
      22. Case SizeOf(c$[])>1:mc$[&Loop]=c$[1]
      23. EndWhile
      24. Clear c$[],b$[]
      25. b!=0.666
      26. rept:
      27. locate 2,1
      28. Print "Text = ";
      29. Input a$
      30. if a$="*"
      31. a$="°"+GetClip$()
      32. case len(a$)<4:a$="°"+"Das Clipboard war leer. Ersatztext: The quick brown fox jumps over the lazy dog. "
      33. endif
      34. a$=upper$(a$)
      35. WhileLoop len(a$)
      36. g$=mid$(a$,&Loop,1)
      37. whileloop 0,sizeof(mc$[])-1
      38. j&=&Loop
      39. if g$=z$[j&]
      40. case left$(a$,1)<>"°":print mc$[j&]+" ",
      41. whileloop len(mc$[j&]+" §")
      42. select mid$(mc$[j&]+" §",&Loop,1)
      43. caseof "§"
      44. waitinput 100
      45. continue
      46. caseof " "
      47. waitinput 330*b!+120
      48. k&=%key
      49. if k&=27:brk%=1:break:cls:endif
      50. if k&=45:b!=1.1*b!:print int(2000-b!*1000),:endif
      51. if k&=43:b!=b!*0.9:print int(2000-b!*1000),:endif
      52. continue
      53. caseof "."
      54. waitinput 40*b!
      55. sound 880,60*b!
      56. waitinput 30
      57. continue
      58. caseof "-"
      59. waitinput 20*b!
      60. sound 880,190*b!
      61. waitinput 20
      62. continue
      63. endselect
      64. endwhile
      65. endif
      66. case brk%:break
      67. endwhile
      68. case brk%:break
      69. EndWhile
      70. brk%=0
      71. if left$(a$,1)="°":print:print right$(a$,len(a$)-1);:waitinput 7000:endif
      72. waitinput 2200
      73. cls
      74. Goto "rept"
      Alles anzeigen


      Tipp: Beim Abspielen simuliert XProfan's Sound-Befehl die Unzulänglichkeiten händischer Zeichengabe: It´s not a bug :D, it´s a feature!
      Win7-64HomPremSP1,XProfan11.2a,XPIA,JWasm,xpse,IntelCoreQuad2.5GHz/4GB/je1TB HD intern:esataBay:USB3
    • Das Sound nicht klappt, tut mir leid. Play ist aber leider sehr zögerlich startend, Sound braucht nicht ganz so lang. Beep gibt ab Vista nur den 'Systemklavier'-Klang aus. Vielleicht kannst Du den Audio-Ausgang per Ohrhöhrer vom mp3-Player des Herrn Sohnemanns nutzen, Frank?
      Win7-64HomPremSP1,XProfan11.2a,XPIA,JWasm,xpse,IntelCoreQuad2.5GHz/4GB/je1TB HD intern:esataBay:USB3