sayısal loto programı

28-04-2008, 20:01:50

v.basic sayısal loto programı

birtane buton ekleyın 6 tanede textbox tamamdır

buyrun arkdaşlar kodlar bana aittir .

hadi kolay gelsin

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim r As Integer
Randomize
a = Rnd * 39
Text1 = a
Randomize
b = Rnd * 39
Text2 = b
Randomize
c = Rnd * 39
Text3 = c
Randomize
d = Rnd * 39
Text4 = d
Randomize
e = Rnd * 39
Text5 = e
Randomize
r = Rnd * 39
Text6 = r
End Sub

28-04-2008, 20:19:47

#2

_D.m.X_

Kimlik doğrulama veya yönetimden onay bekliyor.

eyw. hocam saol bi deneyim

+rep

28-04-2008, 21:05:50

#3

AGaRoot

fakat uzun olmuş not düşeyim dedim

bir dizi yapıp
Dim dizi, i(10) AsInteger
for i=1 to kactaneistiyorsan
dizi(i) = rnd * 39
next

kodları kafamdan koydum hatalı olabilir

daha kısa yontem diye koydum isteyen olursa buda aklında olsun

28-04-2008, 22:15:06

#4

Ulath

AGaRoot adlı üyeden alıntı: mesajı görüntüle

fakat uzun olmuş not düşeyim dedim

bir dizi yapıp
Dim dizi, i(10) AsInteger
for i=1 to kactaneistiyorsan
dizi(i) = rnd * 39
next
kodları kafamdan koydum hatalı olabilir

daha kısa yontem diye koydum isteyen olursa buda aklında olsun

saol

29-04-2008, 09:24:19

#5

~~RoMeO~~

Üyeliği durduruldu

39 ile niye çarptın anlayamadım? 49 olması gerekmiyor mu?

2. si aynı rakamın bir daha gelmemesi lazım

29-04-2008, 10:55:23

#6

Ulath

RoMeO adlı üyeden alıntı: mesajı görüntüle

39 ile niye çarptın anlayamadım? 49 olması gerekmiyor mu?

2. si aynı rakamın bir daha gelmemesi lazım

ben sayısal loto oynamadıgımdan kaç gelecegını bilmiyordum

ayrıca iki rakamın gelmemesi içinde else komutu yararlı olur

29-04-2008, 11:34:57

#7

~~RoMeO~~

Üyeliği durduruldu

Birde sıfır gelmemesi lazım

29-04-2008, 18:24:39

#8

Ulath

RoMeO adlı üyeden alıntı: mesajı görüntüle

Birde sıfır gelmemesi lazım

dim a as integer
Randomize
a = Rnd * 39
Text6 = a+1
End Sub

bole yaparsanız olur

30-04-2008, 03:24:27

#9

Mimoz

ehehe ne kadar üstüne gitmişsiniz çocuğun =)
0 olmasın 49 olsun falan filan =)
mantığını yapmış yollamış arkadaş saolsun...
gönderdiğine pişman olcak =)