Vb.net&C# Cekiliş Programı Yapma

Sadrazam99 c99

Uzman üye
8 Ocak 2017
1,159
0
null
Başlayalım..

1 tane button ekleyelim.

o butonumuz ne olacak? tabii ki "ekle" :)

şimdi 2. butonumuzu ekleyelim. oda cekilisi baslatacak degil mi ? :)
onada istediğinizi diyin.

1 listbox ekleyeceğiz bunla üyeleri listeleyeceğiz değil mi ? :) tabii ki..


son olarak textbox ekleyelim ve bu textboxa ise ekelyeceğimiz üyeleri seçelim..

ha yok ben .txt den çekeceğim diyorsanız internetten txt - listbox gibi aramalarla bula bilirsiniz.


şimdi button1 e çift tıklayıp bütün sayfayı açıp silin ve bu kodları girin..

vb.net

Kod:
Kod:
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click





        If TextBox1.Text = "" Then

            MsgBox("Birisini giriniz.")

        Else

            ListBox1.Items.Add(TextBox1.Text)

            TextBox1.Text = ""



        End If

    End Sub



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim cekilis As New Random

        Dim Cekilissayi As Integer = cekilis.Next(0, ListBox1.Items.Count - 1)

        ListBox1.SelectedIndex = Cekilissayi

        MsgBox("Kazanan Kişi : " & ListBox1.Text)

    End Sub

End Class
yok ben c# yapacağım diyorsanız aynı şeyleri yapıp :

C#:

Kod:
using System;

using System.Linq;

using Microsoft.VisualBasic;



public class Form1

{

    private **** Button1_Click(object sender, EventArgs e)

    {

        if (TextBox1.Text == "")

            Interaction.MsgBox("Birisini giriniz.");

        else

        {

            ListBox1.Items.Add(TextBox1.Text);

            TextBox1.Text = "";

        }

    }



    private **** Button2_Click(object sender, EventArgs e)

    {

        Random cekilis = new Random();

        int Cekilissayi = cekilis.Next(0, ListBox1.Items.Count - 1);

        ListBox1.SelectedIndex = Cekilissayi;

        MsgBox("Kazanan Kişi : " + ListBox1.Text);

    }

}

https://prnt.sc/kwsijb

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı

İndir Cekilis Programi zip


KONU BANA AİTTİR VE BOŞ BİR KONUDUR
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.