Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 Script ambi somma 90 isotopi su due ruote
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore  Discussione Discussione successiva

Flora18
Utente Nuovo

15 invii

Spedito - 17 gennaio 2023 :  16:34:47  Mostra profilo  Rispondi con citazione
Ciao a tutti!

Cerco script per trovare ambi somma 90 isotopi su due ruote.

Grazie!

franca46
Amministratore

Italy
23223 invii

Spedito - 18 gennaio 2023 :  11:06:36  Mostra profilo  Rispondi con citazione
ciao Flora , cosi' ?

Sub Main()
Scrivi
Scrivi String(33," ")&"AMBI ISOTOPI SOMMA 90 SU 2 RUOTE CONSECUTIVE BY BLACKMORE",1:scrivi
Scrivi
Dim am(2)
Dim am1(5)
Dim posta(1)
Dim poste(2)
Dim ruote(10)
Dim ruot(1)
posta(1)=1
poste(2)=1

somma = CInt(InputBox("INSERISCI LA SOMMA...",,90))
k = InputBox("COLPI DI GIOCO ?",,12)
ini = InputBox("INIZIO ?",,9000)
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 9
r2 = r1+1
For p1 = 1 To 4
For p2 = p1+1 To 5

n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
'---------------------------------------------------------------------------------------------------------------
If Fuori90(n1+n2) = somma And Fuori90(n3+n4) = somma Then
j = Distanza(n1,n2) : y = Distanza(n3,n4) : h = Distanza(j,y)
ruote(1)=r1 : ruote(2)=r2
'---------------------------------------------------------------------------------------------------------------
co=co+1
ColoreTesto 0:Scrivi String(80,"=")&" Caso n°"& Format2(co),1
ColoreTesto 1:Scrivi DataEstrazione(es) & " . " & SiglaRuota(r1) & " . " & StringaEstratti(es,r1) & _
" . ambo . " & Format2(n1) & "." & Format2(n2)& " = Somma " & Format2(somma)
ColoreTesto 1:Scrivi DataEstrazione(es) & " . " & SiglaRuota(r2) & " . " & StringaEstratti(es,r2) & _
" . ambo . " & Format2(n3) & "." & Format2(n4)& " = Somma " & Format2(somma)


Gioca es
End If
Next:Next
Next:next
ScriviResoconto
End Sub


buona giornata

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

giorgio60
Utente Sfegatato

Italy
1413 invii

Spedito - 19 gennaio 2023 :  20:17:57  Mostra profilo  Rispondi con citazione
Sub Main()
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
x=CInt(InputBox("Quale somma ?","da 1 a 90",90))

casi=0
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
Messaggio "elab. n° "&es&" del "&DataEstrazione(es)&" [ by Genlotto ]"
For r1=1 To 11
For r2=r1+1 To 12
If r2=11 Then r2=12
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2)
c=Estratto(es,r2,p1) : d=Estratto(es,r2,p2)
sv1=Fuori90(a+c) :sv2=Fuori90(b+d)
sd1=Fuori90(a+d) :sd2=Fuori90(b+c)
so1=Fuori90(a+b) :so2=Fuori90(c+d)
If (sv1=x And sv2=x) Or (sd1=x And sd2=x) Or (so1=x And so2=x) Then
casi=casi+1:Scrivi String(75,"="),1
If sv1=x Then xx="|vert|" Else xx="|diag|"
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&Format2(a)&"."&Format2(b)&" in "&p1&"/"&p2&" ^ pos. ]"&" " & x
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] [ "&Format2(c)&"."&Format2(d)&" in "&p1&"/"&p2&" ^ pos. ] "&xx
Scrivi String(64,"-")&" caso n° "&(casi)
End If
Next
Next
Next
Next
Next
End Sub

Vai ad inizio pagina

franca46
Amministratore

Italy
23223 invii

Spedito - 20 gennaio 2023 :  11:09:38  Mostra profilo  Rispondi con citazione

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina
   Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000