Vbasic İle Sayı Sırlaması

Tahribat.com Forumları
line

Visual Basic - Basic - PicBasic ve Türevleri
line

Vbasic İle Sayı Sırlaması

11/Ağu/12 21:11 Kısayol Şikayet Özel Mesaj

juniourfalcon

Kayıt Tarihi: 22/Mayıs/2012

arkadaşlar bir tane sayısal loto programı yapıyorum basit bir şey fakat sayıları küçükten büyüğe çeviremedim yardımcı olurmusnuz

aşağıdaki kodlara uyumlu olan

a = Int(49 * Rnd) + 1
b = Int(49 * Rnd) + 1
c = Int(49 * Rnd) + 1
d = Int(49 * Rnd) + 1
e = Int(49 * Rnd) + 1
f = Int(49 * Rnd) + 1

Alıntı yap
11/Ağu/12 21:17 Kısayol Şikayet Özel Mesaj

unbalanced

Kayıt Tarihi: 14/Haziran/2006

sayıları bir integer diziye at sonra sort ile sıralama yaptır..

edit vb 6.0 imiş. biraz daha zor iş şuralara bir bak

http://www.vbforums.com/showthread.php?473677-VB6-Sorting-algorithms-(sort-array-sorting-arrays)

http://www.freevbcode.com/ShowCode.asp?ID=3197

http://www.vb6.us/tutorials/understanding-array-sorting-visual-basic-tutorial

http://visualbasic.freetutes.com/learn-vb6/sorting-using-arrays.html

http://support.microsoft.com/kb/169617

unbalanced tarafından 11/Ağu/12 21:24 tarihinde düzenlenmiştir

Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

Alıntı yap
11/Ağu/12 21:33 Kısayol Şikayet Özel Mesaj

oldwolf

Kayıt Tarihi: 02/Haziran/2002

Aynı sayı da gelir bu algoritmadan onu nasıl çözmeyi planlıyosun?

Edit: Döngü ve array kullanmazsan işin zor hocam.
oldwolf tarafından 11/Ağu/12 21:34 tarihinde düzenlenmiştir

Metallica Rules

Alıntı yap
12/Ağu/12 00:20 Kısayol Şikayet Özel Mesaj

31 yaşında emekli
ajan1111

Kayıt Tarihi: 25/Ağustos/2005

sana bi miktar algoritma gerek. iç içe döngü kullan

değişkenleri array olarak tanımla

for i=1 to 5

for x=1 to 5

if a[i]<a[x] then b[i]=a[i] 'böylelikle en küçük olanı b[i] yani ilk döndüğünde 1. olan en küçük 2.ye döndüğünde 2. küçük

next x

next i

böyle bişey olabilir sanırım. ama ezberden yazdım. pratikte mutlaka eksiği çıkar. bi şablon hazırla. yardımcı olmaya çalışırım
ajan1111 tarafından 12/Ağu/12 00:21 tarihinde düzenlenmiştir

Kayalardan kayarım yoktur benim ayarım (;

Alıntı yap
12/Ağu/12 00:26 Kısayol Şikayet Özel Mesaj

SinusX

Kayıt Tarihi: 14/Aralık/2010

ajan1111 bunu yazdı

sana bi miktar algoritma gerek. iç içe döngü kullan

değişkenleri array olarak tanımla

for i=1 to 5

for x=1 to 5

if a[i]<a[x] then b[i]=a[i] 'böylelikle en küçük olanı b[i] yani ilk döndüğünde 1. olan en küçük 2.ye döndüğünde 2. küçük

next x

next i

böyle bişey olabilir sanırım. ama ezberden yazdım. pratikte mutlaka eksiği çıkar. bi şablon hazırla. yardımcı olmaya çalışırım

bubble sort

http://en.wikipedia.org/wiki/Bubble_sort

quick sort, raddix sort gibi bi kaç farklı algoritma daha varda en hızlısı ajanın dediği gibi bubble sort ki direk int dizi ise bubble sort en temizi

aha burda hazırı varmış

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=72195&lngWId=1

SinusX tarafından 12/Ağu/12 00:29 tarihinde düzenlenmiştir

Si vis pacem para bellum.

Alıntı yap

28/Eyl/12 00:50

Kısayol

Şikayet

Özel Mesaj

DE5TROY3R

Kayıt Tarihi: 04/Nisan/2007

Başka yöntem :)

'list1 sorted özelliğini true yap

a = Int(49 * Rnd) + 1
b = Int(49 * Rnd) + 1
c = Int(49 * Rnd) + 1
d = Int(49 * Rnd) + 1
e = Int(49 * Rnd) + 1
f = Int(49 * Rnd) + 1

List1.AddItem a
List1.AddItem b
List1.AddItem c
List1.AddItem d
List1.AddItem e
List1.AddItem f

a = List1.List("0")
b = List1.List("1")
c = List1.List("2")
d = List1.List("3")
e = List1.List("4")
f = List1.List("5")

Alıntı yap

Toplam Hit: 2230 Toplam Mesaj: 6

Cevapla