Vb.net&C# Cekiliş Programı Yapma -UygulamaÜretiyorum-

[eymenbex]

Öncelikle yeni bir seriye başladım, sizlere basit basit , eğer isterseniz zor uygulamalar yapmayı göstereceğim..

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

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 :

[/SIZE][/COLOR]
using System;

using System.Linq;

using Microsoft.VisualBasic;



public class Form1

{

    private void Button1_Click(object sender, EventArgs e)

    {

        if (TextBox1.Text == "")

            Interaction.MsgBox("Birisini giriniz.");

        else

        {

            ListBox1.Items.Add(TextBox1.Text);

            TextBox1.Text = "";

        }

    }



    private void 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);

    }

}




[COLOR=rgb(0, 0, 0)][SIZE=15px]

---- Mesajlar birleştirildi ----

https://prnt.sc/kwsijb

http://s7.dosya.tc/server9/zr47d2/Cekilis_Programi.zip.html

http://dosya.co/1jpm0bsqzr44/Cekilis_Programi.zip.html