: hocam yle değil text box içindeki kelimeyi harf harf ayirip her bir harfe değer verip toplayacaksin eğer toplam 20 ise o yazı yazacak :-) Dim kus, kaz Private Sub Command1_Click kus = 0 kaz = 0 karaktersayisi = Len(Text1. Text) karaktersayisi2 = Len(Text2. Text) For i = 1 To karaktersayisi thiskarakter = Mid$(Text1. Text, i, 1) If thiskarakter = "k" Then kus = Val + Val(5) ElseIf thiskarakter = "u" Then kus = Val + Val(2) ElseIf thiskarakter = "ş" Then kus = Val + Val(3) End If Next i For i2 = 1 To karaktersayisi2 thiskarakter2 = Mid$(Text2. Text, i2, 1) If thiskarakter2 = "k" Then kaz = Val + Val(5) ElseIf thiskarakter2 = "a" Then kaz = Val + Val(3) ElseIf thiskarakter2 = "z" Then kaz = Val + Val(2) End If Next i2 Label1. Caption = Val + Val If Val + Val = "20" Then Text3. Text = "kuş kazdır kanatlıdır uçamaz" End If End Sub oldumu :D

aşağıdaki kodları button. click içine atacaksın dim x1 as string = textbox1. text dim x2 as string = textbox2. text dim y as integer y=deger(x1) + deger(x2) label1. text=y bunları da sub ın içinde bir yere yerleştir function harfbul as integer dim z as integer select case deger case "a" z=1 case "b" z=2 case "c" z=3 end case return z end function function deger as integer dim t1, t2, t3 as integer dim d as string for t1 = 0 to text. length-1 d = text(t1) t2 = harfbul t3 = t3+t2 next return t3 end function Kasnak yuvarlandı elek oldu, eski orospular melek oldu...

database kullanabiilirsin. "biz televizyon izleyerek, milyonerler, sinema tanrıları, rock yıldızları olacağımıza inanarak büyüdük ama olamayacağız... hepimiz heba oluyoruz... bütün bir nesil benzin pompalıyor, garsonluk yapıyor ya da beyaz yakalı kle olmuş... reklamlar yüzünden araba ve kıyafet peşindeyiz... nefret ettiğimiz işlerde çalışıyor, gereksiz şeyler alıyoruz..

hocam yle değil text box içindeki kelimeyi harf harf ayirip her bir harfe değer verip toplayacaksin eğer toplam 20 ise o yazı yazacak :-) echo "imzanız zel karakter içermemelidir";

benim hazırladıgım bir proje var 3 adet textbox var ve 1 adet label var label1 e birinci ve ikinci textbox ların içine yazılacak olan harflerin dğerlerinin toplamına gre butona tıklandıgında bir yazı gelmesini iştiyorum rnek k=1u=2ş=3 k=1a=9z=3kuş tex1 kaz text2 toplamları label1 yazılsın sanırım Val kullanılır. değerin toplamına gre labe1=(k=1u=2ş=3 k=1a=9z=3)=20 tetx3 bir yazı gelsin "kuş kazdır kanatlıdır uçamaz" eger labe1 20 ise text3 e "kuş kazdır kanatlıdır uçamaz" yassın mesala nasıl yapabilirmmm ilginiz icin şimdiden teşşekürler with great power comes great irresponsibility #deadpool

hocaa darıldın mıı with great power comes great irresponsibility #deadpool

Doğru anladıysam byle bir şey Private Sub Command1_Click If Text1. Text = "a" Then a = Val(10) End If If Text2. Text = "b" Then b = Val(10) End If Label1. Caption = a + b If Label1. Caption = "20" Then Text3. Text = "kuş kazdır kanatlıdır uçamaz" End If End Sub

hocam coook tsklede ya şimdi ben kus ve kaz sadece rnek olarak yazmıstım mesele su tüm harflere deger vermem lazım şyle A, B, C, Ç, D, E, F, G, Ğ, H, I, İ, J, K, L, M, N, O, , P, R, S, Ş, T, U, Ü, V, Y, Z. tüm harflere değer verilsin mesala kullanıcı text 1 e abc text 2 yede def yazdı label 1 de bunlar toplansın mesala değerleri 20 oldu olan değere gre tetx 3 e yazılsın bu arada ilginiz için çoook tsklerrr with great power comes great irresponsibility #deadpool

hoca darındın mı neyyy banaaa with great power comes great irresponsibility #deadpool

hocam visual basic bilmem ama once aldigin veriyi harflerine ayirip sonra toplatacaksin gerisi basit bir if dongusu visual de bu nasil yapilir bilmiyorum takipteyim echo "imzanız zel karakter içermemelidir";