19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
PUBLIC SUB Main()
DIM sShellOutput AS String
DIM iKeyLocks AS Integer
SHELL "xset q | grep 'LED mask:'" TO sShellOutput
sShellOutput = Replace(sShellOutput, " ", "")
iKeyLocks = Val(Split(sShellOutput, ":")[3])
SELECT iKeyLocks
CASE 1
PRINT "Caps Lock is ON"
CASE 2
PRINT "Num Lock is ON"
CASE 3
PRINT "Caps Lock is ON"
PRINT "Num Lock is ON"
END SELECT
END
...E' vero, chiedo umilmente scusa a Gianluigi
Oltre a tutto con SQL conviene usare le date e non le stringhe, stavo preparando una esemplificazione di questo argomento con l'aiuto di Tornu ma poi mi ha dato buca
, ma come ho avuto modo di dirvi in altre occasioni è un momento Private $DataOdierna As Date
$DataOdierna = Date(Now)
TextLabel.Text = Format($DataOdierna, "dd/mm/yyyy")
insResult["datatest"] = DateBox.Value
DateBox.Value = mioResult!datatest
per terminarlo entro un certo tempo, è solo un'ambizione mia personale. Comunque quando il programma...Ciao Pixel,
Non ho idea del perchè oggi sia ricapitato qui, chissà, magari è un segno
Public Sub TextBox1_Change()
Dim iPs As Integer
iPs = Last.Pos
Last.Text = Upper(Last.Text)
Last.Pos = iPs
End
Public Sub FormatVal2(sStringa As String, sFlag As String) As String[] '' Formattazione a due decimali e inserimento separatore migliaia
Dim sReturnVal As New String[]
Dim iP, iP1, iTemp, iTemp1, iCount, iPunto, iVirgola As Integer
Dim sInitStringa As String
'''' Sostituzione o aggiunta della virgola
If InStr(sStringa, ",") <> 0 Then
sStringa = Replace(sStringa, ",", ".")
Endif
If InStr(sStringa, ".") <> 0 Then
sStringa = Replace(sStringa, ".", ",")
Else
sStringa = sStringa & ",00"
Endif
''''' Controllo quante virgole o quanti punti contiene il valore da formattare
For iCount = 1 To Len(sStringa)
If InStr(".", Mid(sStringa, iCount, 1)) Then
Inc iPunto
Endif
If InStr(",", Mid(sStringa, iCount, 1)) Then
Inc iVirgola
Endif
Next
''''' Arrotondamento a due decimali
If iPunto > 1 Or iVirgola > 1 Then ' Se il valore da formattare contiene più di un punto o più di una virgola restituisce un'errore
Message.Error("<B>Uso dei decimali non corretto</B>")
sFlag = "Err"
sReturnVal.Add(sStringa)
sReturnVal.Add(sFlag)
Return sReturnVal 'stringa
Else
iP = InStr(sStringa, ",") ' Assume la posizione della virgola
iP1 = Len(sStringa) - iP ' Lunghezza della sStringa - la posizione della virgola
sInitStringa = Left(sStringa, iP - 1)
If iP = 1 Then
Message.Error("<B>Uso dei decimali non corretto</B>")
sFlag = "Err"
sReturnVal.Add(sStringa)
sReturnVal.Add(sFlag)
Return sReturnVal 'stringa
Else If iP1 = 2 Then
sStringa = sStringa
Else If iP1 <= 1 Then
sStringa = sStringa & "0"
Else If iP1 > 2 Then
iTemp = CInt(Mid(sStringa, iP + 1, 2))
iTemp1 = CInt(Mid(sStringa, iP + 1 + 2, 1))
' If iTemp1 >= 5 Then ' Se l'ultimo decimale e uguale o maggiore di 5 viene incrementato di uno
' Inc iTemp
' Endif
If iTemp = 100 Then
sStringa = CString(CInt(sInitStringa) + 1) & ",00"
Else
sStringa = sInitStringa & "," & CString(iTemp)
Endif
Endif
''''' Aggiunta puntini ogni 1000 (separatore migliaia)
If Len(sStringa) >= 7 Then
sStringa = Mid(sStringa, 1, (Len(sStringa) - 6)) & "." & Right(sStringa, 6)
Endif
If Len(sStringa) >= 11 Then
sStringa = Mid(sStringa, 1, (Len(sStringa) - 10)) & "." & Right(sStringa, 10)
Endif
If Len(sStringa) >= 15 Then
sStringa = Mid(sStringa, 1, (Len(sStringa) - 14)) & "." & Right(sStringa, 14)
Endif
If Len(sStringa) >= 19 Then
sStringa = Mid(sStringa, 1, (Len(sStringa) - 18)) & "." & Right(sStringa, 18)
Endif
sReturnVal.Add(sStringa)
sReturnVal.Add(sFlag)
Return sReturnVal 'stringa
Endif
End
Private CFormat_Valori As New CFormatValori
Private ReturnVal As String[]
Public Sub Form_Open()
Me.Center()
TextBox1.SetFocus()
End
Public Sub TextBox1_KeyPress()
TextBox1.Background = Color.Default
End
Public Sub TextBox1_Activate() ' Public Sub TextBox1_LostFocus()
Dim sFlag As String
ReturnVal = CFormat_Valori.FormatVal2(TextBox1.Text, sFlag)
If ReturnVal[1] = "" Then
TextBox1.Text = ReturnVal[0]
Else
TextBox1.Text = ReturnVal[0]
TextBox1.Background = Color.RGB(255, 255, 127)
Endif
End
...In questo modo mi costringi in ogni Form nel quale mi serve utilizzare questi controlli/formattazione dei valori
Comunque ripensando al problema di Tornu io lo affronterei così:
...
), io cercavo di "centralizzare" tramite una Classe questiPublic Sub FormatVal2(stringa As String) As String '' Formattazione a due decimali e inserimento separatore migliaia
....
codice
....
Return stringa
End
Private FrmValori As New CFormatValori
Public Sub TextBox1_Activate()
TextBox1.Text = FrmValori.FormatVal2(TextBox1.Text)
End