UN LOGICIEL POUR ÊTRE AVERTI QUAND UN BUS ARRIVE

Signaler
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
-
jjnouiphp
Messages postés
33
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
21 janvier 2020
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/52073-un-logiciel-pour-etre-averti-quand-un-bus-arrive

jjnouiphp
Messages postés
33
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
21 janvier 2020
1
L'idée est excellente, même pour ceux qui ne prennent pas le bus.
Je pense à ceux qui doivent fumer une cigarette à heure fixe (pour rencontrer une collègue d'un autre service, ou pour éviter le boss).
Je suis sûr qu'on pourrait ouvrir une boîte à idées, non ?
Bacterius
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
6
Ca ressemble à une traduction automatique ...
Mowglinaute
Messages postés
42
Date d'inscription
dimanche 4 mars 2007
Statut
Membre
Dernière intervention
27 février 2013

Bonjour, Je prend jamais le bus, trop d'agressions sont fréquentes, je préfère me déplacer avec ma voiture sans me soucier de l'heure de son départ et voyager sur les routes non encombrées par les fous du volant aiment la vitesse pour aller vite dans leur fin de vie.
Créer un logiciel pour voir le départ d'un bus est à mon sens tout à fait inutile. Je vais créer un logiciel pour savoir si il n'y a pas un fou qui va emboutir ma voiture serais plus utile à l'heure actuel.

Bien à vous ...

Dr. J.LOMBET
cs_yanb
Messages postés
250
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
2 décembre 2019
5
Salut pseudomino,
Pour tester sous delphi rien de bien compliqué mais un peu de gymnastique

Extraire dans un répertoire les fichiers
Unit1.pas et Unit1.lfm
Unit2.pas et Unit2.lfm
Project1.lpr
autobus.png et icone.png
Rennomer les fichiers .lfm par .dfm
Rennomer le fichier .lpr par .dpr

Ensuite dans un editeur de texte comme NotePad++

Dans project1.dpr :
Supprimer : {$mode objfpc}{$H+}
Modifier le uses complet par :
uses
Forms,
Unit1 in 'Unit1.pas',
Unit2 in 'Unit2.pas';
{$R *.res}
Supprimer la ligne : {$I project1.lrs}

Dans Unit1.pas :
Supprimer : {$mode objfpc}{$H+}
Supprimer dans le uses : FileUtil, LResources, EditBtn, RTTICtrls
Ajouter sous implementation : {$R *.dfm}
Modifier dans la procedure TForm1.TimerSurveillanceTimer(Sender: TObject);
Q : Float; par Q : Extended;
Et supprimer à la fin du fichier : initialization {$I unit1.lrs}

Dans Unit2.pas :
Supprimer : {$mode objfpc}{$H+}
Supprimer dans le uses : FileUtil, LResources
Ajouter sous implementation : {$R *.dfm}
Et supprimer à la fin du fichier : initialization {$I unit2.lrs}

Ensuite ouvrir le project sous Delphi
Recharger l'icone du projet
Ouvrir la form1 ignorer les erreurs
Recharger l'image dans ImageBus
Ouvrir la form2 ignorer les erreurs
Tous enregistrer et compiler
Normalement c'est bon.
@+ yanb
Bacterius
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
6
Le source en lui-même est lisible en Delphi à deux-trois détails près, mais je pense pas que la fiche puisse être lue malheureusement. Il doit bien exister des convertisseurs mais bon ..

Cordialement, Bacterius !