Belote
Belote
Philippe Alary
1.1
Comptage des points de Belote
[BeloteE],[BeloteN],[cumulEux],[cumulNous],[Ecran],[fin],[nAdversaire],[Navigateur],[nbGagneE],[nbGagneN],[nEux],[nManche],[nNous],[nPoint],[OldEux],[OldNous],[OldReserve],[Orientation],[OS],[pwaInstall],[readyToInstall],[reserve],[tableau],[TotE([nManche])],[TotE],[TotN([nManche])],[TotN],[Visible]
True
320
600
False
False
False
False
WebApp
False
E:\Philippe\Documents\VisualNeoWeb\Projets\Ressources\cards_poker_256.png
table, th, td {
border: 1px solid black;
border-collapse: collapse;
text-align: center;
}
table {
width: 100%
}
td:nth-child(even), th:nth-child(even) {
background-color: #D6EEEE;
}
.btn {
padding-left: 5px;
}
.btnfin {
padding-right: 2px;
}
.cfix {
position: absolute;
}
fr
True
standalone
Offline page
#AA0027
/belote/
[AndroidOS,iOS,WindowsPhoneOS]
normal
True
True
False
True
True
False
False
True
False
400
600
False
neoDeviceGetInfo [Ecran] [OS] [Orientation] [Navigateur]
If [Ecran] == "Mobile"
FitAppToScreen false "top" "center"
.slScaleAppFitWidth 330 600
SetVar [h] [NAB.ClientHeight]
SetVar [w] [NAB.ClientWidth]
TopCenterApp
SizeObject "[NAB.PageID]" [w] [h]
SizeObject "forminvio" [w] [h]
Endif
IsInstalled [pwaInstall]
If [pwaInstall] == true
HideObject "Headline4" "none" 0
If [Ecran] != "Mobile"
ResizeDesktopWindow 350 600
Endif
Else
PreventInstallPrompt [readyToInstall]
.Detect any change on [readyToInstall]
Watch [readyToInstall] "customInstall"
Endif
.We also call the subroutine after 8 seconds as some web browsers need it
.SetTimeOut 8000 "customInstall" [myTimeInput]
SetVar [nManche] 1
SetVar [nbGagneE] 0
SetVar [nbGagneN] 0
CreateArray [TotE] 0,0,0,0,0,0,0,0,0,0,0
CreateArray [TotN] 0,0,0,0,0,0,0,0,0,0,0
If [nPoint] == 0
SetVar [nAdversaire] 252
.ElseIf [nPoint] == 252
. SetVar [nAdversaire] 0
Else
Math "162 - [nPoint]" 0 [nAdversaire]
Endif
If [qui] == "E"
SetVar [nEux] [nPoint]
SetVar [nNous] [nAdversaire]
Else
SetVar [nEux] [nAdversaire]
SetVar [nNous] [nPoint]
EndIf
If [BeloteE] == 1
Math "[nEux]+20" 0 [nEux]
Endif
If [BeloteN] == 1
Math "[nNous]+20" 0 [nNous]
Endif
SetVar [OldReserve] [reserve]
If [nNous] == [nEux]
Math "[reserve]+[nEux]" 0 [reserve]
If [qui] == "E"
SetVar [nNous] 0
If [BeloteN] == 1
Math "[reserve]-20" 0 [reserve]
SetVar [nNous] 20
Endif
Else
SetVar [nEux] 0
If [BeloteE] == 1
Math "[reserve]-20" 0 [reserve]
SetVar [nEux] 20
Endif
Endif
Elseif [nNous] > [nEux]
Math "[nNous]+[reserve]" 0 [nNous]
SetVar [reserve] 0
Else
Math "[nEux]+[reserve]" 0 [nEux]
SetVar [reserve] 0
Endif
Math "[cumulEux] + [nEux]" 0 [cumulEux]
Math "[cumulNous] + [nNous]" 0 [cumulNous]
SetVar [OldEux] [nEux]
SetVar [OldNous] [nNous]
.affichage
SetVar [tableau] "[tableau]<tr><td>[nEux]</td><td>[cumulEux]</td><td>[nNous]</td><td>[cumulNous]</td></tr>"
SetObjectHTML "Detail" "[tableau][fin]"
ShowObject "Detail" "none" 0
ShowObject "CumEux" "none" 0
ShowObject "CumNous" "none" 0
FocusObject "TextInput1"
.remise à 0
SetVar [nPoint] ""
SetVar [BeloteE] 0
SetVar [BeloteN] 0
.fin
IfEx ([cumulEux] > 999 or [cumulNous] > 999) and [cumulEux] != [cumulNous]
PlaySound "E:\Philippe\Documents\VisualNeoWeb\Projets\Ressources\SF-bravo.mp3" false
ShowObject "pbFin" "flash" 50
ShowObject "Container1" "none" 0
Endif
[qui]|STRING|origine des points
If [readyToInstall] == true
OpenDialog "Install"
CancelWatch [readyToInstall]
EndIf
If [nBouton] = 1
Math "[cumulEux] - [OldEux]" 0 [cumulEux]
Math "[cumulNous] - [OldNous]" 0 [cumulNous]
SetVar [tableau] "[tableau]<tr><td>-[OldEux]</td><td>[cumulEux]</td><td>-[OldNous]</td><td>[cumulNous]</td></tr>"
SetObjectHTML "Detail" "[tableau][fin]"
SetVar [OldEux] 0
SetVar [OldNous] 0
Endif
[nBouton]|INTEGER|Bonton selectionné
MasterPage
If [Ecran] == "Mobile"
SizeObject "[NAB.PageID]" [w] [h]
Endif
ShowObject "PushButton1" "swapIn" 30
107px
112px
106px
34px
False
[nManche]° Manche
danger
If [nManche] > 10
sweetAlert "Attention" "Vous avez atteint le maximum de parties!" "warning" "OK" "Relancez l'application pour continuer"
Else
GotoPage "Score"
Endif
28px
161px
71px
19px
False
Manche
h4
142px
161px
50px
19px
False
Eux
h4
223px
161px
52px
19px
False
Nous
h4
43px
186px
30px
30px
False
1
129px
186px
57px
30px
False
[TotE|element:1]
215px
186px
57px
30px
4px
False
[TotN|element:1]
43px
220px
30px
30px
False
2
129px
220px
57px
30px
False
[TotE|element:2]
215px
220px
57px
30px
False
[TotN|element:2]
43px
254px
30px
30px
False
3
129px
254px
57px
30px
False
[TotE|element:3]
215px
254px
57px
30px
False
[TotN|element:3]
43px
287px
30px
30px
False
4
129px
287px
57px
30px
False
[TotE|element:4]
215px
287px
57px
30px
False
[TotN|element:4]
43px
320px
30px
30px
False
5
129px
320px
57px
30px
False
[TotE|element:5]
215px
320px
57px
30px
False
[TotN|element:5]
43px
353px
30px
30px
False
6
129px
353px
57px
30px
False
[TotE|element:16]
215px
353px
57px
30px
False
[TotN|element:6]
43px
386px
30px
30px
False
7
129px
386px
57px
30px
False
[TotE|element:7]
215px
386px
57px
30px
False
[TotN|element:7]
43px
419px
30px
30px
False
8
129px
419px
57px
30px
False
[TotE|element:8]
215px
419px
57px
30px
False
[TotN|element:8]
43px
452px
30px
30px
False
9
129px
452px
57px
30px
False
[TotE|element:9]
215px
452px
57px
30px
False
[TotN|element:9]
43px
485px
30px
30px
False
10
129px
485px
57px
30px
False
[TotE|element:10]
215px
485px
57px
30px
False
[TotN|element:10]
75px
9px
168px
94px
E:\Philippe\Documents\VisualNeoWeb\Projets\Ressources\Logo-Belote1.png
100px
153px
42px
36px
False
E:\Philippe\Documents\VisualNeoWeb\Projets\Ressources\award.png
270px
153px
42px
36px
False
E:\Philippe\Documents\VisualNeoWeb\Projets\Ressources\award.png
MasterPage
flopInLeft
fadeOutLeft
If [Ecran] == "Mobile"
SizeObject "[NAB.PageID]" [w] [h]
Endif
HideObject "Detail" "none" 0
HideObject "CumEux" "none" 0
HideObject "CumNous" "none" 0
HideObject "Container1" "none" 0
FocusObject "TextInput1"
SetVar [tableau] '<table><thead><tr><th colspan="2">Eux</th><th colspan="2">Nous</th></tr><tr><th>Points</th><th>Cumul</th><th>Points</th><th>Cumul</th></tr></thead><tbody>'
SetVar [fin] "</tbody></table>"
neoInputMask "TextInput1" "000"
SetVar [cumulEux] 0
SetVar [cumulNous] 0
SetVar [reserve] 0
SetKeyboard "TextInput1" "numeric"
neoInputMaskRemove "TextInput1"
HideObject "pbFin" "none" 0
17px
177px
279px
343px
0px
165px
320px
4px
0
167
320
167
20px
177px
280px
346px
False
<strong>Les points :<br></strong> Marquer le score entre 0 et 162 hors belote puis appuyer sur <em>Eux</em> ou <em>Nous.</em><br><strong>La belote :</strong><br> Cocher la case sous <em>Eux</em> ou <em>Nous.</em><br><strong>Le capot :<br></strong> Marquer <em>0</em> puis appuyer sur <em>Eux</em> ou <em>Nous</em>.<br><strong>La gomme :<br></strong> Efface le dernier score et rétablit le cumul précédent.<br><strong>Fin :<br> </strong>S'affiche lorsque la partie est terminée cliquer pour retour à l'acceuil.<br> <u><em>Attention</em></u> ce dernier score ne peut pas être effacé.
HideObject "aide" "fadeOut" 40
HideObject "aide" "fadeOut" 40
1px
26px
318px
137px
14px
51px
33px
33px
btnfin
title="Aide"
glyphicon-question-sign
large
GetObjectInfo "aide" "display" [Visible]
If [Visible] == "block"
HideObject "aide" "fadeOut" 40
Else
ShowObject "aide" "fadeIn" 40
Endif
273px
51px
33px
33px
btnfin
title="Effacer dernier résultat"
glyphicon-erase
large
IfEx [OldEux] > 0 or [OldNous] > 0
MessageBoxEx "Attention" "Confirmer l'annulation du dernier score" "OK|Annuler" "300" "200" "#FF4500" "Effacer"
Endif
57px
62px
47px
33px
Eux
success
Calcul "E"
213px
62px
47px
33px
Nous
primary
Calcul "N"
127px
28px
62px
20px
Points
h4
119px
108px
73px
20px
Belote
h4
57px
23px
47px
33px
[cumulEux]
213px
23px
47px
33px
[cumulNous]
54px
98px
40px
40px
neocheckbox
[BeloteE]
IfEx [BeloteE] == 1 and [BeloteN] == 1
MessageBoxEx "Attention" "Il ne peut y a voir qu'une belotte" "OK" "250" "200" "#FF4500" ""
Endif
1
208px
98px
40px
40px
neocheckbox
[beloteN]
IfEx [BeloteE] == 1 and [BeloteN] == 1
MessageBoxEx "Attention" "Il ne peut y a voir qu'une belotte" "OK" "250" "200" "#FF4500" ""
Endif
1
129px
62px
59px
33px
nPoint
IfEx [nPoint] < 0 or [nPoint] > 162
MessageBoxEx "Attention" "erreur de score" "OK" "250" "200" "#FF4500" ""
Endif
FitAppToScreen false "top" "center"
1px
25px
318px
140px
False
131px
186px
53px
53px
False
btnfin
Fin
large
SetVar [TotE([nManche])] [cumulEux]
SetVar [TotN([nManche])] [cumulNous]
If [cumulEux] > [cumulNous]
Math "[nbGagneE]+1" 0 [nbGagneE]
Else
Math "[nbGagneN]+1" 0 [nbGagneN]
Endif
If [nbGagneE] > [nbGagneN]
ShowObject "imVE" "none" 0
HideObject "imVN" "none" 0
ElseIf [nbGagneN] > [nbGagneE]
ShowObject "imVN" "none" 0
HideObject "imVE" "none" 0
Else
HideObject "imVN" "none" 0
HideObject "imVE" "none" 0
EndIf
ShowObject "cManche[nManche]" "none" 0
ShowObject "cEux[nManche]" "none" 0
ShowObject "cNous[nManche]" "none" 0
ShowObject "Headline3" "none" 0
ShowObject "Headline4" "none" 0
ShowObject "Headline5" "none" 0
Math "[nManche]+1" 0 [nManche]
GotoPage "Parties"
0px
0px
320px
599px
E:\Philippe\Documents\VisualNeoWeb\Projets\Ressources\fond_belotte.jpg
5px
9px
48px
35px
E:\Philippe\Documents\VisualNeoWeb\Projets\Ressources\Api.png
27px
38px
270px
441px
False
custom
73px
27px
122px
102px
E:\Philippe\Documents\VisualNeoWeb\Projets\Ressources\Api.png
0px
144px
268px
88px
Ajouter cette application<br>
sur votre bureau ?
15px
224px
240px
64px
Revenez-y rapidement et facilement en l'ajoutant à votre écran d'accueil.
24px
316px
220px
40px
Ajouter à l'écran d'accueil
primary
ShowInstallPrompt
HideObject "Headline4" "none" 0
CloseDialog
24px
370px
220px
40px
Annuler
CloseDialog