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.
GridView1[i, 3].Text = Left(Str(hResult!usdat), 10)GridView1[i, 3].Text = Format(hResult!usdat,"dd.mm.yyyy")Public Function Numeri()
If Key.Code >= 48 And Key.Code <= 57 Then
Else If key.Code = key.BackSpace Then
Else If key.Code = key.Delete Then
Else If Key.Code = Key.Left Then
Else If Key.code = Key.Right Then
Else If Key.Code = Key.Tab Then
Else
Stop Event
End If
End
Public Function Lettere()
If Key.code >= 64 And Key.Code <= 90 Then
Else If key.Code = key.BackSpace Then
Else If key.Code = key.Up Then
Else If Key.code = Key.Down Then
Else
Stop Event
Endif
End
Public Sub TextBox_Change()
If TextBox.text > "" Then
TextBox.text = Format(Replace(TextBox.Text, ",", Null) / 100, "0.00") virgola in automatico inserimento euro
Endif
EndPerché non puoi installare Gambas nel computer di destinazione? Se lo installi ti togli dai problemi sfruttando l'eseguibile.Si hai ragione. Volevo solo capire come funziona la creazione di pacchetti e mi sono imbattuto in questo errore.
Public Procedure controlla_db()
$nome = "Archivio.db" nome del database
If Not Exist(Application.Path & "/" & "Database") Then
Mkdir Application.Path & "/" & "Database" crea cartelle
Endif
If Not Exist(Application.Path & "/" & "Out") Then
Mkdir Application.Path & "/" & "Out"
Endif
If Not Exist($percorso & "/" & $nome) Then
Message.Info("Creazione database Archivio", "OK")
With $conn
.Type = "sqlite3"
.Host = $Percorso
End With
$conn.Open
$conn.Databases.Add($nome) creo database
$conn.Close chiudo database
$conn.Name = $nome
$conn.Open
tabella_archivio()
Endif
EndPublic Procedure controlla_db()
$nome = "Archivio.db" nome del database
If Not Exist(User.Home & "/" & "Verifiche") Then
Mkdir User.Home & "/" & "Verifiche" ' crea cartelle
Mkdir User.Home & "/" & "Verifiche" & "/" & "Database"
Endif
If Not Exist(User.Home & "/" & "Verifiche" & "/" & "Out") Then
Mkdir User.Home & "/" & "Verifiche" & "/" & "Out"
Endif
If Not Exist($percorso & "/" & $nome) Then
Message.Info("Creazione database Archivio", "OK")
With $conn
.Type = "sqlite3"
.Host = $Percorso
End With
$conn.Open
$conn.Databases.Add($nome) creo database
$conn.Close chiudo database
$conn.Name = $nome
$conn.Open
tabella_archivio()
Creazione pacchetto...
cd '/home/paolo/ubuntu/verifichemf2-1.0.2'
dpkg-buildpackage -d -rfakeroot -uc -us
dpkg-buildpackage: Errore: errore di sintassi in debian/control alla riga 13: continued value line not in field
La creazione del pacchetto è fallita.
Package.MakeDebPackage.1083: 'dpkg-buildpackage' ha fallito.
A me pare che non funzionasse neppure prima.Non metto in dubbio ma posso assicurare che funzionava perfettamente. Ora sarebbe da capire il motivo ho in uso Xubuntu 18.04.
Public Sub Form_Open()
dim hControl As Object
For Each hControl In Me.Controls
print hcontrol.name
Next
End
Public Sub Form_Resize()
dim hControl As Object
For Each hControl In Me.Controls
print hcontrol.name
Next
End
Private hControl As Object
Private Px As New Integer[]
Private Py As New Integer[]
Private Pw As New Integer[]
Private Ph As New Integer[]
Private Fs As New Integer[]
Private Mw As Integer
Private Mh As Integer
Private ctrx As Boolean
Private codute As Integer
Private codmis As Integer
Private xlab As Integer
Private xdate As String
Public mydir As String = Application.Path & "/" & "Out"
Public trimestre As Integer
Public progres As String
Public Sub Form_Open()
For Each hControl In Me.Controls
Px.Add(hControl.x)
Py.Add(hControl.y)
Pw.Add(hControl.w)
Ph.Add(hControl.h)
Fs.Add(hControl.Font.size)
Next
Mw = Me.W
Mh = Me.h
Mod_Open.controlla_db()
carica_utenti
End
Public Sub Form_Resize()
Dim cx, cy As Float
Dim Nw, Nh, i As Integer
Nw = Me.W
Nh = Me.h
Cx = Nw / Mw
Cy = Nh / Mh
i = 0
For Each hControl In Me.Controls
hControl.x = Px[i] * Cx
hControl.y = Py[i] * Cy
hControl.w = Pw[i] * Cx
hControl.h = Ph[i] * Cy
hControl.Font.size = Fs[i] * Cx
Inc i
Next
End