Per Mike

antonio65 · 9 Febbraio 2018

Ciao Mike scusa il disturbo...so che sei impegnato..io ho provato a fare la routine della posizione ...sicuramente sbaglio nelle seriefreq e non so assegnare i codici alle posizioni...
Mi da sempre la stessa posizione (10) 4-5...ho smanettato giorno e notte senza esito...per te sarà un gioco da ragazzi...se puoi aiutarmi ancora te ne sarò grato...grazie Antonio!!!
Ho scritto con la parola aggiunto le cose che messo io

Scrivi String(47,32) & "Mike58",1
ColoreTesto 0
Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),sff(3)
Dim Ru(12),T
Dim k,s
Dim nClasse,nColonneTot
ReDim aNumeri(90)
Dim aCol
Dim MEN(5)
nClasse = 2 ' sviluppo in ambi

Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
casi = 0
ini = 9412'EstrazioneFin - est
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Estratto","SOMM","FREQ SU CASI","ESTR + SOMM","MEN","DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","Data","frx1","frx2","frx3","1-2","1-3","1-4","1-5","2-3","2-4","2-5","3-4","3-5","4-5")
Call InitTabella(T,6)
For es = ini To fin
idd = GetInfoEstrazione(es)
Call AvanzamentoElab(Ini,fin,es)
'If IndiceMensile(es) = Ind Then
For p = 1 To 5
Num(p) = Estratto(es,r,p)
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
Next
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreqTurbo(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
'End If
'Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
'NuAdd(1) = Fuori90(NuFr(i,1))
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(30)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1)

MEN(1) = Fuori90(Abs(V(5) - DNA(1)))
MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
For x = 1 To 3
sff(x) = SerieFreqTurbo(Ini,fin,MEN,Ru,x)
Next
Next
V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)
nColonneTot = InitSviluppoIntegrale(MEN,nClasse)
k = 0
Do While GetCombSviluppo(aCol)
k = k + 1 ' conteggio colonna corrente
' costruisco la stringa che contiene la colonna
s = FormatSpace(k,10,True) & "- " & StringaNumeri(aCol)

sf1 = SerieFreq(Ini,Fin,aCol,Ru,1)''''aggiunto
sf2 = SerieFreq(Ini,Fin,aCol,Ru,2)''''aggiunto
sf3 = SerieFreq(Ini,Fin,aCol,Ru,3)'''''aggiunto
sf4 = SerieFreq(Ini,Fin,aCol,Ru,4)'''''aggiunto
sf5 = SerieFreq(Ini,fin,aCol,Ru,5)'''''aggiunto

Call Scrivi(s)
Call Messaggio("Colonna " & k)
If ScriptInterrotto Then Exit Do
Loop
sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,1,,Esito,colpi,estratti,id)
V(12) = Esito
V(13) = estratti
V(14) = colpi
V(15) = sr
If esito = "Estratto" Or esito = "Terno" Then
V(16) = DataEstrazione(id)
Else
V(16) = " In corso"
End If
V(17) = sff(1)
V(18) = sff(2)
V(19) = sff(3)
V(20) = s'''''''''aggiunto
V(21) = s
V(22) = s
V(23) = s
V(24) = s
V(25) = s
V(26) = s
V(27) = s
V(28) = s
V(29) = s
V(30) = s

Call AddRigaTabella(V)
Call SetColoreCella(6,,0)
Call SetColoreCella(4,,0)
Call SetColoreCella(12,,7)
rr = 11
If EstrattoFrequenza(rr,MEN(1),es1,es2) > 0 Then Call SetColoreCella(7,3,1)
If EstrattoFrequenza(rr,MEN(2),es1,es2) > 0 Then Call SetColoreCella(8,1,4)
If EstrattoFrequenza(rr,MEN(3),es1,es2) > 0 Then Call SetColoreCella(9,6,0)
If EstrattoFrequenza(rr,MEN(4),es1,es2) > 0 Then Call SetColoreCella(10,7,9)
If EstrattoFrequenza(rr,MEN(5),es1,es2) > 0 Then Call SetColoreCella(11,4,0)

If V(12) = "Estratto" Then Call SetColoreCella(12,3,1)
If V(12) = "Ambo" Then Call SetColoreCella(12,2,4)
If V(12) = "Terno" Then Call SetColoreCella(12,7,4)
If V(16) = DataEstrazione(id) Then Call SetColoreCella(16,,1)

Ru(2) = 1
Ru(3) = 2
Ru(4) = 3
Ru(5) = 4
Ru(6) = 5
Ru(7) = 6
Ru(8) = 7
Ru(9) = 8
Ru(10) = 9
Ru(11) = 10
Ru(12) = 12

ImpostaGiocata 1,MEN,Ru,posta,clp

Gioca es
'End If
Next
casi = 0
Call CreaTabella()

ScriviResoconto
End Sub

Mike58 · 9 Febbraio 2018

Ciao Antonio si confermo il poco tempo, e come risposta affrettata ti posso dire che ancora vedo pezzi di script che non si parlano fra loro.

Quando fai la parte sviluppo combinazioni il tutto avviene in un Do While e chiuso con il Loop è qui che bisogna scrivere il codice che vuoi vedere frequenza e ritardo, mentre se poi vuoi scriverlo nella tabella che come ti ho detto non parla con il Loop come risultanza avrai l'ultimo valore sviluppato.

C'e bisogno di memorizzarlo in un array e poi scivere i corrispondenti in tabella.
ma qui anch'io preso di fretta non ho la soluzione, che non ti servirebbe in quanto hai tutti i dati che serve vedere nella parte sviluppo.

Perciò ti consiglio di non scriverli in tabella.

P.s. metti sempre lo script nei Tag "#"

Codice:

Scrivi String(47,32) & "Mike58",1
ColoreTesto 0
Sub Main
 Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),sff(3)
 Dim Ru(12),T
 Dim k,s
 Dim nClasse,nColonneTot
 ReDim aNumeri(90)
 Dim aCol
 Dim MEN(5)
 nClasse = 2 ' sviluppo in ambi
 Dim poste(3),postee(3)
 Dim posta(2)
 posta(1) = 1 ' < - - - posta per estratto
 casi = 0
 ini = 9412'EstrazioneFin - est
 fin = EstrazioneFin
 r = InputBox("Quale Ruota",,1)
 pos = CInt(InputBox("Quale posizione",,1))
 'Ind = CInt(InputBox("Quale indiceMensile",,1))
 clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
 smm = CInt(InputBox("Quante righe ",,5))
 T = Array(T,"Estratto","SOMM","FREQ SU CASI","ESTR + SOMM","MEN","DNA","nu1","nu2","nu3","nu4","nu5","E sito","Verifica","Colpo","Ritardo x 1","Data","frx1","frx2","frx3","1-2","1-3","1-4","1-5","2-3","2-4","2-5","3-4","3-5","4-5")
 Call InitTabella(T,6)
 For es = ini To fin
  idd = GetInfoEstrazione(es)
  Call AvanzamentoElab(Ini,fin,es)
  'If IndiceMensile(es) = Ind Then
  For p = 1 To 5
   Num(p) = Estratto(es,r,p)
   DNA(1) =(Num(1) + Num(2))
   DNA(2) =(Num(1) + Num(3))
   DNA(3) =(Num(1) + Num(4))
   DNA(4) =(Num(1) + Num(5))
   DNA(5) =(Num(2) + Num(3))
   DNA(6) =(Num(2) + Num(4))
   DNA(7) =(Num(2) + Num(5))
   DNA(8) =(Num(3) + Num(4))
   DNA(9) =(Num(3) + Num(5))
   DNA(10) =(Num(4) + Num(5))
   stE = StringaEstratti(es,r)
  Next
  casi = casi + 1
  co = 0
  Ru(1) = r
  es1 = es + 1
  es2 = es1 + clp
  est = Estratto(es,r,pos)
  '------- calcolo sommativo ---------------
  For sm = 1 To 90
   co = co + 1
   Nu(1) = Fuori90(est + sm)
   NuFr(co,1) = sm
   sf = SerieFreqTurbo(es1,es2,Nu,Ru,1)
   If sf > 0 Then
    NuFr(co,2) = NuFr(co,2) + 1
   End If
  Next
  'End If
  'Next
  ' scrivi testo ............................
  Scrivi "Ruota di rilevamento : " & NomeRuota(r)
  Scrivi "Stringa estratti : " & stE
  Scrivi "Indice mensile : " & Ind
  Scrivi "Colpi di Gioco : " & clp
  Scrivi "Righe visualizzate : " & smm
  '------------------------------------------
  Call Scrivi("         N." & "- " & "Ambo " & " - " & " Freq " & " Ritardo ")
  Scrivi String (50,"=")
  Call OrdinaMatrice(NuFr,- 1,2)
  For i = 1 To smm
   'NuAdd(1) = Fuori90(NuFr(i,1))
   NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
   ReDim V(30)
   V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
   V(2) = " + " & Format2(CStr(NuFr(i,1)))
   V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
   V(4) = NuAdd(1)
   V(5) = NuAdd(1)
   MEN(1) = Fuori90(Abs(V(5) - DNA(1)))
   MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
   MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
   MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
   MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
   V(6) = StringaNumeri(DNA)
   For x = 1 To 3
    sff(x) = SerieFreqTurbo(Ini,fin,MEN,Ru,x)
   Next
  Next
  V(7) = MEN(1)
  V(8) = MEN(2)
  V(9) = MEN(3)
  V(10) = MEN(4)
  V(11) = MEN(5)
  nColonneTot = InitSviluppoIntegrale(MEN,nClasse)
  k = 0
  Do While GetCombSviluppo(aCol)
   k = k + 1 ' conteggio colonna corrente
   ' costruisco la stringa che contiene la colonna
   'sf1 = SerieFreq(Ini,Fin,aCol,Ru,1)''''aggiunto
   sf2 = SerieFreq(Ini,Fin,aCol,Ru,2)''''aggiunto
   'sf3 = SerieFreq(Ini,Fin,aCol,Ru,3)'''''aggiunto
   'sf4 = SerieFreq(Ini,Fin,aCol,Ru,4)'''''aggiunto
   'sf5 = SerieFreq(Ini,fin,aCol,Ru,5)'''''aggiunto
   sr2 = SerieRitardo(Ini,fin,aCol,Ru,2)
   s = FormatSpace(k,10,True) & "- " & StringaNumeri(aCol,,1) & vbTab & sf2 & vbTab & sr2
   Call Scrivi(s)
   Call Messaggio("Colonna " & k)
   If ScriptInterrotto Then Exit Do
  Loop
  Scrivi String(50,"=")
  sr = SerieRitardo(Ini,fin,MEN,Ru,1)
  Call VerificaEsito(MEN,Ru,es1,1,1,,Esito,colpi,estratti,id)
  V(12) = Esito
  V(13) = estratti
  V(14) = colpi
  V(15) = sr
  If esito = "Estratto" Or esito = "Terno" Then
   V(16) = DataEstrazione(id)
  Else
   V(16) = " In corso"
  End If
  V(17) = sff(1)
  V(18) = sff(2)
  V(19) = sff(3)
  V(20) = StringaNumeri(aCol(1))'s'''''''''aggiunto
  V(21) = StringaNumeri(aCol(2))
  V(22) = s
  V(23) = s
  V(24) = s
  V(25) = s
  V(26) = s
  V(27) = s
  V(28) = s
  V(29) = s
  V(30) = s
  Call AddRigaTabella(V)
  Call SetColoreCella(6,,0)
  Call SetColoreCella(4,,0)
  Call SetColoreCella(12,,7)
  rr = 11
  If EstrattoFrequenza(rr,MEN(1),es1,es2) > 0 Then Call SetColoreCella(7,3,1)
  If EstrattoFrequenza(rr,MEN(2),es1,es2) > 0 Then Call SetColoreCella(8,1,4)
  If EstrattoFrequenza(rr,MEN(3),es1,es2) > 0 Then Call SetColoreCella(9,6,0)
  If EstrattoFrequenza(rr,MEN(4),es1,es2) > 0 Then Call SetColoreCella(10,7,9)
  If EstrattoFrequenza(rr,MEN(5),es1,es2) > 0 Then Call SetColoreCella(11,4,0)
  If V(12) = "Estratto" Then Call SetColoreCella(12,3,1)
  If V(12) = "Ambo" Then Call SetColoreCella(12,2,4)
  If V(12) = "Terno" Then Call SetColoreCella(12,7,4)
  If V(16) = DataEstrazione(id) Then Call SetColoreCella(16,,1)
  Ru(2) = 1
  Ru(3) = 2
  Ru(4) = 3
  Ru(5) = 4
  Ru(6) = 5
  Ru(7) = 6
  Ru(8) = 7
  Ru(9) = 8
  Ru(10) = 9
  Ru(11) = 10
  Ru(12) = 12
  ImpostaGiocata 1,MEN,Ru,posta,clp
  Gioca es
  'End If
 Next
 casi = 0
 Call CreaTabella()
 ScriviResoconto
