IDE multiline
Posted: Fri Dec 28, 2012 2:50 pm
How is the exact syntax to work with?
Code: Select all
Procedure Test(a, ; first parameter
b,
c) ; last parameter
Debug a
Debug b
Debug c
EndProcedure
OpenWindow(0, #PB_Ignore, #PB_Ignore, 640, 480, "Test",
#PB_Window_SystemMenu |
#PB_Window_MinimizeGadget)
Test(10, 20,
30)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
Code: Select all
query0$ = "Select typ,px,py,d1,d2,d,l,Id,typ from Ofenkonstruktion Where ('" + Str(x) + "'>=x1) And ('" + Str(x) + "'<x2) And"
query0$ = query0$ + " Ort='" + var_ort$ + "' And Ofen='" + var_ofen$ + "' order by px;"
Code: Select all
query0$ = "Select typ,px,py,d1,d2,d,l,Id,typ from Ofenkonstruktion Where ('" + Str(x) + "'>=x1) And ('" + Str(x) + "'<x2) And",
+ " Ort='" + var_ort$ + "' And Ofen='" + var_ofen$ + "' order by px;"
Code: Select all
query0$ = "Select typ,px,py,d1,d2,d,l,Id,typ from Ofenkonstruktion Where ('" + Str(x) + "'>=x1) And ('" + Str(x) + "'<x2) And" +
" Ort='" + var_ort$ + "' And Ofen='" + var_ofen$ + "' order by px;"
Code: Select all
; _____Basic.pb
; VB6=1033x768 PureBasic=1017x730 -16,-38 for Resizable Window
OpenWindow(0, 0, 0, 1017, 730, "VB6=1033x768 PureBasic=1017x730",
#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget |
#PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow : End
EndSelect
ForEver