Yazılım Adası

Kod: Tümünü seç

do {
    try {
        # Renk paleti (dark tonlar) ana sayılar için
        $colors = @("DarkRed","DarkGreen","DarkYellow","DarkBlue","DarkMagenta","DarkCyan")

        # Şans sayısı için koyu ama görünür renk
        $bonusColor = "DarkGray"

        # Toplam kombinasyon sayısı
        $totalCombinations = [math]::Round((278256 * 14),0)
        $probPercent = [math]::Round((1 / $totalCombinations) * 100, 8)

        # 6 tur × 6 set saklama
        $allSelections = @()

        for ($round=1; $round -le 6; $round++) {
            # 5 ana sayı (1-34), tekrar yok
            $mainNumbers = (1..34 | Get-Random -Count 5 | Sort-Object)

            # 1 şans sayısı (1-14)
            $bonusNumber = Get-Random -Minimum 1 -Maximum 15

            $allSelections += ,@($mainNumbers + $bonusNumber)
        }

        # Başlık
        Write-Host ""
        Write-Host ("{0,-12} {1,3} {2,3} {3,3} {4,3} {5,3} {6,5} {7,10}" -f "Tur","S1","S2","S3","S4","S5","Şans","Olasılık(%)")
        Write-Host ("-"*60)

        # Satırları yaz ve renklendir
        for ($i=0; $i -lt $allSelections.Count; $i++) {
            $row = $allSelections[$i]
            $color = $colors[$i % $colors.Count]

            # Ana sayılar
            $mainPart = ("{0,-12} {1,3} {2,3} {3,3} {4,3} {5,3}" -f ("Şans Topu " + ($i+1)), $row[0], $row[1], $row[2], $row[3], $row[4])
            Write-Host $mainPart -ForegroundColor $color -NoNewline

            # Şans sayısı ve olasılık
            Write-Host (" {0,5} {1,10}" -f $row[5], $probPercent) -ForegroundColor $bonusColor
        }

    } catch {
        Write-Host "Hata oluştu: $_"
    }

    # Ana menü
    Write-Host ""
    Write-Host "Ana Menü:"
    Write-Host "0 = Betiği sonlandır"
    Write-Host "1 = Çekilişi tekrarla"
    $choice = Read-Host "Seçiminiz (0/1)"

} while ($choice -eq "1")

Write-Host "`nBetiğin çalışması tamamlandı. Çıkmak için Enter'a basın..."
Read-Host