PureBasic

Bonjour,

J'ai un moustique dans ma chambre !!!
Je sais que les ultra-sons font fuire les moustiques, mais je connais pas les fréquences et je ne trouve pas. Quelqu'un saurait-il comment faire et aurait un bout de code ?

Merci d'avance.

tu crois pouvoir sortir des ultra son avec tes haut parleurs

PureBASIC peut tout faire, même chasser les moustiques !
mdr^^

Des sons assez petits pour faire fuire les moustiques en tout cas, oui.
Je compte me servire de la fonction beep_().
Ou alors créer un wav qui se joue en répétition et qui lance un son des fréquences anti-moustiques.
La dernière solution permettrait que le prog marche sur touts les systèmes parce que la fonction Beep_() ne marche que sous les architectures NT.
Et oui, je suis très sérieux.

Je ne connais pas les fréquences des sons anti-moustiques mais il faudra savoir si elles correspondent aux fréquences que peuvent restituer la carte son et le système audio ( Ampli, enceintes...).
Je pense...

Sinon c'est plutôt cool !

Bah de toute facon mon ventilo fait suffisament de bruit pour être anti-elephant

Sinon Regis avait fait une fonction comme beep qui marchait sur mon Win98 !
Elle est dans Trucs & Astuces vers la première page

http://www.pcastuces.com/logitheque/antimoustique.htm

http://www.uptotech.com/sinformer/n/news4190.php

http://www.castorama.fr/boutique/sku/sk ... tid=215797

Merci de me dire ce qui fonctionne le mieux , je peux être intéressé pour cet été

Aranoth a écrit :Bah de toute facon mon ventilo fait suffisament de bruit pour être anti-elephant

Sinon Regis avait fait une fonction comme beep qui marchait sur mon Win98 !
Elle est dans Trucs & Astuces vers la première page

Ce que j'ai trouvé est à la page 5 il me semble, et on ne peut pas choisir la fréquence des sons émis.
Je vais voir les liens de Comtois.

enfin si j'en crois ce passage

Quant aux petits appareils à ultrasons sensés reproduire le bruit des battements d'ailes du mâle, que cherche absolument à éviter la femelle déjà fécondée, ils ne paraissent pas très efficaces. Complexité du son naturel oblige.

extrait de ce site
http://www.infoscience.fr/dossier/moust ... ique4.html

il vaut mieux oublier les ultrasons et mettre des manches longues

Oui, ça change touts les ans... une année les ultra-sons sont le meilleur moyen du monde de l'univers de la france qui tue l'Islande des états-unis d'Asie entre les états-unis, l'Afrique du sud et le Brésil, et une autre année c'est inéficace.

Donc pk pas essayer.

Faut s'occuper, j'y arrive mieux qu'à faire une composition ch***** de Géographie sur l'Europe bipolaire et l'Europe unie maintenant qui ne l'est pas vraimant.

Et quand on voie mes notions de géographie dans ce message,

.
Faisons-le pour le fun. Enfin si ça dit à certains, on fera un anti plain de choses.

7 / 8 KHz moustiques,puces.10/12 KHz fouines,loirs,cafards.12/18 KHz souris,rats.20/26 KHz mites,lépismes,vers à bois,araignées.

On va en faire fuire de la bestiole !

Y en a plain dont j'ai jamais entendu le nom.

Faut s'occuper, j'y arrive mieux qu'à faire une composition ch***** de Géographie sur l'Europe bipolaire et l'Europe unie maintenant qui ne l'est pas vraimant.

Toi t'es en terminale non

?(ou en 3ème à la rigeur)

on fera un anti plain de choses.

Anti fautes d'orthographes ???? GARZULLLLLL JBERNARD1333333

Oliv a écrit :
Faut s'occuper, j'y arrive mieux qu'à faire une composition ch***** de Géographie sur l'Europe bipolaire et l'Europe unie maintenant qui ne l'est pas vraimant.
Toi t'es en terminale non ?(ou en 3ème à la rigeur)

Troisième ?????
Non, première.

on fera un anti plain de choses.
Anti fautes d'orthographes ???? GARZULLLLLL JBERNARD1333333

Arf, je suis éliminé.

Voici un code, fait à l'arache entre hier soir et ce matin.

Code : Tout sélectionner

Procedure Moustique(i)
  Repeat
    For n = 7000 To 8000 Step 50
      Beep_(n, 500)
    Next
  ForEver
EndProcedure

If OpenWindow(0, 0, 0, 200, 60, #PB_Window_MinimizeGadget | #PB_Window_SystemMenu | #PB_Window_Titlebar | #PB_Window_ScreenCentered, "Anti-Moustiques")And CreateGadgetList(WindowID()) And CreateStatusBar(0, WindowID())
  StatusBarText(0, 0, "Prêt")
  ButtonGadget(0, 0, 0, 100, 20, "Démarrer")
  GadgetToolTip(0, "Démarre l'émition des sons.")
  ButtonGadget(1, 100, 0, 100, 20, "Cliquer ici pour tester")
  GadgetToolTip(1, "Teste si le programme est compatible. Un La doit être émis.")
  Repeat
    Select WaitWindowEvent()
      Case #PB_EventGadget
        Select EventGadgetID()
          Case 0
            If GetGadgetText(0) = "Démarrer"
              id = CreateThread( @Moustique(), 1)
              DisableGadget(1, 1)
              SetGadgetText(0, "Arrêter")
              GadgetToolTip(0, "Arrête l'émition des sons.")
              StatusBarText(0, 0, "Anti-Moustiques démarré")
            Else
              KillThread(ID)
              DisableGadget(1, 0)
              GadgetToolTip(0, "Démarre l'émition des sons.")
              SetGadgetText(0, "Démarrer")
              StatusBarText(0, 0, "Anti-Moustiques arrêté")
            EndIf
          Case 1
            Beep_(440, 1000)
        EndSelect
      Case #PB_EventCloseWindow
        End
    EndSelect
    Delay(20)
  ForEver
EndIf
End

Je n'ai pas pu en tester l'efficacité, mais ça... marche au niveau technique.

Si je retombe sur la tête, j'intègrerais l'Anti-Cafards, arreignées etc...

le code ne donne pas d'ultra son puisque je l'entend... pi ça nique l'audition

Non, pas d'ultra-sons, mais c ce qui est conseillé de mettre. Le mieux c d'avoir le PC assez loin pour pas trop l'entendre, ou d'avoir un portable où ces sons sortent du haut-parleur et où le son peut se règler.