Novità

Max, c' è posta per te

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Ciao Max,
per piacere mi ordini un pochino questo listatino che contempla
l' uscita di un gemello qualsiasi in 3^ o 4^ posizione su Milano ?
grazie anticipatamente e saluti cordiali

lola


Sub main()
Dim ruote(11), r(10)
Dim poste(5)
Dim am(10)
Dim num(10)
poste(1)=0
poste(2)=2


ruote(1)=0
ruote(2)=0
ruote(3)=0
ruote(4)=0
ruote(5)=0
ruote(6)=0
ruote(7)=0
ruote(8)=8
ruote(9)=0
ruote(10)=0
ruote(11)=0


num(1) =CInt(InputBox("Qual' è il Numero Spia?","Numero spia",77))
po =CInt(InputBox("Posizione Estratto Spia?",,3))
r(1) =CInt(InputBox("Ruota di ricerca Numero Spia?","Ruota ricerca",5))
ruote(1)=CInt(InputBox("Qual' è la ruota su cui vuoi giocare?","Ruota di gioco",5))
ruote(2)=CInt(InputBox("Qual' è la ruota su cui vuoi giocare?","Ruota di gioco",6))
c =CInt(InputBox("Per quante estrazioni deve durare il gioco?","Durata gioco",13))
rs =InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",200)



ini= 6670
fin=EstrazioneFin
For es =ini To fin
AvanzamentoElab ini,fin,es
a=0
a=SerieFreq(es,es,num,r,1)
If a>0 Then
co=co+1
Scrivi : ColoreTesto 0 : Scrivi String(75,"¤"),1 : Scrivi " [ sistema 1 spia su 1 ruota gioca su 2 ruote]",1
ColoreTesto 2 : Scrivi String(75,"-"),1
ColoreTesto 2 : Scrivi DataEstrazione((es),1)&" " & " [" & " "& NomeRuota(r(1)) &" "& StringaEstratti(es,r(1))&" "&"] sortito numero spia !!! = "&""& Format2(num(1)) &" ",1
ColoreTesto 2 : Scrivi String(75,"-"),1
ColoreTesto 0 : Scrivi "gioca da " &" " &DataEstrazione(es+1,1),1
ColoreTesto 2 : Scrivi String(75,"-"),1
ColoreTesto 0 : Scrivi

am(1)=23
am(2)=16
ImpostaGiocata 1,am,ruote,poste,c,2
am(1)=13
am(2)=17
ImpostaGiocata 2,am,ruote,poste,c,2
am(1)=15
am(2)=19
ImpostaGiocata 3,am,ruote,poste,c,2
am(1)=37
am(2)=9
ImpostaGiocata 4,am,ruote,poste,c,2
am(1)=41
am(2)=14
ImpostaGiocata 5,am,ruote,poste,c,2
am(1)=36
am(2)=63
ImpostaGiocata 6,am,ruote,poste,c,2
am(1)=55
am(2)=60
ImpostaGiocata 7,am,ruote,poste,c,2
am(1)=74
am(2)=78
ImpostaGiocata 8,am,ruote,poste,c,2

Gioca es
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2 : Scrivi "casi trovati : "& co,1
ColoreTesto 0 : Scrivi String(65,"•")
ScriviResoconto
End Sub






livia
 
Ciao, prova così:
Codice: 
Sub main()
Dim ruote(2)
Dim poste(2)
Dim n1(2)

poste(2)=3
r=InputBox("Ruota di ricerca","Ruota di ricerca",7)
p=InputBox("Posizione num.","Posizione num.",2)

fin=EstrazioneFin
ini=fin-300
For es = ini To fin
AvanzamentoElab ini,fin,es
a = Estratto (es,r,p)
If Gemello(a) Then

Scrivi String(75,"o"),1 
Scrivi Space(26)&"< gemello su "&nomeRuota (r)&" > ",1
Scrivi String(75,"-")
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" "&SiglaRuota (r)&" "&stringaestratti(es,r)&" [gemello = "&format2(a)&" ]"
Scrivi String(75,"-")

ruote(1)=r
c=13
ng=0

n1(1)=23
n1(2)=16
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=13
n1(2)=17
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=15
n1(2)=19
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=37
n1(2)=9
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=41
n1(2)=14
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=36
n1(2)=63
ng=ng+1
ImpostaGiocata ng,n1,am,ruote,poste,c,2
n1(1)=55
n1(2)=60
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2
n1(1)=74
n1(2)=78
ng=ng+1
ImpostaGiocata ng,n1,ruote,poste,c,2

co=co+1
Gioca es 
End If
Next
scrivi:Scrivi String(70,"-")
Scrivi "casi trovati : "& co,1
Scrivi String(70,"-")
ScriviResoconto
End Sub

max :)
 
Ciao Max,

grazie mille, va bene anche così.Sei gentilissimo e generoso
cordialità

lola

livia
 
Ciao Max,

il tuo listato va bene così come è stato impostato.
Ho provato ad inserire nuovi pronostici e non gira,
l' impianto è sempre quello, come mai ? Ciao grazie

lola

Sub main()
Dim ruote(2)
Dim poste(2)
Dim n(10)

poste(1)=1
poste(2)=1


r=InputBox("Ruota di ricerca","Ruota di ricerca",1)
p=InputBox("Posizione num.","Posizione num.",3)

fin= ini To Fin
ini= 6670


a = Estratto (n,r,p)
If Gemello(a) Then
co=co+1

Scrivi String(75,"o"),1
Scrivi Space(26)&"< gemello su "&nomeRuota (r)&" > ",1
Scrivi String(75,"-")
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" "&SiglaRuota (r)&" "&stringaestratti(es,r)&" [gemello = "&format2(a)&" ]"
Scrivi String(75,"-")

ruote(1)=5
ruote(2)=6
c=13
'----------------------------------------------------------

b1 = Estratto(n,1,1)
b2 = Estratto(n,1,2)
b3 = Estratto(n,1,3)
b4 = Estratto(n,1,4)
b5 = Estratto(n,1,5)

b6 = Diametrale(b1)
b7 = Diametrale(b2)
b8 = Diametrale(b3)
b9 = Diametrale(b4)
b10 = Diametrale(b5)

b11 = Fuori90(b3+b4)
'-------------------------------------------------------------------

n(1)=b11
ImpostaGiocata 1,n,ruote,poste,c,2
n(1)=b11
n(2)=b8
ImpostaGiocata 2,n,ruote,poste,c,2

n(1)=b11
n(2)=b8
ImpostaGiocata 3,n,ruote,poste,c,2

n(1)=b11
n(2)=b8
ImpostaGiocata 4,n,ruote,poste,c,2



Gioca es
End If

scrivi:Scrivi String(70,"-")
Scrivi "casi trovati : "& co,1
Scrivi String(70,"-")
ScriviResoconto
End Sub



livia
 
Scusami Max la quarta giocata è una terzina formata da
b11 b8 e b9 mi è sfuggita la correzione ciao lola

livia
 
Controlla le differenze

Codice: 
Sub main()
Dim ruote(2)
Dim posta(1),poste(2),post(3)
Dim n1(1),n2(2),n3(2),n4(2),n5(3)

posta(1)=1:poste(2)=1:post(2)=2:post(3)=1

r=InputBox("Ruota di ricerca","Ruota di ricerca",1)
p=InputBox("Posizione num.","Posizione num.",3)

fin=EstrazioneFin
ini=fin-300
For es = ini To fin
AvanzamentoElab ini,fin,es

a = Estratto (es,r,p)
If Gemello(a) Then

co=co+1

Scrivi String(75,"o"),1
Scrivi Space(26)&"< gemello su "&nomeRuota (r)&" > ",1
Scrivi String(75,"-")
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" "&SiglaRuota (r)&_
" "&stringaestratti(es,r)&" [gemello = "&format2(a)&" ]"
Scrivi String(75,"-")

ruote(1)=5
ruote(2)=6
c=13

'----------------------------------------------------------

b1 = Estratto(es,1,1)
b2 = Estratto(es,1,2)
b3 = Estratto(es,1,3)
b4 = Estratto(es,1,4)
b5 = Estratto(es,1,5)

b6 = Diametrale(b1)
b7 = Diametrale(b2)
b8 = Diametrale(b3)
b9 = Diametrale(b4)
b10 = Diametrale(b5)

b11 = Fuori90(b3+b4)
'-------------------------------------------------------------------

n1(1)=b11
ImpostaGiocata 1,n1,ruote,posta,c,1
n2(1)=b11
n2(2)=b1
ImpostaGiocata 2,n2,ruote,poste,c,2
n3(1)=b11
n3(2)=b2
ImpostaGiocata 3,n3,ruote,poste,c,2
n4(1)=b11
n4(2)=b3
ImpostaGiocata 4,n4,ruote,poste,c,2
n5(1)=b11
n5(2)=b8
n5(3)=b9
ImpostaGiocata 5,n5,ruote,post,c,3

Gioca es
End If
next
scrivi:Scrivi String(70,"-")
Scrivi "casi trovati : "& co,1
Scrivi String(70,"-")
ScriviResoconto
End Sub

max
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 21 febbraio 2026
    Bari
    72
    63
    35
    12
    01
    Cagliari
    02
    31
    01
    53
    10
    Firenze
    30
    35
    05
    87
    42
    Genova
    74
    32
    43
    68
    80
    Milano
    39
    06
    64
    16
    83
    Napoli
    56
    65
    71
    07
    12
    Palermo
    11
    57
    50
    28
    71
    Roma
    35
    23
    58
    89
    46
    Torino
    27
    28
    74
    16
    75
    Venezia
    68
    70
    27
    77
    83
    Nazionale
    28
    52
    18
    26
    39
    Estrazione Simbolotto
    Cagliari
    42
    15
    21
    19
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto