Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Qualcosa di teutonico e' rimasto nelle tue corde
grazie per averlo condiviso con me 
!
Un'altra dritta che vale l'oro del tuo peso, confidando tu sia un Marcantonio oppure in subordine Non mingherlino! Per i colori erroneamente pensavo si dovessero settare in esadecimale, ma in questa maniera e' davvero semplice.
ahah mingherlino non lo sono ..
Ho fatto vedere un grafico a torta in una form, con OLE e
Per Fortuna
Non vorrei aver lanciato l'eseguibile creato dal compilatore c3 di vb6... verifico e ti rispondo.
Class Form1
Sub New()
End Sub
Private Sub Form_Load()
End Sub
Private Sub Command1_Click()
'---------------------------------------------------------------------
' codice adattato dall'esempio di SLDR, senza la sua consueta dritta
' non ci sarei arrivato cosi presto...
' --------------------------------------------------------------------
On Error GoTo Errore:
Dim xlApp As Excel.Application
Dim Wb As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.application")
Set Wb = xlApp.Workbooks.Add
Set xlSheet = Wb.Worksheets(1)
' xlSheet.Cells (1, 1) = "Test"
' xlSheet.Range ("A2") = "test2"
' xlSheet.Range ("A3:d3").Interior.Color = vbRed
' xlApp.Visible = True
Dim nVnt As Variant
Dim vX As Variant
Dim vY As Variant
Dim x As Long
Dim y As Long
For y = 1 To 50
For x = 1 To 5
vX = x
vY = y
xlSheet.Cells(vY, vX) = "Cella " & Chr$(x + 64) & Str$(y)
Next x
vX = 6
nVnt = y + y / 10
xlSheet.Cells(vY, vX) = nVnt
vX = 7
xlSheet.Cells(vY, vX) = Str$(1 + Int(90 * Rnd()))
Next y
xlApp.Visible = True
Errore:
If Err <> 0 Then
MsgBox Err.Description
End If
End Sub
Ecco un piccolissimo esempio, poche linee di codice, per sfruttare la presenza di excel per costruire un potentissimo grid, aspettando Godot... Wayne!
Vedi l'allegato 2254036
... e per evitare di digitare il codice...per coloro che volessero riprodurlo sul proprio pc, SE, e solo se, e' gia presente MS EXCEL...
...eccolo! Per questo esempio, ho usato tB beta 254
GRAZIE Luigi
Codice:Class Form1 Sub New() End Sub Private Sub Form_Load() End Sub Private Sub Command1_Click() '--------------------------------------------------------------------- ' codice adattato dall'esempio di SLDR, senza la sua consueta dritta ' non ci sarei arrivato cosi presto... ' -------------------------------------------------------------------- On Error GoTo Errore: Dim xlApp As Excel.Application Dim Wb As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.application") Set Wb = xlApp.Workbooks.Add Set xlSheet = Wb.Worksheets(1) ' xlSheet.Cells (1, 1) = "Test" ' xlSheet.Range ("A2") = "test2" ' xlSheet.Range ("A3:d3").Interior.Color = vbRed ' xlApp.Visible = True Dim nVnt As Variant Dim vX As Variant Dim vY As Variant Dim x As Long Dim y As Long For y = 1 To 50 For x = 1 To 5 vX = x vY = y xlSheet.Cells(vY, vX) = "Cella " & Chr$(x + 64) & Str$(y) Next x vX = 6 nVnt = y + y / 10 xlSheet.Cells(vY, vX) = nVnt vX = 7 xlSheet.Cells(vY, vX) = Str$(1 + Int(90 * Rnd())) Next y xlApp.Visible = True Errore: If Err <> 0 Then MsgBox Err.Description End If End Sub
Grazie a te Rookie per la gentile condivisione e a Luigi per l'aiuto.
Ciao Tom, scusa potresti indicarmi qual'è il manuale indicato da Luigi?Iniziato oggi e sono già... a pagina 100 su oltre 600 ca del manuale di vb. Troppo scritto bene! Grazie per avercelo indicato Luigi!
Dim ret As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO
Dim Ris As STRUCT_VERIFICAESITO_RISULTATO
Dim aTrovati () As STRUCT_STATISTICHE_TROVATI
Dim aNumeri As Variant
Dim aRuote As Variant
Dim T As Variant
Dim sorte As Long = 2
Dim nColpi As Long = 1
Dim k As Long
Dim kk As Long
Dim a As String
Dim n1 As Variant, n2 As Variant
Dim ini As Long = EstrazioneIni
Dim fin As Long = EstrazioneFin
Scrivi "Ambi migliori per PresenzeMultiple", 1, , vbBlack, vbWhite, 150
aRuote = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) ' Tutte
T = Array(" Ambo ", "Ritardo", "RitMax", "Presenze", "Presenze_Multipla", "Verifica Ultima sortita")
Call InitTabella(T, vbGreen, , , vbWhite)
For n1 = 1 To 89
For n2 = n1 + 1 To 90
aNumeri = Array (n1, n2)
Call StatisticaSingoloEsito(aNumeri, ini, fin, sorte, ret, aRuote)
If VerificaEsito(aNumeri, sorte, fin - ret.RetValori.Ritardo, Ris, aRuote, , nColpi, aTrovati) Then
'Scrivi "Esito al colpo " & Ris.ColpiUsati
'Scrivi "Sorte uscita " & Ris.EsitoTrovato
'Scrivi "Presenze " & Ris.Presenze
'Scrivi "PresenzeMult " & Ris.PresenzeMultiple
For k = 1 To UBound(aTrovati)
'Scrivi (StringaNumeri(aTrovati(k).aNumeri) & " all'estrazione " & aTrovati(k).idEstrazione & " ruota " & aTrovati(k).idRuota)
a = SiglaRuota(aTrovati(k).idRuota) & " - " & StringaNumeri(aTrovati(k).aNumeri) & " - Colpo : " & Ris.ColpiUsati & " <> " & GetInfoEstrazione (aTrovati(k).idEstrazione)
'a = "-"
Next
Else
Scrivi "Esito non trovato"
End If
'Scrivi "Ritardo : " & ret.RetValori.Ritardo
'Scrivi "RitardoMax : " & ret.RetValori.RitardoMax
'Scrivi "Presenze : (t)" & ret.RetValori.Presenze
'Scrivi "PresenzeMult : " & ret.RetValori.PresenzeMultiple
If ret.RetValori.PresenzeMultiple > 280 Then
kk = kk + 1
Call AvanzamentoElaborazione(100, 10)
'Call Messaggio("Elaborazione Attendere ")
Call Messaggio("Script By Mike58")
Messaggio "Trovati.... " & kk & " Numeri... " & StringaNumeri (aNumeri) & " < Frequenze > " & ret.RetValori.PresenzeMultiple, True
T = Array(StringaNumeri(aNumeri), ret.RetValori.Ritardo, ret.RetValori.RitardoMax, ret.RetValori.Presenze, ret.RetValori.PresenzeMultiple, a)
Call AddRigaTabella(T)
End If
Next
Next
Call CreaTabella()
Scrivi " Tempo Trascorso : " & TempoElaborazioneSecondi & " sec " Ambo | Ritardo | RitMax | Presenze | Presenze_Multipla | Verifica Ultima sortita |
|---|---|---|---|---|---|
06.23 | 1 | 214 | 277 | 281 | Ge - 06.23 - Colpo : 1 <> Id : 10201 18/02/2023 Indice Annuale : 21 |
07.53 | 47 | 319 | 278 | 282 | Ge - 07.53 - Colpo : 1 <> Id : 10155 03/11/2022 Indice Annuale : 132 |
15.25 | 23 | 234 | 278 | 283 | Rm - 25.15 - Colpo : 1 <> Id : 10179 29/12/2022 Indice Annuale : 156 |
16.81 | 26 | 224 | 279 | 282 | Fi - 16.81 - Colpo : 1 <> Id : 10176 22/12/2022 Indice Annuale : 153 |
19.26 | 30 | 184 | 283 | 288 | To - 19.26 - Colpo : 1 <> Id : 10172 13/12/2022 Indice Annuale : 149 |
20.81 | 78 | 229 | 284 | 287 | Na - 20.81 - Colpo : 1 <> Id : 10124 23/08/2022 Indice Annuale : 101 |
30.83 | 54 | 236 | 279 | 282 | Rm - 83.30 - Colpo : 1 <> Id : 10148 18/10/2022 Indice Annuale : 125 |
51.81 | 15 | 221 | 281 | 284 | Mi - 51.81 - Colpo : 1 <> Id : 10187 17/01/2023 Indice Annuale : 7 |
52.81 | 11 | 276 | 279 | 281 | Ge - 81.52 - Colpo : 1 <> Id : 10191 26/01/2023 Indice Annuale : 11 |
60.81 | 4 | 273 | 283 | 287 | Na - 60.81 - Colpo : 1 <> Id : 10198 11/02/2023 Indice Annuale : 18 |
80.90 | 7 | 215 | 281 | 285 | Ca - 90.80 - Colpo : 1 <> Id : 10195 04/02/2023 Indice Annuale : 15 |
Caro Joe, questa "vista" che hai presentato ispira qualcosa da emulare con tb+excel... devo dire che la trovo assai efficace e selettiva, due sole nuances di un tono tra l'arancione e il marrone chiaro (da quello che vedo col mio monitor, spero non sia daltonismo incipiente). Complimenti!Ho costruito anch'io un piccolo mostro a tre teste.
Per provare e ... con Spaziometria, per la maggiore dimestichezza che ne ho.
Nella prima parte di esso si genera una sorte di "pronostico" cercando un ambo bivalente. Trovato ...
Nella seconda (utile soprattutto per verifica di debug) lo si esplicita nei 2 numeri e nelle 2 ruote coinvolte.
La terza parte ripropone per sommi capi lo script che Luigi ha fatto, per la visualizzazione estesa degli estratti nelle 10 ruote.
In quest'ultima parte però si da evidenza dell' Ambo Bivalente, che si era inteso essere pronostico,
attribuendogli un suo COLORE unico che gli si è riservato/attribuito.
Dunque SOLO quanto SPECIFICATO in pronostico è trovato e posto in evidenza nei NUMERI nel COLORE / RUOTE come SORTE.
Sarà (spero possibile) specificare un certo numero di pronostici contemporaneamente rendendoli distinguibili INDIVIDUALMENTE.
Vedi l'allegato 2254065
forse e' questoCiao Tom, scusa potresti indicarmi qual'è il manuale indicato da Luigi?
Grazie
Grazie giomi, per chi fosse interessato, gratuito c'è anche questo: a SCUOLA con VISUAL BASIC 2010 EXPRESS .
sarà andato i nsettimana bianca ..le assenze in queto periodo dipendono da quello ..
Ciao Luigi, anche iLegend ieri non si e' fatto sentire. Speriamo non sia per motivi di salute!inutile dire che tra i primi della classe ci sia Mike ... ignota la fine dello studente pasticcere
