Ping Programi

PİNG GÖNDERİCİ

IP yerine istediğiniz web site ve ya ıp yi yazın.

Ms(MiliSaniye) yerine 10000 yazabilirsiniz.

Başlata tıklayın program ping göndermeye başlasın.

GEREKENLER

2 TEXT BOX
2 LABEL
2 BUTTON

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = TextBox2.Text
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Shell("Ping (TextBox1.Text")
        MsgBox("Gönderiliyor")
    End Sub
End Class

Devamını Oku

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

Örnek Uygulama Kodları

Örnek uygulama kodları

Public Class Form1
    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        mciExecute("Set CDAudio door Open")
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        mciExecute("Set CDAudio door closed")
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Beep()
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Call Shell("notepad.exe", 1)
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Call Shell("calc.exe", 1)
    End Sub
End Class

Devamını Oku

Bul Ve Renklendir

Bul Ve Renklendir

Programdaki amaç Ara,Bul,Vurgula arayacağınız kelimeyi yazıyorsunuz.

program kelimeyi buluyor ve hangi renk seçerseniz vurguluyor.

Bul Ve Renklendir

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS : www.visualbasicdersleri.com

Devamını Oku

Programınız Başlangıçta Çalıştırmak

Programınız Başlangıçta Çalıştırmak VB.NET

Başlıktan da anlaşılacağı gibi bilgisayar açıldığı zaman

sizin de yaptığınız program açılsın isterseniz kodları programınıza

eklemeniz yeterlidir.

Public Class Form1
    Public Shared Sub AddStartup(ByVal Name As String, ByVal Path As String)
        Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
        Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        AddStartup(Me.Text, Application.ExecutablePath)
    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

Duvar Kağıdı Ekle

Duvar Kağıdı Ekle Programı VB.NET 

Programın adından da anlaşılacağı üzerine duvar kağıdı ekleme

programıdır.kendinizi geliştirebilecek bir proje.

Duvar Kağıdı Ekle Programı VB.NET 

PROJEYİ İNDİRMEK İÇİN TIKLA

 RAR PASS :www.visualbasicdersleri.com

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

Devamını Oku

Alarm Programı

Alarm Programı Yapımı

 Programın amacı isminden de belli olduğu üzere bir Alarm programıdır.

Bu Alarm programında Analog saat kullanılmıştır.

İsterseniz belirlediğiniz saatte dosya da çalıştırabilir.

Alarmın çalacağı sesi de seçebilmektesiniz.

Alarm çalıştığı zaman size uyarı mesajı vermesini ister iseniz 

Uyarı mesajlarını yaz kısmından düzenleyebilirsiniz.

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS : www.visualbasicdersleri.com

Alarm Programı Yapımı

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

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

Reklam Pencereli Program

Reklam Pencereli Program

Programınıza 2 tane Form koyun. Form1 re Picturebox ekleyin.

pictureboxun FormBorderStyle sini None yapın.

daha sonra kodu kendinize göre ayarlayın.

Kullanıcı Sizin reklamınıza bastıktan sonra form2 ye yönlenecektir.

EKLENECEKLER:

2 FORM

1 PİCTUREBOX

Public Class Form1
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Form2.Show()
        Dim process As New System.Diagnostics.Process
        process.StartInfo.FileName = "www.visualbasicdersleri.com"
        process.StartInfo.Verb = "Open"
        process.StartInfo.WindowStyle = ProcessWindowStyle.Normal
        process.Start()
    End Sub
End Class

Devamını Oku

Klasör gizleme Gösterme

Klasör gizleme Gösterme

Programa 2 tane button koyuyorsunuz. 

1 buttonu GİZLE 2.buttonu ise GÖSTER yapıyorsunuz.

FolderBrowserDialog ekliyorsunuz. daha sonra kodları yapıştırıyorsunuz.

debug  yaptıktan sonra GİZLE den klasörü seçiyorsunuz.

TAMAM bastığınızda klasörü gizler.

tekrar açmak istediğinizde GÖSTER den klasörü seçin ve görünür hale

gelecektir kolay gele.

Public Class Form1 'http://www.visualbasicdersleri.com/
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'http://www.visualbasicdersleri.com/
        Dim DznGizle As String
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 'http://www.visualbasicdersleri.com/
            'Gizlenecek Klasörü Seç
            DznGizle = FolderBrowserDialog1.SelectedPath.TrimEnd

            Dim Gizle As New System.IO.DirectoryInfo(DznGizle)
            'Seçilen Klasör özelliği hidden yapılarak Gizlenecek
            Gizle.Attributes = IO.FileAttributes.Hidden
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim DizinGoster As String
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            'Gösterilecek Gizli  Klasörü Seç
            DizinGoster = FolderBrowserDialog1.SelectedPath.TrimEnd

            Dim Goster As New System.IO.DirectoryInfo(DizinGoster) 'http://www.visualbasicdersleri.com/
            'Seçilen Klasör özelliği Normel yapılarak Gösterilir duruma getirilecek
            Goster.Attributes = IO.FileAttributes.Normal
        End If
    End Sub
End Class

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

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