Differenze tra le versioni di "Scritta lampeggiante"

Da Gambas-it.org - Wikipedia.
 
(4 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Per ottenere una scritta ''lampeggiante'' è possibile utilizzare almeno due modalità.
+
Per ottenere una scritta ''lampeggiante'' è possibile utilizzare alcune modalità.
  
−
 
+
==Uso delle sole risorse di Gambas==
−
===Uso delle sole risorse di Gambas===
 
 
L'uso delle sole risorse di Gambas prevede l'utilizzo di un ''Timer''.
 
L'uso delle sole risorse di Gambas prevede l'utilizzo di un ''Timer''.
  
−
Mostriamo un esempio, nel quale si farà comparire la scritta all'interno di una ''TextLabel'':
+
Mostriamo un esempio, nel quale si farà comparire la scritta all'interno di una ''Label'':
−
  '''Public''' Sub Form_Open()
+
  Private Label1 As Label
 +
Private Timer1 As Timer
 +
 +
 +
Public Sub _new()
 +
 +
  With Me
 +
    .W = 300
 +
    .H = 100
 +
    .Arrangement = Arrange.Fill
 +
  End With
 +
 +
  Label1 = New Label(Me)
 +
  Label1.Alignment = Align.Center
 +
 +
End
 
   
 
   
−
   With Timer1
+
 +
Public Sub Form_Open()
 +
 +
   With Timer1 = New Timer As "Timer1"
 
     .Delay = 500
 
     .Delay = 500
 
     .Start
 
     .Start
 
   End With
 
   End With
 
   
 
   
−
  '''End'''
+
  End
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Timer1_Timer()
+
  Public Sub Timer1_Timer()
 
   
 
   
−
   If IsNull(TextLabel1.Text) then
+
   If IsNull(Label1.Text) then
−
     TextLabel1.Text = "Scritta lampeggiante"
+
     Label1.Text = "Scritta lampeggiante"
 
   Else
 
   Else
−
     TextLabel1.Text = Null
+
     Label1.Text = Null
 
   Endif
 
   Endif
 
   
 
   
−
  '''End'''
+
  End
  
  
−
===Uso del codice ''javascript'' con l'oggetto ''WebView''===
+
==Uso del codice ''javascript'' con l'oggetto ''WebView''==
−
Un'altra modalità per ottenere una scritta lampeggiante, anche - volendo - avente diversi colori, caratteristiche e dimensioni al proprio interno, prevede l'uso del codice ''javascript'' con l'oggetto ''WebView''. Si dovrà attivare il componente ''gb.qt4.webkit''.
+
Un'altra modalità per ottenere una scritta lampeggiante, anche - volendo - avente diversi colori, caratteristiche e dimensioni al proprio interno, prevede l'uso del codice ''javascript'' con l'Oggetto ''WebView''.
 +
<BR>Si dovranno attivare i Componenti ''gb.qt5'' e ''gb.qt5.webview'', oppure i Componenti ''gb.qt6'' e ''gb.qt6.webview'', oppure i Componenti ''gb.gtk3'' e ''gb.gtk3.webview''.
  
 
Mostreremo, a mo' di esempio, il codice appresso indicato:
 
Mostreremo, a mo' di esempio, il codice appresso indicato:
−
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
−
   WebView1.HTML = "&lt;HTML>" &
+
   WebView1.SetHtml("&lt;HTML>" &
 
   "&lt;div id=\"blink\" style=\"text-align:center;\">" &
 
   "&lt;div id=\"blink\" style=\"text-align:center;\">" &
 
   "&lt;span style=\" color:#0000FF; font-size:18px;\">Questo è un testo </span>" &
 
   "&lt;span style=\" color:#0000FF; font-size:18px;\">Questo è un testo </span>" &
Riga 53: Riga 71:
 
   "</html>"
 
   "</html>"
 
   
 
   
−
  '''End'''
+
  End
−
 
 
 
oppure quest'altro simile:
 
oppure quest'altro simile:
−
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
−
   WebView1.HTML = "<HTML>" &
+
   WebView1.SetHtml("<HTML>" &
 
     "<script type=\"text/javascript\">" &
 
     "<script type=\"text/javascript\">" &
 
     "function blink() {" &
 
     "function blink() {" &
Riga 77: Riga 94:
 
     "</html>"
 
     "</html>"
 
   
 
   
−
  '''End'''
+
  End
 +
 
 +
 
 +
==Testo lampeggiante in console dell'IDE di Gambas o in Terminale==
 +
Per ottenere un testo lampeggiante nella console dell'IDE di Gambas o nel Terminale, si dovrà anteporre la scritta con il carattere ''escape'' "\e[5m".
 +
<BR>Al termine del testo, per annullare gli effetti del carattere ''escape'' con il codice, si imposterà il seguente: "\e[0m".
 +
 
 +
Mostriamo un esempio:
 +
Public Sub Main()
 +
 +
  Print "<FONT Color=red><B>\e[5m</b></font>Testo qualsiasi<FONT Color=darkorange>\e[0m</font>"
 +
 +
End

Versione attuale delle 17:13, 1 nov 2024

Per ottenere una scritta lampeggiante è possibile utilizzare alcune modalità.

Uso delle sole risorse di Gambas

L'uso delle sole risorse di Gambas prevede l'utilizzo di un Timer.

Mostriamo un esempio, nel quale si farà comparire la scritta all'interno di una Label: 

Private Label1 As Label
Private Timer1 As Timer


Public Sub _new()

 With Me
   .W = 300
   .H = 100
   .Arrangement = Arrange.Fill
 End With

 Label1 = New Label(Me)
 Label1.Alignment = Align.Center

End


Public Sub Form_Open()

 With Timer1 = New Timer As "Timer1"
   .Delay = 500
   .Start
 End With

End


Public Sub Timer1_Timer()

 If IsNull(Label1.Text) then
   Label1.Text = "Scritta lampeggiante"
 Else
   Label1.Text = Null
 Endif

End


Uso del codice javascript con l'oggetto WebView

Un'altra modalità per ottenere una scritta lampeggiante, anche - volendo - avente diversi colori, caratteristiche e dimensioni al proprio interno, prevede l'uso del codice javascript con l'Oggetto WebView.
Si dovranno attivare i Componenti gb.qt5 e gb.qt5.webview, oppure i Componenti gb.qt6 e gb.qt6.webview, oppure i Componenti gb.gtk3 e gb.gtk3.webview.

Mostreremo, a mo' di esempio, il codice appresso indicato: 

Public Sub Button1_Click()

 WebView1.SetHtml("<HTML>" &
  "<div id=\"blink\" style=\"text-align:center;\">" &
  "<span style=\" color:#0000FF; font-size:18px;\">Questo è un testo </span>" &
  "<span style=\" color:#FFAA00; font-size:20px;\">a tre colori </span>" &
  "<span style=\"color:#FF0000; font-size:24px;\">che lampeggia !</span></a> </div>" &
  "<script language=\"JavaScript\">" &
  "function blink_one() {" &
  "document.getElementById('blink').style.visibility='visible';" &
  "/* Qui è indicato in millisecondi il tempo per il quale la scritta rimarrà visibile: */" &
  "setTimeout('blink_two()',500);" &
  "}" &
  "function blink_two() {" &
  "document.getElementById('blink').style.visibility='hidden';" &
  "/* Qui è indicato in millisecondi il tempo per il quale la scritta rimarrà invisibile: */" &
  "setTimeout('blink_one()',500);" &
  "}" &
  "blink_one();" &
  "</script>" &
  "</html>"

End

oppure quest'altro simile: 

Public Sub Button1_Click()

  WebView1.SetHtml("<HTML>" &
    "<script type=\"text/javascript\">" &
    "function blink() {" &
    "var blinks = document.getElementsByTagName('blink');" &
    "for (var i = blinks.length - 1; i >= 0; i--) {" &
    "var s = blinks[i];" &
    "s.style.visibility = (s.style.visibility === 'visible') ? 'hidden' : 'visible';" &
    "}" &
    "/* Qui è indicata in millisecondi la frequenza di lampeggiamento: */" &
    "window.setTimeout(blink, 500);" &
    "}" &
    "if (document.addEventListener) document.addEventListener(\"DOMContentLoaded\", blink, false);" &
    "else if (window.addEventListener) window.addEventListener(\"load\", blink, false);" &
    "else if (window.attachEvent) window.attachEvent(\"onload\", blink);" &
    "else window.onload = blink;" &
    "</script>" &
    "<blink><FONT color=red>Testo lampeggiante</blink>" &
    "</html>"

End


Testo lampeggiante in console dell'IDE di Gambas o in Terminale

Per ottenere un testo lampeggiante nella console dell'IDE di Gambas o nel Terminale, si dovrà anteporre la scritta con il carattere escape "\e[5m".
Al termine del testo, per annullare gli effetti del carattere escape con il codice, si imposterà il seguente: "\e[0m".

Mostriamo un esempio: 

Public Sub Main()

 Print "\e[5mTesto qualsiasi\e[0m"

End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Scritta_lampeggiante&oldid=39888"