| 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