X

Index
ROZEZSHA.TXT
www nie com pl 2
abc.com.pl 5
Quinnell A J Mahdi
Tybetańska Yoga
chip 4
119 12
09 (461)
Aldiss Brian W Siwobrody
rozdzial 14 (66)
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • alter.htw.pl
    		•

    [ Pobierz całość w formacie PDF ]
    .Ciekawsze funkcje APICiekawsze funkcje APIPoni�ej opisze kilka fajnych funkcji API.Z pewno�ci�pomog� one nam napisa� lepszy program.No to do dzia�a :Jak odtworzy� plik WAV ???Bardzo �atwo.W module piszemy :Public Const SND_ASYNC = &H1Public Declare Function sndPlaySound Lib "winmm.dll"Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As LongA w miejscu, gdzie chcemy odtworzy� plik WAV piszemy :Dim r As Integerr = sndPlaySound(ByVal Sou + "plik.wav", SND_SYNC +SND_NODEFAULT + SND_ASYNC)Jak odczyta� nazw� komputera???W module piszemy :Public Declare FunctionGetComputerName Lib "kernel32" Alias"GetComputerNameA" (ByVal lpBuffer As String, nSize AsLong) As LongA w miejscu gdzie chcemy odczyta� nazwekompa piszemy :Dim compname As String * 255, cnameAs String' Nazwa komputera nie mo�e by� d�u�szax = GetComputerName(compname, 255)' usuwamy spacje i ko�cowy vbNullCharcname = Trim(compname)cname = Left(cname, Len(cname) - 1)If x <> 0 Then MsgBox "Witam na komputerze: " +cnameJak odczyta� wersj� WINDOWS'a???W module piszemy :Public Declare Function GetVersionExLib "kernel32" Alias "GetVersionExA"(lpVersionInformation As OSVERSIONINFO) As LongPublic Type OSVERSIONINFOdwOSVersionInfoSize As LongdwMajorVersion As LongdwMinorVersion As LongdwBuildNumber As LongdwPlatformId As LongszCSDVersion As String * 128End TypeA w odpowiednim miejscu programu piszemy:Dim os As OSVERSIONINFOos.dwOSVersionInfoSize = Len(os) ' d�ugo�� zmiennejx = GetVersionEx(os)MsgBox "Masz windows w wersji :" +Str(os.dwMajorVersion) + "." + Str(os.dwMinorVersion) +Str(dwBuildNumber)Jak uzyska� d�wi�k BEEP ???W module piszemy :Public Declare Function Beep Lib"kernel32" Alias "Beep" (ByVal dwFreq AsLong, ByVal dwDuration As Long) As LongA w odpowiednim miejscu programu :Call Beep(0, 0)Jest jeszcze inny sposób, tj, bez �adnych deklaracji wdowolnym miejscu programu wpisujemy BEEPefekt ten sam, a du�omniej pisaniaCzy w VB jest instrukcja podobna do DELAY z TurboPascala ???W module piszemy :Public Declare Sub Sleep Lib"kernel32" (ByVal dwMilliseconds As Long)W kodzie programu piszemy :Label1.Caption = "Demo funkcji Sleep -2 sekundy"Label1.RefreshSleep 2000 ' 2000 milisekund = 2 sekundyLabel1.Caption = "Juz koniec."Label1.Refresh 'od�wie� lablaJak z poziomu VB, wy��czy�komputer ???Je�li masz obudow� ATX, to wy��czaj�c WINDOWS,wy��cza si� komputer (sam) tak, wi�c mo�esz napisa� jaki�program, który robi np Backup dysku a jak sko�czy to zamykaWINDOWS (a windows wy��za komputer).Dzi�ki temu mo�esz w tymczasie by� nieobecny przy kompie np.spa�.A oto co musimynapisa� w module :Public Declare FunctionExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByValdwReserved As Long) As LongA miejscu gdzie chcemy zamkn�� windows :x = ExitWindowsEx(EWX_REBOOT, 0)If x = 0 Then Beep: MsgBox "B��d podczas próby restartusystemu!"To by by�o na tyle.Przyk�ady zaczerpn��em (wwi�kszo�ci) z pliku pomocy API, który mo�na �ci�gn�� zestronytam jest du�o wi�cej ciekawych funkcji API.Jelcyn [ Pobierz całość w formacie PDF ]
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • aceton.keep.pl
    • 
    Wszelkie Prawa Zastrzeżone! Kawa była słaba i bez smaku. Nie miała treści, a jedynie formę. Design by SZABLONY.maniak.pl.

    Drogi użytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczać Ci coraz lepsze usługi. By móc to robić prosimy, abyś wyraził zgodę na dopasowanie treści marketingowych do Twoich zachowań w serwisie. Zgoda ta pozwoli nam częściowo finansować rozwój świadczonych usług.

    Pamiętaj, że dbamy o Twoją prywatność. Nie zwiększamy zakresu naszych uprawnień bez Twojej zgody. Zadbamy również o bezpieczeństwo Twoich danych. Wyrażoną zgodę możesz cofnąć w każdej chwili.

     Tak, zgadzam siÄ™ na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerów w celu dopasowania treÅ›ci do moich potrzeb. PrzeczytaÅ‚em(am) PolitykÄ™ prywatnoÅ›ci. Rozumiem jÄ… i akceptujÄ™.

     Tak, zgadzam siÄ™ na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerów w celu personalizowania wyÅ›wietlanych mi reklam i dostosowania do mnie prezentowanych treÅ›ci marketingowych. PrzeczytaÅ‚em(am) PolitykÄ™ prywatnoÅ›ci. Rozumiem jÄ… i akceptujÄ™.

    Wyrażenie powyższych zgód jest dobrowolne i możesz je w dowolnym momencie wycofać poprzez opcję: "Twoje zgody", dostępnej w prawym, dolnym rogu strony lub poprzez usunięcie "cookies" w swojej przeglądarce dla powyżej strony, z tym, że wycofanie zgody nie będzie miało wpływu na zgodność z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.