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