Hafta içi her gün 20:00 - 22:00 arası "DJ ÖZEL" ile "Keyf-i Müzik" programını dinlemek için TIKLAYINIZ

Hafta sonu 15:00 - 18:00 arası "DJ EMRE" ile "Müzik Ekspres" programını dinlemek için TIKLAYINIZ

Canlı yayını dinlemek için bilgisayarınızda WINAMP kurulu olmalıdır.WINAMP indirmek için TIKLAYINIZ
forumENA - Knight Online , KOXP

 

Visual Basic Örnek uygulamalar

Visual Basic içinde Visual Basic Örnek uygulamalar konusu , 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 ...







Geri Dön   forumENA - Knight Online , KOXP > Program , Programlama, İnternet > Programlama > Visual Basic

Visual Basic Örnek uygulamalar Visual Basic Örnek uygulamalar

KAYIT OL Yönetim Takımı Üye Listesi Tüm konuları okunmuş kabul et

Cevapla

 

Konu Yönetim Seçenekleri Konu Gösterim Seçenekleri
Eski 12-04-2006, 01:25   #1 (permalink)
EN Afilli
 
tnsezer - ait Avatar
 
Üyelik Tarihi: 18-12-2005
Yaş: 21
Mesajlar: 1,231
Rep Gücü: 124
Rep Puanı: 7683
tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13
Icon37 Visual Basic Örnek uygulamalar

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
tnsezer isimli üyemiz çevrimdışıdır. (Offline)   Alıntı yaparak aynı kişiye cevapla
Eski 12-04-2006, 01:26   #2 (permalink)
EN Afilli
 
tnsezer - ait Avatar
 
Üyelik Tarihi: 18-12-2005
Yaş: 21
Mesajlar: 1,231
Rep Gücü: 124
Rep Puanı: 7683
tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13
Tanımlı

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
tnsezer isimli üyemiz çevrimdışıdır. (Offline)   Alıntı yaparak aynı kişiye cevapla
Eski 12-04-2006, 01:27   #3 (permalink)
EN Afilli
 
tnsezer - ait Avatar
 
Üyelik Tarihi: 18-12-2005
Yaş: 21
Mesajlar: 1,231
Rep Gücü: 124
Rep Puanı: 7683
tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13tnsezer Rütbe: +13
Tanımlı

database işlemlerinde kullanışlı bir fonksiyon


Private Function cevir(ceviri As String) As String
'küçük harfi büyük harfe ceviren fonksiyon kullanımı türkçe karakter destekli
'text1=cevir(text1) şeklindedir
ceviri = Replace(UCase(ceviri), "i", "I")
ceviri = Replace(UCase(ceviri), "İ", "I")
ceviri = Replace(UCase(ceviri), "ı", "I")
ceviri = Replace(UCase(ceviri), "ğ", "G")
ceviri = Replace(UCase(ceviri), "ü", "U")
ceviri = Replace(UCase(ceviri), "ş", "S")
ceviri = Replace(UCase(ceviri), "ö", "O")
ceviri = Replace(UCase(ceviri), "ç", "C")
ceviri = Replace(UCase(ceviri), "Ğ", "G")
ceviri = Replace(UCase(ceviri), "Ü", "U")
ceviri = Replace(UCase(ceviri), "Ş", "S")
ceviri = Replace(UCase(ceviri), "Ö", "O")
ceviri = Replace(UCase(ceviri), "Ç", "C")
cevir = ceviri
End Function
tnsezer isimli üyemiz çevrimdışıdır. (Offline)   Alıntı yaparak aynı kişiye cevapla
Eski 07-05-2007, 01:12   #4 (permalink)
EN Açıkgözlü
 
dmuratyuksel - ait Avatar
 
Üyelik Tarihi: 07-05-2007
Mesajlar: 5
Rep Gücü: 0
Rep Puanı: 250
dmuratyuksel Rütbe: +6dmuratyuksel Rütbe: +6dmuratyuksel Rütbe: +6
Tanımlı Cevap: Visual Basic Örnek uygulamalar

Sağol Arkadaş
dmuratyuksel isimli üyemiz çevrimdışıdır. (Offline)   Alıntı yaparak aynı kişiye cevapla
Cevapla

« Önceki Konu | Sonraki Konu »
Konu Yönetim Seçenekleri
Konu Gösterim Seçenekleri
Normal şekilde göster Normal şekilde göster

Yetkileriniz
Yeni konu açamazsınız
You may not post replies
Mesajınıza dosya ekleyemezsiniz
Mesaj düzenleme yapamazsın
BB code is Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı









| fx15 | neyapak | Doğum | Oyunlar |
forumENA sistem saati: 21:20

İletişim - forumENA - Knight Online , KOXP - Arşiv - forumENA Kuralları - Yukarı Git

Powered by vBulletin Version 3.7.4
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.2.0
-------------------------------------------------------------------------
Türkçeleştirme izmirlinihat tarafından yapılmaktadır
forumENA sitesi ENAhosting© tarafından barındırılmaktadır