listati....questo è il problema....

[kirakira]

scusa Danilo...puoi scrivere l'email dove ti si può contattare?

grazie

 

[sissy]

quote:Originally posted by danilo

Ciao a tutti, grazie della stima e fiducia che in tanti mi accordate,
sono comunque come ho più volte detto solamente un appassionato e non un programmatore,
ho molti anni di esperienza ma nonostante questo a volte certe ricerche non riesco a farle,
questo per dire che le conoscenze di programmazione sono molto importanti per fare i listati,

mi permetto di correggere l'amico Utile1, il linguaggio di programmazione usato
in L8 non è Basic ma VBScript(Visual Basic Script) quello per intenderci contenuto anche nel pacchetto MS Office,

la versione contenuta in L8 è arricchita di comandi supplementari costruiti appositamente per il lotto,

tipo: Estratto, Diametrale, Figura, ImpostaGiocata, ecc. ecc.

tutte quelle terminologie usate nel gioco non sono altro che Procedure o Funzioni già implementate dagli autori,

comunque per imparare almeno i principi dei listati chiunque può scaricare gratuitamente dal mio sito
il Minicorso e la raccolta di listati presenti nella sezione Download

chi non conosce l'indirizzo del sito mi mandi una mail ed in risposta ve lo segnalo,
questo per rispetto di chi ci ospita che, come regola del forum ha appunto
il divieto di inserire link ad altri siti.

ciao Danilo


Danilo by cs1

Grazie Danilo è proprio quello di cui ho bisogno..... "capire", "imparare" spero di trovare la tua e-mail e poterti scrivere la richiesta....ieri ho cercato di contattarti x e-mail ma non sono riuscita a trovarla.....forse devo imparare anche ad usare il forum? eheheh....niente ho visto che qualsiasi e-mail non è disponibile.....ho visto ora che Spavento mi ha indicato un sito vado a cercartiiiiiiiiiii

 

[sissy]

quote:Originally posted by danilo

Ciao a tutti, grazie della stima e fiducia che in tanti mi accordate,
sono comunque come ho più volte detto solamente un appassionato e non un programmatore,
ho molti anni di esperienza ma nonostante questo a volte certe ricerche non riesco a farle,
questo per dire che le conoscenze di programmazione sono molto importanti per fare i listati,

mi permetto di correggere l'amico Utile1, il linguaggio di programmazione usato
in L8 non è Basic ma VBScript(Visual Basic Script) quello per intenderci contenuto anche nel pacchetto MS Office,

la versione contenuta in L8 è arricchita di comandi supplementari costruiti appositamente per il lotto,

tipo: Estratto, Diametrale, Figura, ImpostaGiocata, ecc. ecc.

tutte quelle terminologie usate nel gioco non sono altro che Procedure o Funzioni già implementate dagli autori,

comunque per imparare almeno i principi dei listati chiunque può scaricare gratuitamente dal mio sito
il Minicorso e la raccolta di listati presenti nella sezione Download

chi non conosce l'indirizzo del sito mi mandi una mail ed in risposta ve lo segnalo,
questo per rispetto di chi ci ospita che, come regola del forum ha appunto
il divieto di inserire link ad altri siti.

ciao Danilo


Danilo by cs1

Grazie Danilo è proprio quello di cui ho bisogno..... "capire", "imparare" spero di trovare la tua e-mail e poterti scrivere la richiesta....ieri ho cercato di contattarti x e-mail ma non sono riuscita a trovarla.....forse devo imparare anche ad usare il forum? eheheh....niente ho visto che qualsiasi e-mail non è disponibile.....ho visto ora che Spavento mi ha indicato un sito vado a cercartiiiiiiiiiii

 

[sissy]

quote:Originally posted by Baffowilly

Ciao sissy!
Tranquilla che piano piano impari,stò imparando anch'io ,riesco a fare i listati più semplici,ma ci riesco questo sotto è il listato di un metodo postato da 90Spavento per Roby ricava 2 ambate a Bari
Sub main()
Dim ruote(10) (che significano questi Dim? e quando si scrive Dim?
Dim numeri1(10) a che servono questi comandi?
Dim numeri2(10) dove posso imparare a capire come si scrivono
Dim posta(5) i comandi e quali comandi usare?
Dim poste(5)
posta(1)=1
posta(2)=1
ruote(1)=1
k=11
y=1
For n= 6000 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
ng=0
numeri1(1)=Fuori90(Estratto(n,7,1)+(Estratto(n,9,1)+30))
numeri1(2)=Fuori90(Estratto(n,7,3)+(Estratto(n,9,3)+28))
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ng=0

Next
Next
Gioca n
End If
Next
ScriviResoconto 1

End Sub


Baffowilly

Ciao ho provato a copiare questo listato ma mi dice: Errore 1055:'Next' non previsto (riga 22)

a parte questo ti ho scritto nelle quote che ho copiato alcune domande. Grazie di avermi risposto

 

[sissy]

quote:Originally posted by Baffowilly

Ciao sissy!
Tranquilla che piano piano impari,stò imparando anch'io ,riesco a fare i listati più semplici,ma ci riesco questo sotto è il listato di un metodo postato da 90Spavento per Roby ricava 2 ambate a Bari
Sub main()
Dim ruote(10) (che significano questi Dim? e quando si scrive Dim?
Dim numeri1(10) a che servono questi comandi?
Dim numeri2(10) dove posso imparare a capire come si scrivono
Dim posta(5) i comandi e quali comandi usare?
Dim poste(5)
posta(1)=1
posta(2)=1
ruote(1)=1
k=11
y=1
For n= 6000 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
ng=0
numeri1(1)=Fuori90(Estratto(n,7,1)+(Estratto(n,9,1)+30))
numeri1(2)=Fuori90(Estratto(n,7,3)+(Estratto(n,9,3)+28))
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ng=0

Next
Next
Gioca n
End If
Next
ScriviResoconto 1

End Sub


Baffowilly

Ciao ho provato a copiare questo listato ma mi dice: Errore 1055:'Next' non previsto (riga 22)

a parte questo ti ho scritto nelle quote che ho copiato alcune domande. Grazie di avermi risposto

 

[Baffowilly]

Ti spiego quello che sò,è poco perche anch'io non sono un esperto stò imparando,all'inizio provavo a modificare quelli gia fatti
Questo funziona avevo messo dei next di troppo
Sub main() 'Inizio per tutti i listati
Dim ruote(10) ' Variabile per le ruote
Dim numeri1(10) ' variabile per i numeri
Dim posta(5)' ' Variabile per le poste
'assegno valore alle variabili
posta(1)=1 ' in questo caso 1 euro sull'ambata
posta(2)=1 ' 1 euro per ambo
ruote(1)=1 'gioco sulla ruota 1 cioè Bari
k=11 'per 11 colpi
y=1 ' interrompo il gioco all'uscita di un numero
For n= 6000 To EstrazioneFin
'inizio la ricerca all'estrazione N°6000
If IndiceMensile(n+1)=1 Then
'tengo in considerazione sole le ultime del mese
ng=0
numeri1(1)=Fuori90(Estratto(n,7,1)+(Estratto(n,9,1)+30))
'1°num in gioco
numeri1(2)=Fuori90(Estratto(n,7,3)+(Estratto(n,9,3)+28))
'2° num in gioco
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ng=0

Gioca n
End If
Next
ScriviResoconto 1

End Sub


Baffowilly

 

[Baffowilly]

Ti spiego quello che sò,è poco perche anch'io non sono un esperto stò imparando,all'inizio provavo a modificare quelli gia fatti
Questo funziona avevo messo dei next di troppo
Sub main() 'Inizio per tutti i listati
Dim ruote(10) ' Variabile per le ruote
Dim numeri1(10) ' variabile per i numeri
Dim posta(5)' ' Variabile per le poste
'assegno valore alle variabili
posta(1)=1 ' in questo caso 1 euro sull'ambata
posta(2)=1 ' 1 euro per ambo
ruote(1)=1 'gioco sulla ruota 1 cioè Bari
k=11 'per 11 colpi
y=1 ' interrompo il gioco all'uscita di un numero
For n= 6000 To EstrazioneFin
'inizio la ricerca all'estrazione N°6000
If IndiceMensile(n+1)=1 Then
'tengo in considerazione sole le ultime del mese
ng=0
numeri1(1)=Fuori90(Estratto(n,7,1)+(Estratto(n,9,1)+30))
'1°num in gioco
numeri1(2)=Fuori90(Estratto(n,7,3)+(Estratto(n,9,3)+28))
'2° num in gioco
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ng=0

Gioca n
End If
Next
ScriviResoconto 1

End Sub


Baffowilly

 

[sissy]

quote:Originally posted by Baffowilly

Ti spiego quello che sò,è poco perche anch'io non sono un esperto stò imparando,all'inizio provavo a modificare quelli gia fatti
Questo funziona avevo messo dei next di troppo
Sub main() 'Inizio per tutti i listati
Dim ruote(10) ' Variabile per le ruote
Dim numeri1(10) ' variabile per i numeri
Dim posta(5)' ' Variabile per le poste
'assegno valore alle variabili
posta(1)=1 ' in questo caso 1 euro sull'ambata
posta(2)=1 ' 1 euro per ambo
ruote(1)=1 'gioco sulla ruota 1 cioè Bari
k=11 'per 11 colpi
y=1 ' interrompo il gioco all'uscita di un numero
For n= 6000 To EstrazioneFin
'inizio la ricerca all'estrazione N°6000
If IndiceMensile(n+1)=1 Then
'tengo in considerazione sole le ultime del mese
ng=0
numeri1(1)=Fuori90(Estratto(n,7,1)+(Estratto(n,9,1)+30))
'1°num in gioco
numeri1(2)=Fuori90(Estratto(n,7,3)+(Estratto(n,9,3)+28))
'2° num in gioco
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ng=0

Gioca n
End If
Next
ScriviResoconto 1

End Sub


Baffowilly

Grazie di cuore per la spiegazione, mi copio tutto su un txt così poi me lo studio e insieme a quello che ho scaricato dal sito di Danilo spero che studiando piano piano riesca ad imparare qualcosa.
Grande forum kisssss

 

[sissy]

quote:Originally posted by Baffowilly

Ti spiego quello che sò,è poco perche anch'io non sono un esperto stò imparando,all'inizio provavo a modificare quelli gia fatti
Questo funziona avevo messo dei next di troppo
Sub main() 'Inizio per tutti i listati
Dim ruote(10) ' Variabile per le ruote
Dim numeri1(10) ' variabile per i numeri
Dim posta(5)' ' Variabile per le poste
'assegno valore alle variabili
posta(1)=1 ' in questo caso 1 euro sull'ambata
posta(2)=1 ' 1 euro per ambo
ruote(1)=1 'gioco sulla ruota 1 cioè Bari
k=11 'per 11 colpi
y=1 ' interrompo il gioco all'uscita di un numero
For n= 6000 To EstrazioneFin
'inizio la ricerca all'estrazione N°6000
If IndiceMensile(n+1)=1 Then
'tengo in considerazione sole le ultime del mese
ng=0
numeri1(1)=Fuori90(Estratto(n,7,1)+(Estratto(n,9,1)+30))
'1°num in gioco
numeri1(2)=Fuori90(Estratto(n,7,3)+(Estratto(n,9,3)+28))
'2° num in gioco
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ng=0

Gioca n
End If
Next
ScriviResoconto 1

End Sub


Baffowilly

Grazie di cuore per la spiegazione, mi copio tutto su un txt così poi me lo studio e insieme a quello che ho scaricato dal sito di Danilo spero che studiando piano piano riesca ad imparare qualcosa.
Grande forum kisssss

 

[Baffowilly]

Una cosa mi sono scordato do dirti!
Quando fai un listato fatti degli appunti a fianco come ho fatto io per le spiegazioni per sapere cosa stai facendo,devi mettere l'apostrofo davanti a tutto quello che non serve per il listato ma serve a tè per sapere a cosa serve quella riga,vedrai che piano piano impari

Baffowilly

 

[Baffowilly]

Una cosa mi sono scordato do dirti!
Quando fai un listato fatti degli appunti a fianco come ho fatto io per le spiegazioni per sapere cosa stai facendo,devi mettere l'apostrofo davanti a tutto quello che non serve per il listato ma serve a tè per sapere a cosa serve quella riga,vedrai che piano piano impari

Baffowilly

 

[Utile1]

Ciao Danilo, non preoccuparti puoi correggermi ogni volta che lo ritieni oppotuno, però mi preme sottolineare che all'inizio "dei tempi" nacque il BASIC come linguaggio di programmazione, molto più intuibile dall'uomo che dalla macchina (in effetti poi viene tutto tradotto in Linguggio macchina)

Da allora sino ai giorni nostri sono nati vari tipi di Basic, tipo:QBASIC,VISUAL BASIC, VISUAL BASIC APPLICATION, VISUAL BASIC SCRIPT, E VIA DICENDO.
Nel tempo, man mano questi nuovi linguaggi hanno introdotto varie istruzioni e comandi adattandosi alle varie esigenze dei numerevoli programmi applicativi. (tipo L8)

Diverso è invece il confronto con i vari linguaggi tipo COBOL, C, FORTRAN, PASCAL......

scusami per questa precisazione, ma giusto così per parlare un pò di altre cose che non sia lotto, e comunque rimane il fatto che sei fortissimo e ti stimo tantissimo
Ciao

 

[Utile1]

Ciao Danilo, non preoccuparti puoi correggermi ogni volta che lo ritieni oppotuno, però mi preme sottolineare che all'inizio "dei tempi" nacque il BASIC come linguaggio di programmazione, molto più intuibile dall'uomo che dalla macchina (in effetti poi viene tutto tradotto in Linguggio macchina)

Da allora sino ai giorni nostri sono nati vari tipi di Basic, tipo:QBASIC,VISUAL BASIC, VISUAL BASIC APPLICATION, VISUAL BASIC SCRIPT, E VIA DICENDO.
Nel tempo, man mano questi nuovi linguaggi hanno introdotto varie istruzioni e comandi adattandosi alle varie esigenze dei numerevoli programmi applicativi. (tipo L8)

Diverso è invece il confronto con i vari linguaggi tipo COBOL, C, FORTRAN, PASCAL......

scusami per questa precisazione, ma giusto così per parlare un pò di altre cose che non sia lotto, e comunque rimane il fatto che sei fortissimo e ti stimo tantissimo
Ciao

 

[domvitol]

potrei avere il tuo sito x favore ?

quote:Originally posted by danilo

Ciao a tutti, grazie della stima e fiducia che in tanti mi accordate,
sono comunque come ho più volte detto solamente un appassionato e non un programmatore,
ho molti anni di esperienza ma nonostante questo a volte certe ricerche non riesco a farle,
questo per dire che le conoscenze di programmazione sono molto importanti per fare i listati,

mi permetto di correggere l'amico Utile1, il linguaggio di programmazione usato
in L8 non è Basic ma VBScript(Visual Basic Script) quello per intenderci contenuto anche nel pacchetto MS Office,

la versione contenuta in L8 è arricchita di comandi supplementari costruiti appositamente per il lotto,

tipo: Estratto, Diametrale, Figura, ImpostaGiocata, ecc. ecc.

tutte quelle terminologie usate nel gioco non sono altro che Procedure o Funzioni già implementate dagli autori,

comunque per imparare almeno i principi dei listati chiunque può scaricare gratuitamente dal mio sito
il Minicorso e la raccolta di listati presenti nella sezione Download

chi non conosce l'indirizzo del sito mi mandi una mail ed in risposta ve lo segnalo,
questo per rispetto di chi ci ospita che, come regola del forum ha appunto
il divieto di inserire link ad altri siti.

ciao Danilo


Danilo by cs1

 

[domvitol]

potrei avere il tuo sito x favore ?

quote:Originally posted by danilo

Ciao a tutti, grazie della stima e fiducia che in tanti mi accordate,
sono comunque come ho più volte detto solamente un appassionato e non un programmatore,
ho molti anni di esperienza ma nonostante questo a volte certe ricerche non riesco a farle,
questo per dire che le conoscenze di programmazione sono molto importanti per fare i listati,

mi permetto di correggere l'amico Utile1, il linguaggio di programmazione usato
in L8 non è Basic ma VBScript(Visual Basic Script) quello per intenderci contenuto anche nel pacchetto MS Office,

la versione contenuta in L8 è arricchita di comandi supplementari costruiti appositamente per il lotto,

tipo: Estratto, Diametrale, Figura, ImpostaGiocata, ecc. ecc.

tutte quelle terminologie usate nel gioco non sono altro che Procedure o Funzioni già implementate dagli autori,

comunque per imparare almeno i principi dei listati chiunque può scaricare gratuitamente dal mio sito
il Minicorso e la raccolta di listati presenti nella sezione Download

chi non conosce l'indirizzo del sito mi mandi una mail ed in risposta ve lo segnalo,
questo per rispetto di chi ci ospita che, come regola del forum ha appunto
il divieto di inserire link ad altri siti.

ciao Danilo


Danilo by cs1