Sayının Karesini Küpünü Karekökünü Alma

[pisko_3541]

3 ADET CHECK
2 ADET LABEL
1 ADET COMMAND
1 ADET TEXT


KODLAR:

Private Sub Command1_Click()
Dim s, k
s = Val(Text1)
If Check1.Value = 1 Then k = s * s
If Check2.Value = 1 Then k = s * s * s
If Check3.Value = 1 Then k = Sqr(s)
Label2.Caption = k
End Sub
Saygılarımla...

 

[Speedmans]

Pisko coştun gene bu aralar kodla fena bozdun dikkat et
Dediğim gibi basicle uğraşanların işine fazlasıyla yarar...
Sağol yardımların için.

 

[zrbutk]

bu kodları nereye nasıl yazacağım acaba?
bu konuda yetersizim acaba yardımcı olurmusunuz?_
vb2005 TE WİNDOWS APPLİCATİON DA YAZIYORUM OLMUYOR....
ŞİMDİDEN SAOLUN...

 

[osmanxx]

eywallahhhhhhhhhh bizde kodcu olsak fena olmaz...

 

[etiken]

ya kardeş bu sqr yi yazınca hata veriyo vb de napcaz başka kodu varmı bu karekök almanın??

Acil lazım

 

[onekedisi]

Arkadaşın anlatmaya çalıştığı programı yaptım dostlar.

Böylece ilk Visual Basic programımı da yazmış oluyorum.

Malzemeler: 1 Adet ince kıyılmış Windows Form, 250 Gram TextBox, 3 tatlı kaşığı RadioButton ve son olarak ta 1 Adet haşlanmış Button. Gelelim tarifimize...

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim s, k
        's ve k isimli 2 değişken oluştur'
        s = TextBox1.Text
        'TextBox1'deki değeri s'ye ata'
        If RadioButton1.Checked = True Then k = s * s
        'RadioButton1 işaretliyse k'ya s'nin karesini ata'
        If RadioButton2.Checked = True Then k = s * s * s
        'RadioButton2 işaretliyse k'ya s'nin küpünü ata'
        If RadioButton3.Checked = True Then k = Math.Sqrt(s)
        'RadioButton3 işaretliyse k'ya s'nin karekökünü ata'
        Label1.Text = "Sonuç : " + String.Concat(k)
        'Sonucu Label1'e yaz'

    End Sub

End Class

İlk VB Programı için fena değil ha? :goz:

Proje Klasörü:
http://rapidshare.com/files/175362995/Kare_Kup_ve_KareKok_Almak.rar

:biggrin

NOT: RAR Dosyası içindeki klasörü "Projects" klasörüne çıkaracaksınız.