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.


Post - cogier

Pagine: [1] 2 3 4
1
Programmazione / Re:creazione colonna in columnview
« il: 20 Febbraio 2024, 18:13:34 »
Forse questo semplice programma vi aiuterà.



2
Domande tecniche / Re:Mancato avvio Gambas 3 su Kubuntu 18.04
« il: 01 Ottobre 2023, 14:50:07 »
Suggerisco di usare "Synaptic" per individuare e rimuovere tutto "Gambas3". Quindi eseguire il seguente comando in "Terminale".

Codice: [Seleziona]
sudo add-apt-repository -y ppa:gambas-team/gambas3 && sudo apt-get update && sudo apt-get -y install gambas3

3
Programmazione / Re:Strano errore lanciando ProgrammaBolle
« il: 21 Settembre 2023, 16:37:30 »
Provare a installare il driver video "nouveaux". Il messaggio dice che non è presente.

4
Programmazione / Re:Eseguire Gambas in open suse leap
« il: 10 Settembre 2023, 16:44:24 »
Quale versione di Gambas state utilizzando? Queste informazioni ci aiuteranno a capire meglio il problema.

5
Programmazione / Re:Impedire adattamento foto al tema
« il: 22 Aprile 2023, 18:10:12 »
Anch'io non riesco a capire quale sia il problema. :-\



6
Programmazione / Re:Info shell
« il: 06 Marzo 2023, 16:51:01 »
In alternativa: -

Codice: [Seleziona]
 Dim sCPU As String

  Shell "lscpu | grep 'Model name:'" To sCPU
  sCPU = Trim(Replace(sCPU, "Model name:", ""))

  Print sCPU

7
Programmazione / Re:Come contare gli item selezionati in una listview
« il: 12 Marzo 2022, 19:01:31 »
Prova questo codice: -

Codice: [Seleziona]
' Gambas class file

ListView1 As ListView
Label1 As Label

Public Sub Form_Open()

  BuildForm

End

Public Sub BuildForm()

  Dim sText As String[] = ["Questa", "volta", "mi", "trovo", "a", "voler", "contare", "lo", "faccia"]
  Dim iLoop As Integer

  With Me
    .Arrangement = Arrange.Vertical
    .H = 400
    .W = 500
    .Padding = 5
  End With

  With ListView1 = New ListView(Me) As "ListView1"
    .Expand = True
    .ShowCheck = True
    .Mode = Select.Multiple
  End With

  For iLoop = 0 To sText.Max
    ListView1.Add(Str(iLoop), sText[iLoop])
  Next

  With Label1 = New Label(Me) As "Label1"
    .H = 28
    .W = 100
    .Font.Bold = True
    .Alignment = Align.Center
  End With

End

Public Sub ListView1_Select()

  Label1.Text = Str(ListView1.Selection.Count)

End

8
Programmazione / Re:Uso del metodo replace di regexp
« il: 04 Gennaio 2022, 18:08:28 »
Non ci sono 'regexp' qui, ma questo funziona.

Codice: [Seleziona]
Public Sub Form_Open()

  Print GetKIP("===== 23.8.1.1 Progetto Diagramma In Linea =====")
  Print GetKIP("===== 1 Primo Capitolo =====")
  Print GetKIP("===== 1.2.1 Qualsiasi cosa =====")
  Print GetKIP("===== 12.21.1.15 Qualsiasi cosa =====")

End

Public Sub GetKIP(sLine As String) As String

  Dim sNew, sWork As String
  Dim iLoop, iLetter As Integer
  Dim sHold As New String[]

  For iLetter = 1 To Len(sLine)
    If IsNumber(Mid(sLine, iLetter, 1)) Then sWork &= Mid(sLine, iLetter, 1)
  Next

  sWork = "k" & sWork
  sHold = Split(sWork, ".")

  For iLoop = 0 To sHold.Max
    If iLoop = 0 Then sNew &= sHold[0] & "/"
    If iLoop = 1 Then sNew &= sHold[0] & "." & sHold[1] & "/"
    If iLoop = 2 Then sNew &= sHold[0] & "." & sHold[1] & "." & sHold[2] & "/"
    If iLoop = 3 Then sNew &= sHold[0] & "." & sHold[1] & "." & sHold[2] & "." & sHold[3] & "/"
  Next

  Return Left(sNew, -1)

End

Uscita: -

k23/k23.8/k23.8.1/k23.8.1.1
k1
k1/k1.2/k1.2.1
k12/k12.21/k12.21.1/k12.21.1.15

9
Programmazione / Re:Aprire url
« il: 27 Dicembre 2021, 13:18:12 »
Eseguite questo codice in un nuovo programma grafico.

Codice: [Seleziona]
ToggleButton1 As ToggleButton

Public Sub Form_Open()

  With Me
    .Height = 50
    .Width = 220
    .Padding = 5
    .Arrangement = Arrange.None
    .Center
  End With

  With ToggleButton1 = New ToggleButton(Me) As "ToggleButton1"
    .Text = "&Installazione PostgreSQL"
    .X = 10
    .Y = 10
    .Height = 28
    .Width = 200
    .Picture = Picture["icon:/22/text"]
  End With

  If Not Component.IsLoaded("gb.desktop") Then Component.Load("gb.desktop")

End

Public Sub ToggleButton1_Click()

  If ToggleButton1.Value = True Then Desktop.Open("https://www.gambas-it.org/wiki/index.php?title=Installazione_Server_PostgreSQL")

End

10
Programmazione / Re:Controllare software installato
« il: 24 Dicembre 2021, 15:24:22 »
Uso spesso questo trucco. Qui funziona.


11
Programmazione / Re:Controllare software installato
« il: 23 Dicembre 2021, 17:57:01 »
Prova questo: -
Codice: [Seleziona]
Public Sub Form_Open()

  Dim sResult As String
  Dim iLoop As Integer
  Dim sSoftware As String[] = ["libreoffice", "word"]

  For iLoop = 0 To sSoftware.Max
    Shell "man " & sSoftware[iloop] To sResult
    If sResult = "" Then Print sSoftware[iloop] & " non installato" Else Print sSoftware[iloop] & " installato"
  Next

End

12
Programmazione / Re:I soliti escape della shell
« il: 05 Dicembre 2021, 15:06:32 »
Questo codice ha funzionato per me.

Codice: [Seleziona]
Public Sub Form_Open()

  Dim sData As String
  Dim wFile As String = User.Home &/ "Music/Baz Lurhman - Sunscreen.mp3"

  Shell "mediainfo --Inform='Audio;%Duration%' " & Chr(34) & wfile & Chr(34) To sData

  Print sData

End


13
Programmazione / Re:How to create a multiple process listener ?
« il: 08 Febbraio 2021, 17:46:20 »
Usare un 'Task', o due, può essere il modo per farlo. Dai un'occhiata al programma allegato che trova tutti i file sul tuo computer in due modi diversi e tiene anche il tempo.

Using a 'Task', or two may be the way to do this. Have a look at the attached program that finds all the files on your computer in two different ways and keeps time as well.




14
Programmazione / Re:Posizionare testo in TextArea
« il: 25 Gennaio 2021, 16:42:00 »
Perché usare una 'TextArea' quando si può usare una 'GridView'?



Codice: [Seleziona]
GridView1 As GridView

Public Sub Form_Open()

  Dim aStringhe As String[] = ["DESCRIZIONE", "PREZZO", "", "", "Chiave inglese", "11,20", "Ferro da stiro a vapore", "32,40", "Macchinetta da caffè per cialde", "112,00", "Aermacchi bicilindrica 1953", "7.500,00"]
  Dim iLoop, iRow As Integer

  With Me
    .padding = 5
    .Height = 150
    .Width = 300
    .Arrangement = Arrange.Vertical
  End With

  With GridView1 = New GridView(Me) As "GridView1"
    .Clear
    .Expand = True
    .Grid = False
    .Rows.Count = aStringhe.Count / 2
    .Columns.Count = 3
  End With

  For iLoop = 0 To aStringhe.Max Step 2
    GridView1[iRow, 0].Text = aStringhe[iLoop]
    GridView1[iRow, 1].Text = aStringhe[iLoop + 1]
    GridView1[iRow, 1].Alignment = Align.Right
    Inc iRow
  Next

  GridView1.Columns.Width = -1

End


15
Programmazione / Re:Tutti i giorni alla stessa ora.
« il: 19 Dicembre 2020, 18:32:09 »
Ho cambiato la lingua di un computer portatile con l'italiano, sono di madrelingua inglese. Si vede che funziona come previsto. Non capisco perché stia succedendo questo. Prova questi cambiamenti.
Codice: [Seleziona]
Public Sub Timer1_Timer()

  Dim sTempo As String = Str(Time(Now))

  sTempo = Trim(Replace(sTempo, "/", ""))

  If sTempo = "17:29:00" Then InviaEmail

End


Pagine: [1] 2 3 4