C@GL@R

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 )

tolgaxp

sağol C@GL@R abi

__________________
B@şl@ngıcı ol@n h€rş€yin Sonud@ v@rdır...

RHicranlı

saol çaglar kardeş

__________________
Eğer Seni Sevmek Ölümsüzlük Olsaydı,
ÖLÜMSÜZLÜĞ'ÜN
Adını AŞK Koyardım

RHicranlı

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

__________________
Eğer Seni Sevmek Ölümsüzlük Olsaydı,
ÖLÜMSÜZLÜĞ'ÜN
Adını AŞK Koyardım

LaHavle

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

__________________
İLİM İLİM BİLMEKTİR
İLİM KENDİN BİLMEKTİR
SEN KENDİNİ BİLMEZSEN
BU NİCE OKUMAKTIR


To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.

LaHavle

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

tolgaxp

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

__________________
B@şl@ngıcı ol@n h€rş€yin Sonud@ v@rdır...

KaRa_KRaL

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

__________________

To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.

Depresife

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

__________________
[Rayn Trued Nousses To Navy Revolution Blood Brothers !][Forever KuvvetMira Rap Stick F.O.K]
To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.