Bir String içindeki kelimeyi nasıl bulabilirim?
Private Sub Button39_Click(sender As System.Object, e As System.EventArgs) Handles Button39.Click
Dim yazi As String = "klakson123"
'burda dikkat etmeniz gereken husus Substring olarak tanımlanan yerde _ ' 7= 7.karakteri, 9= 7.karakterden sonraki 9 karakteri ifade eder.
Dim goster = yazi.Substring(7, 9)
MsgBox("istenilen yazı: " & goster)
'not: bunu bir değişkene tanımlayarak textBox içindeki kontrolüde sorgulatabilirsiniz.
End Sub
Bir kelime içindeki, yada TextBox içindeki değerleri nasıl parça parça gösterebilirim?
Private Sub Button40_Click(sender As System.Object, e As System.EventArgs) Handles Button40.Click
Dim kelime As String = "klakson123"
Dim toplamKelime As Integer
Dim kelimeDizisi() As String
'hangi karaktere kadar parçalama işlemi yapacağını tanımlıyoruz. 'text içinde eğer - , *, ..., . gibi ayırmada tercihen yaptırılabilir.
kelimeDizisi = kelime.Split(" ")
' 0 dan toplam kelime kadar tara
For toplamKelime = 0 To kelime.Length - 1
MsgBox(kelimeDizisi(toplamKelime)) Next
End Sub
Bir String ifadenin, TextBox içeriğinin hangi cümle ile bittiğini nasıl kontrol edebilirim?
Private Sub Button41_Click(sender As System.Object, e As System.EventArgs) Handles Button41.Click
Dim kelime As String = "klakson123"
'Cümle sonunu kontrol et
If kelime.EndsWith("MERKEZİ") = True Then
MsgBox("Cümle istediğiniz kelime ile bitmektedir")
Else MsgBox("Cümle sonu istek dışındadır...")
End If
'örneği dışarıdan kullanıcının gireceği bir şekilde değiştirsek
'Dim kelimeAl As String = TextBox27.Text
'Dim kelime As String = "klakson123"
'If kelime.EndsWith(kelimeAl) = True Then
' MsgBox("Cümle istediğiniz kelime ile bitmektedir") 'Else
' MsgBox("Cümle sonu istek dışındadır...")
'End If
'End Sub
İki TextBox içeriğini nasıl birleştirebilirim, yada iki string ifadeyi bir araya nasıl getirebilirim? Örneğin Ad ve Soyad alanları gibi..?
Private Sub Button42_Click(sender As System.Object, e As System.EventArgs) Handles Button42.Click
'bu tarz string birleştirmelerini çok farklı tekniklerle de gösterebilirsiniz.
'örnek olarak birkaç teknik göstermek isterim.
Dim kelime1 As String = "klakson"
Dim kelime2 As String = "123"
'teknik 1
MsgBox(String.Concat(kelime1, kelime2))
'teknik 2 MsgBox(kelime1 + kelime2) 'teknik 3 MsgBox(kelime1 & kelime2)
'concat methodu string işlemlerde en çok kullandığımız tekniktir.
'Ad ve Soyad uygulamasını aynı yönerge ile gerçekleştirebilirsiniz..
End Sub
Vb.Net ile Bilgisayarımın adını nasıl öğrenebilirim?
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
Dim m = My.Computer.Name
MsgBox("Bilgisayar Adı: " & m)
End Sub
Vb.Net ile İşletim Sistemini nasıl öğrenebilirim?
Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
Dim c = My.Computer.Inf
SFullName
MsgBox(c)
End Sub
Vb.Net ile Bilgisayarda belirttiğim dizinde istediğim dosya varmı/yokmu nasıl öğrenebilirim? Var ise taşınmasını nasıl sağlayabilirim?
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim dosyaVarmi1 = My.Computer.FileSystem.FileExists("C:\testaktrarim \1\evrak1.txt")
If dosyaVarmi1 = True Then
MsgBox("Dosya Bulundu.")
If MessageBox.Show("Taşınsınmı?...", "Onay", MessageBoxButtons.YesNo,
MessageBoxIcon.Hand, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then My.Computer.FileSystem.CopyFile("C:\testaktrarim\1 \evrak1.txt", "C:\testaktrarim\2\evrak1.txt", True) MsgBox("Taşıma işlemi başarılı") End If Else MsgBox("Dosya Bulunamadı.")
End If
End Sub
Bilgisayarın CAPS LOCK tuşu açıkmı kapalımı nasıl programatik olarak tespit edebilirim?
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Dim x = My.Computer.Keyboard.CapsLock
If x = True Then MsgBox("açık")
Else MsgBox("kapalı")
End If
End Sub
Vb.Net ile belirttiğim dizinde dosya var ise nasıl programatik olarak sildirebilirim?
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Try My.Computer.FileSystem.DeleteFile("C:\klakson_test aktrarim\2\evrak1.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.ThrowException)
MsgBox("dosya silindi")
Catch ex As Exception MsgBox("dosya bulunmadı")
End Try
End Sub
Vb.Net ile İnternet varmı yokmu nasıl kontrol ettirebilirim?
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Try 'Google IP numaralarına ping at Dim internet = My.Computer.Network.Ping("208.67.222.222")
If internet = True Then MsgBox("internet var")
Else MsgBox("internet yok")
End If
Catch ex As Exception MsgBox("internet yok" & Chr(13) & "...")
End Try
End Sub
Form üzerindeki CheckBox ların seçilip seçilmediğini vb.net ile nasıl öğrenebiliriz?
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'CheckBox kontrollerinin seçilip seçilmediği çok tekniklerle yapılabilir.
'Burada basit bir örnek ile açıklamak gerekirse,
Dim kontrol As String = ""
If CheckBox1.Checked = True Then
kontrol = "seçildi"
End If
'If kontrol.Length > 0 Then
'MsgBox("CheckBox seçilmiş")
'Else MsgBox("CheckBox seçilmemiş")
'End If
End Sub
Mouse ile buton üzerine gidince resim nasıl değiştirebilirim? Ayrıca buton üzerinden ayrılındığında başka bir resim nasıl göstertebilirim?
Private Sub Button44_MouseHover(sender As Object, e As System.EventArgs) Handles Button44.MouseHover
'mouse ile butonun üzerine gelince;
Button44.Image = Image.FromFile("C:\Users\asg\Pictures\Google Talk\Monkey 2.bmp") Button44.ImageAlign = ContentAlignment.MiddleCenter
Button44.TextAlign = ContentAlignment.BottomCenter
End Sub
Private Sub Button44_MouseLeave(sender As Object, e As System.EventArgs) Handles Button44.MouseLeave
'mouse buton üzerinden ayrılınca;
Button44.Image = Image.FromFile("C:\Users\asg\Pictures\Google Talk\Monkey 1.bmp") Button44.ImageAlign = ContentAlignment.MiddleCenter
Button44.TextAlign = ContentAlignment.BottomCenter
End Sub
Vb.net ile kullanıcıya formun background rengini nasıl değiştirmesini sağlatabilirim?
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim frmZeminRengi As New ColorDialog frmZeminRengi.ShowDialog()
'zemin rengini seçilene göre ata
Me.BackColor = frmZeminRengi.Color
End Sub
Vb.Net ile kullanıcının seçtiği dosya yolunu nasıl öğrenebilirim?
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
'seçilecek dosya için gözat
Dim dosyaGozat As New OpenFileDialog
dosyaGozat.ShowDialog()
If dosyaGozat.ShowDialog = Windows.Forms.DialogResult.OK Then
'seçilen dosya yolunu string olarak ata
Dim dosyaYolu As String = dosyaGozat.FileName
MsgBox("Seçilen dosya yolu: " & dosyaYolu)
End If
End Sub
TextBox içinde kullanıcı ENTER tuşuna bastığında Buton'a focuslanmasını nasıl sağlatabilirim?
Private Sub TextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
'Windows Forms uygulamalarında sıklıkla kullanacağınız Enter kontrolü.
'Eğer form üzerinde kullanıcı Entera basarsa, yada buton üzerindeylen kullanıcı Entera basarsa.. gibi yordamları kontrol edebilirsiniz.
'Bunu farklı tekniklerle yapmak mümkündür.
'Burada bir örnek vererek açıklamak isterim.
'Dikkat: KeyDown olay yordamındayız..
If e.KeyCode = Keys.Enter Then
MsgBox("ENTER tuşuna bastınız..")
End If
'Burada programatik olarak kullanıcının ENTER'a bastığında bir butona focuslanmasını sağlatabilirdik. 'Örnek;
If e.KeyCode = Keys.Enter Then
'Seçilen nesneyi Button1'e al.
Button1.Focus()
End If
End Sub
Program yazarken oluşabilecek hatalardan dolayı programımın kırılmasını istemiyorum. Bu nedenle hata oluşursa kullanıcıyı bilgilendirebileceğim yada bunu yakalayabileceğim bir teknik varmıdır?
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Hata yakalama kontrölü olarak tüm programcıların başvurduğu bir tekniktir.
Try
'yapılması istenilen kodlamalar
Catch ex As Exception
'oluşan hataları yakalama ve kullanıcının bilgilendirilmesini sağlama.
End Try
End Sub
Vb.Net ile Rasgele sayı nasıl tutturabilirim?
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Dim rasgeleSayi As New Random
' 1 ile 100 arasında rasgele bir sayı tut
Dim sayi As Integer = rasgeleSayi.Next(1, 100)
MsgBox("Tutulan Sayı: " & sayi)
End Sub
Vb.Net ile bir şartı nasıl kontrol edebilirim.?
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
'if kullanımına bir örnek vermek gerekirse..
Dim sayiAl = InputBox("Bir Sayı giriniz", "Sayı Girişi", "1-10 arasında sayı giriniz...")
'eğer sayı 5 ise kullanıcıyı tebrik et
If sayiAl = 5 Then MsgBox("Girdiğiniz sayı 5, Tebrik Ederiz.")
End If
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
'Başka bir if ve ElseIf kontrölü..
Dim yasiniz As Integer = InputBox("Yaş aralığınızı giriniz. [1-100 arası]", "Yaş Hesapla") If yasiniz >= 1 And yasiniz <= 18 Then
MsgBox("Genç")
ElseIf yasiniz >= 19 And yasiniz <= 60 Then
MsgBox("Yetişkin")
ElseIf yasiniz >= 61 And yasiniz <= 100 Then
MsgBox("Yaşlı")
Else
MsgBox("Yaş gurubu dışında bir değer girildi.")
End If
End Sub
Vb.Net ile Select Case kullanımına bir örnek verebilirmisiniz? Örnek olarak kullanıcının yaptığı girişleri kontrol ederek form üzerinde 2.forma geçiş ve formu kapatma işlemini nasıl yaptırabilirim?
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
'Select Case şartlı ifade kullanımı
'if kullanımına benzerlik göstermektedir.
'modüler olması ve kullanım kolaylığı açısından programcıların tercihen kullandığı bir tekniktir.
'örnek olarak;
Dim yazi As String = TextBox1.Text
'sorgunun şart sağlandığı sürece devam etmesi sağlanıyor
Select Case yazi
Case "klakson"
MsgBox("Giriş işleminiz başarılı. Form 2 ye yönlendiriliyorsunuz..")
Form2.Show()
Case "ÇIKIŞ"
MsgBox("Form Kapatılacaktır...")
Me.Close()
Case Else
'case ile belirtilen ifadeler haricindeki tüm girişler kontrol edilerek, buraya odaklanması sağlanıyor.
MsgBox("Komut tanımlanamadı")
End Select
End Sub
Bir text alanında yazılı web sitesine ait web sitesi adresinin IP numarasını nasıl öğrenebilirim?
Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
'Imports System.Net eklenmiştir
Dim ipAlani As String = TextBox2.Text
Dim ipAdresi As IPHostEntry = Dns.GetHostByName(ipAlani)
Dim goster As IPAddress() = ipAdresi.AddressList
TextBox3.Text = goster(0).ToString
End Sub
Vb.Net içinde Form içinde Form gösterimi nasıl yapılır? Gelişmiş programlarda gördüğümüz Ana Forma bağlı alt formları nasıl tanımlayarak oluşturabiliriz?
Private Sub Button45_Click_1(sender As System.Object, e As System.EventArgs) Handles Button45.Click
'form2 üzerinden yeniForm oluştur
Dim yeniForm As New Form2
'Mdi formu, ana formumuza bağla.
yeniForm.MdiParent = Me
'bağlanan formu göster
yeniForm.Show()
End Sub
Bir yazı içinde yer alan kelimeleri nasıl parçalayabilirim. Örneğin her boşlukta ayırarak bunları bir mesaj olarak bana göstersin. Bunu nasıl yapabilirim?
Public Class Form1
' string değerlerini "SPLIT" kullanarak parçala
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim deger As String = "by joe hackal "
' string degerini boşluk boşluk parçala
Dim ayrac() As String = deger.Split(" ")
' döngüye string degerini al ve parca parca göster
For goster = 0 To UBound(ayrac)
MsgBox(ayrac(goster))
Next goster
End Sub
Private Sub Button39_Click(sender As System.Object, e As System.EventArgs) Handles Button39.Click
Dim yazi As String = "klakson123"
'burda dikkat etmeniz gereken husus Substring olarak tanımlanan yerde _ ' 7= 7.karakteri, 9= 7.karakterden sonraki 9 karakteri ifade eder.
Dim goster = yazi.Substring(7, 9)
MsgBox("istenilen yazı: " & goster)
'not: bunu bir değişkene tanımlayarak textBox içindeki kontrolüde sorgulatabilirsiniz.
End Sub
Bir kelime içindeki, yada TextBox içindeki değerleri nasıl parça parça gösterebilirim?
Private Sub Button40_Click(sender As System.Object, e As System.EventArgs) Handles Button40.Click
Dim kelime As String = "klakson123"
Dim toplamKelime As Integer
Dim kelimeDizisi() As String
'hangi karaktere kadar parçalama işlemi yapacağını tanımlıyoruz. 'text içinde eğer - , *, ..., . gibi ayırmada tercihen yaptırılabilir.
kelimeDizisi = kelime.Split(" ")
' 0 dan toplam kelime kadar tara
For toplamKelime = 0 To kelime.Length - 1
MsgBox(kelimeDizisi(toplamKelime)) Next
End Sub
Bir String ifadenin, TextBox içeriğinin hangi cümle ile bittiğini nasıl kontrol edebilirim?
Private Sub Button41_Click(sender As System.Object, e As System.EventArgs) Handles Button41.Click
Dim kelime As String = "klakson123"
'Cümle sonunu kontrol et
If kelime.EndsWith("MERKEZİ") = True Then
MsgBox("Cümle istediğiniz kelime ile bitmektedir")
Else MsgBox("Cümle sonu istek dışındadır...")
End If
'örneği dışarıdan kullanıcının gireceği bir şekilde değiştirsek
'Dim kelimeAl As String = TextBox27.Text
'Dim kelime As String = "klakson123"
'If kelime.EndsWith(kelimeAl) = True Then
' MsgBox("Cümle istediğiniz kelime ile bitmektedir") 'Else
' MsgBox("Cümle sonu istek dışındadır...")
'End If
'End Sub
İki TextBox içeriğini nasıl birleştirebilirim, yada iki string ifadeyi bir araya nasıl getirebilirim? Örneğin Ad ve Soyad alanları gibi..?
Private Sub Button42_Click(sender As System.Object, e As System.EventArgs) Handles Button42.Click
'bu tarz string birleştirmelerini çok farklı tekniklerle de gösterebilirsiniz.
'örnek olarak birkaç teknik göstermek isterim.
Dim kelime1 As String = "klakson"
Dim kelime2 As String = "123"
'teknik 1
MsgBox(String.Concat(kelime1, kelime2))
'teknik 2 MsgBox(kelime1 + kelime2) 'teknik 3 MsgBox(kelime1 & kelime2)
'concat methodu string işlemlerde en çok kullandığımız tekniktir.
'Ad ve Soyad uygulamasını aynı yönerge ile gerçekleştirebilirsiniz..
End Sub
Vb.Net ile Bilgisayarımın adını nasıl öğrenebilirim?
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
Dim m = My.Computer.Name
MsgBox("Bilgisayar Adı: " & m)
End Sub
Vb.Net ile İşletim Sistemini nasıl öğrenebilirim?
Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
Dim c = My.Computer.Inf
SFullName MsgBox(c)
End Sub
Vb.Net ile Bilgisayarda belirttiğim dizinde istediğim dosya varmı/yokmu nasıl öğrenebilirim? Var ise taşınmasını nasıl sağlayabilirim?
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim dosyaVarmi1 = My.Computer.FileSystem.FileExists("C:\testaktrarim \1\evrak1.txt")
If dosyaVarmi1 = True Then
MsgBox("Dosya Bulundu.")
If MessageBox.Show("Taşınsınmı?...", "Onay", MessageBoxButtons.YesNo,
MessageBoxIcon.Hand, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then My.Computer.FileSystem.CopyFile("C:\testaktrarim\1 \evrak1.txt", "C:\testaktrarim\2\evrak1.txt", True) MsgBox("Taşıma işlemi başarılı") End If Else MsgBox("Dosya Bulunamadı.")
End If
End Sub
Bilgisayarın CAPS LOCK tuşu açıkmı kapalımı nasıl programatik olarak tespit edebilirim?
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Dim x = My.Computer.Keyboard.CapsLock
If x = True Then MsgBox("açık")
Else MsgBox("kapalı")
End If
End Sub
Vb.Net ile belirttiğim dizinde dosya var ise nasıl programatik olarak sildirebilirim?
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Try My.Computer.FileSystem.DeleteFile("C:\klakson_test aktrarim\2\evrak1.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.ThrowException)
MsgBox("dosya silindi")
Catch ex As Exception MsgBox("dosya bulunmadı")
End Try
End Sub
Vb.Net ile İnternet varmı yokmu nasıl kontrol ettirebilirim?
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Try 'Google IP numaralarına ping at Dim internet = My.Computer.Network.Ping("208.67.222.222")
If internet = True Then MsgBox("internet var")
Else MsgBox("internet yok")
End If
Catch ex As Exception MsgBox("internet yok" & Chr(13) & "...")
End Try
End Sub
Form üzerindeki CheckBox ların seçilip seçilmediğini vb.net ile nasıl öğrenebiliriz?
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'CheckBox kontrollerinin seçilip seçilmediği çok tekniklerle yapılabilir.
'Burada basit bir örnek ile açıklamak gerekirse,
Dim kontrol As String = ""
If CheckBox1.Checked = True Then
kontrol = "seçildi"
End If
'If kontrol.Length > 0 Then
'MsgBox("CheckBox seçilmiş")
'Else MsgBox("CheckBox seçilmemiş")
'End If
End Sub
Mouse ile buton üzerine gidince resim nasıl değiştirebilirim? Ayrıca buton üzerinden ayrılındığında başka bir resim nasıl göstertebilirim?
Private Sub Button44_MouseHover(sender As Object, e As System.EventArgs) Handles Button44.MouseHover
'mouse ile butonun üzerine gelince;
Button44.Image = Image.FromFile("C:\Users\asg\Pictures\Google Talk\Monkey 2.bmp") Button44.ImageAlign = ContentAlignment.MiddleCenter
Button44.TextAlign = ContentAlignment.BottomCenter
End Sub
Private Sub Button44_MouseLeave(sender As Object, e As System.EventArgs) Handles Button44.MouseLeave
'mouse buton üzerinden ayrılınca;
Button44.Image = Image.FromFile("C:\Users\asg\Pictures\Google Talk\Monkey 1.bmp") Button44.ImageAlign = ContentAlignment.MiddleCenter
Button44.TextAlign = ContentAlignment.BottomCenter
End Sub
Vb.net ile kullanıcıya formun background rengini nasıl değiştirmesini sağlatabilirim?
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim frmZeminRengi As New ColorDialog frmZeminRengi.ShowDialog()
'zemin rengini seçilene göre ata
Me.BackColor = frmZeminRengi.Color
End Sub
Vb.Net ile kullanıcının seçtiği dosya yolunu nasıl öğrenebilirim?
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
'seçilecek dosya için gözat
Dim dosyaGozat As New OpenFileDialog
dosyaGozat.ShowDialog()
If dosyaGozat.ShowDialog = Windows.Forms.DialogResult.OK Then
'seçilen dosya yolunu string olarak ata
Dim dosyaYolu As String = dosyaGozat.FileName
MsgBox("Seçilen dosya yolu: " & dosyaYolu)
End If
End Sub
TextBox içinde kullanıcı ENTER tuşuna bastığında Buton'a focuslanmasını nasıl sağlatabilirim?
Private Sub TextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
'Windows Forms uygulamalarında sıklıkla kullanacağınız Enter kontrolü.
'Eğer form üzerinde kullanıcı Entera basarsa, yada buton üzerindeylen kullanıcı Entera basarsa.. gibi yordamları kontrol edebilirsiniz.
'Bunu farklı tekniklerle yapmak mümkündür.
'Burada bir örnek vererek açıklamak isterim.
'Dikkat: KeyDown olay yordamındayız..
If e.KeyCode = Keys.Enter Then
MsgBox("ENTER tuşuna bastınız..")
End If
'Burada programatik olarak kullanıcının ENTER'a bastığında bir butona focuslanmasını sağlatabilirdik. 'Örnek;
If e.KeyCode = Keys.Enter Then
'Seçilen nesneyi Button1'e al.
Button1.Focus()
End If
End Sub
Program yazarken oluşabilecek hatalardan dolayı programımın kırılmasını istemiyorum. Bu nedenle hata oluşursa kullanıcıyı bilgilendirebileceğim yada bunu yakalayabileceğim bir teknik varmıdır?
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Hata yakalama kontrölü olarak tüm programcıların başvurduğu bir tekniktir.
Try
'yapılması istenilen kodlamalar
Catch ex As Exception
'oluşan hataları yakalama ve kullanıcının bilgilendirilmesini sağlama.
End Try
End Sub
Vb.Net ile Rasgele sayı nasıl tutturabilirim?
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Dim rasgeleSayi As New Random
' 1 ile 100 arasında rasgele bir sayı tut
Dim sayi As Integer = rasgeleSayi.Next(1, 100)
MsgBox("Tutulan Sayı: " & sayi)
End Sub
Vb.Net ile bir şartı nasıl kontrol edebilirim.?
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
'if kullanımına bir örnek vermek gerekirse..
Dim sayiAl = InputBox("Bir Sayı giriniz", "Sayı Girişi", "1-10 arasında sayı giriniz...")
'eğer sayı 5 ise kullanıcıyı tebrik et
If sayiAl = 5 Then MsgBox("Girdiğiniz sayı 5, Tebrik Ederiz.")
End If
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
'Başka bir if ve ElseIf kontrölü..
Dim yasiniz As Integer = InputBox("Yaş aralığınızı giriniz. [1-100 arası]", "Yaş Hesapla") If yasiniz >= 1 And yasiniz <= 18 Then
MsgBox("Genç")
ElseIf yasiniz >= 19 And yasiniz <= 60 Then
MsgBox("Yetişkin")
ElseIf yasiniz >= 61 And yasiniz <= 100 Then
MsgBox("Yaşlı")
Else
MsgBox("Yaş gurubu dışında bir değer girildi.")
End If
End Sub
Vb.Net ile Select Case kullanımına bir örnek verebilirmisiniz? Örnek olarak kullanıcının yaptığı girişleri kontrol ederek form üzerinde 2.forma geçiş ve formu kapatma işlemini nasıl yaptırabilirim?
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
'Select Case şartlı ifade kullanımı
'if kullanımına benzerlik göstermektedir.
'modüler olması ve kullanım kolaylığı açısından programcıların tercihen kullandığı bir tekniktir.
'örnek olarak;
Dim yazi As String = TextBox1.Text
'sorgunun şart sağlandığı sürece devam etmesi sağlanıyor
Select Case yazi
Case "klakson"
MsgBox("Giriş işleminiz başarılı. Form 2 ye yönlendiriliyorsunuz..")
Form2.Show()
Case "ÇIKIŞ"
MsgBox("Form Kapatılacaktır...")
Me.Close()
Case Else
'case ile belirtilen ifadeler haricindeki tüm girişler kontrol edilerek, buraya odaklanması sağlanıyor.
MsgBox("Komut tanımlanamadı")
End Select
End Sub
Bir text alanında yazılı web sitesine ait web sitesi adresinin IP numarasını nasıl öğrenebilirim?
Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
'Imports System.Net eklenmiştir
Dim ipAlani As String = TextBox2.Text
Dim ipAdresi As IPHostEntry = Dns.GetHostByName(ipAlani)
Dim goster As IPAddress() = ipAdresi.AddressList
TextBox3.Text = goster(0).ToString
End Sub
Vb.Net içinde Form içinde Form gösterimi nasıl yapılır? Gelişmiş programlarda gördüğümüz Ana Forma bağlı alt formları nasıl tanımlayarak oluşturabiliriz?
Private Sub Button45_Click_1(sender As System.Object, e As System.EventArgs) Handles Button45.Click
'form2 üzerinden yeniForm oluştur
Dim yeniForm As New Form2
'Mdi formu, ana formumuza bağla.
yeniForm.MdiParent = Me
'bağlanan formu göster
yeniForm.Show()
End Sub
Bir yazı içinde yer alan kelimeleri nasıl parçalayabilirim. Örneğin her boşlukta ayırarak bunları bir mesaj olarak bana göstersin. Bunu nasıl yapabilirim?
Public Class Form1
' string değerlerini "SPLIT" kullanarak parçala
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim deger As String = "by joe hackal "
' string degerini boşluk boşluk parçala
Dim ayrac() As String = deger.Split(" ")
' döngüye string degerini al ve parca parca göster
For goster = 0 To UBound(ayrac)
MsgBox(ayrac(goster))
Next goster
End Sub
