aiuto x script

[fata65]

Non ho scritto fare la somma dei numeri uguali e poi fare il complemento a 90?

 

[Joe91]

Ciao Fata65.

Controlla se ho interpretato correttamente la tua richiesta,

e se funziona bene perché l'ho scritto ma non ho fatto nessun controllo.

Option Explicit
Sub Main
'Complemento dell' Estratto Isotopo per Fata65
'Script By Joe
Dim Es,R1,P,E,R2,Nu(1),Ru(2),Po(1),Co
Po(1) = 1 : Co = 6
For Es = EstrazioneFin - 156 To EstrazioneFin
For R1 = 1 To 10
For P = 1 To 5
E = Estratto(Es,R1,P)
For R2 = R1 + 1 To 12 : If R2 = 11 Then R2 = 12
If Posizione(Es,R2,E) = P Then
Ru(1) = R1 : Ru(2) = R2 : Nu(1) = ComplAdX (E)
ImpostaGiocata 1,Nu,Ru,Po,Co,1
Gioca Es,True
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Buon Week-End a tutte/i.

 

[Joe91]

ciao joe91 non mi sono spiegata bene ho scritto male il messaggio faccio esempio 43+43=86 poi 90-86=4 ambata

51+51=102 -90=12 poi 90-12=78 ambata grazie della tua gentilezza

Ok modifico lo script ... accogliendo
la nuova richiesta.

 

[Joe91]

Option Explicit
Sub Main
'Somma Estratto Isotopo per Fata65
'Script By Joe
Dim Es,R1,P,E,R2,Nu(1),Ru(2),Po(1),Co
Po(1) = 1 : Co = 6
For Es = EstrazioneFin - 156 To EstrazioneFin
For R1 = 1 To 10
For P = 1 To 5
E = Estratto(Es,R1,P)
For R2 = R1 + 1 To 12 : If R2 = 11 Then R2 = 12
If Posizione(Es,R2,E) = P Then
Ru(1) = R1 : Ru(2) = R2 : 
nu(1) = 2 * E
If Nu (1) > 90 Then Nu (1) = Nu (1)- 90
ImpostaGiocata 1,Nu,Ru,Po,Co,1
Gioca Es,True
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Buon Week-End a tutte/i.

 

[fata65]

scusami ancora joe91 non mi trovo con le ambate 51+51=102 -90=12 poi 90-12=78 ambata ,qui viene fatto il fuori novanta 2 volte

il primo esempio e giusto

si potrebbe indicare nel listato i numeri isotopi e poi l'ambata scusami ancora
,

 

[Joe91]

scusami ancora joe91 non mi trovo con le ambate 51+51=102 -90=12 poi 90-12=78 ambata ,qui viene fatto il fuori novanta 2 volte

il primo esempio e giusto

si potrebbe indicare nel listato i numeri isotopi e poi l'ambata scusami ancora
,

Ciao Fata65.

"Complemento a 90 di un "Numero" che può essere già maggiore di 90, è una cosa un pò strana.

Quindi assumendo sia tutta mia la colpa dell'incomprensione,secondo me ... l'unica ... è procedere tentando una soluzione .... possibile.

Considero che "Fuori90" non può operare 2 volte ...

... e penso che potrebbe essere: "La somma degli isotopi ... col Fuori90"

e poi... il "Complemento a 90" di questa Somma.

Per il resto ... naturalmente non c'è problema, ho aggiunto un elenco

delle ruote / degli gli estratti / della posizione che originano il pronostico da controllare.

Option Explicit
Sub Main
'Complementare della Somma Estratti Isotopi per Fata65
'Script By Joe
Dim Es,R1,P,E,R2,Nu(1),Ru(2),K,Po(1),Co
Po(1) = 1 : Co = 6
For Es = EstrazioneFin - 156 To EstrazioneFin
For R1 = 1 To 10
For P = 1 To 5
E = Estratto(Es,R1,P)
For R2 = R1 + 1 To 12 : If R2 = 11 Then R2 = 12
If Posizione(Es,R2,E) = P Then
K = K +1 : Scrivi String (100,"=") & FormatSpace(K,5,True),True
Ru(1) = R1 : Ru(2) = R2
Nu(1) = ComplAdX(Fuori90(2 * E))
Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(R1) & Space(1) & StringaEstratti(Es,R1) & Space(2) & Format2(E) & Space(2) & P & "° Det."
Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(R2) & Space(1) & StringaEstratti(Es,R2) & Space(2) & Format2(E) & Space(2) & P & "° Det."
ImpostaGiocata 1,Nu,Ru,Po,Co,1
Gioca Es,True
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Cordiali saluti

 

