Der Gambas Club

gambasso hat geschrieben: ↑

Fr 10. Aug 2018, 18:37

I would like to read the properties and the values in the program.

Ehmmmm..... Vergib uns, aber wir verstehen nicht, was du willst genau.

Hello gambasso,
you have to use directly Printer Class, not its variable.

Ad exemplum: gambas code

Public Sub Form_Open()

  Dim pr As New Printer

  Print pr.Default   ' <------------------- THIS RETURNS AN ERROR !

  Print Printer.Default   ' <------------ this is OK !

End

If you want not to use audio file, you can try this code by activating gb.openal Component: Private Const AMPIEZZA As Byte = 127 Private Const FREQUENZA As Short = 880 Private Const CAMPIONAMENTO As Integer = 44100 Private Const DURATA As Single = 0.15 Public Sub Main() Dim disp As AlcDevice Dim con...

Hello,

Gianluigi, from italian gambas forum, suggests you this example-program:

https://sourceforge.net/projects/qt5ct/

SFML wäre sehr, sehr gut da sehr neu, sehr schnell, sehr einfach und sehr gut :!: Hello, Gambas offers you the possibility, however, to use functions belonging to external libraries. E.g. about SFML: https://www.gambas-it.org/wiki/index.php?title=Eseguire_un_file_audio_ed_estrarne_informazioni_medi...

Hello, some suggestion from italian Gambas Wiki: http://www.gambas-it.org/wiki/index.php?title=Registrare_il_sonoro_da_una_fonte_esterna_e_salvarlo_in_un_file_audio_mediante_il_Componente_gb.media http://www.gambas-it.org/wiki/index.php?title=Registrare_e_salvare_in_un_file_WAV_una_fonte_audio_ester...

gambi hat geschrieben: ↑

Do 1. Mär 2018, 22:34

Snow is rather unusual for this region, isn't it?

Hello gambi,
if you about "region" mean "place", "zone", you are right, because Paestum archaeological area is near the sea.
If you mean Kampanien Region, a few kilometers, on the Apennines, it snows a lot.

bye

Hello, I know german people loves so much the antiquities; well, I'ld like to share with you this beautiful video about the archaeological site of the ancient Greek city of Poseidònia (Paestum - south Italy) in these days under the snow: https://video.repubblica.it/edizione/napoli/paestum-il-fascino...

As every row is a text-string, you should use " string " functions. Here a very little and simple example (it erases oldest row, if the rows > 8 ). I considered that every line in your file consists of 16 ASCII characters. Public Sub Main() Dim s As String Dim b As Byte ' it creates a new clean text...

Mit Mouse-Event "_MouseDown( )" von "Gambas" ist es nicht möglich.

Hello. wenn ich die Maus abfragen will, kommt die Fehlermeldung: No Mouse Event Data :? ...aber haben Sie meinen Code ausschließlich versucht? Wie frage ich dabei ein Mausklick ab, wenn der Mauszeiger sich irgendwo auf dem Desktop befindet? Nicht mit Gambas Maus- Ereignissen . Meiner Meinung nach nu...

gambasso hat geschrieben: ↑

Mo 9. Okt 2017, 15:44

Wie bekomme ich Werte vom gesamten Desktop?

Sie müssen auf das Fenster klicken (...selbst der Desktop ist ein "Fenster").
Auf diese weise, das Fenster wird also aktuellen "ActiveWindow".

es geht leider nicht. Fehler bei > 'Private dw As DesktopWindow' und weiteren 'Window' -Code. Sie müssen die Komponenten aktivieren: gb.desktop und gb.desktop.x11 Nur mit dem Maus-Klick nicht. Nur man darf kein Maus-Klick auslösen. ...sie sollten das Maus- file-device behandeln. :roll:

Hello gambasso, Ich weiß nicht, wenn ich gut verstanden habe. :oops: Ich schlage vor: Private dw As DesktopWindow Private tempus As Timer Private pc As Picture Public Sub Form_Open() With tempus = New Timer As "Tempus" .Delay = 1000 .Start() End With End Public Sub Tempus_Timer() Dim aw As Integer a...

How to read value of pixel color in drawingarea ? A way (only Gambas resources) could be: :| 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 ...