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

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

E-Mail Doğrula ve Gönder

E-Mail Doğrula ve Gönder VB.NET

Erdoğan Aslan'ın yaptığı bir çok güzel bir uygulamadan bahsedeceğim.

Uygulamanın amacı başlıktan da belli olduğu üzere Emailinizi Doğrulama yapar

Göndermek istediğiniz mail varsa ek ekleyebilerekte gönderebilirsiniz.

Programın bir güzel yani ise tek gmail sağlayıcısı yok.

gmail dahil 5 E-Posta sağlayıcısı ile e-mail gönderebiliyorsunuz.

Programın kullanımından bahsedecek olursak,

İlk E-posta sağlayıcısı seçilir gönderenin sağlayıcı adresi ve şifresi yazılır

Mail Doğrulama butonuna basılır.

E-mail gönderecek ise bilgileri doldurur gönderim yapar.

E-Mail Doğrula ve Gönder VB.NET

PROJEYİ(KODLARI) İNDİRMEK İÇİN TIKLA

RAR PASS : visualbasicdersleri.com

Devamını Oku

TEKRARLANMAYAN Rastgele Sayı Üretmek

 TEKRARLANMAYAN Rastgele Sayı Üretmek

İstediğimiz kadar sayıyı ListBox ' a ekliyoruz.Button ' a tıkladığımız zaman ListBox daki sayılardan birini TextBox a yazdırıyor ve TextBox ' a yazdırdığı sayıyı ListBox'dan siliyor.Böylece Her seferinde farklı sayılar yazdırıyor.Kodlara geçelim: 

İlk önce formumuza bir adet Button , TextBox ve ListBox ekliyoruz.Button 'un adı "Button1" , TextBox 'ın adı "TextBox1" , ListBox ' ın adı "ListBox1" ve Formumuzun adı "Form1" olsun. 

ListBox1.Visible = False 'ListBox 'zımızı gizliyoruz. 
TextBox1.ReadOnly = True 'TextBox 'zımıza değer girilmesini engelliyoruz. 
For sayilar As Integer = 0 To 10 'ListBox 'zımıza 1 'den 10'na kadar sayı ekliyoruz. 
ListBox1.Items.Add(sayilar) 
Next 

Dim sayi As Integer 
Randomize()
sayi = Int(Rnd(1) * (ListBox1.Items.Count - 1)) 'Rastgele sayı üretiyoruz. 
ListBox1.SelectedIndex = sayi 'Üretilen sayının ListBox'da seçilmesini sağlıyoruz. 
TextBox1.Text = ListBox1.Items.Item(sayi) 'Seçilen İtemin TextBox1' de gösterilmesini sağlıyoruz. 
ListBox1.Items.Remove(ListBox1.SelectedItem) 'Seçilen İtemin silinmesini sağlıyoruz. 

Devamını Oku

TÜM Dosya İşlemleri

Bu derste VB.Net'te nasıl dosya işlemleri yapacağımızı öğreneceğiz.Başlayalım: 

Dosya Taşıma: 

Source Code

1. My.Computer.FileSystem.MoveFile("C:\eski_klasor\dosya.txt", "C:\yeni_klasor\dosya.txt")

Klasör Taşıma: 

Source Code

1. My.Computer.FileSystem.MoveDirectory("C:\eski_klasor", "C:\yeni_klasor")

 

Dosya Yaratma: 

Source Code

1. My.Computer.FileSystem.WriteAllText("C:\Test.txt", String.Empty, False)

 

Klasör Yaratma: 

Source Code

1. My.Computer.FileSystem.CreateDirectory("C:\Yeni_klasor")

Dosya Kopyalama: 

Source Code

1. My.Computer.FileSystem.CopyFile("C:\kaynak.txt", "C:\yeni_klasor\hedef.txt")

Klasör Kopyalama: 

Source Code

1. My.Computer.FileSystem.CopyDirectory("C:\kaynak_klasor", "D:\yeni_klasor")

Sorgulu Dosya Silme: 

Source Code

1. My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Sorgulu Klasör Silme: 

Source Code

1. My.Computer.FileSystem.DeleteDirectory("C:\Test", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Sorgusuz Dosya Silme: 

Source Code

1. My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

 

Sorgusuz Klasör Silme: 

Source Code

1. My.Computer.FileSystem.DeleteDirectory("C:\Test", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

 

Belirtilen Dosya Var mı?: 

Source Code

1. Dim dvarmi As Boolean = My.Computer.FileSystem.FileExists("C:\Test.txt")If dvarmi = True Then
2. MsgBox("Dosya Var")
3. Else
4. MsgBox("Dosya Yok")
5. End If

 

Belirtilen Klasör Var mı?: 

Source Code

1. Dim kvarmi As Boolean = My.Computer.FileSystem.DirectoryExists("C:\hedef_klasor")If kvarmi = True Then
2. MsgBox("Dosya Var")
3. Else
4. MsgBox("Dosya Yok")
5. End If

Belirtilen Dosyanın Boyutu Kaç?: 

Source Code

1. Dim dboyutu As Long = My.Computer.FileSystem.GetFileInfo("C:\dosya.txt").Length

Belirtilen Diskin Boş Boyutunu Ne?: 

Source Code

1. Dim bosalan As Long = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace

Belirtilen Dosyadan Metin Okuma: 

Source Code

1. Dim dicerigi As String = My.Computer.FileSystem.ReadAllText("C:\Test.txt")

Dosyayı Yeniden Adlandırma: 

Source Code

1. My.Computer.FileSystem.RenameFile("C:\eski.txt", "yeni.txt")

Klasörü Yeniden Adlandırma: 

Source Code

1. My.Computer.FileSystem.RenameDirectory("C:\eski_klasor", "yeni_klasor")

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

Durmadan Hareket eden Picturebox

Durmadan Hareket eden Picturebox

Picturebox sürekli yer değiştirmektedir.

yer değişikliklerini ayarlamak için pictureboxun location kısımlarının 

başlayacagı yerin kordinatını yazıp diğer timere ise biteceği yerin kordinatını yazdığınız zaman

program durmadan pictureboxun belirlediğiniz kordinatlarda hareket etmektedir.

EKLENECEKLER:

2 TİMER

1 PİCTUREBOX

Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox1.Location = New Point(Val(12), Val(124))
        Timer1.Stop()
        Timer2.Start()
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        PictureBox1.Location = New Point(Val(11), Val(24))
        Timer2.Stop()
        Timer1.Start()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 100
        Timer2.Interval = 100
        Timer1.Start()
        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