[fata65]

grazie joe91 terrò presente la tua spiegazione

 

[fata65]

ciao joe91 se voglio aggingere gli abbinamenti come si fa?

 

[Joe91]

Ciao Fata65.

Nelle prime linee dello script trovi dimensionato "il contenitore" per numero di numeri da porre in gioco.

E' Nu(1) ed è ... per ... UN Numero.

Bisogna aumentarlo a quanti sono i numeri in gioco.

Diciamo fossero 5 tra le parentesi scrivi 5. Cioè diventa Nu(5).

Poi Nu(1) è calcolato dallo script ... mentre per gli "X" gli abbinamenti, non so, e quindi ti do una linea guida.

Se fossero fissi ... Scriverai: Nu(2) = FissoA: Nu(3) = FissoB : Nu(4) = FissoC : Nu(5) = FIssoD.

Mentre se fossero risultati di calcoli dovresti scrivere qualcosa tipo :

Nu(2) = risultatoA : Nu(3)= RisultatoB ecc.

Quindi, se vuoi provare ... nulla lo vieta.

Mentre se ci fossero problemi ... specifica quali aggiunte ... in quali script e dovrebbe essere

semplice apportare le modifiche necessarie.

Cordiali saluti.

 

[Joe91]

Ciao.

Ho inserito gli abbinamenti e ti dovrebbe essere possibile controllarli/sostituirli.

Non ho controllato che funzioni dunque è bene farlo prima di trarre qualsiasi considerazione.

Option Explicit
Sub Main
'Complementare della Somma Estratti Isotopi per Fata65

'Abbinamenti: 9/90 - 27/50 - 5/80 - 29/44

Dim Es,R1,P,E,R2,Ru(2),K,Po(1),Co, PM(3)
Po(1) = 1 : PM(2) = 0.9 : PM(3) = 0.1 : Co = 6
For Es = EstrazioneFin - 156 To EstrazioneFin
For R1 = 1 To 10
For P = 1 To 5
E = Estratto(Es,R1,P)
For R2 = R1 + 1 To 12 : If R2 = 11 Then R2 = 12
If Posizione(Es,R2,E) = P Then
K = K +1 : Scrivi String (100,"=") & FormatSpace(K,6,True),True
Ru(1) = R1 : Ru(2) = R2
ReDim Nu(1) : Nu(1) = ComplAdX(Fuori90(2 * E))
ColoreTesto 1
Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(R1) & Space(1) & StringaEstratti(Es,R1) & Space(2) & Format2(E) & Space(2) & P & "° Det."
Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(R2) & Space(1) & StringaEstratti(Es,R2) & Space(2) & Format2(E) & Space(2) & P & "° Det."
ColoreTesto 0
ImpostaGiocata 1,Nu,Ru,Po,Co,1
ReDim Nu(3) : Nu(1) = ComplAdX(Fuori90(2 * E)) : Nu(2) =  9 : Nu(3) = 90
ImpostaGiocata 2,Nu,Ru,PM,Co,3
ReDim Nu(3) : Nu(1) = ComplAdX(Fuori90(2 * E)) : Nu(2) = 27 : Nu(3) = 50
ImpostaGiocata 3,Nu,Ru,PM,Co,3
ReDim Nu(3) : Nu(1) = ComplAdX(Fuori90(2 * E)) : Nu(2) =  5 : Nu(3) = 80
ImpostaGiocata 4,Nu,Ru,PM,Co,3
ReDim Nu(3) : Nu(1) = ComplAdX(Fuori90(2 * E)) : Nu(2) = 29 : Nu(3) = 44
ImpostaGiocata 5,Nu,Ru,PM,Co,3
Gioca Es,True
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Buona giornata.

 

[fata65]

grazie mille
joe91