Der Gambas Club

Hello Jürgen2, Du machst den Fehler zu glauben, Gambas sei der VB für Linux, ein VB-Klon. Ich füge andere Websites hinzu, um Gambas zu studieren: - http://gambas.sourceforge.net/en/main.html - http://gambaswiki.org/wiki - https://www.gambas-es.org/forum.php - https://www.gambas-it.org/smf/ - https:/...

Allerdings funktioniert shell 'mpg123 filename' nicht, es wird zwar ausgeführt, ich höre aber nix. Ich kann den Test nicht machen: ich habe mp123 nicht auf dem System installiert. mit shell'cvlc dateiname' höre ich etwas aber sehr leise. Ich höre den Audio von Datei " automatisches_licht_AN.mp3 " r...

Kannst du eine dieser Audiodateien anhängen?

gambasso hat geschrieben: ↑

So 16. Feb 2020, 11:55

Was für eine Farbe ist der zahl 6357247 zugeordnet? Wie komme ich dahin?

Um die hexadezimale darstellung einer dezimalzahl zu erhalten, müssen sie die Funktion verwenden Hex( ):

http://gambaswiki.org/wiki/lang/hex

Was ist der verwendete Code?

Ehmmm... vielleicht meinst du "gb.openal" ?

gambasso hat geschrieben: ↑

Di 3. Sep 2019, 13:07

Dieses 3.Image, bzw. 3.ScrollArea bekomme ich nicht transparent. Warum weiß ich nicht.

Können Sie ein kurzes Programm anhängen, das dieses Problem reproduziert?

Hello. Ja, ich erinnere mich, dass du gesagt hast, du hättest zwei ScrollArea. Private im1 As Image Private im2 As Image Public Sub Form_Open() im1 = Image.Load("/..../..../file_image.xxx") ' Erstellt ein "transparent image": ↘ im2 = New Image(ScrollArea2.W, ScrollArea2.H, Color.Transparent, Image.S...

...eine kleine variation von cogier code: Public Sub ScrollArea1_Draw() Dim iImage0 As Image = Image.Load(Application.Path &/ "pict1.jpg") With Paint .Begin(iImage0) .Brush = .Color(Color.Red) .LineWidth = 8.0 .Ellipse(iImage0.W / 12, iImage0.H / 12, 350, 350) .Stroke .End End With With Paint .DrawI...

Do4kgt hat geschrieben: ↑

Do 25. Jul 2019, 21:00

Die Rot Makierten Zeilen würde ich gerne in die jeweilige Textbox zuweisen.

Z.b
Callsign in Textbox 1
ID in Textbox 2 und so weiter.

Wenn die textelemente immer gleich sind, können sie die funktion Scan( ) verwendene.

Entschuldige, ich verstehe das nicht: warum 28000 ?

Sehen sie hier:

https://lists.gambas-basic.org/pipermai ... 66229.html

Hello,

about the attachment: I do not understand why, if I want download it, I obtain this notice:

" The selected attachment does not exist anymore. "

Hello, an example: Public Sub Form_Open() With DrawingArea1 .Background = Color.White .W = 300 .H = 40 End With End Public Sub DrawingArea1_Draw() Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red] Dim p As Float[] = [0, 0.34, 0.67, 1] With Paint .Brush = .LinearGradient(0, 0, D...

This should happen automatically, without having to enter them before Maybe do you want to obtain the Constants of Printer Class ? :| Print Printer1.A4 Moreover, if you want to see symbols of Printer Class: Public Sub Form_Open() Dim s As String For Each s In Class.Load("Printer").Symbols Print s N...