Ett hobbyprojekt nostalgi som hjälper gamla telegrafirävar att underhålla sina telegrafikunskaper.

Finns säkert yngre radiointresserade som kan ha glädje av detta.

Finns det någon som kan klura ut hur jag får stopp på For-loopen se VBkod i prog.
<code>
Private Sub Play(sSequence As String)
</code>
Programarkivet:Morse telegrafiträning.

Lägg till en boolean-variabel i formuläret:

Dim Avbryt As Boolean

Lägg till en avbrytknapp i formuläret, i den suben kör du:

Avbryt = True

I For-loopen lägger du till:

If Avbryt Then
Avbryt = False 'nollställ till nästa körning
Exit For
End If

/Johan

Tack Johan.

Exakt den lösningen har jag provat.
Men DirectX vägrar släppa genom något under tiden loopen går.
Har givetvis också provat DoEvents ihop med If satsen.

Ok, skumt, då har jag tyvärr ingen annan idé. Antar att man får köra flertrådat, men det är ingen höjdare i VB.

/Johan

Oki "No big deal". Får väl fundera ett tag.

Har uppdaterat MorseSkola.zip efte Download 22

Programarkivet:Morse telegrafiträning.

Det är första gången jag kombinerar DirectX med VB. Jag är imponerad och rekommenderar Er
Att studera denna kombination när det gäller Ljud och Grafik.

Själv kombinerar jag gärna VB och Delphi via DLL lösningar.

_ _ _ | .._ | _ | ._ | _. |_.. _ _ _ |..._ |.. |._. (out and over)

För Er yngre kan jag berätta hur det gick till på 50 talet och >.
När Vi SMS:ade använde Vi hundratals förkortningar.

EX . CQ är allmänt anrop. På engelska "seek you"
"Före/innan" blev B4 (before) osv osv.
Sen finns det en uppsjö av Q förkortningar. QSL kvittens QNH lufttryck osv osv.

Gratis lektion från SvenPon

Förde de av dom som tycker ämnet är intressant kan jag rekommendera att ta hem CWPlayer.
Fick detta tips när jag presenterade mitt alster.

http://www.f1orl.org/cwpeng.htm <b>Morse Code Software</b>

En läckerbit SvenPon presenterar. Skönt att lyssna på sinustonen
genom ljudkortet. Mycket behagligare än en fyrkant-ton genom
PC-högtalaren.