selam arkdaşlar bende bi vb'ciyim sizlerle yaptıgım bir programı paylaşmak istiyorum...
Formumuza öncelikle 2 tane textbox ve bir tanede buton ekliyoruz textboxlara X,Y iismlerini veriyoruz.daha botunun kod bölümüne bunları yazıyoruz ;
Dim i,x,y As Integer
Dİm sonuc As Double
x=Int(textbox1.text)
y=Int(textbox2.text)
Sonuc=1
If y>0 Then
for i= 1 To y
sonuc=sonuc* x
Next
End If
If y=0 Then sonuc=1
If y < 0
y= -y
For i= 1 to y
sonuc=sonuc * x
Next
sonuc=1/sonuc
End If
Msgbox("sonuc=" & Str(sonuc))

Umarım begenirsiniz...

elinize sağlık ben vb bilmiyorum bunun mantğını anlayamadım yazıyla algoritmasını yazar mısınız?

__________________

kusurabakma burak ama bende algoritma konusunu bilmiyorum yardım edemediğimim için üzgünüm

Vb Çok Zevkli ve Kolay Programdır Ya Algoritmayı Bilmeyen Kişi Programda Başarılı Olamaz

estağfurullah ne kusuru

__________________

Dim i,x,y As Integer
Dİm sonuc As Double
x=Int(textbox1.text)
y=Int(textbox2.text)
Sonuc=1
If y>0 Then
for i= 1 To y
sonuc=sonuc* x
Next
End If
If y=0 Then sonuc=1
If y < 0
y= -y
For i= 1 to y
sonuc=sonuc * x
Next
sonuc=1/sonuc
End If
Msgbox("sonuc=" & Str(sonuc))

ben de bunları sadece Türkçeye çevirebiliyorum

ama yazmaya gelince kalıyorum orda..

hmm tamam anladım ne yaptığınızı. daha çok üs almayı bilmeyen bir compiler 'e bir subprogram yazmak gibi bir şey olmuş sizinki.

__________________

eyw kardeş.. İşime yaradı.

__________________
'