Novità

Per Salvo o chi mi puo aiutare

Serpico 90

Advanced Member
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

Advanced Member
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
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
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.

Codice:
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
 
Ultima modifica:

Serpico 90

Advanced Member
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

Advanced Member
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
 
Ultima modifica:

Serpico 90

Advanced Member
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

Advanced Member >PLATINUM PLUS<
Ciao, ho messo la ricerca anche alla lunghetta, per le altre richieste non sono in grado di farle.

Codice:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto