Skip to main content

Forumdervis W.

Beta
-

ForumDervis - Genel Forum Sitesi'a hoş geldiniz!

Merhaba, Ziyaretçi! Ben Mini; size yardımcı olabilmek için buradayım. İçerik sağlayıcı paylaşım sitemize eriştiğiniz için çok mutluyuz. Giriş yaparak, birbirinden güzel içeriklerimizden kolaylıkla faydalanabilirsiniz. Kayıtlı değilseniz, hemen ücretsiz ve kolay bir şekilde kayıt olabilirsiniz. Sizi de ailemize bekliyoruz.

(Giriş yapmamış kullanıcılar tarafından görüntülenir.)

Özel mesaj engelinizi kaldırmak için tıklayın ;

Vb.net Profesyonel Çekiliş Programı Yapma!

2826
1762
0
15-03-2014, Saat: 08:46 PM
#1
Çevrimdışı
İlk Önce Form Açalım
Ve Şeklini Böyle Yapalım :
eXZJY6.png

Birde Forma Open File Dialog Ekleyin.

Daha Sonra Forma Sağ Tık Ardından View Code Ye Basın

Bütün Kodları Silin.

Ve
Oraya Şu Kodu Yazın :

Kod:
Option Explicit On
Public Class Form1
    Dim cekilis_ismi, arama, eleme


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        arama = 0
        RadioButton1.Checked = True
        ComboBox1.Items.Add("Normal")
        ComboBox1.Items.Add("Torpilli")
        ComboBox1.SelectedIndex = 0
    End Sub


    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim i As Integer
        cekilis_ismi = TextBox1.Text
        If e.KeyChar = Convert.ToChar(13) Then
            If TextBox1.Text = "" Then
                MsgBox("İsim girmediniz", MsgBoxStyle.OkOnly, "Uyarı")
            Else
                For i = 0 To ListBox1.Items.Count - 1
                    If LCase(TextBox1.Text) = LCase(ListBox1.Items(i)) Then
                        arama = 1
                    Else
                    End If
                Next
                If arama = 0 Then
                    If ComboBox1.SelectedIndex = 0 Then
                        ListBox1.Items.Insert(0, cekilis_ismi)
                    Else
                        ListBox1.Items.Insert(0, cekilis_ismi & " (3)")
                        ListBox1.Items.Insert(0, cekilis_ismi & " (2)")
                        ListBox1.Items.Insert(0, cekilis_ismi)

                    End If

                    TextBox1.Text = ""
                Else
                    MsgBox("Bu kayıt zaten var: " & cekilis_ismi, MsgBoxStyle.OkOnly, "Uyarı")
                End If
                arama = 0
            End If


        End If
    End Sub

    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub


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

        If ListBox1.Items.Count = "0" Then
            MsgBox("Hani yarışmacılar nerede?")
        Else
            If RadioButton1.Checked Then
                Panel1.Height = 167
                Timer2.Enabled = True
            Else
                eleme = Fix(ListBox1.Items.Count * Rnd(100))
                Label7.Text = ListBox1.Items.Item(eleme)
                Panel2.Width = 362
                Timer3.Enabled = True

            End If
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label3.Text = "Kayıt Sayısı: " & ListBox1.Items.Count
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Randomize()
        If ListBox1.Items.Count > 1 Then
            eleme = Fix(ListBox1.Items.Count * Rnd(100))
            Label5.Text = ListBox1.Items.Item(eleme)
            ListBox1.Items.RemoveAt(eleme)

        Else
            Timer2.Enabled = False
            Panel2.Width = 362
            Timer3.Enabled = True
            Label7.Text = ListBox1.Items.Item(0)
        End If


    End Sub


    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        If Label6.Visible = True Then
            Label6.Visible = False
            Label7.Visible = False
        Else
            Label6.Visible = True
            Label7.Visible = True
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        cekilis_ismi = TextBox1.Text
        If TextBox1.Text = "" Then
            MsgBox("İsim girmediniz", MsgBoxStyle.OkOnly, "Uyarı")
        Else
            For i = 0 To ListBox1.Items.Count - 1
                If LCase(TextBox1.Text) = LCase(ListBox1.Items(i)) Then
                    arama = 1
                Else
                End If
            Next
            If arama = 0 Then
                If ComboBox1.SelectedIndex = 0 Then
                    ListBox1.Items.Insert(0, cekilis_ismi)
                Else
                    ListBox1.Items.Insert(0, cekilis_ismi & " (3)")
                    ListBox1.Items.Insert(0, cekilis_ismi & " (2)")
                    ListBox1.Items.Insert(0, cekilis_ismi)

                End If

                TextBox1.Text = ""
            Else
                MsgBox("Bu kayıt zaten var: " & cekilis_ismi, MsgBoxStyle.OkOnly, "Uyarı")
            End If
            arama = 0
        End If

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Select()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Label9.Text = TextBox2.Text
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        OpenFileDialog1.ShowDialog()
        PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
    End Sub
    'Code Coder; "ForumDervis.com Gardenprof"
    'The Fb.com/lanterman1881
    'Language = Turkey
    'Türkiye!
End Class

Koddan 1 harf Bile Silmeyin aksi takdirde Kötü Şeyler Olabilir

Kodları Yazan Benimdir.
gardenprof

Hızlı Menü:

Konuyu Okuyanlar: 1 Ziyaretçi
970x91
buca escort cialis fiyat viagra fiyatı

Forumdervis

Türkiyenin en güncel forum sitesi

Task