Per Legend e tutti i Guru del VB script

Marco-elle · 20 Settembre 2021

Ciao Legend,
sto provando a inserire i tuoi preziosi consigli ma.....sono vincolato e fondo subito,
La prova gira ma,mi manca la lettura del terno spia nel output,
ho lasciato le sigle (A;B;C) su scrivi
le ho provate tutte fino a quando è comparsa la scritta FALSE

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "TERNO CON I NUMERETTI SORTITO SU TT "
   Scrivi "GIOCA PREVISIONE ALGORITMICA "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(5)
   Dim ruota(10)
   Dim n1(8)
   poste(2) = 1
   poste(3) = 1
   clp = 12
   ini = EstrazioneFin - 350
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r = 1 To 10
         ok = 0
         ReDim aE(5)
         M = 0
         For p = 1 To 5
            E = Estratto(es,r,p)
            If(e) =< 10 Then
               M = m + 1
               aE(m) = E
            End If
         Next
         If m = 3 Then ' sevuoi che ci sia solo un terno
            n1(1) = Fuori90(Estratto(es,2,3) + Estratto(es,3,1) + 1)
            n1(2) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,5,1) + 63)
            n1(3) = Fuori90(Estratto(es,10,2) * Estratto(es,12,1) + 42)
            n1(4) = Fuori90(Estratto(es,3,2) + Estratto(es,5,5) + 13)
            n1(5) = Fuori90(Estratto(es,1,5) + Estratto(es,3,2) + 8)
            n1(6) = Fuori90(90 +(Estratto(es,2,1)) - Estratto(es,8,3) + 63)
            ruota(1) = 1
            ruota(2) = 4
            ok = 1
         End If
         If OK = 1 Then
            co = co + 1
            ColoreTesto 1
            Scrivi String(80,"^") & " Caso n°" & co,1
            Scrivi DataEstrazione(es) & "   Terno di numeretti    " & a & " - " & b & " - " & c,1
            Scrivi String(80,"^"),1
            ColoreTesto 0
            ImpostaGiocata 1,n1,ruota,poste,clp
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto
End Sub

druid · 20 Settembre 2021

Ciao,
quello che cerchi e' nella variabile ae(m) dove memorizza i primi "m" numeretti. Sostituisci ad a ae(1) a b ae(2) ecc..

Marco-elle · 20 Settembre 2021

druid ha scritto:
Ciao,
quello che cerchi e' nella variabile ae(m) dove memorizza i primi "m" numeretti. Sostituisci ad a ae(1) a b ae(2) ecc..

Grazie druid,
in realtà avevo provato a inserire (ae) ma mi dava errore,
ora con le parentesi specifiche,fruzzica alla grande,
Possono essere stupidagini per voi navigati ma.....
per i pipponi come il sottoscritto,sono Kasini
ancora grazie

i legend · 20 Settembre 2021

Ciao ottimo il consiglio di druid per

Potresti anche fare in questo modo.
Scrivi stringanumeri(aE, , true)
Ciao

Scusa ma quando finisco di lavorare sono a pezzi e dopo la doccia letteralmente crollò

Marco come hai scritto inserisci anche il 10

<=9 COSI tutti da 1 a 9

Marco-elle · 20 Settembre 2021

i legend ha scritto:
Ciao ottimo il consiglio di druid per
Potresti anche fare in questo modo.
Scrivi stringanumeri(aE, , true)
Ciao
Scusa ma quando finisco di lavorare sono a pezzi e dopo la doccia letteralmente crollò
Marco come hai scritto inserisci anche il 10

<=9 COSI tutti da 1 a 9

Grazie Legend,
ora devo fare in modo che mi legga più condizioni......
perchè per il momento me ne legge solo 1
es:esamina di terni nelle varie cadenze,
Poi ho notato che,con i numeretti in alcuni terni spia
mi prende anche in considerazione il 10 che non voglio

i legend · 20 Settembre 2021

If E <=9 then
M=m+1
aE(m)=E
End if

i legend · 20 Settembre 2021

Ciao marco , che condizioni devi filtrare?

Marco-elle · 20 Settembre 2021

i legend ha scritto:
Ciao marco , che condizioni devi filtrare?

Tutto quello che mi passa per la testa,
in questo caso dalla decina 1 alla decina 9
ogni condizione ha delle ruote congeniali
con la sua previsione

Marco-elle · 20 Settembre 2021

i legend ha scritto:
If E <=9 then
M=m+1
aE(m)=E
End if

Io ho fatto la prova con
if E <10 then
che dovrebbe essere la stessa cosa
al tuo minore o uguale a 9

i legend · 20 Settembre 2021

Ciao marco mi metteresti numeri e ruote di gioco della cadenza 0 e 1?
Cosi dopo tu puoi ultimare le altre.

Marco-elle · 20 Settembre 2021

i legend ha scritto:
Ciao marco mi metteresti numeri e ruote di gioco della cadenza 0 e 1?
Cosi dopo tu puoi ultimare le altre.

ricerca terno in decina 1
CA-TO
65-31/65-47/65-56..........quartina 31-47-65-66
12 colpi

ricerca terno in decina 2
MI-NA
80-15
80-61
80-90
54-61-80-90

poi mi arrangio,è solo per capire la stesura per eventuali altri lavori
altrimenti....scivendo un po di più riesco a fare alla mia maniera del menga

i legend · 20 Settembre 2021

ciao Marco
non so se è tutto corretto.
la stanchezza il mal di schiena mi impediscono di concentrarmi appieno, quindi ti posto la prima soluzione che mi è venuta in mente , sicuramente non è la migliore ma almeno spero che sia corretta. per favore controlla , non vorrei che venissero saltati dei casi o ne prendesse di non validi.
magari qualcuno piu fresco potrebbe passare da queste parti è trovare una soluzione che sia un po piu veloce
ma ci sta non sono in forma e scrivo la prima soluzione che mi viene in mente . almeno questo script non l ho pensato dopo 10 ore di lavoro notturno

scco la mia prova.

Codice:

