Sayısal Loto (Ama Oynamayın Sakın)

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2953
Kayıt: 25 Haz 2003 01:14
Konum: İstanbul
İletişim:

Sayısal Loto (Ama Oynamayın Sakın)

Mesaj gönderen husonet » 09 Nis 2004 03:12

Arkadaşlar bugün canım sıkılıyordu iş güçte yoktu bir algortima pratiği yapayım dedim. Ve Sayısal Loto Programı çıktı. Yalnız bu yazdığım Programla Kimsenin oyun oynamasını istemiyorum :) nedenmi iki türlüde düşünüyorum moralim bozuluyor. Sizi kumar'a alıştırdığım düşünülebilir ve bu programla oynarsanız bol bol Günahlarım çoğalır. Öteki türlüde Trilyonlar size çıkarsa kahrolurum.

Bu kod bilgi amaçlıdır. Kullanımı Hüseyin ÖZDEMİR tarafından YASAKTIR

Kod: Tümünü seç

const
    SIZE:Integer = 5;
var
    SayisalDizi : Array[0..5] of Integer;
    k, i, b, c,tmp:Integer;
    Str:String;

begin
// Dizilere değer ata
    str := '';
    i:= 0;
    Randomize;
    while i <= SIZE do
    Begin
        SayisalDizi[i] := Random(49) + 1;
        inc(i);
    End;

//Sıralama Yap ve aynı sayı kontrolü yap Kullanılan Algoritma 'Buble Sort'
    for c := SIZE downto 0 do
        for k := c to SIZE - 1 do
            if SayisalDizi[k] > SayisalDizi[k + 1] then
            begin
                TMP := SayisalDizi[k];
                SayisalDizi[k] := SayisalDizi[k + 1];
                SayisalDizi[k + 1] := Tmp;
             end
             Else
             if SayisalDizi[k] = SayisalDizi[k + 1] then
             begin
                SayisalDizi[k] := SayisalDizi[k] + 1;
             end;

//Stringe Ata
     b:=0;
     while b <= SIZE do
     Begin
        Str := Str + intToStr(SayisalDizi[b]) + ' ';
        inc(b);
     End;
    ShowMessage(str);
end;
Herkeze Kolay Gelsin...

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.

Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege » 09 Nis 2004 03:22

Hocam elinize sağlık, hani şöyle boş zamanlarınızda birde KING programı yazsanız. çaktırmadan kopya çeksek oynarken.
veya amerikaday gitmeden bi rulet tahmin programı, dönüştü bi las vegasa uğrar denerim :)
ne güzel olur ama :)
değilmi

Kullanıcı avatarı
husonet
Admin
Mesajlar: 2953
Kayıt: 25 Haz 2003 01:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet » 09 Nis 2004 03:37

Aslında Okey ve King tarzı online oynanabilecek oyunlar yazmayı düşünüyorum ama kolay deil ekip kurmak lazım Öneriler bölümüne böyle bir şey atmıştım bir tek MicroChip arkadışımız katılım yapabileceğini söylemişti. Onunlada görüşme fırsatı bulamadım. Zaten böyle bir proje ekibide oluşturulursa Open Source olur.

İyi Çalışmalar.

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.

Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7432
Kayıt: 09 Haz 2003 11:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek » 09 Nis 2004 04:10

geçen haberlerde duydum, 2 kafadar bir bilgisayar ve cep telefonu yardımıyla rulet'te hangi sayıya geleceğini buluyorlarmış. Top fırlatıldığı anda cep telefonu ölçüm yapıp, arkadaki bilgisayara bilgi gönderiyormuş, bilgisayarda gelebilecek numarayı hesaplayıp cep telefonuna gönderiyormuş. Bu yolla 2 trilyon TL kazanmışlar :shock:

Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege » 09 Nis 2004 04:26

hocam böyle bi ölçüm imkansız ya.. rulet kuralları çok ilginçtir. bu tarz al foto ver hedef olacağını sanmıyorum. bence başka bişey yapmıştır onlar.

hüsonet hocam bende open source bi king oyunu aramıştım. ama bulamadım.
birde yabancı birkaç king oyunu indirdim. kuralları bile farklı adamların. kıl kıl durumlar var. ama böyle board oyunları bilirsinizki yazması çok zordur. ekip olayı olabilir ama, sonuçta zor.

benimde var bi open source projem bi başlayıp ilk betayı çıkartınca bi web sayfasıyla başlıcam işe. malum parasal durumlar donanım almayı zorlaştırıyor.
şu an aklımdaki proje arabalar için bi otomasyon sistemi.
http://www.dashpc.com/
eleman arabaya bi pc yerleştirip arabayı uzay aracına çevirmiş. ve yapan türk. ama amerikada. bence eğer arabanız varsa inceleyin.

Resim

Kullanıcı avatarı
TRSoft
Kıdemli Üye
Mesajlar: 636
Kayıt: 13 Şub 2004 11:39
Konum: Konya
İletişim:

Mesaj gönderen TRSoft » 09 Nis 2004 05:34

Hüseyin Abimiz yazdı:Bu kod bilgi amaçlıdır. Kullanımı Hüseyin ÖZDEMİR tarafından YASAKTIR
hüseyin abi sen kullanmayı yasaklamışsın ama form kurallarını çiğnemişsin :lol: :lol:
Admin Mustafa Abimiz..Form Kurallarında yazdı:Foruma yazdığınız her türlü bilgi tüm üyeler tarafından görülebilir. Üyeler bu bilgileri kendi programlarında veya herhangi bir mecrada kullanabilirler. Mesaj attığınız zaman bunu kabul etmiş sayılırsınız.
İlimle geçen bir gece,
ibadetle geçen bin geceden hayırlıdır.
HZ. MUHAMMED (S.A.)

Kullanıcı avatarı
husonet
Admin
Mesajlar: 2953
Kayıt: 25 Haz 2003 01:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet » 09 Nis 2004 05:57

:)

Forum Kurallarını çiğnemişim galiba:oops: :oops: :oops:
Mustafa Hocam bu konu hakkında ne düşünüyorsunuz?

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.

Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7432
Kayıt: 09 Haz 2003 11:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek » 09 Nis 2004 09:31

düşünecek birşey yok hocam, artık kamuya ait o kodlar :) Dileyen dilediğin yapsın, yani kamuoyu kendi kararını kendi versin.

Ben şahsi olarak bu tip şans oyunlarının oynanmasına ve bu tip oyunlara umut bağlanmasına karşıyım.

Selamlar.

DotCom
Kıdemli Üye
Mesajlar: 1696
Kayıt: 11 Tem 2003 09:30
Konum: İzmir
İletişim:

Mesaj gönderen DotCom » 31 May 2004 07:39

eeee huseyin abi bu satısal loto hiç tutmuyor... :oops: :oops:

sanırım kod da bir hata var...

Kolay Gelsin...

Kullanıcı avatarı
husonet
Admin
Mesajlar: 2953
Kayıt: 25 Haz 2003 01:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet » 31 May 2004 10:16

@Hüsnü Kardeşim Bu tip şeylere bel bağlamak yanlış.

Ama olaya delphi içinde kendini geliştirmek ve eğlenmek istersen aşağıdaki önerilerimi okuyup değerlendirebilirsin.:)

Hiç bu kodda oynama yapmayı düşündünmü? Mesala sana fikir vereyim yanlız para yatırma takip et oynamadan oynuyormuş gibi yap.

Her neyse :) Olay olasılık takip etme. Ortalama 1 Sene zarfında çıkan bütün neticeleri al ve bir tane tabloya kaydet. Bu tablodan en çok çıkan sayıları ve hiç çıkmayan sayıları değerlendirerek neticeleri al. Artı çıkma ihtimallerini % olarak bulmaya çalış vb... Ama oynama :wink: Oynuyormuş gibi takip et :) bak inanki böylede çok zevkli oluyor. Çıktığı zamanda hiç bir şey olmamış gibi davran kafayı sıyırma:)

Bir zamanlar bu olasılık olaylarıyla ilgilenmiştim.

Kolay Gelsin...

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.

Kullanıcı avatarı
MicroChip
Kıdemli Üye
Mesajlar: 1119
Kayıt: 02 Ağu 2003 12:02
Konum: İstanbul
İletişim:

Mesaj gönderen MicroChip » 02 Haz 2004 01:31

Hiç oynamadım da oynamam da :) Şansım yokki :) (Böyle deyince bazıları bana kızıyo beni tanıdığın için şanslısın işte diyolar)
Kafkas Kartalı Kabarday
Sitesi!= http://www.ahmetceylan.com
Resim

Kullanıcı avatarı
Ademkoysuren
Üye
Mesajlar: 83
Kayıt: 26 Ağu 2003 02:07
Konum: KIRŞEHİR
İletişim:

Mesaj gönderen Ademkoysuren » 01 Eki 2005 01:03

selam arkadaşlar

bana sayısal lotonun tüm olasılıklarını bulabileceğim kod lazım yardımcı olabilirmisiniz
Cemre Bilgisayar Yazılım
KIRŞEHİR

Kullanıcı avatarı
husonet
Admin
Mesajlar: 2953
Kayıt: 25 Haz 2003 01:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet » 01 Eki 2005 07:31

Ademkoysuren yazdı:selam arkadaşlar

bana sayısal lotonun tüm olasılıklarını bulabileceğim kod lazım yardımcı olabilirmisiniz
Aleykum Selam

Bu nasıl bir olasılık yapmak istediğine bağlı ne yapmak istediğini bence bir kağıda dök bak elinde bir algoritma olacak sonra otur yavaş yavaş kodla.


mesala ben olsam

çıkan sayıları her hafta takip eder
1.En çok çıkanlar.
2.En az çıkanlar.
3.Çıkmış altılılar.
4.Geçmişte döndürdüğüm rakamlar da eşitlik.

çıkacak rakamları bu örnek verdiğim şartlar a göre döndürür çıkan her dizi altılıyıda data dosyasına atar ve çekilişlerde çıkan sayılarıda geçmiş haftalarla karşılaştırırdım...

Kolay Gelsin...

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.

Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4479
Kayıt: 10 Haz 2003 12:48
Konum: İstanbul

Mesaj gönderen rsimsek » 01 Eki 2005 09:07

Google babaya sorunca detaylı bir açıklama çıktı :wink:
http://idari.cu.edu.tr/sempozyum/bil17.htm
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!

Okann
Üye
Mesajlar: 62
Kayıt: 09 Tem 2010 01:55

Re: Sayısal Loto (Ama Oynamayın Sakın)

Mesaj gönderen Okann » 25 Eyl 2016 01:52

12 - 16 - 32 - 39 - 38 - 42
hocam tesadüf denk geldim :) sebebi nedir yanlış dizilişin

Cevapla