-->

Sponsor Alanı

Slider

İlgi Çeken Videolar

Sağlık

Teknoloji

Sinema

Televizyon

Ne Nedir?

En5 Konular

VB Dersleri
ads

TextBox'taki Bilgileri Klasöre Eklemek

By: İbrahim Fırat on Salı, Aralık 24, 2013 / yorum : 0 ,

Uzun zamandan beri Visual basic derslerine devam edemiyorduk kaldığımız yerden devam ediyoruz.

Bu dersimizde Treeview ile Klasör Listelemeyi öğreneceğiz.

Lazım olan araçlarımız;

1 tane textbox
1 tane button
1 tane treeview

vb.net

Aşağıdaki kodları ekleyiniz.

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim klasorler As String() = Directory.GetDirectories(TextBox1.Text) 'textboxdaki bilgileri alarak abu bilgiler ile klasörlerdekileri listeliyoruz.
        TreeView1.Nodes(0).Text = TextBox1.Text
        Dim anadugum As TreeNode = TreeView1.Nodes(0)
        If klasorler.Length <> 0 Then
            Dim aktifklasor As String
            For Each aktifklasor In klasorler ' klsör listeleri üzerindeki bilgiler için döngü kuruyoruz
                Dim dugum As TreeNode = New TreeNode(aktifklasor)
                anadugum.Nodes.Add(dugum) 'oluşturulan bu döngü anadüğüm adlı parent node altına ekliyin.

            Next
        End If
        TreeView1.ExpandAll() 'anadüğüm ve tüm alt düğümleri açık veziyette listemekteyiz.
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TreeView1.Nodes.Add("Klasör Listesi") 'bu isimde 1 adet parent note ekledik.
    End Sub
End Class

Vb.Net Dinlediğiniz Müziği Listeye Ekleme

By: İbrahim Fırat on Salı, Kasım 19, 2013 / yorum : 0 ,

vb.net

Visual basic derslerimize bir süre ara vermiştik yoğunluktan dolayı, kaldığımız yerden devam ediyoruz. Bugün ki konumuz herhangi bir müzik çalarda dinlediğiniz bir müziği combobox'a liste olarak ekleyeceğiz Combobox'tan seçim yapınca eklenen müzik açılacaktır.

Gerekli araçlarımız:

1 tane media player
1 tane openfiledialog
1 tane button
1 tane combobox

Kodlama:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
        ComboBox1.Items.Add(AxWindowsMediaPlayer1.URL)

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        AxWindowsMediaPlayer1.URL = ComboBox1.Text


    End Sub

Windows Media Player Eklemek ve Müzik Çalar yapmak için Video


Vb.Net Kısayolları

By: İbrahim Fırat on Salı, Ağustos 20, 2013 / yorum : 0 ,

vb.net
Visual Studio kullanımda kısa yolların önemi büyüktür.  Daha hızlı işlemler yapmanız için  bilmeniz gereken Vb.Net kısa yollarının listesi aşağıda

F5 - Projeyi derler, kaydeder, çalıştırır.

F6 - Projeyi derleyerek hata ayıklaması yapar. F5 yapmadan önce F6 ile kontrol etmek iyidir, güzeldir.

F7 - Kod sayfasına geçer.

SHIFT + F5 - Çalışan projeyi kapatmaya yarar.

SHIFT + F7- Tasarım sayfasına geçiş sağlanır.

CTRL + F4 - Açılmış olan sayfanın kapanmasını sağlar

CTRL + F - Kod satırları içersinde bul ve değiştir.

CTRL + E, K - Seçilen kodu açıklama satırı yapar.

CTRL + E, U - Yorum satırındaki işlemleri geriye alır.

CTRL + F - Kod sayfasında arama yapmanızı sağlar.

Alt + Shift + Enter - Tam ekran moduna geç / moddan çık.

CTRL + H - Ara ve değiştir.

Ctrl + Alt + X - ToolBox'u aç.

Shift + ESC - ToolBox'u kapat.

Vb.Net flash (.swf) saati Kullanımı

By: İbrahim Fırat on Cumartesi, Ağustos 17, 2013 / yorum : 0 ,

Bu dersimizde Form için bir flash saat yapımını öğreneceğiz. Bir çok kod yazmaktansa sistem saati ile kordine olan flash saati kullanacağız.


Flash Saat kurulumu:


visual Basic

İlk olarak ToolBox üzerine gelin ve sağ tıklayarak Choose Item bölümünden karşınıza gelen ekranda Com Components kısmından Shockwave Flash Object sekmesinden önündeki checkbox'ı seçin ve tamam diyin.

Yapılan işlemlerin ardından forma toolbox'tan Shockwave Flash Object elamanını ekleyin ve nesne özelliklerinden movie kısmına .swf uzantılı saatin yolunu yazarak sonlandırın.

Vb.Net - Diziler ile Cümle Aramak

By: İbrahim Fırat on Cumartesi, Temmuz 13, 2013 / yorum : 0 ,

vb.net
Bu derste diziler ile nasıl kelime araması yapacağımızı işleyeceğiz

Forma eklemeniz gereken araç

1 Tane Button eklemeniz yeterli olacaktır.

Button'a çift tıklayın ve click olayına aşağıdaki kodları yazın


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(4), b As String
        Dim c As Integer

        a(0) = InputBox("1.Metni Gir.")
        a(1) = InputBox("2.Metni Gir.")
        a(2) = InputBox("3.Metni Gir.")
        a(3) = InputBox("4.Metni Gir.")
        a(4) = InputBox("5.Metni Gir.")
        b = InputBox("Aramak istediğiniz kelimeyi lütfen girin.")

        For v = 0 To 4
            If a(v) = b Then
                MsgBox("Aradığınız kelime var")
                c = c + 1
                Exit For
            End If
        Next
        If c = 0 Then
            MsgBox("Aradığınız kelime yokı!")
        End If

    End Sub

Visual Basic İle Saat Yapmak

By: İbrahim Fırat on Cumartesi, Temmuz 13, 2013 / yorum : 0 ,

vb.net
Vb.Net Derslerimize kaldığımız yerden devam ediyoruz. Bazı nedenlerden dolayı kısa bir ara vermiştik derslerimize. kaldığımız yerden kodlamalarımıza geçiyoruz.

Bu derste visual basic ile bir saat yapacağız.

Forma eklemeniz gereken araçlar

1 tane label ekleyin
1 tane timer ekleyin

Ve eklentilere yapmanız gereken ayarlar aşağıdadır.

Timer'ın enable true, interval 1000 değeri olarak ayarlayın.

Kodlama için:

Timer1'e çif tıklayın ve içine aşağıdaki kodu yazın


Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        label1.text = TimeOfDay
    End Sub


Vb.Net İle Saat Yapımı Videolu Anlatım

Vb.Net İle Dosya Kopyalama Ve Silme

By: İbrahim Fırat on Salı, Haziran 25, 2013 / yorum : 0 ,

vb.net
Visual Basic ile dosyaları silme ve kopyalamamızı sağlayan bir program yapacağız.

Forma eklemeniz gereken araçlar

2 Button, 2 Label, 2 TextBox 



Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        File.Copy(TextBox1.Text, TextBox2.Text)

    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If File.Exists(TextBox2.Text) Then
            File.Delete(TextBox1.Text)
        End If
    End Sub
End Class


Vb.Net Masa Üstü Görseli Değiştirmek

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net

Visual Basic ile masa üstü resim değiştirmek

Forma eklemeniz gereken eklenti:

1 tane button ekleyin. Kodların içinde değiştirmek istediğiniz  resmin URL'sini   yapıştırıp değiştirme işlemini yapabilirsiniz. 

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("user32.DLL", CharSet:=CharSet.Auto)> Public Shared Function SystemParametersInfo(ByVal intAction As Integer, ByVal intParam As Integer, ByVal strParam As String, ByVal intWinIniFlag As Integer) As Integer

    End Function
    Private Shared SPI_SETDESKWALLPAPER As UInt32 = 20
    Private Shared SPIF_UPDATEINIFILE As UInt32 = &H1
    Private dosyaadi As [String] = "https://lh5.googleusercontent.com/-M4oFcq093kQ/UbH-NuIJOsI/AAAAAAAAVU0/Lm4rhZ8SCRs/h93/logo.png" ' resim adresini bu bölüme ekleyiniz.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, dosyaadi, SPIF_UPDATEINIFILE)

    End Sub
End Class

Vb.Net TextBox Yazı Tipi İşlemleri

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net

TextBox ile Visual Basic'te yazı işlemlerini öğreneceğiz.

Forma eklemeniz gerekenler;

1 tane textbox
9 tane button
1 tane fontdiyalog
1 tane colordialog

Kodlama:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.SelectionLength > 0 Then
            TextBox1.Cut()
        Else
            MsgBox("Seçili Alan Yok!")

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.SelectionLength > 0 Then
            TextBox1.Copy()
        Else
            MsgBox("Alan boş!")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Paste()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Undo()
        TextBox1.Font = New Font(Font, FontStyle.Regular)
        TextBox1.ForeColor=color.Black
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If FontDialog1.ShowDialog = DialogResult.OK Then
            TextBox1.Font = FontDialog1.Font

        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If ColorDialog1.ShowDialog = DialogResult.OK Then
            TextBox1.ForeColor = ColorDialog1.Color

        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Font = New Font(Font, FontStyle.Bold)

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Font = New Font(Font, FontStyle.Italic)
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Font = New Font(Font, FontStyle.Underline)
    End Sub

Vb.Net İle RAM Bellek Bilgisi Öğrenme

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net
Visual Basic ile bu derste    RAM bellek bilgisini gösteren program yapacağız.

Forma şunları ekleyim;

1 tane TextBox
1 tane Button

Kodlama;

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("Kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> Public Shared Function GlobalMemoryStatusEx(ByRef IpBuffer As MEMORYSTATUEX) As <MarshalAs(UnmanagedType.Bool)> Boolean

    End Function
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> Public Structure MEMORYSTATUEX
        Public dwLength As UInteger
        Public dwMemoryLoad As UInteger
        Public ullTotalPhys As ULong
        Public ullAvailPhys As ULong
        Public ullTotalPageFile As ULong
        Public ullAvailPageFile As ULong
        Public ullTotalVirtual As ULong
        Public ullAvailVirtual As ULong
        Public ullAvailExtendedVirtual As ULong
    End Structure
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hafıza As New MEMORYSTATUEX()
        hafıza.dwLength = 64
        Dim b As Boolean = GlobalMemoryStatusEx(hafıza)
        TextBox1.Text = TextBox1.Text + "Kullanılan Bellek Mikterı= " & (hafıza.dwMemoryLoad) & vbCrLf
        TextBox1.Text = TextBox1.Text + "Toplam Bellek Miktarı= " & (hafıza.ullTotalPhys  (1024 * 1024)) & " mb" & vbCrLf
        TextBox1.Text = TextBox1.Text + "Boş Bellek Miktarı= " & (hafıza.ullAvailPhys  (1024 * 1024)) & " mb" & vbCrLf
        TextBox1.Text = TextBox1.Text + "Toplam Page File Miktarı= " & (hafıza.ullTotalPageFile  (1024 * 1024)) & " mb" & vbCrLf
        TextBox1.Text = TextBox1.Text + "Boş Page File= " & (hafıza.ullAvailPageFile  (1024 * 1024)) & " mb" & vbCrLf
        TextBox1.Text = TextBox1.Text + "Toplam Sanal Bellek Miktarı= " & (hafıza.ullTotalVirtual  (1024 * 1024)) & " mb" & vbCrLf
        TextBox1.Text = TextBox1.Text + "Boş Sanal Bellek Miktarı= " & (hafıza.ullAvailVirtual  (1024 * 1024)) & " mb"
    End Sub
End Class

Visual Basic İle İşlemci Yüzdesi Alma

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net

Vb.Net Dersleri


Bu bölümde Visual Basic İle işlemci yüzdesini almayı göreceğiz.



Dim prc As New System.Diagnostics.PerformanceCounter("Processor", "% Processor Time", "_Total")


yuzde = prc.NextValue()

Vb.Net Mouse Koordinatları

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net
Bu konumuzdaVisual Basic ile mouse işlemleri üzerinde kodlama yapacağız.  Vb.Net'de API kullanarak mouse imlecinin yerini tespit ederek değiştirmeyi işleyeceğiz.




Forma 1 tane timer ekleyin

Private Type POINTAPI
        X As Long
        Y As Long
End Type

Declare Function GetCursorPos Lib "user32.dll" (ByVal lpPoint As POINTAPI) As Long
Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long)  As Long

