Root     Cyber Navigation Organizasyon   Member Navigation
Forum Root Portal Root
Dökümanlar Döküman Ekle Download/Dosya Arsivi IBlock E-Kitap IBlock Mp-3 Basinda Cyber-Warrior Banner
Cyber-Academy
TIM Görev Organizasyonu Neler Yaptik? Bize Özel Küçük Seyler? Operasyon Yönetim Sistemi Görev Org. Basvuru Yönetici Basvuru Formu Karaliste Ihbar Organizasyon Semasi Misyon Kurallar
CW Explorer Kefalet Kefil Havuzu
Yeni Üye Basvuru Yazdigim Mesajlar Arkadas Listem Sifremi Unuttum Özel Mesajlarim Onay E-Mail Gönder




Matematik İşlemleri Küp Kara Kare Kök alm Forumlarda Ara Arama Favorites Favorites MyProfile Forum üyelerini göster Üyeler
Forum Yöneticisi: Administrator | Bu Bölümde Yetkili Tüm Yöneticiler?
 CW Forum Ana Sayfa
  VB.Net
Light  |  Konu İhbar   Favori Konu Listeme Ekle  
Konu: Matematik İşlemleri Küp Kara Kare Kök alm Cevap YazYeni konu açÇıkış Yap
 
Oy Ver   
 
Gönderilme Tarihi: 01 Nisan 2010 saat 7:16PM - Kayıtlı IP
İzle IIFIRTINAII1's Özellikler Diğer mesajlarını ara: IIFIRTINAII1
Mesaj İhbar!  
Alıntı  IIFIRTINAII1 

IIFIRTINAII1

Simgem
Albay
Albay
İstanbul
15 Mart 2010
953   Mesaj
Durum: SolidWorks


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 !)
   
     

*
  Yorum Ekle
  Özel Mesaj Gönder En Alta Git  En üste Git 
 
 
Gönderilme Tarihi: 21 Nisan 2010 saat 4:05PM - Kayıtlı IP
İzle H-H-S 's Özellikler Diğer mesajlarını ara: H-H-S
Mesaj İhbar!  
Alıntı  H-H-S  

H-H-S

Simgem
Albay
Albay
İstanbul
02 Mayis 2007
197   Mesaj
Durum: Aslan


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...


  Yorum Ekle
  Özel Mesaj Gönder En Alta Git  En üste Git 
 

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: Cevap Yaz Yeni konu aç
Sayfa Yüklenme Süresi: 0,0430
 

Uyarı !
Cyber-Warrior 'a ait isim, marka ve logolar Cyber-Warrior'un tescilli markası olup izinsiz kullanılamaz.
Kullananlar hakkında 556 Sayılı Markaların Korunması Hakkında K.H.K'ye göre yasal işlem yapılacaktır. Marka No : 2010 46588 Korunma Tarihi : 15.07.2010


WikiTurk | Bilisim Güvenligi Dernegi

Reklamlar

seymetmarket.com





Reklam vermek için tıklayın

Yasal Uyarı | Sitemizin Çizgisi | Kullanım Şartları ve Üyelik Sözleşmesi | Telif Hakları Politikası / Copyright Policy