qualcuno esperto di script è realizzabile

salva 57 · 20 Settembre 2023

ho un metodo da mostrare sulle cadenze
vi può interessare??

Rafele ‘o Ruoss’ · 20 Settembre 2023

ce

salva 57 ha scritto:
ho un metodo da mostrare sulle cadenze
vi può interessare??

eccerto

salva57 · 20 Settembre 2023

Ormai è tardi domani
La inserisco
Buona serata

salva 57 · 21 Settembre 2023

buongiorno a tutti
il metodo di gioco che vi presento, si può mettere in gioco su qualsiasi ruota che volete
il procedimento è molto semplice
si prende unità del primo estratto sulla ruota da voi scelta , e si aggiunge 4
esempio se il primo estratto è il 12, si fa ( 2+4=6) , si metterà in gioco la cadenza 6
vi metto x semplificare le cose la tabella già compilata

unità	0	porta	cadenza	4
unità	1	porta	cadenza	5
unità	2	porta	cadenza	6
unità	3	porta	cadenza	7
unità	4	porta	cadenza	8
unità	5	porta	cadenza	9
unità	6	porta	cadenza	0
unità	7	porta	cadenza	1
unità	8	porta	cadenza	2
unità	9	porta	cadenza	3

salva 57 · 21 Settembre 2023

continuando
io essendo 9 numeri di cadenza
li ho divisi
x 1 cinquina è x seconda cinquina
1--11--21--31--41
41--51--61--71--81
da giocare in 1-2-posizione
x un gioco di ambata determinata
ma voi potete scegliere il vostro modo di giocare , a piacimento
chiaramente il gioco posizionato ,è più difficile, ma si può guadagnare qualcosa in più,
che la solita ambata semplice
1--11--21--31--41--51--61--71--81
come estratto semplice i tempi di uscita si riducono molto
stiamo parlando dell" uscita della cadenza che ci interessa
continua...

salva 57 · 21 Settembre 2023

qui vi metto il procedimento di qualche mese
e come detto sopra ho preso in considerazione solo 1-2-posizione
e ho spaccato i numeri in 1 cinquina e 2 cinquina

Data-bari	1-est
25/05/23	36	porta	cadenza	0	esce	40	2 colpo	in	1-posizione	1 cinguina
27/05/23	54	porta	cadenza	8	esce	38	8 colpo	in	2 posizione	1 cinguina
30/05/23	40	porta	cadenza	4	esce	34	1 colpo	in	1-posizione	1 cinguina
01/06/23	34	porta	cadenza	0	esce	40	11 colpo	in	2 posizione	1 cinguina
03/06/23	35	porta	cadenza	9	esce	39	2 colpo	in	2 posizione	1 cinguina
06/06/23	63	porta	cadenza	7	esce	27	2 colpo	in	1-posizione	1 cinguina
08/06/23	21	porta	cadenza	5	esce	35-55	2 colpo	in	1-2-posizione	1 cinguina
10/06/23	27	porta	cadenza	1	esce	41	4 colpo	in	1 posizione	1 cinguina
13/06/23	35	porta	cadenza	9	esce	79	3 colpo	in	2 posizione	2 cinguina
15/06/23	12	porta	cadenza	6	esce	66	13 colpo	in	1 posizione	2 cinguina
17/06/23	88	porta	cadenza	2	esce	22	5 colpo	in	2 posizione	1 cinguina
20/06/23	41	porta	cadenza	5	esce	5	1 colpo	in	1 posizione	1 cinguina
22/06/23	5	porta	cadenza	9	esce	59	3 colpo	in	1 posizione	2 cinguina
24/06/23	85	porta	cadenza	9	esce	59	2 colpo	in	1 posizione	2 cinguina
27/06/23	73	porta	cadenza	7	esce	67	2 colpo	in	1 posizione	2 cinguina
29/06/23	59	porta	cadenza	3	esce	33	4 colpo	in	2 posizione	1 cinguina
01/07/23	67	porta	cadenza	1	esce	.11-51.	1 colpo	in	1-2-posizione	1 cinguina
04/07/23	11	porta	cadenza	5	esce	35	1 colpo	in	2 posizione	1 cinguina
06/07/23	62	porta	cadenza	6	esce	66	4 colpo	in	1 posizione	2 cinguina
08/07/23	83	porta	cadenza	7	esce	17	2 colpo	in	1 posizione	1 cinguina
11/07/23	62	porta	cadenza	6	esce	66	2 colpo	in	1 posizione	2 cinguina
13/07/23	17	porta	cadenza	1	esce	31	2 colpo	in	2 posizione	1 cinguina
14/07/23	66	porta	cadenza	0	esce	10	3 colpo	in	1 posizione	1 cinguina
15/07/23	19	porta	cadenza	3	esce	3	12 colpo	in	1 posizione	1 cinguina
18/07/23	65	porta	cadenza	9	esce	59	1 colpo	in	2 posizione	2 cinguina
20/07/23	10	porta	cadenza	4	esce	14	5 colpo	in	2 posizione	1 cinguina
21/07/23	61	porta	cadenza	5	esce	65	10 colpo	in	1 posizione	2 cinguina
22/07/23	21	porta	cadenza	5	esce	65	9 colpo	in	1 posizione	2 cinguina
25/07/23	80	porta	cadenza	4	esce	14	2 colpo	in	2 posizione	1 cinguina
27/07/23	81	porta	cadenza	5	esce	65	7 colpo	in	1 posizione	2 cinguina
29/07/23	59	porta	cadenza	3	esce	3	5 colpo	in	1 posizione	1 cinguina
01/08/23	68	porta	cadenza	2	esce	72	1 colpo	in	2 posizione	2 cinguina
03/08/23	47	porta	cadenza	1	esce	1	6 colpo	in	1 posizione	1 cinguina
05/08/23	14	porta	cadenza	8	esce	38	3 colpo	in	2 posizione	1 cinguina
08/08/23	46	porta	cadenza	0	esce	50	10 colpo	in	2 posizione	2 cinguina
10/08/23	3	porta	cadenza	7	esce	57	4 colpo	in	1 posizione	2 cinguina
11/08/23	65	porta	cadenza	9	esce	89	1 colpo	in	2 posizione	2 cinguina
12/08/23	83	porta	cadenza	7	esce	57	2 colpo	in	1 posizione	2 cinguina
16/08/23	1	porta	cadenza	5	esce	15	3 colpo	in	1 posizione	1 cinguina
17/08/23	57	porta	cadenza	1	esce	1	14 colpo	in	2 posizione	1 cinguina
18/08/23	27	porta	cadenza	1	esce	1	13 colpo	in	2 posizione	1 cinguina
19/08/23	15	porta	cadenza	9	esce	39	5 colpo	in	1 posizione	1 cinguina
22/08/23	5	porta	cadenza	9	esce	39	4 colpo	in	1 posizione	1 cinguina
24/08/23	16	porta	cadenza	0	esce	50	1 colpo	in	2 posizione	2 cinguina
25/08/23	82	porta	cadenza	6	esce	86	3 colpo	in	1 posizione	2 cinguina
26/08/23	39	porta	cadenza	3	esce	13	5 colpo	in	1 posizione	1 cinguina
29/08/23	4	porta	cadenza	8	esce			in
31/08/23	86	porta	cadenza	0	esce	70	2 colpo	in	1 posizione	2 cinguina
01/09/23	86	porta	cadenza	0	esce	70	1 colpo	in	1 posizione	2 cinguina
02/09/23	70	porta	cadenza	4	esce	44	6 colpo	in	2 posizione	1 cinguina
05/09/23	13	porta	cadenza	7	esce	67	2 colpo	in	2 posizione	2 cinguina
07/09/23	40	porta	cadenza	4	esce	44	4 colpo	in	2 posizione	1 cinguina
08/09/23	50	porta	cadenza	4	esce	44	3 colpo	in	2 posizione	1 cinguina
09/09/23	45	porta	cadenza	9	esce			in
12/09/23	53	porta	cadenza	7	esce	37	2 colpo	in	2 posizione	1 cinguina
14/09/23	66	porta	cadenza	0	esce	70	3 colpo	in	2 posizione	2 cinguina
15/09/23	14	porta	cadenza	8	esce			in
16/09/23	77	porta	cadenza	1	esce			in
19/09/23	15	porta	cadenza	9	esce			in
		porta	cadenza		esce			in
		porta	cadenza		esce			in

salva 57 · 21 Settembre 2023

cinquina scusate

questa è la ruota di bari
ma lo stesso procedimento
vale anche x le altre ruote

salva 57 · 21 Settembre 2023

dopo tutta sta pappardella
se qualche volenteroso volesse
fare uno script , magari di un anno
con percentuale di vincita
e con percentuale sulla 1 cinquina
oppure 2 cinquina
a voi io sono solo carta e penna
salva57

salva 57 · 21 Settembre 2023

un altro piccolo esempio su vedete che la cadenza 8 è in ritardo
ma solo come 1-2-posizione
non come cadenza
perchè il 31-8-23 esce il 38
il 7-9-23 esce il 58
il 8-9-23 esce 8--38
così via...

Mike58 · 21 Settembre 2023

Solo Per curiosità fatto script numeri in cadenza e verifica sortita in posizione.
La verifica è su tutta la cadenza.
Gli esiti sono in positivo al 50% e chiaramente gli utili andranno in negativo del 30-40 %.
verificate.

Codice:

Sub Main
   Dim Nu(1),Ru(1),Posta(10)
   Posta(6) = 1
   Posta(7) = 1
   Ini = EstrazioneFin - 156
   fin = EstrazioneFin
   r = ScegliRuota
   For es = Ini To fin
      k1 = k1 + 1
      a = Estratto(es,r,1)
      b = Cadenza(a + 4)
      '................................
      For n = 1 To 90
         If Cadenza(n) = b Then
            k = k + 1
            ReDim Preserve cad(k)
            cad(k) = n
         End If
      Next
      Ru(1) = r
      '.................................
      Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r) & vbTab & a & vbTab & StringaNumeri(cad),1,,,1,3,,1
      k = 0
      ImpostaGiocata 1,cad,Ru,Posta,11,1
      Gioca es,1
      Scrivi String(140,"=") & " Caso N." & k1
   Next
   ScriviResoconto
End Sub

salva57 · 21 Settembre 2023

Hai fatto 9 numeri
X 2 posizioni?

Rafele ‘o Ruoss’ · 22 Settembre 2023

Mike58 ha scritto:

Non Lo so. Raf.
Modificare script già compilati per uno scopo , diventa complicato poi ottenere altre risultanze.
Ti metto un ' altro modus operandi che immettendo le spie in manuale (direttamente nello script con indicazioni remmate) e con scelta mese e anni come sopra, ottieni i tuoi risultati visivi e conteggiati.

Ciao

Codice:

Sub Main
   Dim aCol(1),spia(5),E,ru(1),Cad(1),kk(5)
   Ini = EstrazioneIni
   fin = EstrazioneFin
   '------------------------------------
   An1 = 2020 ' modificare anno inizio
   an2 = 2022 ' anno Fine
   ms = 3 ' 3 uguale Marzo
   '------------------------------------
   spia(1) = 11 ' spia1
   spia(2) = 13 ' ""
   spia(3) = 71 ' ""
   spia(4) = 82 ' ""
   spia(5) = 83 ' spia5
   Cad(1) = 5 ' questa è la tua cadenza
   '-----------------------------------
   Scrivi "Cadenza N.... : " & Cad(1),1
   Scrivi "Numeri scelti : " & StringaNumeri(spia)
   Scrivi "Mese scelto   : " & MeseNome(ms)
   Scrivi "Anni scelti   : " & an1 & " <> " & an2
   Scrivi
   For es = Ini To fin
      If Mese(Es) = ms And Anno(Es) >= an1 And Anno(Es) <= an2 Then
         For r = 1 To 1 ' scegli ruota
            ru(1) = r
            Scrivi GetInfoEstrazione(es) & vbTab & FormatSpace(NomeRuota(R),12) & " ",,0
            For p = 1 To 5
               E = Estratto(Es,r,p)
               If spia(1) = E Or spia(2) = E Or spia(3) = E Or spia(4) = E Or spia(5) = E Then
                  aCol(1) = vbGreen
               ElseIf Cad(1) = E Then
                  aCol(1) = vbRed
               Else aCol(1) = RGB(239,240,242)
               End If
               Call VerificaEsito(spia,ru,Es,1,1,,Esito,,Esa)
               Scrivi " " & Format2(E) & " ",,0,aCol(1),,3
               For cc = 1 To UBound(spia)
                  If spia(cc) = E Then kk(cc) = kk(cc) + 1
               Next
            Next
            Scrivi vbTab & Esito,0,0
            Scrivi
         Next
      End If
   Next
   Scrivi
   Scrivi "Riepilogo Numeri Spia Presenti",1
   For c = 1 To UBound(spia)
      Scrivi spia(c) & " = " & kk(c)
   Next
End Sub

buongiorno @Mike58 so che non ti piace rimettere mano e lo capisco..ma ti chiedo un ultima cortesia in merito
potresti aggiungere la possibilità di verifica dei numeri ripetuti anche non isotopi
grazie buona giornata

Mike58 · 22 Settembre 2023

x Salva57
Si Te lo anche scritto, se ti serve lo te faccio anche diviso 2 cinquine come hai indicato con la numero 5 ripetuta.
Essendo 2 giocate cambiano gli esiti al 70 % mentre rischia di ridursi l'utile.
comunque eccolo.

Codice:

Sub Main
   Dim Nu(1),Ru(1),Posta(10),cinq1(5),cinq2(5)
   Posta(6) = 1
   Posta(7) = 1
   Ini = EstrazioneFin - 156
   fin = EstrazioneFin
   r = ScegliRuota
   For es = Ini To fin
      k1 = k1 + 1
      a = Estratto(es,r,1)
      b = Cadenza(a + 4)
      '................................
      For n = 1 To 90
         If Cadenza(n) = b Then
            k = k + 1
            ReDim Preserve cad(k)
            cad(k) = n
         End If
      Next
      Ru(1) = r
      cinq1(1) = cad(1) : cinq1(2) = cad(2) : cinq1(3) = cad(3) : cinq1(4) = cad(4) : cinq1(5) = cad(5)
      cinq2(1) = cad(5) : cinq2(2) = cad(6) : cinq2(3) = cad(7) : cinq2(4) = cad(8) : cinq2(5) = cad(9)
 
      '.................................
      Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r) & vbTab & a & vbTab & StringaNumeri(cad),1,,,1,3,,1
      k = 0
      ImpostaGiocata 1,cinq1,Ru,Posta,11,1
      ImpostaGiocata 2,cinq2,Ru,Posta,11,1

      Gioca es,1
      Scrivi String(140,"=") & " Caso N." & k1
   Next
   ScriviResoconto
End Sub

Mike58 · 22 Settembre 2023

x Rafele
Effettivamente non mi piace rimettere mano ad uno script per uno scopo per poi estrapolare anche altri scopi e parametri.
Ci ho messo un pochetto di tempo a farlo interagire e ti posso mettere il totale dei numeri trovati nelle estrazioni in esame.

Codice:

Sub Main
   Dim aCol(1),spia(5),E,ru(1),Cad(1),kk(90),kkk(90)
   Ini = EstrazioneIni
   fin = EstrazioneFin
   '------------------------------------
   An1 = 2020 ' modificare anno inizio
   an2 = 2022 ' anno Fine
   ms = 3 ' 3 uguale Marzo
   '------------------------------------
   spia(1) = 11 ' spia1
   spia(2) = 12 ' ""
   spia(3) = 71 ' ""
   spia(4) = 82 ' ""
   spia(5) = 83 ' spia5
   Cad(1) = 5 ' questa è la tua cadenza
   '-----------------------------------
   Scrivi "Cadenza N.... : " & Cad(1),1
   Scrivi "Numeri scelti : " & StringaNumeri(spia)
   Scrivi "Mese scelto   : " & MeseNome(ms)
   Scrivi "Anni scelti   : " & an1 & " <> " & an2
   Scrivi
   For es = Ini To fin
      If Mese(Es) = CInt(ms) And Anno(Es) >= an1 And Anno(Es) <= an2 Then
         For r = 1 To 1 ' scegli ruota
            ru(1) = r
            Scrivi GetInfoEstrazione(es) & vbTab & FormatSpace(NomeRuota(R),12) & " ",,0
            For p = 1 To 5
               E = Estratto(Es,r,p)
               If spia(1) = E Or spia(2) = E Or spia(3) = E Or spia(4) = E Or spia(5) = E Then
                  aCol(1) = vbGreen
               ElseIf Cad(1) = E Then
                  aCol(1) = vbRed
               Else aCol(1) = RGB(239,240,242)
               End If
               Call VerificaEsito(spia,ru,Es,1,1,,Esito,,Esa)
               Scrivi " " & Format2(E) & " ",,0,aCol(1),,3
               '-------------------------------------------
               For cc = 1 To UBound(spia)
                  If spia(cc) = E Then kk(cc) = kk(cc) + 1
               Next
               For ccc = 1 To 90
                  If(ccc) = E Then kkk(ccc) = kkk(ccc) + 1
               Next
               '------------------------------------------
            Next
            Scrivi vbTab & Esito,0,0
            Scrivi
         Next
      End If
   Next
   '------------------------------------------------
   Scrivi
   Scrivi "Riepilogo Numeri Spia Presenti",1
   For c1 = 1 To UBound(spia)
      Scrivi spia(c1) & " = " & kk(c1)
   Next
   Scrivi
   '-------------------------------------------
   For x = 0 To 10
      For c2 = 1 To 90
         If kkk(c2) = x Then
            k1 = k1 + 1
            ReDim Preserve afreq(k1)
            afreq(k1) = c2
         End If
      Next
      If k1 > 0 Then
         Call Scrivi (FormatSpace(k1,2)  & " Con Presenza " & x & vbTab ,1,0,,2,3)
         Call Scrivi (StringaNumeri(afreq),1,1,,1,3)
      End If
      k1 = 0
   Next
End Sub

Riepilogo Numeri Spia Presenti
11 = 2
12 = 4
71 = 2
82 = 1
83 = 1

10 Con Presenza 0 3.13.18.33.40.42.43.63.70.85
27 Con Presenza 1 1.5.6.8.9.10.14.21.22.23.25.26.27.36.38.39.59.60.62.65.67.69.73.80.81.82.83
25 Con Presenza 2 4.7.11.16.19.20.28.30.31.34.41.46.47.49.54.58.64.68.71.72.74.75.77.78.90
14 Con Presenza 3 2.15.24.35.37.45.48.51.52.55.79.84.87.89
9 Con Presenza 4 12.17.29.44.50.53.57.86.88
5 Con Presenza 5 32.56.61.66.76

Rafele ‘o Ruoss’ · 22 Settembre 2023

Mike58 ha scritto:

x Rafele
Effettivamente non mi piace rimettere mano ad uno script per uno scopo per poi estrapolare anche altri scopi e parametri.
Ci ho messo un pochetto di tempo a farlo interagire e ti posso mettere il totale dei numeri trovati nelle estrazioni in esame.

Codice:

Sub Main
   Dim aCol(1),spia(5),E,ru(1),Cad(1),kk(90),kkk(90)
   Ini = EstrazioneIni
   fin = EstrazioneFin
   '------------------------------------
   An1 = 2020 ' modificare anno inizio
   an2 = 2022 ' anno Fine
   ms = 3 ' 3 uguale Marzo
   '------------------------------------
   spia(1) = 11 ' spia1
   spia(2) = 12 ' ""
   spia(3) = 71 ' ""
   spia(4) = 82 ' ""
   spia(5) = 83 ' spia5
   Cad(1) = 5 ' questa è la tua cadenza
   '-----------------------------------
   Scrivi "Cadenza N.... : " & Cad(1),1
   Scrivi "Numeri scelti : " & StringaNumeri(spia)
   Scrivi "Mese scelto   : " & MeseNome(ms)
   Scrivi "Anni scelti   : " & an1 & " <> " & an2
   Scrivi
   For es = Ini To fin
      If Mese(Es) = CInt(ms) And Anno(Es) >= an1 And Anno(Es) <= an2 Then
         For r = 1 To 1 ' scegli ruota
            ru(1) = r
            Scrivi GetInfoEstrazione(es) & vbTab & FormatSpace(NomeRuota(R),12) & " ",,0
            For p = 1 To 5
               E = Estratto(Es,r,p)
               If spia(1) = E Or spia(2) = E Or spia(3) = E Or spia(4) = E Or spia(5) = E Then
                  aCol(1) = vbGreen
               ElseIf Cad(1) = E Then
                  aCol(1) = vbRed
               Else aCol(1) = RGB(239,240,242)
               End If
               Call VerificaEsito(spia,ru,Es,1,1,,Esito,,Esa)
               Scrivi " " & Format2(E) & " ",,0,aCol(1),,3
               '-------------------------------------------
               For cc = 1 To UBound(spia)
                  If spia(cc) = E Then kk(cc) = kk(cc) + 1
               Next
               For ccc = 1 To 90
                  If(ccc) = E Then kkk(ccc) = kkk(ccc) + 1
               Next
               '------------------------------------------
            Next
            Scrivi vbTab & Esito,0,0
            Scrivi
         Next
      End If
   Next
   '------------------------------------------------
   Scrivi
   Scrivi "Riepilogo Numeri Spia Presenti",1
   For c1 = 1 To UBound(spia)
      Scrivi spia(c1) & " = " & kk(c1)
   Next
   Scrivi
   '-------------------------------------------
   For x = 0 To 10
      For c2 = 1 To 90
         If kkk(c2) = x Then
            k1 = k1 + 1
            ReDim Preserve afreq(k1)
            afreq(k1) = c2
         End If
      Next
      If k1 > 0 Then
         Call Scrivi (FormatSpace(k1,2)  & " Con Presenza " & x & vbTab ,1,0,,2,3)
         Call Scrivi (StringaNumeri(afreq),1,1,,1,3)
      End If
      k1 = 0
   Next
End Sub

Riepilogo Numeri Spia Presenti
11 = 2
12 = 4
71 = 2
82 = 1
83 = 1

10 Con Presenza 0 3.13.18.33.40.42.43.63.70.85
27 Con Presenza 1 1.5.6.8.9.10.14.21.22.23.25.26.27.36.38.39.59.60.62.65.67.69.73.80.81.82.83
25 Con Presenza 2 4.7.11.16.19.20.28.30.31.34.41.46.47.49.54.58.64.68.71.72.74.75.77.78.90
14 Con Presenza 3 2.15.24.35.37.45.48.51.52.55.79.84.87.89
9 Con Presenza 4 12.17.29.44.50.53.57.86.88
5 Con Presenza 5 32.56.61.66.76

@Mike58 piu' che ringraziarti non posso fare , sei davero e te lo dico con il cuore una persona disponibile e comprensiva, ti ringrazio per il tuo impegno e per cio che rendi possibile
un abbraccio e buon fine settimana

Mike58 · 22 Settembre 2023

Grazie Raf faccio quello che posso, ma non è facile capire tutto, comunque cerco sempre di far del mio meglio.
Fare script un pochetto mi piace ed è soprattutto una buone palestra per allenare la mente ,chiaro come dico sempre
senza presunzione di perfezione.
Ciao

Cerca

Cerca

qualcuno esperto di script è realizzabile

salva 57

Advanced Member >PLATINUM<

Rafele ‘o Ruoss’

Banned

salva57

Advanced Member >PLATINUM PLUS<

salva 57

Advanced Member >PLATINUM<

salva 57

Advanced Member >PLATINUM<

salva 57

Advanced Member >PLATINUM<

salva 57

Advanced Member >PLATINUM<

salva 57

Advanced Member >PLATINUM<

salva 57

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

salva57

Advanced Member >PLATINUM PLUS<

Rafele ‘o Ruoss’

Banned

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

Rafele ‘o Ruoss’

Banned

Mike58

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi