Per joe91 o chi può

[korokoro]

VORREI SE QUESTO SCRIPT SI PUÒ CAMBIARE DA VERTICALE SU DUE RUOTE AD ORRIZONTALE IN UNA RUOTA

GRAZIE LEO


'Somma Verticale

Sub main()

som = CInt(InputBox("Somma da cercare?","Somma",90))
nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",10)
ini = EstrazioneFin - nes
fin = EstrazioneFin
For es = ini To fin
Messaggio "Estrazione: " & es
For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
For r2 = r1 + 1 To 12
For p2 = 1 To 5
b = Estratto(es,r2,p2)
If a + b = som And r2 <> 11 Then
'If p1=p2 Then 'iso
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(a)&" in "&(p1)&" pos.",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & Format2(b)&" in "&(p2)&" pos.",1
Scrivi
End If
'End If
Next
Next
Next
Next
Next
End Sub

 

[Mike58]

somma orizzontale

somma orizzontale

Ciao Leo, negli ultimi tempi il forum ahinoi non è più attivo di partecipanti e per questo che anche le semplici richieste possono rimanere insolute.
Eccoti la correzione richiesta nello script con in aggiunta qualche piccola modifica.

Ciao a te e tutti gli utenti che si dispiacciono della fine di questa area.

['Somma orizzontale su 1 ruota
Sub Main()
 Dim anum(10),ruota(1)
 som = CInt(InputBox("Somma da cercare?","Somma",90))
 nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",10)
 ini = EstrazioneFin - nes
 fin = EstrazioneFin
 For es = ini To fin
  Messaggio "Estrazione: " & es
  For r1 = 1 To 12
   If r1 = 11 Then r1 = 12
   For p1 = 1 To 4
    ruota(1) = r1
    a = Estratto(es,r1,p1)
    ' For r2 = r1 + 1 To 12
    For p2 = p1 + 1 To 5
     b = Estratto(es,r1,p2)
     If a + b = som Then
      anum(1) = som
      Call VerificaEsito(anum,ruota,es + 1,1,10,,retesito,retcolpi,retestratti,retidestr)
      'If p1=p2 Then 'iso
      Scrivi String(70,"=")
      Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(a) & " in " &(p1) & " pos.",1
      Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(b) & " in " &(p2) & " pos.",1
      Scrivi
      ColoreTesto 2
      Scrivi "Gioca numeri..." & anum(1),1
      Scrivi "Verifica esito...." & retesito & " - colpo..." & retcolpi & " - " & retestratti,1
      ColoreTesto 0
     End If
     'End If
     'Next
    Next
   Next
  Next
 Next
End Sub
/CODE]

 

[korokoro]

grazie mike58

 

[Joe91]

Ciao Leo & grazie Mike.

Se mi è consentito ... io non la vedo proprio così ... e forse, anche, non è lecito far di tutte l'erbe un fascio.

Leo ... aveva chiesto ed io ho risposto ... poi ho sviluppato la richiesta in assenza altre di indicazioni ...

cosicchè, ad un certo punto ... mi sono fermato!

Ho anche visto, poi la stessa richiesta in altri forum ... (sia ora che allora)

e dunque mi chiedo ha senso chiedere per poi fregarsene delle risposte?

Oppure è lecito pretendere di impegnare più persone ... senza poi far neppure sapere se,

la risposta / le risposte fossero intreressentanti /pertinenti esaustive ... o anche solo ... genericamente ... "un qualcosa" ?

Comunque sia ... forse, tutto questo serve a far capire come alcune gratuitità-pretese

forse fossero ... non del tutto, prive di valore.

Buona Serata a tutti

Il link precedente:

http://forum.lottoced.com/f12/per-joe91-distanza-h-94958/index2.html

 

[Mike58]

Ciao Joe, se ti può confortare, capisco il tuo disappunto e aggiungo che alle volte è capitato anche a me quello che dici nelle tue righe.
Purtroppo il livello ultimo di questo forum sta tendendo al basso e di questo a me può solo dispiacere.
Io grazie all'aiuto e le lezioni di tanti ho imparato quelle cose che erano le mie esigenze in materia di lotto e per questo che non riesco a capire il perchè questo forum e questa area debba proseguire con questo livello basso.
Poi di ogni cosa c'è da farcene una ragione però il dispiacere ed a volte i disappunti rimangono.

Ciao Joe e tutti gli amici del forum