Der Gambas Club

Kompilieren Sie den Code erneut in 3.18.2 [Alt]+[F7]. Das sollte das Problem beheben.

Schauen Sie sich inxi an

Haben Sie es mit 'raspi-gpio help' in der Befehlszeile versucht. Sie können diese Befehle von Gambas aus ausführen.

Können Sie ein Programm erstellen, es speichern, Gambas schließen, Gambas erneut öffnen und es ausführen? Wenn ja, könnte es sich um ein Problem mit den Zugriffsrechten für die vorhandenen Dateien handeln.

Synaptic sieht eine Liste von Repositories, die vom Ubuntu-Team eingerichtet wurden. Ein ppa ist ein "Personal Package Archive" (Persönliches Paketarchiv), das Sie der Liste hinzufügen können. In diesem Fall wird das ppa vom Gambas-Team erstellt, damit es die Software bei Bedarf aktualisie...

Da Sie Ubuntu verwenden, können Sie ein ppa verwenden.
1/. Entfernen Sie Gambas3 vollständig mit Synaptic.
2/. Führen Sie den folgenden Befehl in einem Terminal aus.

Sehen Sie sich den beigefügten Code an.

Dies könnte helfen. Warnung: Dieser Code kann ein wenig langsam sein. Gridview1 As Gridview Public Sub Form_Open() Dim sPath As String = User.Home Dim sDir As String[] = RDir(sPath) Dim iRow As Integer BuildForm For iRow = 0 To sDir.Max Inc Gridview1.Rows.Count Gridview1[iRow, 0].Text = sDir[iRow] I...

1/. Stellen Sie sicher, dass Sie alle Gambas-Dateien entfernen.
2/. führen Sie diesen Befehl aus.

Wenn Sie dies tun wollen, schlage ich vor, dass Sie eine eigene Kontrolle durchführen. Versuchen Sie, diesen Code auszuführen. ' Gambas class file ScrollView1 As ScrollView hVBox As VBox hPictureBox As PictureBox hTextLabel As TextLabel Public Sub Form_Open() With Me .H = 600 .W = 700 .Arrangement =...

Verwenden Sie stattdessen 'Public Sub ComboBox1_Click()'.

Ich würde alle ComboBoxen in ein Array packen. Dies macht es einfach, eine "Liste" zu jedem hinzuzufügen. AllCombos As New ComboBox[] Public Sub Form_Open() Dim iLoop As Integer Dim oOBj As Object Dim ComboList As String[][] = [["1", "2", "3", "4", &...

Dieser Code funktioniert bei mir Public Sub Form_Open() Dim Info1 As Date = Stat(Application.Path &/ "Datei1").LastModified Dim Info2 As Date = Stat(Application.Path &/ "Datei2").LastModified Print Info1 Print Info2 If Info1 < Info2 Then Print "Ja!" End

Ist die Einstellung in den "Voreinstellungen" korrekt?
Hier ist die englische Version.

Dadurch wird die Farbe des "Text", aber nicht der "List" geändert. Public Sub Form_Open() With ComboBox1 .Font = Font["Ubuntu,Bold,14"] .Foreground = Color.Red .List = ["Red", "Blue", "Black", "Blue", "Cyan", "Yello...