Novità

Switch problems... [risolto]

lotto_tom75

lotto_tom75

Advanced Premium Member
Codice: 
Dim cimg

Dim cvettoreformazione

For cimg = 1 To 90

For  cvettoreformazione = 0 To UBound(vettoredastringaformazione)

Switch (vettoredastringaformazione(cvettoreformazione))

Case cimg:
Call Scrivi("<img src='https://url/2018/02/" & cimg &".jpg' height=100 width=100>" & ".",False,False)

End Switch

'Sintassi della function...

'Switch (object.constructor){
'   Case Date:
'   ...
'   Case Number:
'   ...
'   Case String:
'   ...
'   Case MyObject:
'   ...
'   default:
'   ...
'}

Next

Next

Mi da sempre errore scrivendomi "prevista funzione..." ed evidenziandomi la riga:

Codice: 
Case cimg:

in sostanza dovrei poter visualizzare in riferimento ai numeri elaborati e risultanti nell'output finale delle immagini rispettive e vorrei evitare di fare un if per ognuna... Di qui il tentativo di dinamicizzare la cosa con un semplice switch e un solo parametro dinamico cimg che sta per contatore immagine appunto.

:unsure:
 
Ultima modifica:
lotto_tom75 ha scritto:
Codice: 
Dim cimg

Dim cvettoreformazione

For cimg = 1 To 90

For  cvettoreformazione = 0 To UBound(vettoredastringaformazione)

Switch (vettoredastringaformazione(cvettoreformazione))

Case cimg:
Call Scrivi("<img src='https://url/2018/02/" & cimg &".jpg' height=100 width=100>" & ".",False,False)

End Switch

'Sintassi della function...

'Switch (object.constructor){
'   Case Date:
'   ...
'   Case Number:
'   ...
'   Case String:
'   ...
'   Case MyObject:
'   ...
'   default:
'   ...
'}

Next

Next

Mi da sempre errore scrivendomi "prevista funzione..." ed evidenziandomi la riga:

Codice: 
Case cimg:

in sostanza dovrei poter visualizzare in riferimento ai numeri elaborati e risultanti nell'output finale delle immagini rispettive e vorrei evitare di fare un if per ognuna... Di qui il tentativo di dinamicizzare la cosa con un semplice switch e un solo parametro dinamico cimg che sta per contatore immagine appunto.

:unsure:
Clicca per espandere...

Per chi interessasse sapere come ho risolto posto l'esempio della funzione utilizzata al posto di Switch ovvero: "Select Case" ? .

Codice: 
Select Case vettoredastringaformazione(cvettoreformazione)
Case 1
Call Scrivi("Il numero " & vettoredastringaformazione(cvettoreformazione) & " è 1")
Case 11,22,33,44,55,66,77,88
Call Scrivi("Il numero " & vettoredastringaformazione(cvettoreformazione) & " è un gemello")
Case Else
If vettoredastringaformazione(cvettoreformazione) > 45 Then
Call Scrivi("Il numero " & vettoredastringaformazione(cvettoreformazione) & " è maggiore di 45")
Else
Call Scrivi("Il numero " & vettoredastringaformazione(cvettoreformazione) & " è minore od uguale a 45")
End If
End Select

:)
 
Giggio prima che mi rimetta alla ricerca... ? mi potresti dire come si colora di nero lo sfondo dell'output in modo dinamico direttamente da codice? :unsure:?Grazie ?:)

Per adesso avrei trovato questo...

Codice: 
SetColorSezione (ncolor)

ma non so come sostituire il parametro con il colore nero ad esempio... e non so nemmeno se sia la funzione che cerco... perchè con le prove fatte non si attiva perchè appunto non riconosce il parametro tra parentesi...

ho provato a sostituire ncolor con:

#000000
"black"
nero

ma nisba! :sleep:
 
lotto_tom75 ha scritto:
Giggio prima che mi rimetta alla ricerca... ? mi potresti dire come si colora di nero lo sfondo dell'output in modo dinamico direttamente da codice? :unsure:?Grazie ?:)

Per adesso avrei trovato questo...

Codice: 
SetColorSezione (ncolor)

ma non so come sostituire il parametro con il colore nero ad esempio... e non so nemmeno se sia la funzione che cerco... perchè con le prove fatte non si attiva perchè appunto non riconosce il parametro tra parentesi...

ho provato a sostituire ncolor con:

#000000
"black"
nero

ma nisba! :sleep:
Clicca per espandere...

non importa + ho capito cosa vuole come parametro... il semplice numero singolo...

Codice: 
SetColorSezione (0)   'x il black... ecc...

?;)
 
claudio8 ha scritto:
Si può avere un assaggino...
che non siano come i cannoli siciliani di Ele....
Giggio remember?
Ciao
Clicca per espandere...

Assaggino: riduzione automatica da gruppo doc absolute x A su TT ad una sola coppia x A su TT in pochi shots teorici con verifica automatica per ogni elaborazione dei tot casi analoghi passati voluti ;) Se questa torta non si scuoce o si sgonfia... poi il prossimo passo sarà metterci come ciliegina la scelta automatica della ruota teoricamente favorita. Il tutto con una gradevole visualizzazione delle risultanze in output non di striminziti numeri in formato testo bensì in formato img molto + leggibili e bellini da vedersi... con magari anche la verifica automatica degli eventuali esiti... ???:D:cool: ?:)
 
Ultima modifica:
Sempre in riferimento al visualizzare i numeri in formato img anzichè testo mi chiedo come mai all'interno della Select la funzione Scrivi configurata per scrivere in output in orizzontale non risponda correttamente...

Codice: 
Select Case Int(vettoredastringaformazione(cvettoreformazione))

Case cimg


Call Scrivi("<img src='https://urlimages/2018/02/" & cimg & ".jpg' height=100 width=100>",False,False)



End Select

I due parametri false o meglio il secondo dovrebbero far si che l'immagine successiva sia posizionata accanto alla precedente e non venga visualizzata a capo (sotto) rispetto la stessa :unsure:

Invece questo non accade... e l'img seguente si visualizza sempre erroneamente sotto la precedente...

Why? o_O
 
Prova questo ed adattalo al tuo progetto ( border = 2 dimensione bordo) se non lo imposto, non avendo immagini, non mi evidenzia bene la dimensione.

Codice: 
Option Explicit
Sub Main
    Call InserisciImmagine("c:\temp\test.jpg")
End Sub
Sub InserisciImmagine(sPercorsoFileImg)
    Dim s,cimg
    Scrivi "Mio Costrutto"
    's = " <img src ='https://urlimages/2018/02/" & cimg  & ".jpg' height=100 width=100>"
    's = "<img border='10' src='" & sPercorsoFileImg & "'/>'"
    's = "<img border='4' src='" & sPercorsoFileImg & ".jpg' height=100 width=100>"
    's = "<img border='4' src='" & cimg & ".jpg' height=100 width=100>"
    s = "<img border='2' src=https://urlimages/2018/02/" & cimg & ".jpg' height=100 width=100>"
    Call Scrivi(s & "" & s,False,False)
    Scrivi
    Scrivi "Tuo Costrutto"
    Call Scrivi("<img src='https://urlimages/2018/02/" & cimg & ".jpg' height=100 width=100>",False,False)
End Sub

Altro che pasticcino devi passarmi... :cool: :devilish: ;)
 
Allora... alla fine ce l'ho fatta! ??? Ma non con il co_strutto di claudio, che saluto e ringrazio comunque, ma con questa my solution code ;) che riporto brevemente qui sotto nel caso potesse servire a qualcuno/a altro/a:

Codice: 
Select Case Int(vettoredastringaformazione(cvettoreformazione))

Case cimg

Call Scrivi("<img src='https://url/uploads/2018/02/" & cimg & ".jpg' height=45 width=45>" & ".",False,False)

Case Else
If vettoredastringaformazione(cvettoreformazione) <> cimg Then
Call Scrivi("",False,False)
Else
Call Scrivi("",False,False)
End If

'EndColorSezione

End Select

Per completezza riporto anche un es. in classe due della prova di visualizzazione dinamica in orizzontale riuscita ?

allafinecelhofattama.jpg

Ovviamente l'ho testata anche per altre classi di formazioni e adesso finalmente mostra sempre, qualunque sia la classe dinamica visualizzata in output, in modo corretto i numeri uno accanto all'altro anzichè appunto uno sotto l'altro come faceva erroneamente prima... ✅

Un saluto a tutti gli intervenuti ?:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto