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
    giovedì 24 settembre 2026
    Bari
    08
    59
    41
    67
    56
    Cagliari
    57
    66
    71
    70
    42
    Firenze
    75
    15
    49
    21
    13
    Genova
    76
    02
    63
    14
    81
    Milano
    78
    29
    86
    53
    52
    Napoli
    10
    29
    60
    12
    72
    Palermo
    80
    25
    51
    20
    17
    Roma
    70
    01
    47
    69
    64
    Torino
    74
    18
    06
    75
    16
    Venezia
    51
    54
    42
    57
    06
    Nazionale
    02
    66
    15
    11
    22
    Estrazione Simbolotto
    Palermo
    25
    21
    34
    20
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto