Per Salvo o chi mi puo aiutare

[Serpico 90]

Buon giorno a tutti .......cortesemente chiedo se possibile creare uno script che facci quando di seguito
con inputbox indico le ruote .....di previsione
sempre con imputbox indico i numeri
lo script mi deve dividere i numeri in numeri pari e numeri dispari
e infine fare le verifiche sulle estrazioni successive......
faccio alcuni esempi
estrazione del 22.06.1019
ruote da inserire. palermo roma
numeri da inserire. 16.51.45.90.61.6.80.35
n.pari 16--90--6--80
n.dispari...51--45--61--35--
verifiche delle quartine per le estrazioni successive..........

Questo lo script che io desidero.......
Grazie a Salvo o chi mi puo fare gentilmente questo script
speranzoso
vi auguro un buona giornata a tutti
saluti
Serpico

 

[Serpico 90]

Buon giorno a tutti.....................
Mike ....Salvo.................Joe..........Magia.........Disaronno..........Claudio otto.....
Spero anche che Rubino dopo che avrà un po di tempo disponibile perchè leggo impegnato con il lavoro di uno script molto impegnativo nella costruzione ......possa trovare un po di tempo.

Siete gli scriptisti.........piu bravi ed esperti che ci sono ........tra tutti i forum............
credo che per Voi......non ci sia nessun problema a creare lo .......script che io desidero......

Grazie se avrete un po del vostro tempo per crearlo..,,,,
Buona giornata
Saluti
Serpico

 

[salvo50]

Ciao a Tutti.

Ciao Serpico, in questo periodo sono indaffarato con altre questioni, al volo ho fatto questo script che cerca i riscontri con impostagiocata, e dato che i numeri sono fissi, inevitabilmente ci sono doppioni di vincite, se riesco a districarmi lo rifarò con VERIFICAESITO e questo inconveniente non ci dobrebbe essere.

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Salvo50
   Dim K,Caso,Casi
   Dim Posta(5)
   ReDim aRuote(0),aNum(10),aNumP(10),aNumD(10)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9640)
   Clp1 = InputBox("Per quanti colpi vuoi giocare?",Salvo50,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Call ScegliRuote(aRuote)
   Call ScegliNumeri(aNum)
   Scrivi " - Per Serpico - PARI e DISPARI - Script by Salvo50",1,,,1,3,,1
   Posta(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For K = 1 To UBound(aNum)
         If pari(aNum(K)) Then aNumP(K) = aNum(K) Else aNumD(K) = aNum(K)
      Next
      Caso = 0
      Caso = Caso + 1
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
      Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
      Scrivi " Numeri Scelti " & StringaNumeri(aNum),1
      Scrivi "          Pari " & StringaNumeri(aNumP),1
      Scrivi "       Dispari " & StringaNumeri(aNumD),1
      Scrivi
      ImpostaGiocata 1,aNumP,aRuote,Posta,Clp1
      ImpostaGiocata 2,aNumD,aRuote,Posta,Clp1
      Gioca Es
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[Serpico 90]

Grazie Salvo.........ho provato e mi sta bene era quello che desideravo .
Poi quando avrai tempo e sempre con la tua gentile disponibilità...........fai quello che ritieni per il miglioramento dell script,io non sono per niente afferrato su come si fa uno script e quindi FAI TU.
Saluti
Serpico

 

[Serpico 90]

Buon giorno a tutti ......io sto smanettando con lo script che gentilmente Salvo ha approntato come dice lui """al VOLO"""
..sto verificando con piacere che per pari e dispari qualche ambo in quartina si riesce a prendere
Salvo ..quando avrai tempo e disponibilità prima di fare le modifiche da te indicate per non farti fare doppi lavori ..se ti e possibile avvisarmi..in modo che gentilmente ti informo di quello che eventualmente si puo aggiungere al tuo script per avere una visione maggiore dello sviluppo delle OTTINE
Sempre grato della tua disponibilità .
continuo a fare le mie verifiche sulle estrazioni precedenti .
Saluti
Serpico

 

[Serpico 90]

Buon giorno Salvo ho visto che sei già operativo............
Se gentilmente potresti visionare lo script da te fatto......e gentilmente ti chiedo fermo restando l'inserimento sia delle ruote sia dell'ottina .......se prima della divisione dei numeri in pari e dispari lo script possa fare la verifica sulle estrazioni successive se vi e stato ambo o terno nell'ottina.
Poi la divisione in pari e dispari sempre dei numeri inseriti .
.......infine (se ti e possibile)... una ciliegina sulla torta se sarebbe possibile inserire qualche formula o algoritmo che mi possa far individuare quale ambo possibile sulla quartina in gioco.....se non e possibile pazienza.....
Faccio un esempio:
estrazione del 13/06/2019
ruote MILANO GENOVA
NUMERI 01---03---46---48---02---45---47---90
a questo punto lo script verifica se nell'estrazioni successive vi e ambo i o terno in ottina.
poi lo script continua con la divisone dei numeri dell'ottina in pari e dispari
(qui potrebbe essere inserito qualcosa che io non so bene indicare lo chiamano algoritmo che ci potrebbe indicare quale ambo sui quattro numeri pari o dispari potrebbe essere piu in procinto di essere estratto )
da qui in poi la verifica sulle estrazioni successive del risultato in ambo sui quattro numeri pari o dispari.....
Spero con l'esempio di essere stato chiaro in ogni caso sono disponibile a far altri esempi.
Buon lavoro
Saluti
Serpico

 

[salvo50]

Ciao, ho messo la ricerca anche alla lunghetta, per le altre richieste non sono in grado di farle.

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Salvo50
   Dim K,Caso,Casi
   Dim aPosta(5),aPoste(5)
   ReDim aRuote(0),aNum(10),aNumP(10),aNumD(10)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9640)
   Clp1 = InputBox("Per quanti colpi vuoi giocare?",Salvo50,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Call ScegliRuote(aRuote)
   Call ScegliNumeri(aNum)
   Scrivi " - Per Serpico - PARI e DISPARI - Script by Salvo50",1,,,1,3,,1
   aPosta(2) = 1
   aPoste(2) = 1
   aPoste(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For K = 1 To UBound(aNum)
         If pari(aNum(K)) Then aNumP(K) = aNum(K) Else aNumD(K) = aNum(K)
      Next
      Caso = 0
      Caso = Caso + 1
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
      Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
      Scrivi " Numeri Scelti " & StringaNumeri(aNum),1
      Scrivi "          Pari " & StringaNumeri(aNumP),1
      Scrivi "       Dispari " & StringaNumeri(aNumD),1
      Scrivi
      ImpostaGiocata 1,aNum,aRuote,aPoste,Clp1
      ImpostaGiocata 2,aNumP,aRuote,aPosta,Clp1
      ImpostaGiocata 3,aNumD,aRuote,aPosta,Clp1
      Gioca Es
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[Serpico 90]

Grazie Salvo......va bene cosi ....sempre disponibile e bravo
Buona serata
Saluti
Serpico