0
Kayıt Ol

Visual Basic Örnek uygulamalar

1

●

1.299

  • 23-03-2009, 15:32:02
    #1
    MSC
    MSC
    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 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
  • 23-03-2009, 21:29:42
    #2
    Zafi
    Zafi
    Bende kendi sitemde yayınladığım bir örneği koyayım
    Alıntı
    Visual Basic ile herhangi bir dosyanın kaynak yolunu ve kopyalanmasını istediğiniz yeri belirterek dosya kopyalaması yapabilirsiniz.Bunun için bir kaç deklarasyon ve copyfile fonksiyonunu kullanmak yeterli.Kafanız karıştı ise örneğe bir göz atın.
    Örnek:
    İlk olarak bilgisayarıma girip,c: dizinine a.txt adında bir dosya açın,ardından aynı dizine a adında bir klasör daha açın.Daha sonra visual basic programını açın ve Form’a 2 tane text box,bir tane de buton ekleyin.Ardından Kod bölümüne:
    Private Declare Function CopyFile Lib "kernel32" _
  Alias "CopyFileA" (ByVal lpExistingFileName As String, _
  ByVal lpNewFileName As String, ByVal bFailIfExists As Long) _
  As Long
Private Sub Command1_click()
Dim sonuc as long
On error resume next 'hata durumunda devam et
sonuc = copyfile("c:a.txt","c:a",false)
if sonuc > 0 then
Msgbox("kopyalama başarılı!")
else
Msgbox("kopyalama hatalı!")
end if
end sub
    Tahmin edebileceğiniz gibi, kopyalama başarılı ise,program msj verecek.Ama siz yine de a klasörünü kontrol edin.Değil ise; ya belirttiğiniz yolda problem vardır, yada deklerasyonlarda.Bu işi daha kolaylaştırmak için
    Common Dialog Control kullanmanızı öneririm.Buraya tıklayarak nasıl kullanabileceğinizi öğrenebilirsiniz.
    Gördüğünüz gibi deklerasyonları tanımladıktan sonra fonksiyonu kullanmak oldukça kolay.
    copyfile([dosyanın konumu],[kopyalanacak konum],True/False)
'true = üstüne yazma.
'false = üstüne yaz.