15-03-2014, Saat: 08:46 PM
Çevrimdışı
İlk Önce Form Açalım
Ve Şeklini Böyle Yapalım :
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 :
Koddan 1 harf Bile Silmeyin aksi takdirde Kötü Şeyler Olabilir
Kodları Yazan Benimdir.
Ve Şeklini Böyle Yapalım :
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 ClassKodları Yazan Benimdir.