L
LuigiB
Guest
ciao Lottotom , il mio consiglio è di lasciare il c++ per applicazioni serie ...queste scemenze sul lotto si fanno con linguaggi piu semplici..
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
quote:Originally posted by LuigiB
ciao Lottotom , il mio consiglio è di lasciare il c++ per applicazioni serie ...queste scemenze sul lotto si fanno con linguaggi piu semplici..
quote:Originally posted by LuigiB
Col c++ non ci ho mai fatto nulla quindi non mi ricordo pero vedendo che ti sei fermato su un operazione di base ti consiglio di passare direttamente a qualche linguaggio piu semplice.. ...poi di forum sulla programmazione ce ne sono in quantita sul web ...
:::::::::::::::::::::::::::::::::quote:Originally posted by LuigiB
ciao quella funzione fa la statistica sulle distanze.
Le distanze altro non sono che la differenza tra l'estratto in posizione
X e lo stesso estratto in posizione X dell'estrazione precedente.
Si forma cosi un archivio di estrazioni dove i 5 numeri di ogni ruota sono dati appunto dalla distanza tra i numeri di 2 estrazioni consecutive che occupano la stessa posizione.
Nel tuo caso sembrerebbe che sono 158 turni che non si presenta una distanza 16 sul primo estratto delle ruote BA CA.
Quindi fai finta che il primo estratto di bari attualmente fosse 1 tu dovresti giocare il 17 ipotizzando che si verifichi la distanza 16 (17-1 =16)
Sub Main
' test verificaesito
ReDim aNum(1)
ReDim aRuo(1)
Dim RetEsito
Dim RetColpi
Dim RetEstratti
Dim RetIdEstr
ReDim aRetRuote(0)
aNum(1) = 52 ' so che il 52 è uscito su bari all'estrazione 8346
aRuo(1) = 1 ' imposto bari
Call VerificaEsito(aNum,aRuo,8346,1,,,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote)
Call Scrivi("Esito " & RetEsito)
Call Scrivi("Colpi " & RetColpi)
Call Scrivi("Estratti " & RetEstratti)
Call Scrivi("Estrazione " & RetIdEstr)
Call Scrivi("Ruota " & NomeRuota(aRetRuote(1)))
End Sub
quote:Originally posted by LuigiB
per Stef : non so manco cosa siano stre formazionisuoerfrequenti magari le vedo nel lottodesk demo e se mi viene l'ispirazione ...
quote:Option Explicit
Dim aPos(360,2) ' memorizza le coordinate relative ai 360 gradi serve per poter disegnare le corde
Sub Main
Dim nRaggio ' raggio ddel cerchio
Dim cX,cY ' centro del cerchio x e y
Dim Base,Altezza ' dimensioni area disegno
Dim Angolo ' gestisce il ciclo per disegnare il cerchio
Dim pi ' pigreco
Dim x1,y1,x2,y2 ' coordinate generiche pr i segmenti
Dim cLung ' distanza per stampare i gradi
Dim k ' ciclo generico
cLung = 2
pi = 3.14
Base = 150
Altezza = 150
nRaggio = 60
' preimposto le dimensioni dell'area
Call PicSetDimensioni(Base,Altezza,Base,Altezza)
' calcolo il centro del cerchio
cX = Base / 2
cY = Altezza / 2
' ciclo per disegnare i semiraggi
For Angolo = 0 To 360
' calcolo cordinate per il segmento raggio
x1 = cX +((nRaggio) * Cos(- Angolo *(pi / 180)))
y1 = cY +((nRaggio) * Sin(- Angolo *(pi / 180)))
' memorizzo nell'array globale le coordinate appena calcolate
' cosi potranno essere riusate per disegnare le corde
aPos(Angolo,1) = x1
aPos(Angolo,2) = y1
If Angolo Mod 5 = 0 Then
' ogni 5 gradi disegno un semiraggio un po' piu lungo
' e stampo i gradi in corripondenza
If Angolo <> 0 Then
x2 = cX +((nRaggio + cLung*3) * Cos(- Angolo *(pi / 180)))
y2 = cY +((nRaggio + cLung*3) * Sin(- Angolo *(pi / 180)))
Call PicLinea(x1,y1,x2,y2)
x2 = cX +((nRaggio + cLung*4) * Cos(-(Angolo + 2) *(pi / 180)))
y2 = cY +((nRaggio + cLung*4) * Sin(-(Angolo + 2) *(pi / 180)))
Call PicStampaTestoRT(x2,y2,Angolo,Angolo)
End If
Else
' disegno il semiraggio
x2 = cX +((nRaggio + cLung) * Cos(- Angolo *(pi / 180)))
y2 = cY +((nRaggio + cLung) * Sin(- Angolo *(pi / 180)))
Call PicLinea(x1,y1,x2,y2)
End If
Next
' come esempio disegno un poligono di lato 20
For k = 0 To 340 Step 20
Call DisegnaCorda(k,k + 20,vbRed)
Next
' mostro la figura in output
Call PicEsegui
End Sub
Sub DisegnaCorda(p1,p2,colore)
' p1 e p2 sono i gradi a cui si riferiscono inizio e fine della corda
'Call PicLineaTratteggiata(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
Call PicLinea(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
Call PicPunto(aPos(p1,1),aPos(p1,2),6,vbRed)
Call PicPunto(aPos(p2,1),aPos(p2,2),6,vbRed)
End Sub