| WhatsThisHelp | Program |
| Vytvß°enφ Wavu z hudebnφho CD | Program |
| Voxel | Program |
| DirectSound | Program |
| XCopy | Program |
| WEB browser | Program |
| ZjiÜt∞nφ ulo₧en²ch hesel z telefonickΘho p°ipojenφ | Program |
| Chat | Program |
| èet°iΦ obrazovky | Program |
| P°evod HTML na text | Modul |
| Prßce s Φφsly | Modul |
| Funkce pro prßci s datumem | Modul |
| Nastavenφ systΘmovΘ prom∞nnΘ ERRORLEVEL | K≤d |
| Jak spustit p°ehrßvßnφ audio CD | K≤d |
| DalÜφ funkce pro prßci s audio CD | K≤d |
| Informace o audio CD | K≤d |
| Ukßzka vytvo°enφ helpu, kter² je p°φstupn² p°es tlaΦφtko s otaznφkem vedle tlaΦφtka zav°enφ formulß°e. Ukßzkov² program neobsahuje ₧ßdn² k≤d, vÜe je nastaveno pouze v okn∞ Properties. K nßpov∞d∞ je p°ilo₧en i "zdrojov²" soubor ve formßtu RTF. | |
| 6945 byt∙ | Kopφrovat |
| Program ukazuje vytvß°enφ souboru Wav z audio CD. Umφ vytvß°et soubory v r∙zn²ch kvalitßch. | |
| 4479 byt∙ | Kopφrovat |
| P°φklad, generujφcφ jednoduchou krajinu, vytvo°en² s pou₧itφm DirectX. | |
| 318093 byt∙ | Kopφrovat |
| Modul, s p°φkladem, pro jednoduÜÜφ prßci s hudbou pomocφ DirectX. Jak s nφm pracovat a co vÜechno k tomu pot°ebujete najdete v p°ilo₧enΘm souboru ve formßtu HTML. | |
| 72152 byt∙ | Kopφrovat |
| Progrßmek, vytvo°en² jeÜt∞ ve Visual Basicu verze 3, pracujφcφ stejn∞ jako dnes ji₧ moc nepou₧φvan² DOSov² p°φkaz XCOPY. | |
| 2465 byt∙ | Kopφrovat |
| P∞kn² p°φklad na vytvo°enφ webovΘho prohlφ₧eΦe pomocφ Visual Basicu. | |
| 85570 byt∙ | Kopφrovat |
ZjiÜt∞nφ ulo₧en²ch hesel z telefonickΘho p°ipojenφ
| Jak ji₧ napovφdß nßzev, program zobrazφ vÜechna hesla, kterß jsou ulo₧ena ke vÜem vytvo°en²m telefonick²m p°ipojenφm. | |
| 19756 byt∙ | Kopφrovat |
| Chat, kter² umo₧≥uje spojenφ vφce ne₧ dvou ·Φastnφk∙ a posφlat nejen textovΘ zprßvy, ale i obrßzky. | |
| 13106 byt∙ | Kopφrovat |
| P°φklad Üet°iΦe obrazovky. N∞kolik koulφ, nebo spφÜe kruh∙, pohybujφcφch se po obrazovce. | |
| 5041 byt∙ | Kopφrovat |
| Modul obsahuje jednu funkci, HTML2Text, kterß z HTML souboru "vytßhne" pouze text bez formßtovacφch znaΦek. | |
| 27275 byt∙ | Kopφrovat |
| N∞kolik modul∙ s funkcemi pro prßci s Φφsly, nap°. p°evod mezi r∙zn²mi Φφseln²mi soustavami, konverze na °et∞zce, porovnßvßnφ atd. | |
| 4414 byt∙ | Kopφrovat |
| Modul obsahujφcφ funkce pro prßci s datumem. Nevytvß°φ nic novΘho, spφÜe ukazuje, jak se obejφt bez funkcφ implementovan²ch ve Visual Basicu. | |
| 13738 byt∙ | Kopφrovat |
Nastavenφ systΘmovΘ prom∞nnΘ ERRORLEVEL
N∞kdy pot°ebujete spouÜt∞t program z dßvky MSDOSu a podle toho, jak program skonΦil, pokraΦovat dßle. Proto musφ b²t prom∞nnß ERRORLEVEL nastavenß na sprßvnou hodnotu. To umo₧≥uje API funkce ErrorLevel. UkonΦφ proces, tedy vßÜ program a podle nastavenφ parametru uExitCode nastavφ hodnotu ERRORLEVEL.
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Pou₧itφ m∙₧e vypadat t°eba takto:
ExitProcess 50& 'ukonci program a ERRORLEVEL nastavφ na 50
Aby vÜe v dßvce fungovalo sprßvn∞, musφ b²t program spuÜt∞n pomocφ p°φkazu START s parametrem /W. Zp∙sobφ, ₧e se provßd∞nφ dßvky pozastavφ, dokud nenφ spuÜt∞n² program dokonΦen. P°φklad dßvky:
start /w mujprogram.exe if errorlevel 150 goto 150 if errorlevel 100 goto 100 if errorlevel 50 goto 50 echo Exit Code 0 goto Done :150 echo Exit Code 150 goto done :100 echo Exit Code 100 goto done :50 echo Exit Code 50 :done echo done
Jak spustit p°ehrßvßnφ audio CD
V tomto a dvou nßsledujφcφch tipech Vßm ukß₧eme, jak pou₧φvat API funkci mciSendString. Jejφ deklarace vypadß takto:
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Proto₧e je nutno oÜet°it takΘ vzniklΘ chyby, musφme si deklarovat jeÜt∞ funkci mciGetErrorString. Ta nßm zobrazφ popis chyby ve sprßvnΘm jazyce.
Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" _ (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Tak a te∩ u₧ si m∙₧eme ukßzat, jak p°ehrßt audio CD. Nenφ to nic slo₧itΘho:
Dim errStr As String * 200, retVal As Long
retVal = mciSendString("play cd", 0, 0, Form1.hWnd)
If retVal <> 0 Then
mciGetErrorString retVal, errStr, Len(errStr)
MsgBox errStr
End If
DalÜφ funkce pro prßci s audio CD
VÜechny funkce v tomto tipu pou₧φvajφ API funkce deklarovanΘ v p°edchozφm tipu. Abychom nemuseli po°ßd oÜet°ovat chyby, vytvo°φme si funkci ExecuteMCI, kterΘ pouze poÜleme MCI p°φkaz k vykonßnφ a ona se u₧ postarß o dalÜφ.
Public Sub ExecuteMCI(prikaz As String, hWnd As Long)
Dim errStr As String * 200, retVal As Long
retVal = mciSendString(prikaz, 0, 0, hWnd)
If retVal <> 0 Then
mciGetErrorString retVal, errStr, Len(errStr)
MsgBox errStr
End If
End Sub
Zde si uvedeme n∞kterΘ p°φkazy pro ovlßdßnφ audio CD, kterΘ se p°edßvajφ jako parametr prikaz funkci ExecuteMCI.
U nßsledujφcφch dvou funkcφ je nutno sprßvn∞ nastavit CD. Tj. pou₧φt p°φkaz:
ExecuteMCI "set cd time format tmsf wait"", Form1.hWnd
SpuÜt∞nφ n-tΘ skladby: ExecuteMCI "play cd from Φφslo_skladby", Form1.hWnd
Posun na n-tou skladbu: ExecuteMCI "seek cd to Φφslo_skladby", Form1.hWnd
Vysunutφ CD z mechaniky: ExecuteMCI "set cd door open", Form1.hWnd
Zasunutφ CD do mechaniky: ExecuteMCI "set cd door close", Form1.hWnd
Pozastavenφ p°ehrßvßnφ: ExecuteMCI "pause cd", Form1.hWnd
Zastavenφ p°ehrßvßnφ: ExecuteMCI "stop cd wait", Form1.hWnd
Pro nßsledujφcφ informace je op∞t nutno deklarovat API funkci mciSendString. Pro jednoduchost zde chyby oÜet°ovat nebudeme. Vrßcenß hodnota je v₧dy ulo₧ena do prom∞nnΘ s.
Dim s As String * 30 'poΦet skladeb mciSendString "status cd number of tracks wait", s, Len(s), 0 'celkov² Φas CD mciSendString "status cd length wait", s, Len(s), 0 'Φas jednotliv²ch skladeb mciSendString "status cd length track " & cislo_skladby, s, Len(s), 0