XabrkX Admin
Mesaj Sayısı : 573 Nerden : NOLDU BİZEMİ GELCEN ? :D :D Lakap : ******kaRİZma******* RUH HALİ : SADECE BU KONUDA AŞAĞIDAKİ KADAR TEŞEKKÜR EDİLDİ : <div class="js-kit-rating" view="score"path="" title="" permalink=""></div><script src="http://js-kit.com/ratings.js"></script> TAKIM : Kayıt tarihi : 09/07/08
| Konu: Visual Basic Örnekler Paz Ağus. 10, 2008 1:03 pm | |
| Cd-Rom u açıp kapatmak
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Command1_Click() mciExecute ("Set CDAudio door Open") End Sub
Private Sub Command2_Click() mciExecute ("Set CDAudio door closed") End Sub
Speakerdan beep çıkarmak
Private Sub Command1_Click() Beep End Sub
Windows Hesap Makinesini çalıştırmak
Private Sub Command1_Click() Call Shell("calc.exe", 1) End Sub
Windows Not defterini çalıştırma
Private Sub Command1_Click() Call Shell("notepad.exe", 1) End Sub
**** Bilgisayarda Büyük ünlü uyumunu uygulamak
Public Function BüyükÜnlüUyumu(ByVal sözcük As String) As Boolean 'Büyük Ünlü Uyumunun Yapılışı Dim KalınÜ(3), İnce(3) As String, x(1), y As Integer, kelime As String, karakter(1) As String
Dim ince_b, kalın_b As Boolean
kelime = sözcük.ToString 'Kontrol edilecek sözcük belirleniyor...
KalınÜ(0) = "a" '''''''''''''''''''''''''''''''''''''''' KalınÜ(1) = "ı" ' ' KalınÜ(2) = "u" ' ' KalınÜ(3) = "o" ' Kalın ünlüler tanıtılıyor... ' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''
İnce(0) = "e" '''''''''''''''''''''''''''''''''''''''' İnce(1) = "i" ' ' İnce(2) = "ü" ' ' İnce(3) = "ö" ' İnce ünlüler tanıtılıyor.... ' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''
x(1) = kelime.Length For x(0) = 0 To 3 For y = 1 To x(1) karakter(0) = Mid(kelime, y, 1) karakter(1) = Mid(kelime, y, 1) If LCase(karakter(0)) = LCase(KalınÜ(x(0))) Then kalın_b = True If LCase(karakter(1)) = LCase(İnce(x(0))) Then ince_b = True If kalın_b = True And ince_b = True Then BüyükÜnlüUyumu = False Else BüyükÜnlüUyumu = True End If Next y Next x(0) 'Writing by BEJO© 2003-2004' End Function
================================================== ======== '''Bunu bir Tuşa Eklemek
Private Sub Başlat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Başlat.Click
If BüyükÜnlüUyumu("BEJO") = True Then MsgBox("Büyük ünlü uyumuna Uyuyor") Else MsgBox("Büyük ünlü uyumuna Uymuyor")
End If End Sub | |
|