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: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

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

Mesaj gönderen husonet »

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 »

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: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

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: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

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 »

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 »

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: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

:)

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: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

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 10:30
Konum: İzmir
İletişim:

Mesaj gönderen DotCom »

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: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

@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 01:02
Konum: İstanbul
İletişim:

Mesaj gönderen MicroChip »

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 03:07
Konum: KIRŞEHİR
İletişim:

Mesaj gönderen Ademkoysuren »

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: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

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: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

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: 81
Kayıt: 09 Tem 2010 02:55

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

Mesaj gönderen Okann »

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