Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi Kesker -- 19 Nisan 2008; 17:01:36 > |
Hızlı 
Bildirim
Kombinasyon yapabilen program?
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir (1 Mobil) - 1 Masaüstü, 
1 Mobil
1 Mobil
Giriş
Mesaj
-
-
Adamım bunun yapan spesifisk programlar var mı bilmiyorum ama istersen sana c de yazar yollarım -
Programı visual basicle biraz hızlıca yazdım hata varsa dönersin bana burdan gene.
http://rapidshare.de/files/40088409/code.exe.html
şurdan indirebilirsin -
Eğer pcnde kurulu basic varsa kodlar da şu şekilde. C ile daha kısa olurdu kanimca ama javascript ile uğraşmaya başladım iyice birbirlerine girdiler c ile. Umarım istediğin şeyi doğru anlamışımdır.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim title As String = "InputBox "
Dim j As Integer
Dim x As Integer = Convert.ToInt32(TextBox1.Text)
Dim i As Integer
Dim dizi(x) As String
For i = 0 To x - 1
dizi(i) = InputBox("Lütfen ürün adlarını giriniz", title, 1)
Next
For i = 0 To x - 1
For j = 0 To x - 1
If dizi(i) <> dizi(j) Then
Label2.Text = Label2.Text + " " + dizi(i) & dizi(j)
Else
End If
Next
Next
End Sub
End Class
-
quote:
Orjinalden alıntı: corvus_corvusan
Eğer pcnde kurulu basic varsa kodlar da şu şekilde. C ile daha kısa olurdu kanimca ama javascript ile uğraşmaya başladım iyice birbirlerine girdiler c ile. Umarım istediğin şeyi doğru anlamışımdır.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim title As String = "InputBox "
Dim j As Integer
Dim x As Integer = Convert.ToInt32(TextBox1.Text)
Dim i As Integer
Dim dizi(x) As String
For i = 0 To x - 1
dizi(i) = InputBox("Lütfen ürün adlarını giriniz", title, 1)
Next
For i = 0 To x - 1
For j = 0 To x - 1
If dizi(i) <> dizi(j) Then
Label2.Text = Label2.Text + " " + dizi(i) & dizi(j)
Else
End If
Next
Next
End Sub
End Class
Profiline bakarken tesadüfen gördüm,teşekkür ederim ilgin için.Ben bu olaya çözüm buldum o zamanlar,sağol yinede.
Msne ekledim seni görüşürüz..
-
ya bıse sormak ıstıorum ben java scrıpt ıle 5 lı kombınasyonda sorun yasıorum aslında hepsı calıstı 5in 2lisi kombınasyonu calısmadı yardımcı olurmusun yada senın yazdıın bu kombınasyon hesaplama bana yardımcı olabılırmı -
bu kombınasyon programında 72 tane sorun cıkıor ya -
Kesker kardeş banada aynı türde bir program lazım.
sen çözüm bulmuşsun, nasıl çözdüğünü anlatabilirmisin
Teşekkürler -
Bu programın linkini alabilir miyim? simdiden tsk ederim...
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