Private Sub Timer1_Tick()
Dim yerler As POINATPI
ykr = GetCursorPos(yerler)
Me.Caption = yerler.X & "," & yerler.Y
End Sub


Mouse Konumlandırma

X = 250
Y = 300
yer = SetCursorPos(X,Y)

Vb.Net Klavye ve Mouse'u Devredışı Bırakmak

By: İbrahim Fırat on Cuma, Haziran 07, 2013 / yorum : 0 ,

vb.net
Vb.Net Dersi Bilgisayarınıza girişleri engellemeye yarayan bir program yapacağız. Klavye ve Mouse devre dışı bırakan programı öğreneceğiz.

Forma eklemeniz gereken araçlar;
1 tane Timer
1 tane Command



kodlama;

Option Explicit 

Private Declare Function BlockInput Lib "user32" (ByVal fBlock _ 
As Long ) As Long 

Const API_FALSE = 0& 
Const API_TRUE = 1& 

Private Sub Command1_Click( ) 
Timer1.Interval = 500 
Timer1.Enabled = True 
Call BlockInput(API_TRUE ) 
End Sub 

Private Sub Timer1_Timer( ) 
Static Cnt As Long 

Cnt = Cnt + 1 
If Cnt > 10 Then 
Cnt = 0 
Timer1.Enabled = False 
Call BlockInput(API_FALSE ) 
Label1.Caption = "" 
Else 
Label1.Caption = "kalan zaman gösteriliyor: " _ 
& Format$(CStr((10 - Cnt ) ) / 2, "0.0" ) 
End If 
End Sub

Vb.Net Çalan Müziği Listelemek

By: İbrahim Fırat on Perşembe, Haziran 06, 2013 / yorum : 0 ,

teknoloji
Visual Basic Dersleri Media Player'da çalan müziği listeye ekleyelim.

Forma şunları ekleyin;

1 tane medi player
1 tane openfiledialog
1 tane button
1 tane combobox

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
        ComboBox1.Items.Add(AxWindowsMediaPlayer1.URL)

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        AxWindowsMediaPlayer1.URL = ComboBox1.Text


    End Sub

Vb.Net - Not Defteri Adı Değiştirmek

By: İbrahim Fırat on Çarşamba, Haziran 05, 2013 / yorum : 0 ,

vb
Bugün basit bir program olan    not defteri adını değiştirmeyi ve  bilgi girmeyi  göstereceğiz.

Forma şunları ekleyin;

2 tane GroupBox

4 tane TextBox

2 tane Button

Textbox1 ile TextBox2'nin  Properties özellikleri bölümünden textaligin özelliğini center yapın.

Public Class Form1
    
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal ipClassName As String, ByVal ipWindowName As String) As Integer
    Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWndParent As Integer, ByVal hWndChildAfter As Integer, ByVal ipszClass As String, ByVal ipszWindow As String) As Integer
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal IParam As String) As Integer

    Private Const WM_SETTEXT As Integer = &HC
    Private hwnd As IntPtr
    Private f As IntPtr


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        hwnd = FindWindow(vbNullString, TextBox1.Text)
        SendMessage(hwnd, WM_SETTEXT, 0, TextBox2.Text)
        TextBox3.Text = TextBox2.Text

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        hwnd = FindWindow(vbNullString, TextBox3.Text)
        f = FindWindowEx(hwnd, 0, "Edit", vbNullString)
        SendMessage(f, WM_SETTEXT, 0, TextBox4.Text)

    End Sub
End Class

Kaydol: Kayıtlar (Atom)
Copyright © 2012 - Bazı konularımızda insanları kötü alışkanlıklardan çaydırmak ve bilgilendirmek için yazılmıştır.