End Sub

Ciao studia.....

antonio65 · 9 Febbraio 2018

Molto meglio Mike ...anche se come dici tu occorre più tempo....questa funzione una volta sviluppata io poi me la porto in tutte le mie idee
che tu hai trasformato in script....quindi questo è il passo conclusivo perchè avendo sotto occhi le posizioni mi facilita per le previsioni....Adesso se con il tuo tempo con calma se vuoi adattarlo nella tabella ma col tempo....Ti chiedo se puoi colorare o mi dici il codice delle posizioni che escono fuori dalla griglia ti mando uno schizzo..quello che vedi sotto:
in caso di sortita di qualsiasi sorte colorarla...Non so come ringraziarti....

1- 23.84 0 21
2- 23.70 0 21
3- 23.59 0 21
4- 23.68 1 8
5- 84.70 0 21
6- 84.59 0 21
7- 84.68 2 3
8- 70.59 0 21
9- 70.68 0 21
10- 59.68 0 21

Mike58 · 9 Febbraio 2018

Ciao Antonio, bene, quella è una scrittura html è ci sarebbe un codice GetColoreHtml per colorarli ad oc.
Chiaro che dovresti fare il confronto con il ritardo e con iF -Then dire allo script se il ritardo anche x 1 = Zero scrivi in quel dato colore altrimenti Else scrivi normale.

Si c'è tanto da studiare ma è li che comincia il bello e non c'è soddisfazione migliore che far da soli leggendo e rileggendo l'help delle funzioni.

Io di mio necessito di una pausa dai social.

Ciao

antonio65 · 9 Febbraio 2018

Ti ringrazio di tutto Mike, mi arrangerò...riposati.....Ciao

Cerca

Cerca

Per Mike

antonio65

Super Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

antonio65

Super Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

antonio65

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi