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
    martedì 11 novembre 2025
    Bari
    81
    64
    11
    88
    51
    Cagliari
    58
    62
    41
    29
    14
    Firenze
    07
    27
    89
    20
    64
    Genova
    51
    66
    42
    79
    58
    Milano
    09
    40
    56
    10
    78
    Napoli
    71
    22
    67
    48
    64
    Palermo
    71
    67
    42
    89
    53
    Roma
    74
    60
    86
    80
    39
    Torino
    25
    11
    62
    33
    87
    Venezia
    59
    84
    74
    70
    03
    Nazionale
    86
    18
    87
    70
    45
    Estrazione Simbolotto
    Torino
    13
    23
    44
    08
    25
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto