Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
dal menu di twinbasic , dal menu file exportproject

ti salva tutti i file in una cartella che dovrai scegliere , tu vai nella cartelal dove ha salvato i file e mi dai solo i 2 file relativ al tuo form.
 
Qui e' un piccolissmo esempio di generazione casuale di una serie di numeri non ripetuti, messi in ordine senza fare alcun sort...

Codice: 
Private Sub Command1_Click()
        Dim i As Integer
        Dim quanti As Integer
        Dim CheckRip(90) As Integer
        Dim numeroCasuale As Integer
        Dim uscita As Integer
        Dim stringaCasuale As String
        Dim Numero(90) As Integer
        Dim tentativi As Integer
        uscita = 0
     
        quanti = CInt(Text1.Text)
       
        Text1.Text = Str$(quanti)
        tentativi = 0
       
            For i = 1 To 10000
                 numeroCasuale = 1 + (Rnd * 89)
                tentativi = tentativi + 1
                If CheckRip(numeroCasuale) = 0 Then
                 
                   CheckRip(numeroCasuale) = 1
                    uscita = uscita + 1
                   
                    'MsgBox Str$(uscita) & ".o " & Str$(numeroCasuale) & " numero valido (non ripetuto) "
                   
                    Numero(numeroCasuale) = numeroCasuale
                    If uscita = quanti Then
                       Exit For
                    End If
                   
                End If
            Next
            stringaCasuale = ""
           
            For i = 1 To 90
              If Numero(i) = i Then
                 stringaCasuale = stringaCasuale + Str$(Numero(i))
              End If
            Next
            Text2.Text = stringaCasuale
            MsgBox "numeri generati (non ripetuti) " & Str$(quanti) & " in " & Str$(tentativi) & "tentativi "
               
    End Sub

Una nota per gli esperti di generatori di numeri pseudo random, non ho studiato quello che usa VB6 ma quello implementato in tB dovrebbe essere migliorato, certamente per altri ambiti, come nel caso delle simulazioni o nei metodi montecarlo, per citarne qualcuno di essi. Dunque, se necessita una distribuzione uniforme puo' andar bene ma se servono sequenze con distribuzioni di altro tipo dovrete tenerne conto, approfondendo la questione.

1678572784725.png
 
Ultima modifica:
lotto_tom75 ha scritto:
Ok



Sono felice che ti sia ripartito tutto (y)😜


Riguardo questo grafico statico invece io sono ancora in alto mare... 😬🥴


' r Firenze n 04.19.27 c 3- s 2- clp 1- r ra 360 rs 278 fq 20 incmax 82
' RITARDI .151.93.84.30.171.3.15.116.278.165.21.29.3.48.25.13.273.52.43.100.360
' INCREMENTI .-58.-9.-54.141.-168.12.101.162.-113.-144.8.-26.45.-23.-12.260.-221.-9.57.260

Credevo che con l'esempio seguente presente nel file help della dllgiochi di luigi potessi ricostruirne un altro... analogo...

Codice: 
'      Dim aValue (3, 1) As Long
  
' aValue(0, 0) = 0  ' x
' aValue(0, 1) = 0  ' y
' aValue(1, 0) = 10 ' x
' aValue(1, 1) = 10 ' y
' aValue(2, 0) = 20 ' x
' aValue(2, 1) = 20 ' y
' aValue(3, 0) = 30 ' x
' aValue(3, 1) = 30 ' y  
' Call AddSerieGrafico("RITARDI", aValue, vbBlue)
' Call DisegnaGrafico("test grafico statico")


così...

Codice: 
     Dim aValue (20, 1) As Long
  
aValue(0, 0) = 151  ' x
aValue(0, 1) = 151  ' y
aValue(1, 0) = 93 ' x
aValue(1, 1) = 93 ' y
aValue(2, 0) = 84 ' x
aValue(2, 1) = 84 ' y
aValue(3, 0) = 30 ' x
aValue(3, 1) = 30 ' y
'-- -- -- -- -- -- -- -- -- -- -
aValue(4, 0) = 171  ' x
aValue(4, 1) = 171  ' y
aValue(5, 0) = 3 ' x
aValue(5, 1) = 3 ' y
aValue(6, 0) = 15 ' x
aValue(6, 1) = 15 ' y
aValue(7, 0) = 116 ' x
aValue(7, 1) = 116 ' y
'-- -- -- -- -- -- -- -- -- -- -- -- -- --
aValue(8, 0) = 278  ' x
aValue(8, 1) = 278  ' y
aValue(9, 0) = 165 ' x
aValue(9, 1) = 165 ' y
aValue(10, 0) = 21 ' x
aValue(10, 1) = 21 ' y
aValue(11, 0) = 29 ' x
aValue(11, 1) = 29 ' y
'-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -
aValue(12, 0) = 3  ' x
aValue(12, 1) = 3  ' y
aValue(13, 0) = 48 ' x
aValue(13, 1) = 48 ' y
aValue(14, 0) = 25 ' x
aValue(14, 1) = 25 ' y
aValue(15, 0) = 13 ' x
aValue(15, 1) = 13 ' y
'-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
aValue(16, 0) = 273  ' x
aValue(16, 1) = 273  ' y
aValue(17, 0) = 52 ' x
aValue(17, 1) = 52 ' y
aValue(18, 0) = 43 ' x
aValue(18, 1) = 43 ' y
aValue(19, 0) = 100 ' x
aValue(19, 1) = 100 ' y
aValue(20, 0) = 360 ' x
aValue(20, 1) = 360 ' y
'-------------------------------------------------

    
Call AddSerieGrafico("RITARDI", aValue, vbBlue)
Call DisegnaGrafico("test grafico statico")

Ma invece, non avendo assolutamente chiaro nè il concetto di matrice multidimensionale nè come si programma un grafico in vb o twinbasic o in altro modo... mi viene solo questo... 👇😑:LOL:

Vedi l'allegato 2255224
Clicca per espandere...

L'ho già detto che studiare... anche... il twinbasic conviene...? :unsure::D:eek::ROFLMAO:

mierodimenticatoquesta.jpg

Con l'occasione... , visto il terno a colpo a ruota sfiorato..., rinnovo la mia domanda sul relativo grafico... 😄

👋:)
 
lotto_tom75 ha scritto:
L'ho già detto che studiare... anche... il twinbasic conviene...? :unsure::D:eek::ROFLMAO:

Vedi l'allegato 2255276

Con l'occasione... , visto il terno a colpo a ruota sfiorato..., rinnovo la mia domanda sul relativo grafico... 😄

👋:)
Clicca per espandere...
La Segretaria... del Caso, ti ha baciato intensamente ;)... a piu' riprese ieri sera! Per il grafico, con tB, dovrai studiare un po' perche' lo dovrai costruire da zero (o quasi). FInche' non sara' implementato cio' che rende facile il lavoro, dovrai occuparti dello scaling per visualizzare tutti e due grafici riferiti al valore piu' alto di ognuna delle due serie di coppie di punti, da posizionare sugli assi cartesiani.

Usa un grafico semplice, congiungendo i punti rappresentati. Dovrai farlo quindi per due differenti funzioni... !
Non e' difficile, ma intanto inizia a capire quale controllo tB/VB e' tuo amico nell'ospitare il grafico, mi sembra che questo lo hai gia' incontrato nel tuo recente passato con tB...(picturebox) poi, ma non sappiamo quando (cioè dipende da Wayne), potrai usare Chart.

? Che tipo di grafico vuoi usare ? Per spiegarmelo, credo sia meglio che lo crei in excel e ne fai uno screenshot... che posterai.
 
Ultima modifica:
ciao Luigi
ho provato ad andare su export project
ma c erano solo le cartelle e non ho trovato quelle del form
allora ho modificato il primo che ti ho postato
ho aggiunto la label e la progress bar(sei un genio)
ho dovuto riaggiungere il pulsante chiudi, perche chiudendo dalla barra superiore
segnala la data come errore
e bisogna chiudere twinbasic
ho dovuto cancellare la sub
Private Sub Form_Activate()
' If strctCfgArchivio.nQuantitaRuote <> 11 Then ' questa riga mi dava errore forse è legata allo Smess?
' MsgBox "Questo script è solo per il lotto"
' Unload Me

' End If
End Sub
il progetto è stato Modificato
per Favore aspettate che Luigi controlli e aggiusti i punti sopraelencati
per non fare casini sul pc
 
Ultima modifica:
Rookie ha scritto:
La Segretaria... del Caso, ti ha baciato intensamente ;)... a piu' riprese ieri sera!
Clicca per espandere...

Eh già... quasi alla francese... :LOL:

Rookie ha scritto:
Per il grafico, con tB, dovrai studiare un po' perche' lo dovrai costruire da zero (o quasi). FInche' non sara' implementato cio' che rende facile il lavoro, dovrai occuparti dello scaling per visualizzare tutti e due grafici riferiti al valore piu' alto di ognuna delle due serie di coppie di punti, da posizionare sugli assi cartesiani.

Usa un grafico semplice, congiungendo i punti rappresentati. Dovrai farlo quindi per due differenti funzioni... !
Non e' difficile, ma intanto inizia a capire quale controllo tB/VB e' tuo amico nell'ospitare il grafico, mi sembra che questo lo hai gia' incontrato nel tuo recente passato con tB...(picturebox) poi, ma non sappiamo quando (cioè dipende da Wayne), potrai usare Chart.
Clicca per espandere...

Rookie ha scritto:
? Che tipo di grafico vuoi usare ? Per spiegarmelo, credo sia meglio che lo crei in excel e ne fai uno screenshot... che posterai.
Clicca per espandere...

Vorrei poter ottenere in twbasic in dinamico... qualcosa di questo tipo:

qualcosadiquestogenere.jpg


Grazie e buona Domenica a te, legend, luigi e a tutto il resto della nave scuola 💪😜👋:)
 
i legend ha scritto:
ciao Luigi
ho provato ad andare su export project
ma c erano solo le cartelle e non ho trovato quelle del form
allora ho modificato il primo che ti ho postato
ho aggiunto la label e la progress bar(sei un genio)
ho dovuto riaggiungere il pulsante chiudi, perche chiudendo dalla barra superiore
segnala la data come errore
e bisogna chiudere twinbasic
ho dovuto cancellare la sub
Private Sub Form_Activate()
' If strctCfgArchivio.nQuantitaRuote <> 11 Then ' questa riga mi dava errore forse è legata allo Smess?
' MsgBox "Questo script è solo per il lotto"
' Unload Me

' End If
End Sub
il progetto è stato Modificato
per Favore aspettate che Luigi controlli e aggiusti i punti sopraelencati
per non fare casini sul pc
Clicca per espandere...

legend quando fai esporta progetto twinbasic ti chiede una cartella tu la selezioni e lui esport in quella cartelal tutti i ocmponenti del progetto rispettando la struttura delle cartele , tu vai nelal cartella dove lo ha esportato e cerchi la cartella sources
li dentro ci sono tutti i file

1678609826702.png

1678609855394.png


ripeti tutto e dammi i file che stanno nello smess.
 
Luigi vedo solo ora il messaggio.sono fuori e rientro nel tardo pomeriggio.
Ci provo appena rientro.

Per arrivare ai form che cartella hai selezionato?

Io non ci sono riusciuto.
ora non ho piu l interfaccia originale che mi sembrava piu carina.🥲
pace e amore 🤣
Cmq stamattina avevo impostato meglio l interfaccia . Se non è un problema riesci a utilizzare l ultima? Altrimenti rimodifico quella dello smess, ci metterò pochi minuti.
Appena rientro posto tutto.
È simile a quella di ieri ma ho ingrandito le listbox
 
Buona domenica a tutti .
Tom sei un mito.
Capito le vostre funzioni.
Ordinavettore per quanto velocissimo impiega tempo e risorse inutilmente
Bastava fare un ciclo di raccolta.
Ieri non ero al 100k %
Grazie per avermi mostrato l errore:😃👍
 
non lo so perche non ci ho provato, se i file che hai messo sono corrett inon ci dovrebebro essere problemi , pero la cosa importante è che visto che te la cavi bisogna pure che tu sappia usare tuttel e varie funzioni di Twinbasic e che tu possa acquisire anche una maggire padronanza con le banali operazioni del sistema operativo, è per quello che ci tengo che tu faccia la cosa come te l'ho detta io.
Non è che sul tuo pc Twinbasic possa funzionare in mdo diverso ,se esporti il progetto quelle cartelel le devi trovare per forza.
 
Grazie Luigi.
Appena rientro ci riprovo.
Se dovessi vedere diversamente ti posto l immagine.
Fino alla prima lista sono arrivato .
E i miei form che non sono riuscito a visualizzare.
Sono cose che devo imparare e che voglio imparare. Grazie. 😃👍
 
Scusate se vado fuori schema , vedo che ci sono quesiti a cui io ancora non arrivo (attendo con pazienza di capire più in là).

Invece io mi trovo degli errori con l'ultima DLL (comprensiva di SMESS) su alcuni script che prima funzionavano correttamente.
Tipo codice ClassificaRitardi, poi L'ultima versione di TB 267(sono ritornato alla 265) mi dava problemi frequenti di NATIVE...........(non ricordo il resto).

errore


script

Codice: 
 Dim aRet() As STRUCT_VALORI_MIGLIORI
 Dim k As Long
 Dim R As Variant
    Scrivi ("ClassificaRitardo")
    For R = 1 To 11
    aRet = ClassificaRitardo(2, EstrazioneFin, 2, R, , "9,90") ' per i numeri si puo usareanche un'array ora era piu comoda la stringa
  
    For k = 1 To UBound(aRet)
        Scrivi (SiglaRuota(R) & " - " & StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore)
    Next
    Next
   Scrivi " Tempo Trascorso : " & TempoElaborazioneSecondi & " Sec "
 
ciao Mike probabilmente non hai registrato la dll perche il tuo script a me funziona perfettamente ...
 
LuigiB ha scritto:
ciao Mike probabilmente non hai registrato la dll perche il tuo script a me funziona perfettamente ...
Clicca per espandere...
La DLL era stata registrata, altri script funzionano mentre altri danno errori, se è un problema di registrazione non dovrebbe funzionare nessun script ?
Comunque riprova a rigestristrarla.
Grazie.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 novembre 2024
    Bari
    33
    80
    86
    52
    25
    Cagliari
    67
    57
    59
    05
    80
    Firenze
    31
    32
    58
    88
    77
    Genova
    40
    39
    23
    36
    81
    Milano
    28
    58
    45
    25
    38
    Napoli
    20
    82
    23
    44
    57
    Palermo
    76
    56
    88
    62
    31
    Roma
    12
    81
    59
    74
    72
    Torino
    46
    53
    72
    45
    23
    Venezia
    04
    12
    42
    64
    20
    Nazionale
    63
    44
    78
    10
    55
    Estrazione Simbolotto
    Torino
    43
    42
    12
    39
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto