Restored from previous forum. Originally posted by Julien Morel.
HI,
I want to write code to recall it later in my program.
For example, I want to post several limps of dialogue to the continuation.
How to make to afterwards avoid writing again the code (No goto and No gosub)
Ex :
MessageRequester("Title", "Message1 PB_MessageRequester_Ok)
MessageRequester("Title", "Message2 PB_MessageRequester_Ok)
MessageRequester("Title", "Message3 PB_MessageRequester_Ok)
MessageRequester("Title", "Message4 PB_MessageRequester_Ok)
MessageRequester("Title", "Message5 PB_MessageRequester_Ok)
….
The remainder of my program to carry out
….
Here Dialogue Box
To repeat code help me please...
-
BackupUser
- PureBasic Guru

- Posts: 16777133
- Joined: Tue Apr 22, 2003 7:42 pm
Restored from previous forum. Originally posted by DemonHell.
Julien, put all the code you want to repeat in a procedure. If you`re not sure about procedures, look in the PB manual.
Put this bit at the top of your code.
Procedure mydialog()
MessageRequester("Title", "Message1", #PB_MessageRequester_Ok)
MessageRequester("Title", "Message2", #PB_MessageRequester_Ok)
MessageRequester("Title", "Message3", #PB_MessageRequester_Ok)
MessageRequester("Title", "Message4", #PB_MessageRequester_Ok)
MessageRequester("Title", "Message5", #PB_MessageRequester_Ok)
endprocedure
then whenever you want to use this,just use the command
mydialog() in your code.
Julien, put all the code you want to repeat in a procedure. If you`re not sure about procedures, look in the PB manual.
Put this bit at the top of your code.
Procedure mydialog()
MessageRequester("Title", "Message1", #PB_MessageRequester_Ok)
MessageRequester("Title", "Message2", #PB_MessageRequester_Ok)
MessageRequester("Title", "Message3", #PB_MessageRequester_Ok)
MessageRequester("Title", "Message4", #PB_MessageRequester_Ok)
MessageRequester("Title", "Message5", #PB_MessageRequester_Ok)
endprocedure
then whenever you want to use this,just use the command
mydialog() in your code.
-
BackupUser
- PureBasic Guru

- Posts: 16777133
- Joined: Tue Apr 22, 2003 7:42 pm