Gratilog.net - Forum - Propositions de logiciels

Index des forums Gratilog.net

Propositions de logiciels

Anti-moustiques

Parcourir ce sujet: 1 Utilisateur(s) anonyme(s)

Bas

Suivant S'enregistrer pour contribuer

	Anti-moustiques	#1
Nouveau Inscrit: 28/02/2007 17:49 Groupe: Utilisateurs enregistrés Post(s): 4	Voilà le logiciel le plus génial de l'année ! Anti-moustiques est un utilitaire qui sert à vous protéger des moustiques en produisant un son du domaine des ultrasons. http://pagesperso-orange.fr/sylvain.souzy/moustique/ Dommage que l'été soit passé pour le tester... A moins qu'un membre du forum habite dans une forêt tropicale ? Pas d'autres logiciels dans cette idée ? Désolé Sylvie mais je n'ai pas pu résister... PS: au fait vous y croyez techniquement, vous ? Contribution le : 15/09/2008 13:50

	Re: Anti-moustiques	#2
Expert Inscrit: 06/08/2008 07:49 Groupe: Utilisateurs enregistrés Post(s): 1287	Tout dépend des hauts parleurs et des fréquences qu'ils peuvent produire?!? C'est quand même un soft original ! Faut y croire!!! Contribution le : 15/09/2008 15:49
	_________________ i5 4670K, GTX 980 OC, 8Go, 3x SSD 1x HDD (3.5To), Windows 7 Pro N 64bits Dell XPS M1330, T9300, 4Go, SSD 500Go, 8400GS, Windows 7 Pro 32bits Dell Dimension 8300, P4C 3Ghz, 2Go, 80Go, 9800Pro, XP Pro SP3 Dell Dimension 3000, Celeron 2,6GHz, 2Go, 80Go, 9

	Re: Anti-moustiques	#3
Régulier Inscrit: 10/03/2005 22:13 De France Groupe: Utilisateurs enregistrés Post(s): 234	Bonjour, Pour ceux qui ont FBSL d'installés sur leur postes, voici une version anti-moustique codée avec mon langage : #Option Strict #Uses "@\|WIN32" Static g_Flag = FALSE Begin Enum IT_1 = 1001 IB_1 End Enum FBSL_SetText(Me, "-==:: Anti Mosquito by GEG 1.0 ::==-" ) Style_Remove(ME, WS_MAXIMIZEBOX + WS_SIZEBOX + WS_SYSMENU) Dim %hButton = FBSL_Control( "button", Me, "&Quit", IB_1, 300, 16, 42, 20, WS_CHILD + BS_FLAT + WS_VISIBLE, 0 ) Resize(Me, 0, 0, 360, 80): Center(Me): SetTimer(Me, IT_1, 5000) Hide(hButton): Show(Me): AntiMosquito(): Show(hButton) Begin Events Select Case CBMSG Case WM_CLOSE KillTimer(Me, IT_1) ExitProgram(0) Case WM_COMMAND If CBCTLMSG = BN_CLICKED AndAlso CBCTL = IB_1 Then SendMessage(Me, WM_CLOSE, 0, 0) Case WM_TIMER If CBCTL = 1001 And g_Flag = FALSE Then AntiMosquito() End Select End Events Sub AntiMosquito() g_Flag = TRUE Dim dc = GetDC(Me), str Fbsl_SetFormColor(Me, Rgb(0xFF,0x0,0x0)) For Dim i = 32800 To 40000 Step 10 '// Ultra sons DoEvents ApiCall( "Beep", "kernel32", i, 500 ) str = "-=:: Emitting sound at " & $i & " Hz ::=-" TextOut( dc, 42, 18, str, strLen(str) ) DoEvents Next: ReleaseDC(Me, dc) Fbsl_SetFormColor(Me, Rgb(0x0,0x0,0xFF)) g_Flag = FALSE End Sub Pour celles et ceux qui veulent tester une version compilée de ce programme, je vous invite à vous rendre ici : http://gedd123.free.fr/Radio/anti-moustiques.7z Merci pour vos feed-back! Contribution le : 17/09/2008 01:32
	_________________ G?r?me GUILLEMIN Le site de FBSL : http://www.fbsl.net Tutoriel en fran?ais : http://gedd123.free.fr/Fbsl/Tutoriel.pdf FBSL sur GRATILOG c'est ici : http://www.gratilog.net/xoops/modules ... lefile.php?cid=72&lid=430

Haut

S'enregistrer pour contribuer

Vous ne pouvez pas débuter de nouveaux sujets.

Vous pouvez voir les sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.