SE Standard Image Banner 728 x 90

FORUM LOTTODESK.IT

Allineamento orizzontale

Offline genios

  • **
  • 329
Allineamento orizzontale
« il: 28 Novembre 2012 ore 10:55:43 »
Qualcuno puo' aiutarmi ad allineare orizzontalmente  in uscita invece che in verticale il seguente script.
Si dovrebbe usare Formatspace ma non riesco propio .

Ciao Eugenio

 Sub main()
Dim nr(1),ru(1),ra(20)

'Calcolo delle frequenze di un numero in 180 estrazioni

frequenza=0
ruote=1
ini=EstrazioneFin-1800
fin=EstrazioneFin
 

For i=1 To 15
nr(1)=i
frequenza=0
For a=ini To fin

For p=1 To 5
numero = Estratto(a,1,p)
If numero=nr(1) Then
frequenza = frequenza+1
End If
Next
Next
Scrivi ruote : Scrivi nr(1) : Scrivi frequenza

Next

End Sub

Offline Gam

Re: Allineamento orizzontale
« Risposta #1 il: 28 Novembre 2012 ore 13:54:31 »
Potrebbe essere così?


Sub main()
Dim nr(1),ru(1),ra(20)

'Calcolo delle frequenze di un numero in 180 estrazioni

frequenza=0
ruote=1
ini=EstrazioneFin-1800
fin=EstrazioneFin
 

For i=1 To 15
nr(1)=i
frequenza=0
For a=ini To fin

For p=1 To 5
numero = Estratto(a,1,p)
If numero=nr(1) Then
frequenza = frequenza+1
End If
Next
Next
Scrivi SiglaRuota(ruote) & " " & Format2(nr(1)) & " " & FormatSpace(frequenza,4)

Next

End Sub

Saluti

Offline genios

  • **
  • 329
Re: Allineamento orizzontale
« Risposta #2 il: 03 Aprile 2013 ore 12:53:16 »
Mi aiutate a mettere affiancate le ruote in orizzontale anziche in verticale come da esempio modificando lo script pubblicato sotto .

ciao eugenio 

Ba 01 97   Ca 01 97
Ba 02 95   Ca 02 95
Ba 03 121 Ca 03 121
Ba 04 108 Ca 04 108
Ba 05 110 Ca 05 110
Ba 06 95   Ca 06 95
Ba 07 100 Ca 07 100
Ba 08 114 Ca 08 114
Ba 09 87   Ca 09 87
Ba 10 99   Ca 10 99
Ba 11 103 Ca 11 103
Ba 12 109 Ca 12 109
Ba 13 100 Ca 13 100
Ba 14 120 Ca 14 120
Ba 15 105 Ca 15 105

For i=1 To 15
nr(1)=i
frequenza=0
For a=ini To fin

For p=1 To 5
numero = Estratto(a,ruote,p)
If numero=nr(1) Then
frequenza = frequenza+1
End If
Next
Next
Scrivi SiglaRuota(ruote) & " " & Format2(nr(1)) & " " & FormatSpace(frequenza,4)

Next
Scrivi

Next


End Sub

Offline genios

  • **
  • 329
Re: Allineamento orizzontale
« Risposta #3 il: 05 Aprile 2013 ore 21:07:26 »
Scusate lo script da modificare e' il seguente :

Sub main()
Dim nr(1),ru(1),ra(20)

'Calcolo delle frequenze di un numero in 180 estrazioni

frequenza=0
For ruote=1 To 10
ini=EstrazioneFin-1800
fin=EstrazioneFin


For i=1 To 15
nr(1)=i
frequenza=0
For a=ini To fin

For p=1 To 5
numero = Estratto(a,ruote,p)
If numero=nr(1) Then
frequenza = frequenza+1
End If
Next
Next
Scrivi SiglaRuota(ruote) & " " & Format2(nr(1)) & " " & FormatSpace(frequenza,4)

Next
Next
End Sub

Re: Allineamento orizzontale
« Risposta #4 il: 25 Giugno 2013 ore 17:30:45 »
Prova così

Codice: [Seleziona]
Sub main()

'Calcolo delle frequenze di un numero in 180 estrazioni

Dim nr(1)
ini=EstrazioneFin-180+1 '<==== qui si imposta il numero di estrazioni da analizzare
fin=EstrazioneFin
'------------------------------------
For i=1 To 15
scrivi
For ruote=1 To 10
nr(1)=i
frequenza=0
For a=ini To fin
For p=1 To 5
numero = Estratto(a,ruote,p)
If numero=nr(1) Then
frequenza = frequenza+1
End If
Next
Next
Scrivi SiglaRuota(ruote) & " " & Format2(nr(1)) & " " & FormatSpace(frequenza,4,1)& " | ",0,0
Next
Next
End Sub

Lottodesk 1.2.9

Offline genios

  • **
  • 329
Re: Allineamento orizzontale
« Risposta #5 il: 23 Agosto 2013 ore 18:02:04 »
Grazie tante Mitica Rosanna .

 


lottomatica