FAQ PureBasicConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
 
Compilateur = RunProgram(#PB_Compiler_Home+"Compilers\Pbcompiler.exe", "/STANDBY", "", #PB_Program_Open|#PB_Program_Read|#PB_Program_Write|#PB_Program_Hide) 
If Compilateur = 0 
  MessageRequester("Pas de bol", "Le compilateur ne démarre pas") 
  End 
EndIf 
; Version du compilateur 
; 
Reponse$ = ReadProgramString(Compilateur)

1
2
3
4
5
6
7
8
9
10
 
; Vérifie que le compilateur soit prêt 
; 
Reponse$ = ReadProgramString(Compilateur) 
 
If StringField(Reponse$, 1, Chr(9)) = "ERROR" 
  MessageRequester("", "Erreur: " + StringField(Reponse$, 2, Chr(9))) 
  CloseProgram(Compiler) 
  End 
EndIf

1
2
3
4
5
6
 
; interroge le compilateur 
; 
Demande$="STRUCTURELIST" 
Parametre$="" 
WriteProgramStringN(Compilateur, Demande$+Chr(9)+Parametre$)

1
2
3
4
5
6
 
; interroge le compilateur 
; 
Demande$="STRUCTURE" 
Parametre$="point" 
WriteProgramStringN(Compilateur, Demande$+Chr(9)+Parametre$)

1
2
3
4
5
6
7
8
9
 
; Récupère la réponse du compilateur 
Repeat 
  Reponse$ = ReadProgramString(Compilateur) 
  If Reponse$ = "OUTPUT"+Chr(9)+"COMPLETE" 
    Break 
  EndIf 
  Texte$ + Reponse$ + Chr(13) 
ForEver

1
2
3
4
 
;Termine l'échange avec le compilateur 
WriteProgramStringN(Compilateur, "END") 
CloseProgram(Compilateur)

1
2
3
 
;Affiche le résultat 
MessageRequester("", Texte$)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
; 
; Simple preprocessor example that replaces all "Hello" with "Yellow" 
; 
#FILE_Input  = 0 
#FILE_Output = 1 
  
; Read the temporary filename used by the compiler (first argument) 
File$ = ProgramParameter() 
  
; Get a path for our temporary file 
Temp$ = GetTemporaryDirectory() + "ToolTest.pb" 
  
; Make a copy of the compiler used file, so it can be overwritten 
If CopyFile(File$, Temp$) 
  ; read the copy 
  If ReadFile(#FILE_Input, Temp$) 
    ; re-create the compiler used file so it can be filled with the modified version 
    If CreateFile(#FILE_Output, File$) 
      While Not Eof(#FILE_Input) 
        ; process the lines 
        Line$ = ReadString(#FILE_Input) 
        Line$ = ReplaceString(Line$, "Hello", "Yellow") 
        WriteStringN(#FILE_Output, Line$) 
      Wend 
    
      CloseFile(#FILE_Output) 
    EndIf 
  
    CloseFile(#FILE_Input) 
  EndIf 
  
  ; Delete the copy 
  DeleteFile(Temp$) 
EndIf

1
2
 
MessageRequester("", "Hello World!")

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
#!/bin/bash 
# Script for PureBasic crosplatform build 
 
# Path to PB compilers 
# !!! CHANGE THIS PATH TO YOU PUREBASIC PATHES !!! 
PureBasic_Path_Linux_x86="/home/jule/Soft/PureBasic/Linux86" 
PureBasic_Path_Linux_x64="/home/jule/Soft/PureBasic/Linux64" 
PureBasic_Path_Windows_x86="/home/jule/.wine/drive_c/Program Files (x86)/PureBasic" 
PureBasic_Path_Windows_x64="/home/jule/.wine/drive_c/Program Files/PureBasic/Win64" 
 
# Check arguments 
if [ -n "$1" ]; then 
{ 
   src=$1 
} 
else 
{ 
   echo "Input source file name: " 
   read src 
} 
fi 
 
if [ -n "$2" ]; then 
{ 
   executableName=$src 
} 
else 
{ 
   echo "Input executable file name: " 
   read executableName 
} 
fi 
 
# Windows x86 
echo 
echo "Build Windows x86 binary" 
wine "$PureBasic_Path_Windows_x86"/Compilers/pbcompiler.exe $src /exe $executableName.Win32.exe /QUIET 
 
# Windows x64 
echo 
echo "Build Windows x64 binary" 
wine64 "$PureBasic_Path_Windows_x64"/Compilers/pbcompiler.exe $src /exe $executableName.Win64.exe /QUIET 
 
# Linux x86 
echo 
echo "Build Linux x86 binary" 
export PUREBASIC_HOME=$PureBasic_Path_Linux_x86 
export PATH=$PUREBASIC_HOME/compilers:$PATH 
$PureBasic_Path_Linux_x86/compilers/pbcompiler $src -e $executableName.Lin86 -q 
 
# Linux x64 
echo 
echo "Build Linux x64 binary" 
export PUREBASIC_HOME=$PureBasic_Path_Linux_x64 
export PATH=$PUREBASIC_HOME/compilers:$PATH 
$PureBasic_Path_Linux_x64/compilers/pbcompiler $src -e $executableName.Lin64 -q 
 
 
# Finish 
echo 
echo "******************************************" 
echo "Done!"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Enumeration 10 
  #Constante1   
  #Constante2 
EndEnumeration 
 
Structure s_Toto 
  Pos.f 
  Test.l 
EndStructure 
 
Structure s_titi 
  Champ.s_toto   
EndStructure 
 
Macro BorneMaxi(a, b) 
  If a > (b) 
    a = (b) 
  EndIf   
EndMacro

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Compilateur = RunProgram(#PB_Compiler_Home+"/Compilers/pbcompiler", "toto.pb /resident toto.res", "", #PB_Program_Open|#PB_Program_Read) 
  Sortie$ = "" 
  If Compilateur  
    While ProgramRunning(Compilateur) 
      If AvailableProgramOutput(Compilateur) 
        Sortie$ + ReadProgramString(Compilateur) + Chr(13) 
      EndIf 
    Wend 
    Sortie$ + Chr(13) + Chr(13) 
    Sortie$ + "Code de retour : " + Str(ProgramExitCode(Compilateur)) 
     
    CloseProgram(Compilateur) ; Ferme la connexion vers le programme 
  EndIf 
   
  MessageRequester("Sortie", Sortie$)

1
2
3
4
5
6
7
8
9
10
 
Debug #Constante2 
 
a = 12 
BorneMaxi(a, 7) 
Debug a 
 
Define Truc.s_titi 
 
Truc\Champ\Test = 45