|Başlık Sayısı :1981| Mesaj Sayısı:3050|
 
PortalAnasayfaGaleriSSSAramaKayıt OlÜye ListesiKullanıcı GruplarıGiriş yap

Paylaş | 
 

 Visual Basic Örnek uygulamalar

Aşağa gitmek 
YazarMesaj
Bactry
ADMİN
ADMİN
avatar

Erkek Mesaj Sayısı : 1774
Nerden : İstanbul
İş/Hobiler : Web Dizayn
Lakap : Bactry
<FONT color=red><B>Dikkat</FONT> :
Dikkat: Turk Forumzen Bağımlılık Yapabilir !!

<center><B><fieldset>Takım :
Ruh Hali :
<br><FONT color=FFA500><B>Başarı :
100 / 100100 / 100

<FONT color=#00ccff><B>Güçlülük</FO :
100 / 100100 / 100

<FONT color=#008000><B>Aktiflik</FO :
100 / 100100 / 100

<br><FONT color=#ffff33><B>İLETİ : ЯΘCЌΣЯ-*
Kayıt tarihi : 16/02/08

MesajKonu: Visual Basic Örnek uygulamalar   Perş. Mayıs 15, 2008 7:04 am

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

_________________
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://turk.forumzen.com
Bactry
ADMİN
ADMİN
avatar

Erkek Mesaj Sayısı : 1774
Nerden : İstanbul
İş/Hobiler : Web Dizayn
Lakap : Bactry
<FONT color=red><B>Dikkat</FONT> :
Dikkat: Turk Forumzen Bağımlılık Yapabilir !!

<center><B><fieldset>Takım :
Ruh Hali :
<br><FONT color=FFA500><B>Başarı :
100 / 100100 / 100

<FONT color=#00ccff><B>Güçlülük</FO :
100 / 100100 / 100

<FONT color=#008000><B>Aktiflik</FO :
100 / 100100 / 100

<br><FONT color=#ffff33><B>İLETİ : ЯΘCЌΣЯ-*
Kayıt tarihi : 16/02/08

MesajKonu: Geri: Visual Basic Örnek uygulamalar   Perş. Mayıs 15, 2008 7:05 am

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

_________________
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://turk.forumzen.com
Bactry
ADMİN
ADMİN
avatar

Erkek Mesaj Sayısı : 1774
Nerden : İstanbul
İş/Hobiler : Web Dizayn
Lakap : Bactry
<FONT color=red><B>Dikkat</FONT> :
Dikkat: Turk Forumzen Bağımlılık Yapabilir !!

<center><B><fieldset>Takım :
Ruh Hali :
<br><FONT color=FFA500><B>Başarı :
100 / 100100 / 100

<FONT color=#00ccff><B>Güçlülük</FO :
100 / 100100 / 100

<FONT color=#008000><B>Aktiflik</FO :
100 / 100100 / 100

<br><FONT color=#ffff33><B>İLETİ : ЯΘCЌΣЯ-*
Kayıt tarihi : 16/02/08

MesajKonu: Geri: Visual Basic Örnek uygulamalar   Perş. Mayıs 15, 2008 7:05 am

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)

_________________
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://turk.forumzen.com
 
Visual Basic Örnek uygulamalar
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» İdol (Örnek aldığınız kişi veya kişiler.)

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
 :: Programlama Dilleri :: Visual basic-
Buraya geçin:  
Powered by phpBB ©
© 2007, 2008 Forumzen
Powered ßy como TeaM
forum kurmak | © phpBB | Bedava yardımlaşma forumu | Suistimalı göstermek | Kendi blogunuzu yaratın