|
|
Salve a voi tutti,questo Listato si usa quando esce un Ambo Spia su ruota,e ricava una Terzina da giocare su 2 ruote,ottenuta con Numeri Frequenti. Tutti i valori possono essere cambiati come uno crede.In questo caso il listato fa' questi calcoli:
Ogni volta che esce l'Ambo Spia 78-79 a Cagliari,giochiamo questa Terzina, per Ambo e Terno, sulle ruote di Firenze e Venezia
51-74-86
CODICE Scrivi "Quando esce Ambo Spia 78-79 su Cagliari " Scrivi "Giochiamo su Firenze e Venezia : 51-74-86 per Ambo e Terno " Sub main() Dim ruote(2),poste(3),num1(3),num2(3) poste(2)=3:poste(3)=1.2 sp1=CInt(InputBox("1° numero spia?","1° numero spia ",78)) sp2=CInt(InputBox("2° numero spia?","2° numero spia ",79)) r1=CInt(InputBox("ruota di ricerca?","ruota di ricerca ",2)) rg1=CInt(InputBox("1^ ruota di gioco?","1^ ruota di gioco ",3)) rg2=CInt(InputBox("2^ ruota di gioco?","2^ ruota di gioco ",10)) n1=CInt(InputBox("1° numero 1^ terzina?","1° numero 1^ terzina ",51)) n2=CInt(InputBox("2° numero 1^ terzina?","2° numero 1^ terzina ",74)) n3=CInt(InputBox("3° numero 1^ terzina?","3° numero 1^ terzina ",86)) 'n4=CInt(InputBox("1° numero 2^ terzina?","1° numero 2^ terzina ",4)) 'se vuoi giocare una 2a Terzina togli apice (') davanti a n4 'n5=CInt(InputBox("2° numero 2^ terzina?","2° numero 2^ terzina ",5)) 'se vuoi giocare una 2a Terzina togli apice (') davanti a n5 'n6=CInt(InputBox("3° numero 2^ terzina?","3° numero 2^ terzina ",6)) 'se vuoi giocare una 2a Terzina togli apice (') davanti a n6 ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",6756)) k=CInt(InputBox("quanti colpi di gioco? ","colpi di gioco",13)) ini=ce fin=EstrazioneFin For es=ini To EstrazioneFin Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1) For p1=1 To 4 For p2=p1+1 To 5 a=Estratto(es,r1,p1):b=Estratto(es,r1,p2) If (a=sp1 And b=sp2) Or (a=sp2 And b=sp1) Then casi=casi+1:Scrivi String(70,"=") Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_ " ] spie [ "&format2(sp1)&"."&format2(sp2)&" ] in "&(p1)&"^/"&(p2)&"^ pos." Scrivi String(58,"-")&" caso n° "&(casi) ruote(1)=rg1:ruote(2)=rg2:co=0 num1(1)=n1:num1(2)=n2:num1(3)=n3 co=co+1 ImpostaGiocata co,num1,ruote,poste,k num2(1)=n4:num2(2)=n5:num2(3)=n6 co=co+1 ImpostaGiocata co,num2,ruote,poste,k Gioca es End If Next:Next:Next ScriviResoconto End Sub
Saluti,sean69!!!
|
|