-
.
Salve a voi tutti,se avete bisogno di qualcosa in particolare,se volete trovare qui' qualcosa che manca,fate in questa sezione la richiesta,poi io la trasferiro' nella sezione adatta,cercando di acconterare tutti nel miglior modo possibile.grazie,un saluto a tutti voi,Sean69!! . -
houdini11.
User deleted
Riesco a sacaricare con copia/incolla i vari listati, ma aprendoli mi danno errore, come mai?
Graziee
Mauro
ESEMPIO.
ANDANDO SU RACCOLTA METODI STATISTICI - SUPERFREGUENZE, CARICANDO I LISTATI SU L8+6.1.3
TERZINE SUPERFREGUENTI SU 2 RUOTE DA :ERR NELLO SCRIPT ERRORE 1002 ERRORE DI SINTASSI (RIGA 37).
PER LE QUARTINE SUPERFREGUENTI DA' :ERRORE NELLO SCRIPT
ERRORE 1024 :PREVISTA ISTRUZIONE (RIGA 1)
CIAOO
Edited by houdini11 - 11/9/2010, 13:02. -
.
ciao,dimmi quali,vediamo dove e' l'errore.. . -
houdini11.
User deleted
CITAZIONE (sean69 @ 10/9/2010, 20:37)ciao,dimmi quali,vediamo dove e' l'errore..
VEDI SOPRA
ESEMPI -----------------. -
.
I listati funzionano perfettamente,devi copiarli bene..te li rimetto qui'..da Sub main fino a End Sub entrambi i listati
(infatti i 2 errori si visualizzano se non copi o Sub Main(all'inizio del Listato) o se non copi End sub(alla fine del Listato)
Listato per Quartine SuperFrequenti:CODICESub main()
Dim rt(2),pt(3)
Dim n1(4)
pt(2)=1
pt(3)=1
clp=13 'colpi di gioco
rt(1)=2 '1a ruota di gioco
rt(2)=3 '2a ruota di gioco
ini=EstrazioneFin -100 'Qui' inserire il numero di estrazioni da controllare
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=1 Then '1^estrazione del mese
Scrivi String (60,"=")
co=co+1
n1(1)=1 'Inserire 1° Numero Quartina
n1(2)=2 'Inserire 2° Numero Quartina
n1(3)=3 'Inserire 3° Numero Quartina
n1(4)=4 'Inserire 4° Numero Quartina
ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Listato per Terzine SuperFrequenti:CODICESub main()
Dim rt(2),pt(3)
Dim n1(3)
pt(2)=1
pt(3)=1
clp=13 'colpi di gioco
rt(1)=2 '1a ruota di gioco
rt(2)=3 '2a ruota di gioco
ini=EstrazioneFin -100 'Qui' inserire il numero di estrazioni da controllare
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=1 Then '1^estrazione del mese
Scrivi String (60,"=")
co=co+1
n1(1)=1 'Inserire 1° Numero Terzina
n1(2)=2 'Inserire 2° Numero Terzina
n1(3)=3 'Inserire 3° Numero terzina
ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub.