Chip CD - Visual Basic - ZdrojovΘ k≤dy

ZdrojovΘ k≤dy

Flash Program

Booklet Program

Access documentor Program

NetBios Modul

Skipjack Modul

Elektronickß poÜta Modul

Modem Modul

Ovlßdacφ panely Modul

GrafickΘ funkce Modul

Funkce tiskßrny Modul

PlaySound API

waveOutGetNumDevs API

midiOutGetNumDevs API

waveOutGetDevCaps API

auxGetNumDevs API

auxGetDevCaps API

waveOutGetVolume API

waveOutSetVolume API

Flash

èet°iΦ obrazovky, kter² p°ehrßvß animace ve formßtu Flash. Jako Üet°iΦ obrazovky nenφ p°φklad nejlepÜφ, za to vßs nauΦφ jak p°ehrßvat animace.

536614 byt∙ Kopφrovat

Zp∞t na obsah

Booklet

Program umφ tisknout dokument MS Wordu v kni₧nφm po°ßdku. VÜe co pot°ebujete, je tiskßrna s oboustrann²m tiskem a MS Word 97. Program nejd°φve vezme stranu po stran∞ a uchovß si ji jako bitmapu. Potom vytiskne tyto bitmapy v u₧ivatelsky definovanΘm po°ßdku. Autor: Robert Srna (www.samuel.cz/~recenze/devrs/devrs_cz.htm).

131570 byt∙ Kopφrovat

Zp∞t na obsah

Access documentor

Provßdφ jednoduchou dokumentaci databßze v Accessu. V²sledky uklßdß do souboru v Excelu. Autor: Robert Srna (www.samuel.cz/~recenze/devrs/devrs_cz.htm).

61421 byt∙ Kopφrovat

Zp∞t na obsah

NetBios

Deklarace funkcφ API pro prßci s protokolem NetBios.

18525 byt∙ Kopφrovat

Zp∞t na obsah

Skipjack

Modul obsahujφcφ funkce Üifry Skipjack a Kea. Pokud se chcete o t∞chto Üifrßch dozv∞d∞t vφce, podφvejte se na strßnku csrc.nist.gov/encryption/tkencryption.html.

13247 byt∙ Kopφrovat

Zp∞t na obsah

Elektronickß poÜta

Funkce pro odesφlßnφ emailu pomoci funkce API MAPISendMail.

12337 byt∙ Kopφrovat

Zp∞t na obsah

Modem

Deklarace funkcφ API, kterΘ vyu₧ijete p°i komunikaci p°es seriov² port.

18873 byt∙ Kopφrovat

Zp∞t na obsah

Ovlßdacφ panely

Modul obsahuje funkce na spouÜt∞nφ jednotliv²ch polo₧ek ovlßdacφch panel∙ plus n∞co navφc.

5879 byt∙ Kopφrovat

Zp∞t na obsah

GrafickΘ funkce

Modul se spoustou grafick²ch funkcφ, nap°. vypsßnφ textu pod ·hlem, nastavenφ pr∙hlednΘho nebo plnΘho pozadφ, stφnovßnφ atd.

9189 byt∙ Kopφrovat

Zp∞t na obsah

Funkce tiskßrny

Modul obsahuje n∞kolik funkcφ pro prßci s tiskßrnami.

9633 byt∙ Kopφrovat

Zp∞t na obsah

PlaySound

Funkce slou₧φ k p°ehrßvßnφ zvuk∙ typu Wav. Umφ p°ehrßt soubor ulo₧en² v souboru Wav, v resource souboru nebo zvuk z pam∞ti. Pokud nejde o soubor na disku, musφte deklarovat prvnφ parametr funkce jako typ Long. Nahrazuje starÜφ funkci sndPlaySound.

Pokud je zvuk p°ehrßn v po°ßdku, vracφ funkce jakoukoliv nenulovou hodnotu, v opaΦnΘm p°φpad∞ vracφ 0.

Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
  (ByVal lpszName As String, ByVal hModule As Long, _
   ByVal dwFlags As Long) As Long

lpszName

Nßzev nebo jin² identifikßtor zvuku. P°esn² formßt parametru zßvisφ na nastavenφ parametru dwFlags.

hModule

╚φslo modulu aplikace obsahujφcφ zdroj zvuku. V∞tÜinou nastavte na 0.

dwFlags

Kombinace konstant urΦujφcφ zp∙sob p°ehrßvßnφ.

Const SND_ALIAS = &H10000: 'lpszName identifikuje nßzev systΘmovΘ udßlosti pro p°ehrßvßnφ zvuku.
Const SND_APPLICATION = &H80: 'lpszName identifikuje nßzev aplikaΦnφ udßlosti pro p°Ührßvßnφ zvuku.
Const SND_ASYNC = &H1: 'Spustφ p°ehrßvßnφ a neΦekß na jeho ukonΦenφ.
Const SND_FILENAME = &H20000: 'lpszName je nßzev souboru .wav.
Const SND_LOOP = &H8: 'P°ehrßvß zvuk stßle dokola, dokud nenφ p°ehrßvßnφ ukonΦeno nebo nenφ zpuÜt∞n jin² zvuk. Musφ b²t nastaven i p°φznak SND_ASYNC.
Const SND_MEMORY = &H4: 'lpszName je ukazatel do pam∞ti, kde je ulo₧en zvuk pro p°ehrßvßnφ.
Const SND_NODEFAULT = &H2: 'Pokud nenφ tento p°φznak nastaven a funkce nenajde na disku zvolen² soubor .wav, p°ehraje standardnφ systΘmov² zvuk (a skonΦφ bez chyby). Nastavφte-li tento p°φznak, funkce nic nehledß a skonΦφ s chybou.
Const SND_NOSTOP = &H10: 'Pokud u₧ n∞jak² zvuk hraje, nep°ehraje funkce vßmi zadan², ale skonΦφ s chybou. Nenastavφte-li tento p°φznak, je aktußln∞ hrajφcφ zvuk ukonΦen.
Const SND_PURGE = &H40: 'UkonΦφ jakΘkoliv p°ehrßvßnφ .wav zvuk∙. Parametr lpszName musφ b²t prßzdn² °et∞zec.
Const SND_RESOURCE = &H4004: 'lpszName je Φφseln² identifikßtor zvuku ulo₧enΘho s aplikacφ.
Const SND_SYNC = &H0: 'Funkce Φekß a₧ bude p°ehrßvßnφ zvuku ukonΦeno.

Dim ret As Long

'Spustφ zvuk nastaven² na startu systΘmu a Φekß na jeho ukonΦenφ
ret = PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)

'Spustφ p°ehrßvßnφ souboru soubor.wav a neΦekß na ukonΦenφ
ret = PlaySound("C:\soubor.wav", 0, SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)

Zp∞t na obsah

waveOutGetNumDevs

Vracφ poΦet za°φzenφ instalovan²ch v systΘmu schopn²ch p°ehrßvat hudbu ve wav formßtu.

Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

Debug.Print "PoΦet za°φzenφ: " & waveOutGetNumDevs

Zp∞t na obsah

midiOutGetNumDevs

Vracφ poΦet instalovan²ch MIDI za°φzenφ.

Declare Function midiOutGetNumDevs Lib "winmm" () As Integer

Debug.Print "PoΦet MIDI za°φzenφ: " & midiOutGetNumDevs

Zp∞t na obsah

waveOutGetDevCaps

Funkce zjiÜ¥uje schopnosti a dalÜφ informace o vybranΘm za°φzenφ pro p°ehrßvßnφ zvuk∙ ve wav formßtu.

P°i v²skytu chyby vracφ Φφslo chyby, skonΦφ-li v po°ßdku, vracφ hodnotu 0.

Declare Function waveOutGetDevCaps Lib "winmm.dll" Alias "waveOutGetDevCapsA" _
  (ByVal uDeviceID As Long, lpCaps As WAVEOUTCAPS, ByVal uSize As Long) As Long

Type WAVEOUTCAPS
  wMid As Integer
  wPid As Integer
  vDriverVersion As Long
  szPname As String * MAXPNAMELEN '=32
  dwFormats As Long
  wChannels As Integer
  dwSupport As Long
End Type

uDeviceID

Identifikßtor za°φzenφ (prvnφ za°φenφ mß hodnotu 0).

lpCaps

wMid

Identifikßtor v²robce.

wPid

Identifikßtor nßzvu nebo typu v²robku.

vDriverVersion

Hlavnφ a vedlejÜφ Φφslo verze za°φzenφ.

szPname

Nßzev za°φzenφ.

dwFormats

Typy v²stupu, kterΘ za°φzenφ podporuje (kombinace nßsl. hodnot).

Const WAVE_FORMAT_1M08 = &H1: '11.025 kHz, 8-bit, mono.
Const WAVE_FORMAT_1M16 = &H4: '11.025 kHz, 16-bit, mono.
Const WAVE_FORMAT_1S08 = &H2: '11.025 kHz, 8-bit, stereo.
Const WAVE_FORMAT_1S16 = &H8: '11.025 kHz, 16-bit, stereo.
Const WAVE_FORMAT_2M08 = &H10: '22.05 kHz, 8-bit, mono.
Const WAVE_FORMAT_2M16 = &H40: '22.05 kHz, 16-bit, mono.
Const WAVE_FORMAT_2S08 = &H20: '22.05 kHz, 8-bit, stereo.
Const WAVE_FORMAT_2S16 = &H80: '22.05 kHz, 16-bit, stereo.
Const WAVE_FORMAT_4M08 = &H100: '44.1 kHz, 8-bit, mono.
Const WAVE_FORMAT_4M16 = &H400: '44.1 kHz, 16-bit, mono.
Const WAVE_FORMAT_4S08 = &H200: '44.1 kHz, 8-bit, stereo.
Const WAVE_FORMAT_4S16 = &H800: '44.1 kHz, 16-bit, stereo.

wChannels

PoΦet kanßl∙ (1 znamenß mono za°φzenφ, 2 stereo).

dwSupport

DalÜφ podporovanΘ vlastnosti za°φzenφ (kombinace nßsl. hodnot).

Const WAVECAPS_LRVOLUME = &H8: 'Nastavovßnφ hlasitosti samostatn∞ pro lev² a prav² kanßl.
Const WAVECAPS_PITCH = &H1: '.
Const WAVECAPS_PLAYBACKRATE = &H2: '.
Const WAVECAPS_SAMPLEACCURATE = &H20: '.
Const WAVECAPS_SYNC = &H10: 'Synchronnφ p°ehrßvßnφ.
Const WAVECAPS_VOLUME = &H4: 'Nastavovßnφ hlasitosti.

uSize

Velikost prom∞nnΘ lpCaps.

Dim i As Long, numDevs As Long, ret As Long, waveInfo As WAVEOUTCAPS

numDevs = waveOutGetNumDevs
For i = 0 To numDevs - 1
  ret = waveOutGetDevCaps(i, waveInfo, Len(waveInfo))
  If ret = 0 Then
    Debug.Print "Nßzev za°φzenφ: " & _
      Left(waveInfo.szPname, InStr(waveInfo.szPname, vbNullChar) - 1)
    Debug.Print IIf((waveInfo.wChannels = 1), "Mono", "Stereo")
  End If
Next i

Zp∞t na obsah

auxGetNumDevs

Vracφ poΦet pomocn²ch zvukov²ch za°φzenφ instalovan²ch v systΘmu.

Declare Function auxGetNumDevs Lib "winmm.dll" () As Long

Debug.Print auxGetNumDevs

Zp∞t na obsah

auxGetDevCaps

ZjiÜ¥uje shocpnosti vybranΘho pomocnΘho zvukovΘho za°φzenφ instalovanΘho v systΘmu.

Pokud nastane p°i zajiÜ¥ovßnφ chyba, vracφ funkce Φφslo chyby, jinak hodnotu 0.

Declare Function auxGetDevCaps Lib "winmm.dll" Alias "auxGetDevCapsA" _
  (ByVal uDeviceID As Long, lpCaps As AUXCAPS, ByVal uSize As Long) As Long

Type AUXCAPS
  wMid As Integer
  wPid As Integer
  vDriverVersion As Long
  szPname As String * MAXPNAMELEN '=32
  wTechnology As Integer
  dwSupport As Long
End Type

uDeviceID

Identifikßtor za°φzenφ.

lpCaps

wMid

Identifikßtor v²robce.

wPid

Identifikßtor nßzvu nebo typu v²robku.

vDriverVersion

Hlavnφ a vedlejÜφ Φφslo verze za°φzenφ.

szPname

Nßzev za°φzenφ.

wTechnology

Typ za°φzenφ.

Const AUXCAPS_AUXIN = &H2: 'Vstupnφ zvukovΘ za°φzenφ.
Const AUXCAPS_CDAUDIO = &H1: 'CD audio.
Const AUXCAPS_MASTER = &H8: 'Hlavnφ zvukovΘ za°φzenφ.
Const AUXCAPS_MIC = &H4: 'Mikrof≤n.
Const AUXCAPS_MIDI = &H40: 'MIDI.
Const AUXCAPS_PCSPEAKER = &H10: 'PC speaker.
Const AUXCAPS_WAVE = &H20: 'ZvukovΘ za°φzenφ pro typ wav.