Option Explicit
' script di esempio per Marco-Elle , su suoi metodi personali :)
' controllare che lo script rilevi tutti i casi e non salti qualcosa o prenda anche casi non validi
' se ci sono errori possiamo provare a risolverli :)
Sub Main
   Dim idEstr,R,p,D,nClp
   Dim aAmbo(9,3),aQuart(9),aR(9),aP(2) ' indici da zero a 9
   nClp = 12
   aP(2) = 1
   ' array da esempio, sono da modificare con i valori reali studiati da Marco
   ''''''''''''''''''''''''''''''''''
   ' cadenza zero
   aAmbo(0,1) = Array(0,1,2)
   aAmbo(0,2) = Array(0,1,16)
   aAmbo(0,3) = Array(0,1,90)
   aQuart(0) = Array(0,1,2,16,90)
   aR(0) = Array(0,1,2)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Cadenza 1
   aAmbo(1,1) = Array(0,65,31)
   aAmbo(1,2) = Array(0,65,47)
   aAmbo(1,3) = Array(0,65,56)
   aQuart(1) = Array(0,31,47,56,65)
   aR(1) = Array(0,2,9)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' cadenza 2
   aAmbo(2,1) = Array(0,80,15)
   aAmbo(2,2) = Array(0,80,61)
   aAmbo(2,3) = Array(0,80,90)
   aQuart(2) = Array(0,54,61,89,90)
   aR(2) = Array(0,5,6)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' inserire il resto delle matrici
   For idEstr = EstrazioneFin - 99 To EstrazioneFin
      For R = 1 To 10
         ReDim aE(0)
         Call GetArrayNumeriRuota(idEstr,R,aE)
         ReDim aDec(9,2)' va da 0 a 9
         For p = 1 To 5
            D = Decina(aE(p))
            aDec(D,1) = aDec(D,1) + 1
            aDec(D,2) = aDec(D,2) & Format2(aE(p)) & " "
         Next
         For D = 0 To 9
            If aDec(D,1) >= 3 Then
               Scrivi idEstr & "  " & SiglaRuota(R) & "  " & StringaEstratti(idEstr,R) & "  " & aDec(D,2)
               Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
               Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
               Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
               Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
               Call Gioca(idEstr,1)
               Exit For
            End If
         Next
      Next
   Next ' idestr
   Call ScriviResoconto
End Sub

ora vado a nanna che tra poche ore si va a lavoro

Marco-elle · 20 Settembre 2021

Ciao Legend,
per me è un linguaggio aramaico antico questo linguaggio
per completare la ricerca è OK ma per altri lavori la vedo dura,
6.....1........FIGO!

i legend · 20 Settembre 2021

Controlla che vada bene.
Domani quando torno da lavoro spiego la logica che ho seguito.
I miei primi script erano ad un livello molto più easy dei tuoi.
Poi santo Luigi e il tempo hanno fatto il resto

Notte a tutti

Marco-elle · 20 Settembre 2021

i legend ha scritto:
Controlla che vada bene.
Domani quando torno da lavoro spiego la logica che ho seguito.
I miei primi script erano ad un livello molto più easy dei tuoi.
Poi santo Luigi e il tempo hanno fatto il resto
Notte a tutti

Ok grazie e buon lavoro,
cmq io lavoro con le frese CNC e la programmazione è simile
queste sono tutte variabili dove bisogna dare una assegnazione
ora che il listato è steso,qualcosa ci capisco ma.....un gran problema
cancellarlo x poi farne un altro,
Questo è un passatempo e già dedico del tempo,non voglio che diventi
una passione che toglie spazio al resto

Marco-elle · 20 Settembre 2021

Codice:

Sub Main
   Dim idEstr,R,p,D,nClp
   Dim aAmbo(9,3),aQuart(9),aR(9),aP(2) ' indici da zero a 9
   nClp = 12
   aP(2) = 1
   ' array da esempio, sono da modificare con i valori reali studiati da Marco
   ''''''''''''''''''''''''''''''''''
   ' cadenza zero
   aAmbo(0,1) = Array(0,1,2)
   aAmbo(0,2) = Array(0,1,16)
   aAmbo(0,3) = Array(0,1,90)
   aQuart(0) = Array(0,1,2,16,90)
   aR(0) = Array(0,1,2)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 1
   aAmbo(1,1) = Array(0,12,8)
   aAmbo(1,2) = Array(0,12,15)
   aAmbo(1,3) = Array(0,12,38)
   aQuart(1) = Array(0,12,25,36,38)
   aR(1) = Array(0,1,5)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 2
   aAmbo(2,1) = Array(0,50,7)
   aAmbo(2,2) = Array(0,50,70)
   aAmbo(2,3) = Array(0,50,72)
   aQuart(2) = Array(0,50,70,72,75)
   aR(2) = Array(0,2,8)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 3
   aAmbo(3,1) = Array(0,6,2)
   aAmbo(3,2) = Array(0,6,29)
   aAmbo(3,3) = Array(0,6,51)
   aQuart(3) = Array(0,2,6,19,50)
   aR(3) = Array(0,1,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 4
   aAmbo(4,1) = Array(0,54,3)
   aAmbo(4,2) = Array(0,54,26)
   aAmbo(4,3) = Array(0,54,65)
   aQuart(4) = Array(0,26,54,65,69)
   aR(4) = Array(0,6,7)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 5
   aAmbo(5,1) = Array(0,41,18)
   aAmbo(5,2) = Array(0,41,33)
   aAmbo(5,3) = Array(0,41,65)
   aQuart(5) = Array(0,2,13,41,44)
   aR(5) = Array(0,3,8)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 6
   aAmbo(6,1) = Array(0,13,20)
   aAmbo(6,2) = Array(0,13,58)
   aAmbo(6,3) = Array(0,13,65)
   aQuart(6) = Array(0,7,13,58,65)
   aR(6) = Array(0,1,5)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 7
   aAmbo(7,1) = Array(0,29,4)
   aAmbo(7,2) = Array(0,29,15)
   aAmbo(7,3) = Array(0,29,56)
   aQuart(7) = Array(0,4,15,29,56)
   aR(7) = Array(0,3,5)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 8
   aAmbo(8,1) = Array(0,34,18)
   aAmbo(8,2) = Array(0,34,33)
   aAmbo(8,3) = Array(0,34,65)
   aQuart(8) = Array(0,2,5,14,34)
   aR(8) = Array(0,1,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   For idEstr = EstrazioneFin - 300 To EstrazioneFin
      For R = 1 To 10
         ReDim aE(0)
         Call GetArrayNumeriRuota(idEstr,R,aE)
         ReDim aDec(9,2)' va da 0 a 9
         For p = 1 To 5
            D = Decina(aE(p))
            aDec(D,1) = aDec(D,1) + 1
            aDec(D,2) = aDec(D,2) & Format2(aE(p)) & " "
         Next
         For D = 0 To 9
            If aDec(D,1) >= 3 Then
               Scrivi idEstr & "  " & SiglaRuota(R) & "  " & StringaEstratti(idEstr,R) & "  " & aDec(D,2)
               Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
               Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
               Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
               Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
               Call Gioca(idEstr,1)
               Exit For
            End If
         Next
      Next
   Next ' idestr
   Call ScriviResoconto
End Sub

Marco-elle · 20 Settembre 2021

Inserisco anche qui il listato corretto perchè alcuni errori
non mi restituivano l'output reale

Codice:

Sub Main
   Dim idEstr,R,p,D,nClp
   Dim aAmbo(9,3),aQuart(9),aR(9),aP(2) ' indici da zero a 9
   nClp = 12
   aP(2) = 1
   ' array da esempio, sono da modificare con i valori reali studiati da Marco
   ''''''''''''''''''''''''''''''''''
   ' cadenza zero
   aAmbo(0,1) = Array(0,42,17)
   aAmbo(0,2) = Array(0,42,78)
   aAmbo(0,3) = Array(0,42,84)
   aQuart(0) = Array(0,2,41,42,78)
   aR(0) = Array(0,6,10)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 1
   aAmbo(1,1) = Array(0,12,8)
   aAmbo(1,2) = Array(0,12,15)
   aAmbo(1,3) = Array(0,12,38)
   aQuart(1) = Array(0,12,25,36,38)
   aR(1) = Array(0,1,5)
   '''''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 2
   aAmbo(2,1) = Array(0,50,7)
   aAmbo(2,2) = Array(0,50,70)
   aAmbo(2,3) = Array(0,50,72)
   aQuart(2) = Array(0,50,70,72,75)
   aR(2) = Array(0,2,8)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 3
   aAmbo(3,1) = Array(0,6,2)
   aAmbo(3,2) = Array(0,6,29)
   aAmbo(3,3) = Array(0,6,51)
   aQuart(3) = Array(0,2,6,19,50)
   aR(3) = Array(0,1,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 4
   aAmbo(4,1) = Array(0,54,3)
   aAmbo(4,2) = Array(0,54,26)
   aAmbo(4,3) = Array(0,54,65)
   aQuart(4) = Array(0,26,54,65,69)
   aR(4) = Array(0,6,7)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 5
   aAmbo(5,1) = Array(0,41,18)
   aAmbo(5,2) = Array(0,41,33)
   aAmbo(5,3) = Array(0,41,65)
   aQuart(5) = Array(0,2,13,41,44)
   aR(5) = Array(0,3,8)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 6
   aAmbo(6,1) = Array(0,13,20)
   aAmbo(6,2) = Array(0,13,58)
   aAmbo(6,3) = Array(0,13,65)
   aQuart(6) = Array(0,7,13,58,65)
   aR(6) = Array(0,1,5)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 7
   aAmbo(7,1) = Array(0,29,4)
   aAmbo(7,2) = Array(0,29,15)
   aAmbo(7,3) = Array(0,29,56)
   aQuart(7) = Array(0,4,15,29,56)
   aR(7) = Array(0,3,5)
   ''''''''''''''''''''''''''''''''''''''''''''
   ' Decina 8
   aAmbo(8,1) = Array(0,34,18)
   aAmbo(8,2) = Array(0,34,33)
   aAmbo(8,3) = Array(0,34,65)
   aQuart(8) = Array(0,2,5,14,34)
   aR(8) = Array(0,1,4)
   ''''''''''''''''''''''''''''''''''''''''''''
   For idEstr = EstrazioneFin - 300 To EstrazioneFin
      For R = 1 To 10
         ReDim aE(0)
         Call GetArrayNumeriRuota(idEstr,R,aE)
         ReDim aDec(9,2)' va da 0 a 9
         For p = 1 To 5
            D = Decina(aE(p))
            aDec(D,1) = aDec(D,1) + 1
            aDec(D,2) = aDec(D,2) & Format2(aE(p)) & " "
         Next
         For D = 0 To 9
            If aDec(D,1) >= 3 Then
               ColoreTesto 1
               Scrivi String(65,"=") : ColoreTesto 0
               Scrivi idEstr & "  " & SiglaRuota(R) & "  " & StringaEstratti(idEstr,R) & "  " & aDec(D,2)
               ColoreTesto 1
               Scrivi String(65,"=") : ColoreTesto 0
               Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
               Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
               Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
               Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
               Call Gioca(idEstr,1)
               Exit For
            End If
         Next
      Next
   Next ' idestr
   Call ScriviResoconto
End Sub

Cerca

Cerca

Per Legend e tutti i Guru del VB script

Marco-elle

Banned

druid

Super Member >PLATINUM<

Marco-elle

Banned

i legend

Premium Member

Marco-elle

Banned

i legend

Premium Member

i legend

Premium Member

Marco-elle

Banned

Marco-elle

Banned

i legend

Premium Member

Marco-elle

Banned

i legend

Premium Member

Marco-elle

Banned

i legend

Premium Member

Marco-elle

Banned

Marco-elle

Banned

Marco-elle

Banned

Ultima estrazione Lotto

Ultimi Messaggi