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!
 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 Script ambi somma 90 isotopi su due ruote

Nota: Devi essere registrato per rispondere al messaggio.
Per registrarti, premi qui. La registrazione è GRATUITA!

Risoluzione schermo:
Nome utente:
Password:
Modo formattazione:
Formato: GrassettoCorsivoSottolineatoAttraversato Allinea sinistraCentratoAllinea destra Riga orizzontale Inserisci un indirizzo web (HYPERLINK)Inserisci indirizzo email (EMAIL)Inserisci un'immagine (IMAGE) Inserisci del codice (CODE)Inserisci una citazione (QUOTE)Inserisci elenco
   
Messaggio:

* HTML è attivo
* Il codice su forum è attivo
Smiles
Smile [:)] Grande Smile [:D] Importante [8D] Arrosisco[:I]
Lingua [:P] Diavolo [}:)] Ammicco[;)] Pagliaccio [:o)]
Occhio nero [B)] Palla N.8 [8] Accigliato[:(] Timido [8)]
Shoccato [:0] Arrabbiato [:(!] Morto [xx(] Assonnato [|)]
Baci [:X] Approvo [^] Disapprovo [V] Domanda [?]

 
 
   

R E V I S I O N E      D E L L A      D I S C U S S I O N E
Flora18 Posted - 17 gennaio 2023 : 16:34:47
Ciao a tutti!

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

Grazie!
3     U L T I M E      R E P L I C H E    (Newest First)
franca46 Posted - 20 gennaio 2023 : 11:09:38
giorgio60 Posted - 19 gennaio 2023 : 20:17:57
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
franca46 Posted - 18 gennaio 2023 : 11:06:36
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

Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000