Teknoloji Haberleri
Aşağı Git
Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Delphi / C++ /Vb
Vb'de UCASE'de Türkçe karakter sorunu(....ACİLLL....)
Bu konudaki kullanıcılar: 1 misafir
4
Cevap 1507
Tıklama 0
Öne Çıkarma
Cevap 1507
Tıklama 0
Öne Çıkarma
1. sayfa
-
Vb'de UCASE'de Türkçe karakter sorunu(....ACİLLL....)
|
Bu Sitede bir adet Delphi ya da Visual Kullanmayı bilen adam warsa bende ne olayım.... Danıştığım 100 sorudan 10 tanesine mantıklı cevap gelmemiştir...   |
Bu mesaja 1 cevap geldi.
|
Kardeşim öncelikle birazcık alındım söylediklerine... Eğer foruma bakarsan insanlara elimden geldiğince yardım ettiğimi göreceksin... Neyse, biraz acelem var o yüzden fazla özenemedim ama bu işini görecektir : (öncelikle form una 2 tane textbox ve 1 tane button koy.) Private Sub Command1_Click() Text2 = UCaseByGANSH(Text1) End Sub Function UCaseByGANSH(buyutulecek_metin As String) As String Dim Buyuk_Harf As String For i = 1 To Len(buyutulecek_metin) Buyuk_Harf = Mid(buyutulecek_metin, i, 1) If Asc(Buyuk_Harf) > 91 Then If Buyuk_Harf = "i" Then Buyuk_Harf = "İ" ElseIf Buyuk_Harf = "ı" Then Buyuk_Harf = "I" Else If Asc(Buyuk_Harf) > 198 And Asc(Buyuk_Harf) < 223 Then Buyuk_Harf = Buyuk_Harf Else Buyuk_Harf = Chr(Asc(Buyuk_Harf) - 32) End If End If End If UCaseByGANSH = UCaseByGANSH & Buyuk_Harf Next i End Function |
Bu mesaja 1 cevap geldi.
Kardeşim, "ben de ne olayım" demişsin ya... işte biraz kibar ol da "İlgin, zahmetin ve Emeğin için çok Teşekkürler" de...  |
Bu mesaja 1 cevap geldi.
1. sayfa
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
Bilen bir arkadaş warsa yardımcı olursa sevinirim....