SMF Hacks
|
||
| Public Function BüyükÜnlüUyumu(ByVal sözcük As String) As Boolean 'Büyük Ünlü Uyumunun Yapılışı Dim KalınÜ(3), İnce(3) As String, x(1), y As Integer, kelime As String, karakter(1) As String Dim ince_b, kalın_b As Boolean kelime = sözcük.ToString 'Kontrol edilecek sözcük belirleniyor... KalınÜ(0) = "a" '''''''''''''''''''''''''''''''''''''''' KalınÜ(1) = "ı" ' ' KalınÜ(2) = "u" ' ' KalınÜ(3) = "o" ' Kalın ünlüler tanıtılıyor... ' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''' İnce(0) = "e" '''''''''''''''''''''''''''''''''''''''' İnce(1) = "i" ' ' İnce(2) = "ü" ' ' İnce(3) = "ö" ' İnce ünlüler tanıtılıyor.... ' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''' x(1) = kelime.Length For x(0) = 0 To 3 For y = 1 To x(1) karakter(0) = Mid(kelime, y, 1) karakter(1) = Mid(kelime, y, 1) If LCase(karakter(0)) = LCase(KalınÜ(x(0))) Then kalın_b = True If LCase(karakter(1)) = LCase(İnce(x(0))) Then ince_b = True If kalın_b = True And ince_b = True Then BüyükÜnlüUyumu = False Else BüyükÜnlüUyumu = True End If Next y Next x(0) 'Writing by BEJO© 2003-2004' End Function ================================================== ======== '''Bunu bir Tuşa Eklemek Private Sub Başlat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Başlat.Click If BüyükÜnlüUyumu("BEJO") = True Then MsgBox("Büyük ünlü uyumuna Uyuyor") Else MsgBox("Büyük ünlü uyumuna Uymuyor") End If End Sub |
||