dwSupport

DalÜφ podporovanΘ vlastnosti za°φzenφ (kombinace nßsl. hodnot).

Const AUXCAPS_LRVOLUME = &H2: 'Nastavovßnφ hlasitosti samostatn∞ pro lev² a prav² kanßl.
Const AUXCAPS_VOLUME = &H1: 'Nastavovßnφ hlasitosti.

uSize

Velikost prom∞nnΘ lpCaps.

Dim i As Long, numDevs As Long, ret As Long, auxInfo As AUXCAPS

numDevs = auxGetNumDevs()
For i = 0 To numDevs - 1
  ret = auxGetDevCaps(i, auxInfo, Len(auxInfo))
  If ret = 0 Then
    Debug.Print "Nßzev za°φzenφ: " & _
      Left(auxInfo.szPname, InStr(auxInfo.szPname, vbNullChar) - 1)
    Debug.Print "Verze (hlavni.vedlejsi): " & _
      CStr((auxInfo.vDriverVersion And &HFF00) / &H100) & "." & _
      CStr(auxInfo.vDriverVersion And &HFF)
  End If
Next i

Zp∞t na obsah

waveOutGetVolume

Zjistφ nastavenφ hlasitosti za°φzenφ pro p°ehrßvßnφ zvuk∙ typu wav. Hlasitost je vrßcena jako jedna prom∞nnß typu Long. Pokud za°φzenφ podporuje nastavovßnφ hlasitosti zvlßÜ¥ pro oba kanßly, jsou pro prav² kanßl urΦeny hornφ dva bajty prom∞nnΘ a pro lev² kanßl dolnφ dva bajty. Pokud za°φzenφ nepodporuje nastavovßnφ zvlßÜ¥, urΦujφ hlasitost dolnφ dva bajty, hornφ jsou ignorovßny.

Pokud vÜe prob∞hne v po°ßdku, vracφ funkce hodnotu 0, jinak Φφslo chyby, kterß vznikla.

Declare Function waveOutGetVolume Lib "winmm.dll" _
  (ByVal uDeviceID As Long, lpdwVolume As Long) As Long

uDeviceID: Identifikßtor za°φzenφ.
lpdwVolume: Hlasitost.

'ZjiÜt∞nφ hlasitosti pro za°φzenφ s ID 0
Dim ret As Long, waveInfo As WAVEOUTCAPS, volume As Long

ret = waveOutGetDevCaps(0, waveInfo, Len(waveInfo))
If ret = 0 Then
  ret = waveOutGetVolume(0, volume)
  If ret = 0 Then
    If (waveInfo.dwSupport And WAVECAPS_LRVOLUME) = WAVECAPS_LRVOLUME Then
      Debug.Print "Levß strana: " & Hex(volume And &HFFFF)
      Debug.Print "Pravß strana: " & Hex((volume And &HFFFF0000) / &H10000)
    Else
      Debug.Print "Hlasitost: " & Hex(volume And &HFFFF)
    End If
  End If
End If

Zp∞t na obsah

waveOutSetVolume

Nastavuje hlasitost pro za°φzenφ na p°ehrßvßnφ zvuk∙ typu wav. Pokud za°φzenφ podporuje nastavovßnφ hlasitosti zvlßÜ¥ pro oba kanßly, jsou pro prav² kanßl urΦeny hornφ dva bajty prom∞nnΘ a pro lev² kanßl dolnφ dva bajty. Pokud za°φzenφ nepodporuje nastavovßnφ zvlßÜ¥, urΦujφ hlasitost dolnφ dva bajty, hornφ jsou ignorovßny.

Pokud vÜe prob∞hne v po°ßdku, vracφ funkce hodnotu 0, jinak Φφslo chyby, kterß vznikla.

Declare Function waveOutSetVolume Lib "winmm.dll" _
  (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long

uDeviceID: Identifikßtor za°φzenφ.
dwVolume: Hlasitost. Interval hlasitosti je pro ka₧d² kanßl 0 a₧ FFFF.

Dim ret As Long

'Nastavenφ obou kanßl∙ na maximum
ret = waveOutSetVolume(0, &HFFFFFFFF)

'Nastavenφ obou kanßl∙ na minimum
ret = waveOutSetVolume(0, &H0)

Zp∞t na obsah