|~Pc kopat 2oo8~|| HACKİNG ,SECURİTY,PROGRAMLAMA,PROGRAM,İNTERNET ERİŞiMİ ,PAYLAŞIM PORTALI

BİLGİSAYAR, WEB PROGRAMLAMA,İNTERNET ERİŞİMİ, PROGRAMLAMA VE PC BAKIM, DONANIM, PC GÜVENLİK SUNUCU YOLU
 
AnasayfaSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 Visual Basic Örnekler

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
XabrkX
Admin
Admin
avatar

Erkek
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

MesajKonu: 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

_________________




*****Gec€LerİN ADmiNİ*****
XabrkX
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://www.pckopat.forumn.biz
 
Visual Basic Örnekler
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Visual Basic .Net - Fonksiyonlar

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
|~Pc kopat 2oo8~|| HACKİNG ,SECURİTY,PROGRAMLAMA,PROGRAM,İNTERNET ERİŞiMİ ,PAYLAŞIM PORTALI :: PROGRAMLAR VE PROGRAMLAMA :: PROGRAMLAMA DİLLERİ VE PROGRAMLAMA İLE İLGİLİ HER ŞEY-
Buraya geçin: