In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da lottomoney il 09/04/2021, 17:38
Buonasera, cpme state?...tutto bene? Stavolta ho un quesito un pò più facile rispetto ai precedenti postati e cioè: se possibile avere la ricerca del numero ricavato dalla somma (ovviamente fuori 90) dei due numeri in 1a e 2a posizione di ogni ruota, ricercarlo sulla ruota successiva sempre in 1a e 2a posizione. Mi spiego con un esempio: Estrazione del 29/08/2020 ruota di BARI: 61 - 19 = 80 ruota di CAGLIARI in 2a posizione c'è il numero 80 Estrazione del 28/01/2021 ruota di BARI: 52 - 41 = 3 ruota di CAGLIARI in 2a posizione c'è il numero 3 Come detto in precedenza dovrebbe essere fatta la ricerca sulle 10 ruote (Venezia su Nazionale). Un ringraziamento anticipato a chi vorrà cimentarsi lottomoney
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da Master il 09/04/2021, 19:53
Ciao Doverbbe essere così [x spaziometria] - Codice: Seleziona tutto
Sub Main() Scrivi " Ricerca somma 1/2 pos su ruota successiva x lottomoney",1,,,1 'http://www.lottopassion.it/forum/viewtopic.php?f=10&t=4294 Dim a,b,c,r1,r2,e1,e2,es,rs Dim Ini,fin,p3,pp1,pp2,fa rs = CInt(InputBox("Quante estrazioni vuoi controllare? ","ESTRAZIONI",100)) fin = EstrazioneFin Ini = fin - rs For es = Ini To fin AvanzamentoElab Ini,fin,es For r1 = 1 To 10 a = Estratto(es,r1,1) b = Estratto(es,r1,2) fa = Fuori90(a + b) r2 = r1 + 1 If r2 = 11 Then r2 = 12 For p3 = 1 To 2 c = Estratto(es,r2,p3) If fa = c Then Scrivi ColoreTesto 0 Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0 Scrivi " " & SiglaRuota(r1) & " ",1,0 For pp1 = 1 To 5 e1 = Estratto(es,r1,pp1) If e1 = a Or e1 = b Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(e1) & " ",1,0 ColoreTesto 0 Next Scrivi " Somma " & Format2(fa),1 Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0 Scrivi " " & SiglaRuota(r2) & " ",1,0 For pp2 = 1 To 5 e2 = Estratto(es,r2,pp2) If e2 = c Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(e2) & " ",1,0 ColoreTesto 0 Next Scrivi Scrivi String(70,"-") End If Next Next Next End Sub
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
da lottomoney il 09/04/2021, 21:27
Grazie Master, sempre molto gentile Visto che non da molti risultati, secondo te è possibile eventualmente fare il calcolo anche al contrario? cioè adesso, esempio, è tra BARI e CAGLIARI, volendo si potrebbe anche da CAGLIARI e BARI? e naturalmente anche le altre ruote?....forse chiedo troppo, scusami Ovviamente a tua discrezione. Grazie mille nuovamente lottomoney
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da Master il 10/04/2021, 14:30
Ciao Questo controlla precedenti e successive Dimmi se va bene - Codice: Seleziona tutto
Sub Main() Scrivi " Ricerca somma 1/2 pos su ruota prec/succ x lottomoney",1,,,1 'http://www.lottopassion.it/forum/viewtopic.php?f=10&t=4294 Dim a,b,c,r1,r2,e1,e2,es,rs Dim Ini,fin,p3,pp1,pp2,fa rs = CInt(InputBox("Quante estrazioni vuoi controllare? ","ESTRAZIONI",100)) fin = EstrazioneFin Ini = fin - rs For es = Ini To fin AvanzamentoElab Ini,fin,es For r1 = 1 To 12 If r1 = 11 Then r1 = 12 a = Estratto(es,r1,1) b = Estratto(es,r1,2) fa = Fuori90(a + b) For r2 = 1 To 12 If Distanza(r1,r2) = 1 Or(r1 > 9 And r2 > 9 And Distanza(r1,r2) = 2) Then For p3 = 1 To 2 c = Estratto(es,r2,p3) If fa = c Then Scrivi ColoreTesto 0 Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0 Scrivi " " & SiglaRuota(r1) & " ",1,0 For pp1 = 1 To 5 e1 = Estratto(es,r1,pp1) If e1 = a Or e1 = b Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(e1) & " ",1,0 ColoreTesto 0 Next Scrivi " Somma " & Format2(fa),1 Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0 Scrivi " " & SiglaRuota(r2) & " ",1,0 For pp2 = 1 To 5 e2 = Estratto(es,r2,pp2) If e2 = c Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(e2) & " ",1,0 ColoreTesto 0 Next Scrivi Scrivi String(70,"-") End If Next End If Next Next Next End Sub
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
da lottomoney il 10/04/2021, 16:41
FANTASTICO!!!! Master sei un grande, grazie mille lottomoney
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 1 ospite
- Tutti gli orari sono UTC + 1 ora
|