Hoşgeldin Sivil

 
  Tema

VB.Net
Forum Yöneticisi : AssassinFS | Bu Bölümde Yetkili Tüm Yöneticiler? | Konuyu Okuyanlar?
CW Forum Ana Sayfa
        VB.Net
Facebook'ta Paylaş   Yeni konu aç
Matematik İşlemleri Küp Kara Kare Kök alm
Oy Ver   
Gönderilme Tarihi: 01 Nisan 2010 saat 7:16PM - Kayıtlı IP Mesaj İhbar!   Alıntı Yap      



IIFIRTINAII1

IIFIRTINAII1

Simgem
Albay


İstanbul
15 Mart 2010
898   Mesaj
Durum: SolidWorks
Mode : Default


Aktiflik
Seviye
Deneyim



Slm Arkadaşlar,
Şimdi Yapacağımız Projede Küp,Karesi,Karakök Alma,Kombinasyon,Permütasyon,Kombinasyon Hesaplama Yapacağız

Başlayalım:

Foruma :

3 adet checkbox(Sırası ile caption: Karesi,Küp,Kare Kök)
4 adet Commandbuton:
Command1: Kombinasyon
command2: Permütasyon
command3: bul
command4: faktöriyel bulma
1 adet textbox
1 adet label



İsterseniz Resimdeki Gibi Yapabilirisiniz Nesnelerin Dizilişini
Bunları Düzenledikden Sonra aşağıdaki Kodları Foruma YApıştırın

Form:

      Private Sub Command3_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)
Label1.Caption = k
End Sub

Private Sub Command1_Click()
On Error Resume Next
Dim n As Double
Dim r As Double
Dim x As Double
Dim y As Double
Dim F As String
Dim g As String
Dim v As String
x = 1
y = 1
n = InputBox("Kümenin eleman sayısını (n) giriniz")
If n < 0 Then
MsgBox "Kombinasyon hesaplamak için n değeri n>=0 olmalıdır!"
Do
F = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While F = "e"
Command1_Click
Loop
Do While F = "h"
MsgBox "Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz."
Loop
End If
r = InputBox("Gruptaki eleman sayısını (r) giriniz")
If r < 0 Then
MsgBox "Kombinasyon hesaplamak için r değeri r>=0 olmalıdır!"
Do
g = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While g = "e"
Command1_Click
Loop
Do While g = "h"
MsgBox " Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz"
Loop
End If
If r > n Then
MsgBox "Kombinasyon hesaplamak için r değeri r<=n olmalıdır!"
Do
v = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While v = "e"
Command1_Click
Loop
Do While v = "h"
MsgBox " Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz"
Loop
End If
For a = 0 To (r - 1) Step 1
t = n - a
x = x * t
y = (a + 1) * y
Next a
MsgBox "istenilen kombinasyonların sayısı= " & x / y
End Sub

Private Sub Command2_Click()
On Error Resume Next
Dim n As Double
Dim r As Double
Dim x As Double
Dim F As String
Dim g As String
Dim v As String
x = 1
y = 1
n = InputBox("Kümenin eleman sayısını (n) giriniz")
If n < 0 Then
MsgBox "Permütasyon hesaplamak için n değeri n>=0 olmalıdır!"
Do
F = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While F = "e"
Command2_Click
Loop
Do While F = "h"
MsgBox "Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz."
Loop
End If
r = InputBox("Gruptaki eleman sayısını (r) giriniz")
If r < 0 Then
MsgBox "Permütasyon hesaplamak için r değeri r>=0 olmalıdır!"
Do
g = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While g = "e"
Command2_Click
Loop
Do While g = "h"
MsgBox " Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz"
Loop
End If
If r > n Then
MsgBox "Permütasyon hesaplamak için r değeri r<=n olmalıdır!"
Do
v = InputBox("Yeniden hesaplamak ister misiniz? (e/h)")
Do While v = "e"
Command2_Click
Loop
Do While v = "h"
MsgBox " Sistemimizden ayrılıyorsunuz. Hoşçakalın."
End
Loop
MsgBox "Yanlış giriş yaptınız. Tekrar deneyiniz"
Loop
End If
For a = 0 To (r - 1) Step 1
t = n - a
x = x * t
Next a
MsgBox "İstenilen permütasyonların sayısı= " & x
End Sub

Private Sub Command4_Click()
Dim i, a
a = 1
sayi = InputBox("Sayıyı Giriniz:")
For i = 1 To sayi
a = a * i
Next
MsgBox "Girdiğiniz Sayının Faktöriyeli = " & a
End Sub

Private Sub Form_Load()
Command1.Caption = "Kombinasyon hesapla"
Command2.Caption = "Permütasyon hesapla"
End Sub


___________________________________________
HTML-4 EĞİTİM SETİM

HTML-5 EĞİTİM SETİ!!


CANIN MI SIKILIYOR ? DİNLE O ZAMAN (TÜRKLER GELİYOR !)
   
     

*
     
       
Gönderilme Tarihi: 21 Nisan 2010 saat 4:05PM - Kayıtlı IP Mesaj İhbar!   Alıntı Yap      



H-H-S

Hasan Hüseyin SİMSEK

Simgem
Albay


İstanbul
02 Mayis 2007
188   Mesaj
Durum: Aslan
Mode : Default


Aktiflik
Seviye
Deneyim



Okulda Bize yaptırdıkları İlk Program :))



___________________________________________
Kişiliğim, hayatım hakkında konuşabilirsiniz.
Fikir yürütebilirsiniz.
Beni öyle böyle sanabilirsiniz.
Ama emin olamazsınız.
Sizin hakkımdaki yorumlarınız, sanmalarınız
Benim gerçekte ne olduğumu değiştirmez.
Baktığım yeri söyleyebilirsiniz ama ne gördüğümü ASLA...


     
       

Eğer bu konuya cevap yazmak istiyorsanız ilk önce Giriş Yap
Eğer kayıtlı bir kullanıcı değilseniz ilk önce kayıt olmalısınız
Git:   Yeni konu aç

WikiTurk | Bilisim Güvenligi Dernegi

Reklamlar: davutsahin.net | basaranteknoloji.com.tr | sinirsizharca.com

Uyarı !
Cyber-Warrior tescilli bir marka olup, 556 Sayılı Markaların Korunması Hakkında K.H.K'ye göre yasal olarak korunmaktadır.
Cyber-Warrior'un Marka imajına zarar verici her türlü eylemde bulunan, yazı, yorum, sair içerikler barındıranlar hakkında 556 Sayılı kanunun ilgili hükümlerine göre yasal işlem başlatılmaktdır.
Ayrıca Cyber-Warrior'a ait isim, marka ve logoların izinsiz kullanılması yine aynı kanun hükümlerine göre suç sayılmaktadır. Marka No : 2010 46588 Korunma Tarihi : 15.07.2010


Yasal Uyarı | Sitemizin Çizgisi | Kullanım Sartları ve Üyelik Sözleşmesi | Telif Hakları Politikası / Copyright Policy | Cyber-Warrior.Org .Com .NET