Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
13/10/2012 16:31
Konu Sahibi
accessman
Yorumlar
2
Okunma
1823
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

accessman

Aktif Üye
99
 Belirtilmemiş
 561
 2.367
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
iyi günler
iki metnin harf harf karşılaştırıldığı bir kod yazılabilir mi
teşekkürler


@benbendedeilem

Kur@l

Uzman
266
 43
 59
 2.034
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 01/05/2019,23:41
Çözüldü 
Aşağıdaki gibi bir kod işinizi görecektir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim metin1, metin2 as string
dim i as integer
if len (metin1) <> len (metin2) then 
msgbox "metin boyutları eşit değil"
exit sub
else
for i = 0 to len metin1
	if mid (metin1,i,1)=(metin2,i,1) then
	msgbox "Metinlerinizin " & i &. Harfi Eşit"
	else
	msgbox "Metinlerinizin " & i &. Harfi Eşit Değil"
	end if
next
end if


komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.

accessman

Aktif Üye
99
 Belirtilmemiş
 561
 2.367
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
şöyle değiştirdim

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Komut4_Click()
Dim metin1, metin2, farkli1, farkli2   As String
Dim i As Integer
metin1 = Metin0
metin2 = Metin
farkli1 = ""
farkli2 = ""
If Len(metin1) <> Len(metin2) Then
MsgBox "metin boyutları eşit değil"
Exit Sub
Else
For i = 1 To Len(metin1)
    If Mid(metin1, i, 1) = Mid(metin2, i, 1) Then
    'MsgBox "Metinlerinizin " & i & "Harfi Eşit"
    Else
    farkli1 = farkli1 + Mid(metin1, i, 1)
    farkli2 = farkli2 + Mid(metin2, i, 1)
    'MsgBox "Metinlerinizin " & i & " Harfi Eşit Değil"
    End If
Next
End If
MsgBox farkli1 & " - " & farkli2
End Sub


@benbendedeilem


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü metin tipinde ayarlanmış sürelerle işlemsel yücel üzülmez 13 317 02/05/2019, 00:10
Son Yorum: haliliyas
Çözüldü İlişkisiz Form Da Listenin Filtrelenen Alanını İlişkisiz Metin Kutusu İle Update ask200075 4 98 29/04/2019, 11:27
Son Yorum: ask200075
Çözüldü Metin Kutusuna Girilen Veriye Göre Veri Çağırma fascioğlu 9 557 14/03/2019, 14:50
Son Yorum: programmer67
Çözüldü Metin Kutusu Dikey Ortalama irfanxdemir 20 7.437 19/02/2019, 13:25
Son Yorum: dioxi
Çözüldü Metin Kutusuna Sayı Ve Rakamdan Oluşan Değer Aktarma akdemir1 2 169 03/02/2019, 22:11
Son Yorum: akdemir1

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.