Ciao Mike , hai i sorgenti ,pure per fare pratica apri il form di lagend e cambia il layout in modo che sia piu piccolo oppure prendi il pulsante e spostalo su magari abbassa le altre cose ..hai problemi anche con le altre funzioni ?
perche dovrebbe evidenziarla non c'è un segmento tra il 30 e il 33 mi pare ..
poche chiacchiere ... fuori la funzione
Mi sembrava interessante perchè la formazione dell integrale in cinquine e decine da lo stesso numeo di colonne, ovviamente la resa è favorevole in cinquina.
lo studio l ho fatto nelle ultime 100 estrazioni.
avevo fatto alcuni txt con raggruppamenti dai terni i alle decine consecutive , per ottenere 15,e oltre .
poi combinazioni pari dispari e somme , ma non mi ricordo come ho chiamato gli script, non so neanche se li ho conservati. di tutti i txt ho conservato solo questo,anche perchè erano pesanti, cmq era solo curiosita.
ora so che è possibile leggere file grandi, e, l interesse è scemato.
come nell altro post ( non ricordo come si chiamava, quello dove abbiamo scritto tu ,io e rookie, tu ti eri ammalato) vorrei partire da lunghette di 40-45 numeri e stabilire come ridurli,
ora mi concentrerò solo su questo.
per il gioco online non saprei come fare in realtà , ci avevo pensato ,ma proprio sono troppo imbranato
non è che ci faccio, sono proprio cosi
cmq nei prossimi tre colpi secondo me qualcosina dovrebbe dare.
sempre che la venere non mi smentisca alla grandissima
Public Sub MyScriptRoutine()
' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
' NON MODIFICARE IL NOME DI QUESTA SUB
Dim i As Long
Dim nClasse As Long = 25
For i = 1 To 10
Scrivi GetColonnaCasuale(nClasse)
Next
End Sub
Function GetColonnaCasuale(nClasse As Long,Optional MaxNum As Long = 90,Optional sCharSep As String = ".") As String
Dim i As Long,nTro As Long,n As long
ReDim aN(MaxNum) As Long
ReDim aTro(nClasse) As Long
' aZzero il vettore
For i = 1 To MaxNum
aN(i) = 0
Next
nTro = 0
Do While nTro < nClasse
n = NumeroCasuale(1,MaxNum)
If aN(n) = 0 Then
nTro + = 1
aTro(nTro) = n
aN(n) = 1
End If
Loop
Call OrdinaVettoreL(aTro,1,1)
Return StringaNumeri(aTro,sCharSep,True)
End FunctionSi potrebbe mettere una label che da i numeri estratti?
certo che si puo i sorgenti ce l'hai o mi sbaglio ?
non h ocapitoNell'analisi estrazioni, potete aggiungere a nche le figure oltre che somme distanze e differenze?
Function generaformazionerandom(num)
Dim i As Long
Const LimiteInf= 0
Const LimiteSup= 90
Dim NumGenerato As Integer
Dim VNumeri() As Integer
ReDim VNumeri(num)
For i = 0 To num
NumGenerato = Int((LimiteSup - LimiteInf + 1) * Rnd + LimiteInf)
VNumeri(i) = NumGenerato
Next
Return VNumeri
'VNumeri dovrebbe avere i valori ricercati x la classe num desiderata...
End Function
GRAZIE.
