Butona tıklayınca ProgressBar Dolsun

GEREKENLER

2 TANE BUTTON

TİMER

PROGRESS BAR

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(2)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
        End If
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Process.Start("chrome.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("iexplore.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("browser.exe", "http://www.visualbasicdersleri.com/")
    End Sub
End Class

Devamını Oku

Görev yöneticisini Timer ile Kapatma

Görev yöneticisini Timer ile Kapatma  VB.NET

Kodu direk Code bölümüne yapıştırın.

Public Class Form1
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Int32

    Declare Function sendMessage Lib "USER32" Alias "SendMessageA" ( _
        ByVal hWnd As Int32, ByVal Msg As Int32, _
        ByVal wParam As Int32, ByVal lParam As Int32) As Int32
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim hwnd As Int32
        hwnd = FindWindow("#32770", vbNullString)
        SendMessage(hwnd, &H10, 0, 0)
    End Sub
End Class

Devamını Oku

Ekranı Kilitle

Ekranı Kilitleme Programı

Ekranı kilitleme programı,önce Gözattan .exe rastgele bir dosya seçilir.

daha sonra texte şifre girilir.

şifre girildikten sonra Etkinleştir e basılır.

ekran kilitlenir hiç bir yere girmesine program izin vermez.

görev yöneticisine girmesine bile izin vermemektir.

acmak için ise f12 basıp şifre girmek zorundasınız.

aksi taktirde yeniden başlatırsınız.

Ekranı Kilitleme Programı

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS : www.visualbasicdersleri.com

KAYNAK: http://eraslancemil.blogspot.com.tr/

Devamını Oku

Ekran Çözünürlüğünü değiştirme

Ekran Çözünürlüğünü değiştirme

1366x768 Önerilen Çözünürlük

1024x768 Değiştirilen Çözünürlük

EKLENECEKLER:

2 TEXBOX

1 BUTTON

Imports System.Runtime.InteropServices 'WWW.VİSUALBASİCDERSLERİ.COM
Public Class Form1
    Const ENUM_CURRENT_SETTINGS As Integer = -1
    Const CDS_UPDATEREGISTRY As Integer = &H1
    Const CDS_TEST As Long = &H2

    Const CCDEVICENAME As Integer = 32
    Const CCFORMNAME As Integer = 32

    Const DISP_CHANGE_SUCCESSFUL As Integer = 0
    Const DISP_CHANGE_RESTART As Integer = 1
    Const DISP_CHANGE_FAILED As Integer = -1

    Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Integer
    Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef DEVMODE As DEVMODE, ByVal flags As Integer) As Integer 'WWW.VİSUALBASİCDERSLERİ.COM

    <StructLayout(LayoutKind.Sequential)> Public Structure DEVMODE
        <MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)> Public dmDeviceName As String
        Public dmSpecVersion As Short
        Public dmDriverVersion As Short
        Public dmSize As Short
        Public dmDriverExtra As Short
        Public dmFields As Integer 'WWW.VİSUALBASİCDERSLERİ.COM
        Public dmOrientation As Short
        Public dmPaperSize As Short
        Public dmPaperLength As Short
        Public dmPaperWidth As Short
        Public dmScale As Short
        Public dmCopies As Short
        Public dmDefaultSource As Short
        Public dmPrintQuality As Short
        Public dmColor As Short
        Public dmDuplex As Short
        Public dmYResolution As Short
        Public dmTTOption As Short
        Public dmCollate As Short
        <MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)> Public dmFormName As String 'WWW.VİSUALBASİCDERSLERİ.COM
        Public dmUnusedPadding As Short
        Public dmBitsPerPel As Short
        Public dmPelsWidth As Integer
        Public dmPelsHeight As Integer
        Public dmDisplayFlags As Integer
        Public dmDisplayFrequency As Integer
    End Structure

    Public Sub CozunurlukDegistir(ByVal theWidth As Integer, ByVal theHeight As Integer)

        Dim DevM As DEVMODE

        DevM.dmDeviceName = New [String](New Char(32) {})
        DevM.dmFormName = New [String](New Char(32) {})
        DevM.dmSize = CShort(Marshal.SizeOf(GetType(DEVMODE)))


        If 0 <> EnumDisplaySettings(Nothing, ENUM_CURRENT_SETTINGS, DevM) Then
            Dim lResult As Integer
            'WWW.VİSUALBASİCDERSLERİ.COM
            DevM.dmPelsWidth = theWidth
            DevM.dmPelsHeight = theHeight


            lResult = ChangeDisplaySettings(DevM, CDS_TEST)

            If lResult = DISP_CHANGE_FAILED Then
                MsgBox("Çözünürlük değiştirilemedi..", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Screen Resolution Change Failed")
            Else

                lResult = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

                Select Case lResult
                    Case DISP_CHANGE_RESTART
                        MsgBox("Değişikliklerin uygulanması için bilgisayarınızı yeniden başlatmalısınız.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Tamam") 'WWW.VİSUALBASİCDERSLERİ.COM
                    Case DISP_CHANGE_SUCCESSFUL

                    Case Else
                        MsgBox("Çözünürlük değiştirilemedi.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hata")
                End Select
            End If

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CozunurlukDegistir(TextBox1.Text, TextBox2.Text) 'WWW.VİSUALBASİCDERSLERİ.COM
    End Sub
End Class

Devamını Oku

Resim Çizimi

Resim Çizimi VB.NET

Başlıkta da belirtildiği gibi kodları yerleştirdiğiniz zaman paint gibi programınızın üzerinde çizim yapabilirsiniz.

Public Class Form1
    Dim x1, y1 As Integer

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            x1 = e.X
            y1 = e.Y
        End If
        If e.Button = Windows.Forms.MouseButtons.Right Then
            x1 = e.X
            y1 = e.Y
        End If
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Dim renk As New System.Drawing.Pen(System.Drawing.Color.Red)
            Dim grafik As System.Drawing.Graphics
            grafik = Me.CreateGraphics()
            grafik.DrawLine(renk, e.X, e.Y, x1, y1)
            renk.Dispose()
            grafik.Dispose()
            x1 = e.X
            y1 = e.Y
        ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
            Dim renk As New System.Drawing.Pen(Me.BackColor)
            Dim grafik As System.Drawing.Graphics
            grafik = Me.CreateGraphics()
            grafik.DrawLine(renk, e.X, e.Y, x1, y1)
            renk.Dispose()
            grafik.Dispose()
            x1 = e.X
            y1 = e.Y
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Process.Start("chrome.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("iexplore.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("browser.exe", "http://www.visualbasicdersleri.com/")
    End Sub
End Class

Devamını Oku

Seçilen Dosyayı TextBox'ta Okutmak

Seçilen Dosyayı TextBox'ta Okutmak

EKLENECEKLER:

OpenFileDialog

1 textbox(multiline)

1 button

bu kodu buttonun code bölümüne yazın.

kullanıcı button1 re bastığı zaman OpenfileDialog açılacaktır.

oradan dosyayı seçtikten sonra textbox onu okuyacaktır.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click'http://www.visualbasicdersleri.com/
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
    End Sub

Devamını Oku

Mouseyi takip eden Mesaj Yapımı

Mouseyi takip eden Mesaj Yapımı

Bu kod kullanıcı programınızı açtığınızda mousesiyle beraber bir mesaj yayını geçmektedir.

kullanıcı mouseyi nereye sürüklerse sürüklesin mesajınız gitmeyecektir.(programı kapatmazsa)

Mouseyi takip eden Mesaj Yapımı

Public Class Form1
        Dim MouseYazi As MouseForm

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 'www.visualbasicdersleri.com
        MouseYazi.running = False
        End
    End Sub
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MouseYazi = New MouseForm("Visual Basic Dersleri" & vbNewLine & "Visual Basic Dersleri,Visual Studio 2010,VB.NET" & vbNewLine & vbNewLine & "www.visualbasicdersleri.com", Color.Black, Color.Lime)
            MouseYazi.running = True
        End Sub
    End Class
    Class MouseForm
        Inherits Windows.Forms.Form
        Public running As Boolean

        Sub New(ByVal Txt As String, ByVal BackColor As Color, ByVal ForeColor As Color)
            running = True
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
            Me.TopMost = True
        Dim L As New Label With {.Text = Txt, .AutoSize = True, .Font = New Font("Segoe UI", 15)}
            Me.Controls.Add(L)
        Me.BackColor = BackColor 'www.visualbasicdersleri.com
            Me.ForeColor = ForeColor
            Me.Show()
            Me.Size = L.Size
            Me.ShowInTaskbar = False
        End Sub

        Private Sub MouseForm_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
            While running
                Me.Location = New Point(MousePosition.X + 10, MousePosition.Y + 20)
                Application.DoEvents()
            End While
            Me.Dispose()
        End Sub
    Private Sub Form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.load 'www.visualbasicdersleri.com
        Process.Start("chrome.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("iexplore.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("browser.exe", "http://www.visualbasicdersleri.com/")
    End Sub
End Class

Devamını Oku

Şans İşi Programı

Şans İşi Programı

bu program biraz sallamasyon gibi oldu neyse 

programda 5 tane form bulunmaktadır.

Form1 den diğer formlara yönlenmektedir.

EKLENECEKLER:

8 button

5 label

42 tane textbox

Şans İşi Programı form1 görüntüsü

görselde de göründüğü gibi ister loto ister süper lotoya giriş buttona tıkladığı zaman random sayılar çıkıcaktır.

Şanş İşi Programı

KODLARI İNDİRMEK İÇİN TIKLA

RAR PASS : visualbasicdersleri.com

Devamını Oku

Site Engellemek

vb.nette siteyi engellemek

kodda host üzerinden yazdığınız siteyi engellemektedir.

Eklenecekler:

1 label

1 Textbox

1 Button

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Dizin As String = "C:\Windows\System32\drivers\etc\hosts"
        Dim yazici As New StreamWriter(Dizin, True)
        Dim Adres As String = TextBox1.Text'textbox daki siteyi engeller.
        Dim SiteEngelle As String = vbLf & "127.0.0.1 " & Adres
        yazici.Write(SiteEngelle)'www.visualbasicdersleri.com
        yazici.Close()
        MessageBox.Show("Siteyi engelledin")
    End Sub
End Class

Devamını Oku

Bir Websitenin IP Adresini Bulmak

VB.NETTE Bir Websitenin IP Adresini Bulmak

Eklenecekler:

2  textbox

2 Label

1 Button

Textbox2 yani IP gelecek yerin Properties den ReadOnly True yapın yazı yazılmasını engellemek için.

Imports System.Net
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Adres As String = TextBox1.Text 'visualbasicdersleri.com
        Dim Tespit As IPHostEntry = Dns.GetHostByName(Adres)
        Dim IPAdresi As IPAddress() = Tespit.AddressList
        TextBox2.Text = IPAdresi(0).ToString
    End Sub
End Class

Bir Websitenin IP Adresini Bulmak

Devamını Oku

Formu yakıp Söndürme

Formu yakıp Söndürme

Bu vereceğim kodda form1 sürekli gidip gidip gelmektedir.

yani visible özelligi false daha sonra true olmaktadır bu döngü devamlı döner.

Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Visible = True Then
            Me.Visible = False
        Else
            Me.Visible = True
        End If
    End Sub
End Class

Devamını Oku

Hangi Programlama Dilini Öğrenmeliyiz?

Hangi Programlama Dilini Öğrenmeliyiz? 

Bu soruya, ne olmak istediğinize karar vererek cevap vermeniz daha doğru olur. 

Çünkü bilgi ve öğrenmek güzeldir, ama insanın kısa ömründe her şeyi öğrenmesi mümkün değildir,  özellikle daha sonra kullanmayacağı bir şeyi, sadece “herkes öğreniyor”, “çok işe yarıyormuş” diyerek öğrenmesi tamamen zaman kaybıdır. 

Bilgisayar programlama, bilgisayar ile ilgili yapılacak işlerin en zor olanlarından birisidir. Bu iş hazır bir programı (Word, Excel vbg. hazır bir programı) kullanmaya benzemez, onun yerine “bilgisayara derdinizi” anlatma işlemidir ki, bir anlamda “bilgisayara problemi öğretmek, onu o işi yapabilir hale getirmek” demektir. 

Yani karşınızda elektrik ile çalışan ve her şeyi yerli yerinde noksansız isteyen makineye Gültekin Çağıl, Bilgisayar Programlama ders notları, Sakarya Üniv. Endüstri Mühendisliği/Hafta 1/Sayfa 5 (bilgisayara) bir şey öğretmek demektir, bu makinenin herhangi bir esnekliği yoktur, virgül koymanız gereken yerde bunu unuttuğunuzda orada onu düzelmenizi bekleyen ve bir adım daha ileriye gitmeyen bir makine ile muhatap olduğunuzu bilmeniz gerekir.

 Dolayısıyla kişi, zeki bile olsa, programlamaya karşı merakı ve kabiliyeti yoksa bilgisayar programcısı olamaz.

 Bilgisayar programcılığı kendi başına bir meslektir, aynı zamanda özellikle mühendislerin kendi mesleklerini yürütebilmeleri için bilmelerinde faydası olacak bir artı özelliktir. 

Peki her mühendis mutlaka herhangi bir programlama dilini bilmelimidir?. 

Buna şu şekilde cevap verebiliriz, mühendis olarak iki tür yerde çalışabilirsiniz; Her şeyin yerli yerinde olduğu, herkesin yetki ve sorumluluklarının belli, kurumsal bir işletmede (örneğin Toyota, Vestel vbg) çalışabilir veya her işi herkesin yaptığı, yetki ve sorumluluk karmaşasının olduğu ve ülkemiz sanayisinin büyük çoğunluğunun içinde bulunduğu bir işletmede. 

Çalışanların ne ile sorumlu olduğunun belli olduğu birinci tür işletmelerde, çok büyük bir ihtimalle “Bilgi İşlem Departmaları da” vardır. Dolayısıyla istediğiniz bir programı mühendis olarak (gerekirse) sistem analistliğini yaparak Bilgi İşlem Departmanından istersiniz. 

Onlarda gerekirse söz konusu programı yazarak veya piyasadan satın alarak problemi giderirler.

 Bu şekildeki çalışan bir mühendisin genel anlamda (genel mantığı ile, dil ayrımı olmadan, o veya şu programlama dili demeden) programcılığı bilmesi bu tür işlerini görebilmesi açısından yeterlidir. Belki bazı küçük çaplı programları yazabilmesi için temel anlamda bir programlama dilini bilmesi iyi olacaktır. 

Visual Basic yukarıda anlatmaya çalıştığımız mühendisin (çalışanın) işini fazlası ile görecektir. 

Visual Basic daha önce de bahsedildiği gibi “genel amaçlı programlama” dillerinden birisidir, 

yani bu dil ile programcılık anlamında her şeyi bilgisayara programlayabilirsiniz. 

Öğrenmesi diğer dillere göre (özellikle C diline göre) çok daha kolaydır, ama (yine C diline göre) biraz yavaş çalışmaktadır. Herkesin her işi yapabildiği bir işletmede çalışıyorsanız, her şeyi bilmeniz patronun gözünden düşmemeniz açısından iyi olacaktır, 

aynı zamanda programcılıktan da anlamanız, gerekirse yazdırılması (veya satın alınması) gereken programın sizin tarafınızdan yazılabilmesi demektir ki, işte böyle durumlarda en az bir tane programlama dilini iyi derecede (program yazabilecek derecede) bilmeniz sizin açınızdan iyi olacaktır. 

 Bilgisayar mühendisliği dışındaki mühendislerden özellikle Endüstri mühendisleri, kendi alanları dışında bilgisayar programcılığı da yapabilmektedirler. 

Bu şekilde çalışmayı düşünenlerin özellikle C dilini bilmelerinin ortaya koyacakları ürünün daha kolay ve hızlı çalışması açısından avantajlı olduğunu, C# gibi şu anda popular olan bir dili iyi derecede bilmenin de işlerini kolaylaştıracağını unutmamaları gerekir. 

 Bu konuda son olarak en temel anlamda Visual Basic ile C dilini kıyaslamak gerekirse şunu söyleyebiliriz; Visual Basic öğrenmesi C diline göre daha kolaydır, C dili ile daha fazla ayrıntılara inilebilir, öğrenmesi çok daha zordur, 

Visual Basic diline göre, makine diline daha yakın olduğu için daha hızlı çalışır. Yapılan bir araştırma mühendislerin iş ortamında en çok Gültekin Çağıl, Bilgisayar Programlama ders notları, Sakarya Üniv. Endüstri Mühendisliği/Hafta 1/Sayfa 6 Excel programını kullandıklarını göstermiştir. 

Visual Basic, Excel programının makro programlama dilidir, yani Visual Basic bilerek hem kendi başına bir programlama dilini öğrenmiş hem de Excel ortamında program yazarak Excel’i daha fonksiyonel kullanmış olursunuz.

Devamını Oku

Güvenlik kodu ile giriş

Güvenlik kodu ile programa giriş yapmak

Bu yayında güvenlik kodu(captcha)yla programa girişi konu aldık.

Programdaki güvenlik kodu "+" "-" şeklindedir.

Örnek:

7-4 = 3 sonuç

3+6=9 sonuç

PROGRAMA EKLENECEKLER

1 label

2 button

1 textbox

1 picturebox

1 form2

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS : www.visualbasicdersleri.com

Devamını Oku

DDOS Attack Programi

DDOS Attack Programi

Bu yayında DDOS Attack programının yapımını işledik.

bende baska vb.net sitelerinden buldum.

emin değilim çalıştığına.

neyse programda yazdığınız siteye/ip ye ping yolluyor.

Gerekenler;

1 Webbrowser(ScripterrorsSuppressed true yapmayı unutmayın yoksa hata alırsınız.

1 button

2 label

1 timer

DDOS attack visual basic VB.NET

PROJEYİ-KODLARI İNDİRMEK İÇİN TIKLA

RAR PASS : visualbasicdersleri.com

Devamını Oku

Otomatik Tıklatma yapımı

bu yayında Otomatik tıklatmayı programını yaptık.

Otomatik Tıklatma Programın işlevi;

Programda 3 tane button 1 tane textbox 1 tane de timer bulunmaktadır.

BAŞLA butonuna tıkladığınız zaman mouseyi nereye götürürseniz oraya sürekli tıklamaktadır.

biz text ile denedik,TEST butonuna her tıkladığında textboxdaki sayı değeri yükselmektedir.

isteyen olursa tıklama hızını timer interval den ayarlar.

Otomatik tiklatma vb.net

YAPAMAYANLAR İÇİN VİDEO 

PROJE KODLARINI İNDİR

RAR PASS: visualbasicdersleri.com

Devamını Oku

Kronometre Yapımı

Basit bir kronometre yaptık.

Eklenecekler:

3 textbox

3 label

4  button

1 groupbox

Kronometre yapımı VB.NET

Görseldeki gibi de yapabilirsiniz.

tasarım size kalmış.

PROJEYİ İNDİR
RAR PASS: visualbasicdersleri.com

Public Class Form1
    Dim saniye, dakika, saat As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 'visualbasicdersleri.com
        saniye = saniye + 1
        If saniye = 60 Then
            dakika = dakika + 1
            saniye = 0
        End If
        If dakika = 60 Then
            saat = saat + 1
            dakika = 0
        End If
        If saat = 24 Then saat = 0

        TextBox1.Text = saniye
        TextBox2.Text = dakika
        TextBox3.Text = saat
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = 0 'visualbasicdersleri.com
        TextBox2.Text = 0
        TextBox3.Text = 0
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        saat = TextBox3.Text
        dakika = TextBox2.Text
        saniye = TextBox1.Text
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = 0
        TextBox2.Text = 0
        TextBox3.Text = 0
    End Sub 'visualbasicdersleri.com
End Class

Devamını Oku

Sayısal loto programı

Bu yayında sayısal loto programını yaptık.

Programın İşlevi:

Belirle butonuna basıldığı zaman 6 tane label den rastgele sayılar oluşturmaktadır.

Forma eklenecekler:

6 tane label

1 tane button

Sayısal loto yapımı vb.net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sayilar(5) As Integer 'Sayısal lotoda 6 sayı üretildiği için 6 elemanlı dizi oluşturuldu.
        Dim rsayi, sayac As Integer
        sayac = 0 'visualbasicdersleri.com
        While sayac < 6
            rsayi = Int(Rnd() * 49 + 1) '1 ile 49 arasında rastgele sayı üretiliyor
            If (Array.IndexOf(sayilar, rsayi) = -1) Then
                sayilar(sayac) = rsayi
                sayac = sayac + 1
            End If
        End While
        Array.Sort(sayilar)
        Label1.Text = sayilar(0)
        Label2.Text = sayilar(1)
        Label3.Text = sayilar(2)
        Label4.Text = sayilar(3)
        Label5.Text = sayilar(4)
        Label6.Text = sayilar(5)
    End Sub
End Class

Devamını Oku

Basit hesap Makinesi yapımı

bu yanında basit bir hesap makinesi yaptık

Forma eklenecekler olanlar

4 tane buton

2 tane textbox

Basit Hesap Makinesi vb.net

PROJE KODLARINI İNDİRMEK İÇİN TIKLA

RAR PASS:www.visualbasicdersleri.com

Public Class Form1
    Dim s2 As Integer
    Dim s1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'visualbasicdersleri.com
        s1 = TextBox1.Text
        s2 = TextBox2.Text
        MsgBox("toplama işleminin sonucu " & s1 + s2)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        s1 = TextBox1.Text
        s2 = TextBox2.Text
        MsgBox("çıkarma işleminin sonucu " & s1 - s2)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        s1 = TextBox1.Text
        s2 = TextBox2.Text
        MsgBox("bölme işleminin sonucu " & s1 / s2)
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        s1 = TextBox1.Text 'visualbasicdersleri.com
        s2 = TextBox2.Text
        MsgBox("çarpma işleminin sonucu " & s1 * s2)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Hoş Geldiniz.VisualBasicdersleri.com")
    End Sub
End Class

Devamını Oku

Tekrar Çalıştırma chexboxlu

Daha önceki yayınımızda direk açılmamasını engelliyordu.

bu sefer de chexboxlu yapıldı.

kullanan kişi chexboxa basarsa program ikinci kez açılmayacak.

Bu programı tekrar çalıştır chexbox

Tekrar çalıştırma vb.net
Program alıntıdır

Arşivde saklamakta fayda var yapamayan olursa yorum atması yeterli.

Public Class Form1
    Private CalisanVarMi As System.Threading.Mutex 'visualbasicdersleri.com
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.CheckBox1.Checked = GetSetting(Application.StartupPath, Application.ProductName, "BirKezCalistir", False)
        If CheckBox1.Checked = False Then
            'Iki kez çalıştırmayı önlemek için kontrol kodları...
            CalisanVarMi = New System.Threading.Mutex(False, "MyApplicationName")
            If CalisanVarMi.WaitOne(0, False) = False Then
                CalisanVarMi.Close() 'visualbasicdersleri.com
                CalisanVarMi = Nothing
                MessageBox.Show(" Başka bir örneği zaten çalışıyor!")
                End
            End If
        End If

    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged 'visualbasicdersleri.com
        If CheckBox1.Checked = False Then
            CheckBox1.Text = "Program Tekrar çalıştırılmasın"
        Else
            CheckBox1.Text = "Program Birden fazla çalıştırılsın"
            Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        End If
        'visualbasicdersleri.com
        SaveSetting(Application.StartupPath, Application.ProductName, "BirKezCalistir", Me.CheckBox1.Checked) 'visualbasicdersleri.com
    End Sub
End Class

Devamını Oku

Captcha Çizmek

Captcha Çizmek

Bu yayında Captcha Çizmeyi konu aldık.

Captchanın kullanıldığı yerler;

bot engellemeyi amaçlar.

Art arda mesaj ve ya konu açmak isteyen kullanıcıyı kontrol amacıyla kullanılmaktadır.

Program Captcha yenile butonuna basıldığı zaman sürekli değiştirir.

kontrol butonuna basıldığı zaman doğru girildiyse msgbox doğru girilmiştir yazar.

isteyen bundan esinlenerek form1 kısmına bunu koyabilir.

doğru girilirse form2 ye yönlendirir.

Formumuza eklenecekler

2 tane button
1 tane Picturebox
1 tane de label

Programdan görüntü

Program çalışır durumdadır.

kendini geliştirmek isteyenler deniyebilir.

Kolay gele.

PROJE KODLARINI İNDİRMEK İÇİN TIKLA

RAR PASS : visualbasicdersleri.com

kaynak kodornekleri.org

Devamını Oku