Seçtiğiniz Sayıları Okuyun (wav) Sayısal loto Programı

Form1


Dim sayı(6)
Dim kolon
Dim süre
Private Sub Command1_Click()
If Combo1.Text = "" Then
MsgBox "Kolon Sayısını Giriniz"
GoTo son
End If
For i = 1 To 48
Label2(i).Caption = ""
Next i
kolon = Combo1.Text
Text3.Text = kolon
Timer1.Enabled = True
For i = 1 To 48
Label2(i).Visible = False
Shape1(i).Visible = False
Next i
For i = 1 To 6 * kolon
Label2(i).Visible = True
Shape1(i).Visible = True
Next i
Form1.Height = 3500 + kolon * 800
son:
End Sub
Private Sub Form_Load()
Text3.Text = 1
For i = 1 To 6
Text1(i).Text = ""
Next i
For i = 1 To 48
Label2(i).ForeColor = &HC0&
Next i
End Sub

Private Sub kapat_Click()
End
End Sub
Private Sub oyna_Click()
If Combo1.Text = "" Then
MsgBox "Kolon Sayısını Giriniz"
GoTo son
End If
For i = 1 To 48
Label2(i).Caption = ""
Next i
kolon = Combo1.Text
Text3.Text = kolon
Timer1.Enabled = True
For i = 1 To 48
Label2(i).Visible = False
Shape1(i).Visible = False
Next i
For i = 1 To 6 * kolon
Label2(i).Visible = True
Shape1(i).Visible = True
Next i
Form1.Height = 3500 + kolon * 800
son:
End Sub
Private Sub Timer1_Timer()
süre = süre + 1
If Text3.Text = 0 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
Randomize Timer
For i = 1 To 6 '1 ile 49 arasında sayılar seçiliyor
sayı(i) = Int((49 * Rnd) + 1)
Next i
For j = 1 To 6
For i = 0 To 5
If j = i Then
i = i + 1
End If
bas:
If sayı(j) = sayı(i) Then 'sayılar birbirleriyle karşılaştırılıyor
sayı(i) = Int((49 * Rnd) + 1) 'eğer sayılar eşitse tekrar seçim yapılıyor
GoTo bas 'daha sonra tekrar karşılaştırılıyor
End If
Next i
Next j
For i = 1 To 6
Text1(i).Text = sayı(i)
Next i
For j = 0 To 5
For i = 0 To 5 'sayılar küçükten büyüğe diziliyor
If sayı(i) > sayı(i + 1) Then
küçük = sayı(i + 1)
sayı(i + 1) = sayı(i)
sayı(i) = küçük
End If
Next i
Next j
If süre = 10 Then
Text3.Text = Text3.Text - 1
For i = 1 To 6
Label2(i + (6 * (kolon - Text3.Text - 1))).Caption = sayı(i)
Next i
süre = 0
End If
End Sub
Private Sub Timer2_Timer()
If Text3.Text = 0 Then
Form2.Show
Form2.Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub


form2

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Dim a(49)
Dim süre
Private Sub Form_Load()
Dim b(49)
süre = 0
b(1) = "bir"
b(2) = "iki"
b(3) = "üç"
b(4) = "dört"
b(5) = "beş"
b(6) = "altı"
b(7) = "yedi"
b(8) = "sekiz"
b(9) = "dokuz"
b(10) = "on"
b(11) = "onbir"
b(12) = "oniki"
b(13) = "onüç"
b(14) = "ondört"
b(15) = "onbeş"
b(16) = "onaltı"
b(17) = "onyedi"
b(18) = "onsekiz"
b(19) = "ondokuz"
b(20) = "yirmi"
b(21) = "yirmibir"
b(22) = "yirmiiki"
b(23) = "yirmiüç"
b(24) = "yirmidört"
b(25) = "yirmibeş"
b(26) = "yirmialtı"
b(27) = "yirmiyedi"
b(28) = "yirmisekiz"
b(29) = "yirmidokuz"
b(30) = "otuz"
b(31) = "otuzbir"
b(32) = "otuziki"
b(33) = "otuzüç"
b(34) = "otuzdört"
b(35) = "otuzbeş"
b(36) = "otuzaltı"
b(37) = "otuzyedi"
b(38) = "otuzsekiz"
b(39) = "otuzdokuz"
b(40) = "kırk"
b(41) = "kırkbir"
b(42) = "kırkiki"
b(43) = "kırküç"
b(44) = "kırkdört"
b(45) = "kırkbeş"
b(46) = "kırkaltı"
b(47) = "kırkyedi"
b(48) = "kırksekiz"
b(49) = "kırkdokuz"
For i = 1 To 48
a(i) = Form1.Label2(i).Caption
If a(i) = "" Then
GoTo son
End If
a(i) = b(a(i))
son:
Next i
End Sub
Private Sub Timer1_Timer()
Dim kolon
kolon = Form1.Combo1.Text
süre = süre + 1
If süre = (kolon * 6) + 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
Form1.Timer1.Enabled = False
süre = 0
End If
sndPlaySound "c:\program files\sayısal loto\sesler\" & a(süre) & "", 1
End Sub
Private Sub Timer2_Timer()
süre = süre + 1
If süre = 5 Then
Unload Form2
süre = 0
End If
End Sub
Private Sub Timer3_Timer()
Form2.Visible = False
End Sub


( sesleri siz ekleyeceksiniz )

sağol C@GL@R abi

saol çaglar kardeş

gerçek ten de çalısıyo muş denedim!!!

bunları nereye ekliyoruz ve nası çalıştırıyoruz..

RHicranlı yazdı:harika bişi bu

Kardeş nerdden çalıştırdın bunu ?

LaHavle yazdı:

RHicranlı yazdı:harika bişi bu

Kardeş nerdden çalıştırdın bunu ?

visual basic programıyla nesneleri burdaki isimleri ile aynı ekledikten sonra code bölümüne yazacaksın

yaw ben bundan bişey anlamadım yinede saol ç@ğl@r

kara-kral yazdı:yaw ben bundan bişey anlamadım yinede saol ç@ğl@r

Visual Basic'i Bilmiyorsan AnLamaman DoğaL. Bide Cods İçin Cok Thanks..
NesneLerin İsimLerini Doğru Yapmak Lazım Gerçekten .