ciao cipisto!!!!!!

[Roby]

sempre io
guarda questo listato , si può mettere il " Gioca " ??

Sub main()
Dim n(10),ru(1)
r=CInt(InputBox("Quale ruota analizzo ???",,3))

fin=EstrazioneFin : ini=fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es

For p=1 To 4 : a=Estratto (es,r,p) : dna=DecinaNaturale(a)
For q=p+1 To 5 : b=Estratto (es,r,q) : dnb=DecinaNaturale(b)
If dna=dnb Then

For x=1 To 10 : n(x)=(dna*10)+x : Next : ru(1)=r
For ex=es-1 To es-18 step -1
ok1=Posizione(ex,r,a) : ok2=Posizione(ex,r,b)
den=SerieFreq(ex,ex,n,ru,1)

If den>0 And ok1=0 And ok2=0 Then Exit For
If ok1>0 Then nes1=ex : nu1=a : a=0
If ok2>0 Then nes2=ex : nu2=b : b=0
If a=0 And b=0 Then
Scrivi nes1&" "& DataEstrazione(nes1)&" "&nu1
Scrivi nes2&" "& DataEstrazione(nes2)&" "&nu2
Scrivi es&" "& DataEstrazione(es)&" "&Left(NomeRuota(r),2)&_
" "& Format2(nu1)&" "& Format2(nu2),1 : Scrivi : Exit For

End If : Next
End If : Next : Next : Next : End Sub

prometto di non approfittarne +.

grazie ancora



Franca46

 

[cipisto]

quote:Originally posted by franca46


sempre io
guarda questo listato , si può mettere il " Gioca " ??

Cara Franca tu, come altri, puoi chiedere (approfittare non mi piace ) tranquillamente. Ho letto il listato ed alla tua domanda rispondo subito no. Leggi bene ciò che scrivo e non fraintendermi, non c'è niente di personale con te... capito? Dunque, non è mia abitudine modificare listati di altri se non su esplicita richiesta dell'autore; dallo stile orribile con cui è scritto intuisco subito chi ne è l'autore ed io su un listato del genere (e purtroppo ne girano molti), scritto davvero con i piedi non ci metto mano; preferisco ripartire da zero. Che l'autore si offenda pure, ma la libertà di pensiero ed espressione esiste sempre. Non è presunzione ma uno script del genere basterebbe una sola istruzione per mandarlo in crisi. Mi spiace che purtroppo chi cerca di imparare, da script come questo tutto può fare tranne che apprendere qualcosa.

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[franca46]

ciao cipisto
grazie della sincerità ,io non volevo.......

un saluto ed in bocca al lupo per tutto



Franca46

 

[cipisto]

quote:Originally posted by franca46

ciao cipisto
grazie della sincerità ,io non volevo.......
un saluto ed in bocca al lupo per tutto
Franca46

Franca, perdona il mio modo di rispondere, forse duro ma non assolutamente diretto a te. Per quel che posso e so, quando vuoi sono qui.
Ciao

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[franca46]

Franca46

 

[Aragon]

Script molto strano. Bufala? E' ovvio che la previsione sortisce sempre.

 

[DendroAspys]

se fosse vero .....ma a me sembra solo una [)][)]

 

[cipisto]

[Opinione Personale ON]
giusto per chiarire: non metto in dubbio la bontà del metodo e/o della ricerca, ma su un listato del genere, scritto in questo modo non mi viene la voglia di perderci nemmeno un minuto.
[Opinione Personale OFF]

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[cipisto]

forse scritto in modo decente e dichiarando le variabili.... forse. voglio dire, a prescindere dal metodo, ma un listato scritto così non acquista una maggiore leggibilità e manutentibilità? (a scanso di equivoci, ho solo indentato non ho controllato la correttezza di esecuzione)

Sub main()
   Dim n(10)
   Dim ru(1)

   r = CInt(InputBox("Quale ruota analizzo ???", , 3))
   fin = EstrazioneFin
   ini = fin - 200
   For es = ini To fin
      AvanzamentoElab ini, fin, es
      For p = 1 To 4
         a = Estratto(es, r, p)
         dna = DecinaNaturale(a)
         For q = p + 1 To 5
            b = Estratto(es, r, q)
            dnb = DecinaNaturale(b)
            If dna = dnb Then
               For x = 1 To 10
                  n(x) = (dna * 10) + x
               Next
               ru(1) = r
               For ex = es - 1 To es - 18 Step -1
                  ok1 = Posizione(ex, r, a)
                  ok2 = Posizione(ex, r, b)
                  den = SerieFreq(ex, ex, n, ru, 1)
                  If den > 0 And ok1 = 0 And ok2 = 0 Then Exit For
                  If ok1 > 0 Then
                     nes1 = ex
                     nu1 = a
                     a = 0
                  End If
                  If ok2 > 0 Then
                     nes2 = ex
                     nu2 = b
                     b = 0
                  End If
                  If a = 0 And b = 0 Then
                     Scrivi nes1 & " " & DataEstrazione(nes1) & " " & nu1
                     Scrivi nes2 & " " & DataEstrazione(nes2) & " " & nu2
                     Scrivi es & " " & DataEstrazione(es) & " " & Left(NomeRuota(r), 2) _
                          & " " & Format2(nu1) & " " & Format2(nu2), 1
                     Scrivi
                     Exit For
                  End If
               Next
            End If
         Next
      Next
   Next
End Sub

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[franca46]

quote:Originally posted by Aragon

Script molto strano. Bufala? E' ovvio che la previsione sortisce sempre.

ciao Aragon

potresti spiegarmi ??

grazie

Franca46

 

[franca46]

x cipisto

non rimetto il listato perchè inutile.

questo che hai modificato scrive esattamente le stesse cose del primo ma listato in maniera + corretta.
questo listato l'ho scaricato dal sito di Danilo e visto che li sto guardando tutti ,volevo capire.

ma se dite che è una bufala lasciamo perdere ,un ambetto cosi' sicuro sarebbe simpatico

aspetto Aragon con qualke suo consiglio .

grazie a tutti

Franca46

 

[franca46]

quote:Originally posted by franca46

Sub main()
Dim n(10),ru(1)
r=CInt(InputBox("Quale ruota analizzo ???",,3))

fin=EstrazioneFin : ini=fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es

For p=1 To 4 : a=Estratto (es,r,p) : dna=DecinaNaturale(a)
For q=p+1 To 5 : b=Estratto (es,r,q) : dnb=DecinaNaturale(b)
If dna=dnb Then

For x=1 To 10 : n(x)=(dna*10)+x : Next : ru(1)=r
For ex=es-1 To es-18 step -1
ok1=Posizione(ex,r,a) : ok2=Posizione(ex,r,b)
den=SerieFreq(ex,ex,n,ru,1)

If den>0 And ok1=0 And ok2=0 Then Exit For
If ok1>0 Then nes1=ex : nu1=a : a=0
If ok2>0 Then nes2=ex : nu2=b : b=0
If a=0 And b=0 Then
Scrivi nes1&" "& DataEstrazione(nes1)&" "&nu1
Scrivi nes2&" "& DataEstrazione(nes2)&" "&nu2
Scrivi es&" "& DataEstrazione(es)&" "&Left(NomeRuota(r),2)&_
" "& Format2(nu1)&" "& Format2(nu2),1 : Scrivi : Exit For

End If : Next
End If : Next : Next : Next : End Sub

prometto di non approfittarne +.

grazie ancora



Franca46

quote:Originally posted by Aragon

Script molto strano. Bufala? E' ovvio che la previsione sortisce sempre.

Grazie cipisto e Aragon ,credo di aver capito ,ho fatto delle prove con carta e penna.

conviene lasciarlo perdere.

nel frattempo potreste spiegarmi cosa vuol dire questa istruzione??

For ex=es-1 To es-18 step -1


grazie mille

Franca46

 

[cipisto]

For ex=es-1 To es-18 step -1
equivale a scrivere
For ex = (es - 18) to (es - 1)
praticamente parte da es e torna indietro di 18 estrazioni

nel ciclo For/Next puoi indicare anche lo Step da utilizzare, quando omesso equivale sempre a 1

For x= 1 to 10 Step 2
.......
Next

effettuerà il ciclo per i valori di x 1, 3, 5, 7, 9
Buona Domenica.
Cipisto

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)