VBNET

VB.Net Örnek Uygulamalar
2 Kasım 2011
Uygulama No: 11 – E-Posta Adresi Oluşturma
Açıklama : Butona basıldığında kişinin adının ilk harfi ile soyadı birleştiriliyor,
ComboBox’dan seçilen üniversiteye göre e-posta adresi otomatik olarak
oluşturuluyor.
Ekran Görüntüsü
Public Class Form1
Açıklamalı Kodlar
Dim eposta, alan As String
Dim k As Byte
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
k = Strings.InStr(Cmb_universite.Text, " ") 'Üniversite adındaki
ilk boşluğun konumu.
alan = Strings.Mid(Cmb_universite.Text, 1, k - 1)
eposta = Strings.LCase(Strings.Left(Txt_ad.Text, 1) & "." &
Txt_soyad.Text & "@" & alan & ".edu.tr")
'Aşağıda, metin içersinden Türkçe harfler dönüştürülüyor.
'Örneğin çetin => cetin gibi.
eposta = Strings.Replace(eposta, "ş", "s", 1)
eposta = Strings.Replace(eposta, "ğ", "g", 1)
eposta = Strings.Replace(eposta, "ö", "o", 1)
eposta = Strings.Replace(eposta, "ü", "u", 1)
eposta = Strings.Replace(eposta, "ç", "c", 1)
eposta = Strings.Replace(eposta, "ı", "i", 1)
Txt_eposta.Text = eposta
End Sub
End Class
Tolga GÜYER Sayfa 20