Japonca İsim Karşılığınz

Tahribat.com Forumları
line

Visual Basic - Basic - PicBasic ve Türevleri
line

Japonca İsim Karşılığınz

10/Tem/08 18:06

Kısayol

Şikayet

Özel Mesaj

DE5TROY3R

Kayıt Tarihi: 04/Nisan/2007


isminizin japonca karşlığı için :)
text1 : isminizdir
text2 : sonuç
command1 : çevir
------
Private Sub Command1_Click()
Text2.Text = ""
boyut = Len(Text1.Text)

For i = 1 To boyut
deger = Mid(Text1.Text, i, 1)

If deger = "a" Then
deger = "ka"
ElseIf deger = "b" Then
deger = "tu"
ElseIf deger = "c" Then
deger = "mi"
ElseIf deger = "d" Then
deger = "te"
ElseIf deger = "e" Then
deger = "ku"
ElseIf deger = "f" Then
deger = "lu"
ElseIf deger = "g" Then
deger = "ji"
ElseIf deger = "h" Then
deger = "ri"
ElseIf deger = "ı" Then
deger = "ki"
ElseIf deger = "j" Then
deger = "zu"
ElseIf deger = "k" Then
deger = "me"
ElseIf deger = "l" Then
deger = "ta"
ElseIf deger = "m" Then
deger = "rin"
ElseIf deger = "n" Then
deger = "to"
ElseIf deger = "o" Then
deger = "mo"
ElseIf deger = "p" Then
deger = "no"
ElseIf deger = "q" Then
deger = "ke"
ElseIf deger = "r" Then
deger = "shi"
ElseIf deger = "s" Then
deger = "ari"
ElseIf deger = "t" Then
deger = "chi"
ElseIf deger = "u" Then
deger = "do"
ElseIf deger = "v" Then
deger = "ru"
ElseIf deger = "w" Then
deger = "mei"
ElseIf deger = "x" Then
deger = "na"
ElseIf deger = "y" Then
deger = "fu"
ElseIf deger = "z" Then
deger = "zi"
ElseIf deger = "A" Then
deger = "Ka"
ElseIf deger = "B" Then
deger = "Tu"
ElseIf deger = "C" Then
deger = "Mi"
ElseIf deger = "D" Then
deger = "Te"
ElseIf deger = "E" Then
deger = "Ku"
ElseIf deger = "F" Then
deger = "Lu"
ElseIf deger = "G" Then
deger = "Ji"
ElseIf deger = "H" Then
deger = "Ri"
ElseIf deger = "I" Then
deger = "Ki"
ElseIf deger = "J" Then
deger = "Zu"
ElseIf deger = "K" Then
deger = "Me"
ElseIf deger = "L" Then
deger = "Ta"
ElseIf deger = "M" Then
deger = "Rin"
ElseIf deger = "N" Then
deger = "To"
ElseIf deger = "O" Then
deger = "Mo"
ElseIf deger = "P" Then
deger = "No"
ElseIf deger = "Q" Then
deger = "Ke"
ElseIf deger = "R" Then
deger = "Shi"
ElseIf deger = "S" Then
deger = "Ari"
ElseIf deger = "T" Then
deger = "Chi"
ElseIf deger = "U" Then
deger = "Do"
ElseIf deger = "V" Then
deger = "Ru"
ElseIf deger = "W" Then
deger = "Mei"
ElseIf deger = "X" Then
deger = "Na"
ElseIf deger = "Y" Then
deger = "Fu"
ElseIf deger = "Z" Then
deger = "Zi"

End If
Text2.Text = Text2.Text & deger

Next


End Sub

Alıntı yap

10/Tem/08 18:07 Kısayol Şikayet Özel Mesaj

blue_leader

Kayıt Tarihi: 15/Ekim/2007

millet türkçesini zor anlıyor sen japonyaya kadar götürdün .) ama yinede saol

SInıfı Geçme Derdinde İnş. Geçer AMİN !!!

Alıntı yap
10/Tem/08 18:07 Kısayol Şikayet Özel Mesaj

ilower

Kayıt Tarihi: 10/Temmuz/2008

bu nee yaaa :)))

saolsın tsk ler

ismiim anlami

Ka
Ri
Rin
Ku
Chi

Akıllı yatırımcı gerçekçidir. Kötümserlerden alır, iyimserlere satar.

Alıntı yap
10/Tem/08 18:08 Kısayol Şikayet Özel Mesaj

AmoR

Kayıt Tarihi: 14/Nisan/2007

Vardı buna benzer bişi. Teşekkürler yinede.

Those who speak know nothing,And find out to their cost, Like those who curse their luck in too many places, And those who fear are lost...

Alıntı yap
10/Tem/08 18:09 Kısayol Şikayet Özel Mesaj

31 yaşında emekli
ajan1111

Kayıt Tarihi: 25/Ağustos/2005

nakamura bunları ezbere biliyordur :D

Kayalardan kayarım yoktur benim ayarım (;

Alıntı yap
10/Tem/08 18:15 Kısayol Şikayet Özel Mesaj

Böcüklerin Efendisi
krypt

Kayıt Tarihi: 05/Mart/2004

Paylaşım için teşekkürler ama düzmece la bu japonca karşılığı falan değil.

while (1<2)

Alıntı yap
10/Tem/08 18:39 Kısayol Şikayet Özel Mesaj

puskullu

Kayıt Tarihi: 01/Haziran/2008

bu konuyu nerden aldığını biliyom:P:D

Suskunluğum asaletimdir her lafa verecek bir cevabım var.Ama bir lafa bakarım,lafmı diye.Birde söyleyene adammı diye....

Alıntı yap
10/Tem/08 18:55 Kısayol Şikayet Özel Mesaj

angels_demos

Kayıt Tarihi: 03/Haziran/2006

Olm kafadeym şunu biriniz exe yapıp atn =)

Alıntı yap
10/Tem/08 19:05 Kısayol Şikayet Özel Mesaj

Fikret

Kayıt Tarihi: 01/Ekim/2007

angels_demos bunu yazdı:
-----------------------------

Olm kafadeym şunu biriniz exe yapıp atn =)

-----------------------------

http://www.dosya.cc/Japonca_sminiz.rar.html

screw you guys! i"m goin" hoooome!

Alıntı yap
10/Tem/08 19:08 Kısayol Şikayet Özel Mesaj

nazmanya

Kayıt Tarihi: 22/Ağustos/2005

angels_demos bunu yazdı:
-----------------------------

Olm kafadeym şunu biriniz exe yapıp atn =)

-----------------------------
http://rapidshare.com/files/128665503/isim.exe.html

http://www.speedtest.net/result/926625321.png

Alıntı yap
10/Tem/08 19:10 Kısayol Şikayet Özel Mesaj

Fikret

Kayıt Tarihi: 01/Ekim/2007

nazmanya bunu yazdı:
-----------------------------

angels_demos bunu yazdı:
-----------------------------

Olm kafadeym şunu biriniz exe yapıp atn =)

-----------------------------
http://rapidshare.com/files/128665503/isim.exe.html

-----------------------------

eheh pi$ti olduk :D

screw you guys! i"m goin" hoooome!

Alıntı yap

Toplam Hit: 6773 Toplam Mesaj: 25

Cevapla