Article View: free.it.visual-basic
Article #1059Re: random
From: Cerberus
Date: Sun, 14 Nov 2004 10:12
Date: Sun, 14 Nov 2004 10:12
32 lines
1599 bytes
1599 bytes
potrebbe andare?!?!
2 command in un form e copia
P.S. non testato, costruito in 4 e 4 = 8
option explicit
dim A(99) as boolean
dim B,X as integer
private sub form_load()
command1.caption="Prendi carta"
command2.caption="Mescola"
for b= 0 to 99 step 1
a(b)=false
next
end sub
private sub Command1_click()
if x=100 then
msgbox ("Bisogna rimescolare")
exit sub
end if
randomize
do
b=rnd*99
doevents
until a(b)=false
x=x+1
msgbox "Numero " & b
end sub
private sub command2_click()
for b=0 to 99 step 1
a(b)=false
next
end sub
Technical Details
Message-ID:
<YbGld.31998$Ni.1142398@twister1.libero.it>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!solnet.ch!solnet.ch!news-zh.switch.ch!switch.ch!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mailReferences:
<hQNid.270298$35.12443736@news4.tin.it> <x4mjd.280115$35.12922835@news4.tin.it>Show Full Headers
Complete Article Headers
X-Google-Thread: f94ee,77c2e0b6ce36bf6 X-Google-Attributes: gidf94ee,public X-Google-Language: ENGLISH,ASCII-7-bit Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!solnet.ch!solnet.ch!news-zh.switch.ch!switch.ch!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail From: "Cerberus" <cerberus1981@ELIMINAhotmail.com> Newsgroups: free.it.visual-basic References: <hQNid.270298$35.12443736@news4.tin.it> <x4mjd.280115$35.12922835@news4.tin.it> Subject: Re: random Lines: 34 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.2180 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180 X-RFC2646: Format=Flowed; Original Message-ID: <YbGld.31998$Ni.1142398@twister1.libero.it> Date: Sun, 14 Nov 2004 10:12:08 GMT NNTP-Posting-Host: 151.80.15.136 X-Complaints-To: abuse@libero.it X-Trace: twister1.libero.it 1100427128 151.80.15.136 (Sun, 14 Nov 2004 11:12:08 MET) NNTP-Posting-Date: Sun, 14 Nov 2004 11:12:08 MET Organization: [Infostrada]