Gambas France BETA


Pas de compte ? Incription

Site Web facile :

Un Site Web Clefs en Main :



Un lien vers le site gambas allemand : GambasBuch d'où sont tirés ces informations. Aller au lien : WEB.

Quelques images d'introduction :



Les composants nécessaires à notre site web :


Les réglages du débogueur :


L'environnement de test du site :


Les pages, entêtes, pieds et corps de notre site web :



Le code principal :



la Main.webpage :


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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
<% '<--------------------------------------------' début de gambas
System.Language = Request.Language
'<-----------------------' les différentes listes qui devront être alimentées
Main.SiteList = ["Page0", "Page1", "Page2", "Page3"] '<----------------' On peut, bien sûr ajouter autant de pages que nécessaire
Main.NomList = ["Accueil", "Principale", "Aide", "Syntaxe"] '<-----------' Les noms de page doivent avoir le même cardinal que les pages

Alimentation() '<----------------------------------------------' remplissage des textes et des titres

Main.titreList = [t0, t1, t2, t3]'<----------------------------' même nombre de champ pour un index identique
Main.textList = [s0, s1, s2, s3]'<----------------------------' même nombre de champ pour un index identique

IF Request.Query THEN '<----------------------------------' demande d'une page grâce à l'index
IF Main.SiteList.Exist(Request.Query) THEN
Main.CurrentSite = Request.Query
monIndex = Main.SiteList.find(Request.Query)'<-------' pour retrouver le même index
Main.NomPage = Main.NomList[monIndex] '<-------------' Nom des pages
main.leTitre = Main.titreList[monIndex] '<-----------' Nom des titres
Main.leText = Main.textList[monIndex] '<-------------' Nom des textes
ELSE
Main.CurrentSite = Main.SiteList[0]'<----------------' Page d'accueil
Main.NomPage = Main.NomList[0]
main.leTitre = Main.titreList[0]
Main.leText = Main.textList[0]
ENDIF
ELSE
Main.CurrentSite = Main.SiteList[0]'<-------------------' Page d'accueil
Main.NomPage = Main.NomList[0]
main.leTitre = Main.titreList[0]
Main.leText = Main.textList[0]
ENDIF
'<----------------' Fin gambas début html
%>

<!DOCTYPE html>
<html lang="fr">
<head> <!-- l'entête des pages -->
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0, shrink-to-fit=no">
<meta name="description" content="TEMPLATE: WEBPAGE GAMBAS HTML CSS JS">
<meta name="author" content="" >
<meta name="OWNER" content="" >
<meta name="SUBJECT" content="" >
<meta name="RATING" content="" >
<meta name="ABSTRACT" content="" >
<meta name="KEYWORDS" content="" >
<meta name="REVISIT-AFTER" content="13 DAYS">
<meta name="LANGUAGE" content="FR">
<meta name="COPYRIGHT" content="">
<meta name="ROBOTS" content="All">
<meta content="" name="author">
<meta http-equiv="Content-Script-Type" content="text/javascript">
<meta http-equiv="Content-Style-Type" content="text/css">
<meta http-equiv="content-type" content="text/html; charset=utf-8">

<title><%=Main.NomPage%></title>

<link rel="icon" type="image/x-icon" href="<%/%>/favicon/favicon_blue_32.ico">
<link rel="stylesheet" type="text/css" href="./css/style.css">
<script src="./js/set_time.js"></script>

</head>
<body onload="JSTimer1();">
<<IncEntete>> <!-- l'entête -->
<br>
<<IncNavigation>> <!-- Le bandeau de navigation-->
<br>
<main>
<<IncContenu>> <!-- Le contenu du site, c'est à dire l'ensemble des pages -->
<a>Le contenu textuel de chaque page peut être rentré dans chaque page, soit directement soit en appelant un fichier extérieur à la page. <br>Ici ce texte est rentré directement dans la structure de la page principale (Main) <br>Deux possibilités :<br>soit en HTML<br>soit en Gambas entre les balises nécessaires, voir la page syntaxe pour des explications.<br></a>
<br>
</main>
<<IncPied>> <!-- Le pied de page-->
</body>
</html>

<%

%>


La Main.class :



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
' Gambas class file

PUBLIC CurrentSite AS STRING
PUBLIC SiteList AS String[]
PUBLIC NomList AS String[]
PUBLIC NomPage AS STRING
PUBLIC monIndex AS INTEGER
'<-------------------' les titres de chaque page
PUBLIC t0 AS STRING
PUBLIC t1 AS STRING
PUBLIC t2 AS STRING
PUBLIC t3 AS STRING

'<-------------------' les textes de base de chaque page
PUBLIC s0 AS STRING
PUBLIC s1 AS STRING
PUBLIC s2 AS STRING
PUBLIC s3 AS STRING

'<-------------------' les collections de titres et textes pour la table de chaque page
PUBLIC textList AS String[] '<--------------' les textes
PUBLIC titreList AS String[] '<--------------' les titres
'<--------------------' les textes et titres eux mêmes
PUBLIC leText AS STRING
PUBLIC leTitre AS STRING
'<--------------------' les textes supplémentaires à afficher en dehors de la table de chaque page
PUBLIC texte1 AS STRING

PUBLIC SUB Alimentation() '<---------------' définition des textes et titres

t0 = File.Load("./.public/Titres/t0")
t1 = File.Load("./.public/Titres/t1")
t2 = File.Load("./.public/Titres/t2")
t3 = File.Load("./.public/Titres/t3")

s0 = File.Load("./.public/Textes/s0")
s1 = File.Load("./.public/Textes/s1")
s2 = File.Load("./.public/Textes/s2")
s3 = File.Load("./.public/Textes/s3")

texte1 = File.Load("./.public/Tsupplement/Texte1")

END


C'est écrit dans l'image :





====================

Navigation :


<-- SAVIEZ VOUS QUE : <--
<-- COMMENT FAIRE : <--
<-- Sommaire du WIKI : <--

====================

Documentation :



==================