PureBasic Forums - English

Code: Select all

OpenWindow(0,0,0,320,240,"") ; Here I'm opening a window
ButtonGadget(0,10,10,100,20,"Button") ; I put a button on it
; wait a second, I have to fart... ok. Continuing.
Repeat ; Starting a loop
  Event = WaitWindowEvent() ; I need to know the events
Until Event=#PB_Event_CloseWindow ; After this event we don't need the window anymore
; My tummy feels better now

Code: Select all

; start the source code.
; open the console 
OpenConsole()
; assign the program's exe to a variable called "cProgramExecutable" of type string:
cProgramExecutable.s = ProgramFilename()
; Now we want to print that program file name out, and end the line with a new line:
PrintN(cProgramExecutable)
; If the program is on drive C:, we want to print "Happy Day" w/o a new line:
;   we will convert the string to upper case to compare the strings
If UCase(Left(cProgramExecutable,2))="C:"
	Print("Happy Day") ; Remember, we do not want to print a new line just yet.
Else ; If the drive is not C:, then print "Hello World" w/o a new line:
	Print("Hello World") ; Remember, we do not want to print a new line just yet.
EndIf ; We want to end our if/else control block.
; Now we are on a line with some text, let's print a couple of exclimation marks and add a new line:
PrintN("!!") ; Remember, we wanted to print 2 exlamation marks and print a new line
; we are now done, so let's close the console
CloseConsole()
; now that we have closd the console, we can end the program:
End; We have ended the program.
; this is the end of source code