Savoir la vitesse

Invité

Salut à tous !

J'ai fait un premier programme contenant le nouvel objet "spin".
Ce programme est un programme pour calculer la vitesse de quelque chose.
Il faut écrire la distance et le temps que ça pris.

Voici mon petit programme :

Code:: label calculer,precedant
dim r

left 0,270
top 0,150
width 0,320
height 0,200
caption 0,"Calculer la vitesse en km/h"

picture 15
hide 15
width 15,312
height 15,166
color 15,255,0,0

Alpha 1
left 1,20
top 1,10
caption 1,"Calculer la vitesse en km/h"

spin 2
width 2,180
left 2,62
top 2,40

alpha 3
left 3,5
top 3,42
caption 3,"Longueur :"

spin 4
width 4,180
left 4,62
top 4,70

alpha 5
left 5,5
top 5,72
caption 5,"Temps :"

check 7
left 7,55
top 7,100
width 7,200
caption 7,"Recevoir un message"
mark_on 7

button 6
left 6,70
width 6,140
top 6,130
caption 6,"Calculer"
font_size 6,10:font_bold 6
on_click 6,calculer

picture 13
hide 13
left 13,46
top 13,40
width 13,200
color 13,0,0,0

picture 14
hide 14
left 14,49
top 14,44
width 14,194
height 14,97
color 14,232,233,218

alpha 8
hide 8
left 8,100
top 8,70
caption 8,"Resultat :"
font_size 8,10
font_bold 8

alpha 9
hide 9
left 9,80
width 9,200
top 9,90

alpha 10
left 10,244
top 10,42
caption 10,"Mètre(s)"

alpha 11
left 11,244
top 11,72
caption 11,"Seconde(s)"

button 12
hide 12
width 12,110
height 12,30
caption 12,"<-- Précédant"
font_bold 12:font_size 12,10
on_click 12,precedant

end

calculer:
show 12:show 13:show 14:show 15
r=(val(text$(2))/val(text$(4)))*3.6
hide 2:hide 3:hide 6:show 8:show 9
hide 1:hide 4:hide 5:hide 7:hide 10:hide 11
caption 9,str$(r)+" km/h"
caption 0,"Resultat : "+str$(r)+" km/h"
return

precedant:
hide 12:hide 13:hide 14:hide 15:hide 9:hide 8
show 1:show 2:show 3:show 4:show 5:show 6:show 7:show 10:show 11
return
return

Sujet: Re: Savoir la vitesse Sam 7 Nov 2009 - 16:33

BRAVO NICOLAS,

Invité

Salut à tous !

J'ai corrigé un bug dans mon programme (je sais ce n'ai pas beaucoup)

et j'ai rajouter un bouton "Enregistrer le Résultat" pour enregistrer
(sur un fichier texte) le résultat que nous avons eu.

Voici le code corrigé :

Code:: label calculer,precedant,quitter
label enregistr
dim r,NomFichier$

left 0,270
top 0,150
width 0,320
height 0,200
caption 0,"Calculer la vitesse en km/h"

picture 15
hide 15
width 15,312
height 15,166
color 15,255,0,0

Alpha 1
left 1,20
top 1,10
caption 1,"Calculer la vitesse en km/h"

spin 2
width 2,180
left 2,62
top 2,40

alpha 3
left 3,5
top 3,42
caption 3,"Longueur :"

spin 4
width 4,180
left 4,62
top 4,70

alpha 5
left 5,5
top 5,72
caption 5,"Temps :"

check 7
left 7,55
top 7,100
width 7,200
caption 7,"Recevoir un message"
mark_on 7

button 6
left 6,70
width 6,140
top 6,130
caption 6,"Calculer"
font_size 6,10:font_bold 6
on_click 6,calculer

picture 13
hide 13
left 13,46
top 13,34
width 13,200
color 13,0,0,0

picture 14
hide 14
left 14,49
top 14,38
width 14,194
height 14,97
color 14,232,233,218

alpha 8
hide 8
left 8,100
top 8,70
caption 8,"Résultat :"
font_size 8,10
font_bold 8

alpha 9
hide 9
left 9,80
width 9,200
top 9,90

alpha 10
left 10,244
top 10,42
caption 10,"Mètre(s)"

alpha 11
left 11,244
top 11,72
caption 11,"Seconde(s)"

button 12
hide 12
width 12,202
height 12,30
caption 12,"<-- Précédant"
font_bold 12:font_size 12,10
on_click 12,precedant

button 16
hide 16
left 16,202
width 16,110
height 16,30
caption 16,"Quitter -->"
font_bold 16:font_size 16,10
on_click 16,quitter

button 17
hide 17
left 17,50
width 17,192
top 17,143
height 17,18
caption 17,"Enregistrer le résultat"
on_click 17,enregistr

memo 19:hide 19

end

calculer:
show 12:show 13:show 14:show 15:show 16
r=(val(text$(2))/val(text$(4)))*3.6
hide 2:hide 3:hide 6:show 8:show 9:show 17
hide 1:hide 4:hide 5:hide 7:hide 10:hide 11
caption 9,str$(r)+" km/h":item_add 19,""+str$(r)+" km/h"
caption 0,"Résultat : "+str$(r)+" km/h"
return

precedant:
hide 12:hide 13:hide 14:hide 15:hide 9:hide 8:hide 16:hide 17
show 1:show 2:show 3:show 4:show 5:show 6:show 7:show 10:show 11
caption 0,"Calculer la vitesse en km/h"
return

enregistr:
if clicked(17)=1
save_dialog 18
filter 18,"Fichiers Texte|*.txt"
NomFichier$=file_name$(18)
delete 18
file_save 19,NomFichier$
end_if
return

quitter:
terminate

Invité

Je viens d'essayer ton programme
Parfait !
Je pensais que cet objet ne fonctionnait pas, vu que Jack affirmait n'avoir codé que l'objet, sans le reste. Cela fait un objet de plus
Par contre, il y a une chose qui manque quand-même pour cet objet, c'est d'afficher au départ une valeur. Text, caption ne marche pas.

Sujet: re Lun 9 Nov 2009 - 14:45

très bien mais il manque le traitement des erreurs!

Valeurs 0 et négatives

@+

Invité

Pas d'accord avec toi, les valeurs nulles et négatives existent aussi.
Ainsi par exemple avec un logiciel de dessin comme IPhoto Express, lorqu'on modifie le gamma, je crois, on des valeurs négatives. Cet au programme de déterminer si il y a erreur ou non. Par contre imposer une valeur mini et maxi comme avec les SCROLL_BAR seraient une bonne chose, pour être dans les limites. Je pense que pour ma part, Jack, plutôt que de récupérer la valeur avec Val(text$()), codera une instruction POSITION. Maintenant, comme je l'avais dis plus haut, imposer une valeur de départ, est effectivement obligatoire pour finaliser l'objet (comme ayant les spin pour une fonte, le SPIN est automatiquement réglé pour FONTE_SIZE en cours).
@+

Sujet: re Lun 9 Nov 2009 - 16:32

Salut Cosmos70

Disons que c'est par rapport à l'intitulé de son prog : Calculer la vitesse en km/h.
Il me semble que dans ce cas les deux données doivent être supérieures à zéro.

@+

Invité

Honte à moi!, j'ai cru que c'était par rapport à SPIN. Moi en regardant le programme, je n'ai vu que la capacité à lire le résultat de SPIN, mais j'ai pas analysé le programme. Tu es plus méticuleux que moi.
A+

» Temps d'exécution d'un sous-programme appelé par SUB/GOSUB
» Test de vitesse d'une clé usb
» Vitesse du processeur
» Vitesse et Précipitation...
» calcul temps au Km et vitesse horaire