arkadaşlar Kelime Oyunu Yaptım Ama Hata Veriyor
Mesela Ahmet Yazınca Ahmetin Son harfindeki T ile Tarık k ile kerem Gibi olması lazım aynı isimden ahmet ismini bi daa yazınca ahmet adlı bi isim yazdınız die uyarı vermesini istiyorum ama olmuyor
Dim a, b, c, d, x, y As Integer
Dim k, l, m, n(100) As String
a = 0
b = 0
Do Until b > 6
n(a) = InputBox("ismi giriniz")
For c = 0 To a
If n(a) = n(c) Then
b = 6
End If
Next c
If a > 0 Then
d = a - 1
k = a - 1
k = n(a)
l = n(d)
x = l.Length
l = l.Chars(x - 2)
k = k.Chars(0)
If k = l Then
b = 6
End If
End If
a = a + 1
Loop
MsgBox("oyun bitti")
Kod Bu çalışması için Ne gibi Değişikler Yapmam Gerek Yardımcı olurmusunuz şimdiden Tşekkür Ederim
Mesela Ahmet Yazınca Ahmetin Son harfindeki T ile Tarık k ile kerem Gibi olması lazım aynı isimden ahmet ismini bi daa yazınca ahmet adlı bi isim yazdınız die uyarı vermesini istiyorum ama olmuyor
Dim a, b, c, d, x, y As Integer
Dim k, l, m, n(100) As String
a = 0
b = 0
Do Until b > 6
n(a) = InputBox("ismi giriniz")
For c = 0 To a
If n(a) = n(c) Then
b = 6
End If
Next c
If a > 0 Then
d = a - 1
k = a - 1
k = n(a)
l = n(d)
x = l.Length
l = l.Chars(x - 2)
k = k.Chars(0)
If k = l Then
b = 6
End If
End If
a = a + 1
Loop
MsgBox("oyun bitti")
Kod Bu çalışması için Ne gibi Değişikler Yapmam Gerek Yardımcı olurmusunuz şimdiden Tşekkür Ederim