SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
 Rep Puanı : 47
 |  Konu: Visual Basic Örnek Uygulamalar ...  Ptsi Mayıs 11, 2009 6:17 pm | |
| Arkadaşlar visual basic ile yaptığımız paylaşmak istediğimiz programları bu başlık altında yayınlayabilirsek sevinirim.
Bir kaç örnek program benden
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 BuyukunluUyumu(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ınU(0) = "a" ''''''''''''''''''''''''''''''''''''''''
KalınU(1) = "ı" ' '
KalınU(2) = "u" ' '
KalınU(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
BuyukunluUyumu = False
Else
BuyukunluUyumu = 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 BuyukuUnluUyumu("HayaLiMs") = True Then
MsgBox("Büyük ünlü uyumuna Uyuyor")
Else
MsgBox("Büyük ünlü uyumuna Uymuyor")
End If
End Sub
-----------------------------------------------------------------------------------
Microsoft'un Windows XP ve Office XP içerisine gizlice gömdüğü sesli komut özelliğini, çok basit bir kod vasıtasıyla kullanabilirsiniz.
***************************************
Dim speech As SpVoice
Private Sub Command1_Click()
speech.Speak Text1
End Sub
Private Sub Form_Load()
Set speech = New SpVoice
End Sub
***************************************
Bir TextBox ve bir CommandButton ile yazdığınız her yazıyı sesli olarak dinleyebilirsiniz.
(Sadece WinXP de) ________Kullanıcı İmzası_________ | |
|
CeRKeS
Level 45
Mesaj Sayısı : 87
Kayıt tarihi : 04/05/09
Rep Puanı : 2
| |
paper59
Level 1
Mesaj Sayısı : 18
Nerden : Evden
Kayıt tarihi : 28/05/09
Rep Puanı : 0
| | Konu: Geri: Visual Basic Örnek Uygulamalar ... C.tesi Haz. 13, 2009 6:55 pm | |
| Call Shell("C:\GamersFirst\KnightOnline\Launcher.exe", 1)
anca burdan gırebılırsınız knighta ama burdanda login verior. | |
|
