Gravure-News

[CapRaff]

Mais tout cela ne nous dit pas si les abonimables moustiques vont fuir en entendant ces "doux bruits" !

Pour le moment il n'y en a pas (il fait tellement peu chaud ), mais j'aimerais bien trouver une solution pour nous en débarasser !

Quelles sont vos méthodes ?

[Scaramanga]

Désolé on a un peu débordé de ton sujet...

Je pense que ça peut fonctionner. On doit pouvoir optimiser en remplacent le HP d'origine par un Tweeter ( Haut parleur spécialisé dans les aigües), mais faut jouer du faire à souder !

[CapRaff]

Désolé on a un peu débordé de ton sujet...

Ce n'est vraiment pas un problème, d'autant plus que ton p'tit logiciel est sympa

Je pense que ça peut fonctionner. On doit pouvoir optimiser en remplacent le HP d'origine par un Tweeter ( Haut parleur spécialisé dans les aigües), mais faut jouer du fEr à souder !

CapJack ! Viiiiiittteeeeuuuuhhhh ! Le fer à souder !

[slywall]

Le truc le plus efficace contre les moustiques que je connaisse - mis à part les sprays remplis de produits chimiques qui sont vraiment efficaces (surtout au DEET come je disais plus haut) mais à mon avis qui attaquent bien la peau aussi à long terme - ce sont ces petit bidules qu'on appelle des serpentins. En forme de spirale, on les alume et ça brule pendant 5 à 8h comme de l'encens diffusant une légère fumée et une odeur parfumée qui eloigne et tue les moustiques.



Il est conseillé de les utiliser en exterieur, c'est à dire sur les fenêtres ou portes ouvertes ou encore sous une table si on mange dehors. A l'intérieur, à condition que tout soit ouvert et aéré. Ensuite je ne sais pas si on en trouve facilement en métropole - toutes les marque connu d'insecticide en font (Baygon / Raid / Catch)

La nuit : diffuseur à plaquette ou liquide - c'est efficace mais le plus efficace, la bonne vieille moustiquaire !

Edit : j'oubliais, un excellent moyen pour faire fuir tous les moustiques chez les voisins c'est d'allumer un feu dans le jardin, RADICAL

[CapJack]

@Spilou -> Même chose sur ma vieille Blaster Live!
Il y a des fréquences parasites qui couvrent le "vrai" sifflement.
Scara, tu utilises quoi comme code source ?

Slywall -> oui, et ça c'est très bon pour les bronches ! Il n'y a pas d'insecticide parfait, à mon avis, et si on veut essayer les ultra-sons, on trouve dans le commerce des petits diffuseurs à brancher sur une prise électrique... si vraiment ça marche, ça évitera de laisser l'ordinateur allumé à côté du barbecue.

[Scaramanga]

Scara, tu utilises quoi comme code source ?

http://www.swissdelphicenter.ch/en/showcode.php?id=1324

Avez vous connecté la prise casque directement au cul la Carte Son?

Initialement je passait pas une petite table de mixage qui me ramassant un max de merdouilles au passage, faut dire qu'a de telles fréquences...

[CapJack]

Ok j'ai pigé le problème : c'est un son généré en 8 bits...

Tiens, je viens juste de finir de corriger quelques bugs du TShellTreeView (disquettes, édition, etc...). Je regarde.

[Scaramanga]

En faisant des recherche sur le son, j'ai trouvé un truc de dingue !
http://homepages.borland.com/torry/vcl/ ... onegen.zip

[CapJack]

Là ça devrait aller mieux.

Théoriquement le volume peut aller jusqu'à 32767, mais j'obtiens de meilleurs résultats avec une faible valeur, comme 1000 par exemple.

J'ai mis un SampleRate de 96000, pas sûr que ça passe sur Windows 98.

Un petit ronflement apparaît vers 17000 Hz. Peut-être qu'on peut faire mieux avec l'API bas niveau.

Code: Tout sélectionner

unit PlaySoundU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MMSystem;

type
  TVolumeLevel = 0..32767;

procedure MakeSound(Frequency{Hz}, Duration{mSec}: Integer; Volume: TVolumeLevel);


implementation

procedure MakeSound(Frequency{Hz}, Duration{mSec}: Integer; Volume: TVolumeLevel);
  {writes tone to memory and plays it}
var
  WaveFormatEx: TWaveFormatEx;
  MS: TMemoryStream;
  i, TempInt, DataCount, RiffCount: integer;
  SoundValue: Cardinal;
  w: double; // omega ( 2 * pi * frequency)
const
  Mono: Word = $0001;
  SampleRate: Integer = 96000; // 8000, 11025, 22050, or 44100
  RiffId: string = 'RIFF';
  WaveId: string = 'WAVE';
  FmtId: string = 'fmt ';
  DataId: string = 'data';
begin
  if Frequency > (0.6 * SampleRate) then
  begin
    ShowMessage(Format('Sample rate of %d is too Low to play a tone of %dHz',
      [SampleRate, Frequency]));
    Exit;
  end;
  with WaveFormatEx do
  begin
    wFormatTag := WAVE_FORMAT_PCM;
    nChannels := Mono;
    nSamplesPerSec := SampleRate;
    wBitsPerSample := $0010;
    nBlockAlign := (nChannels * wBitsPerSample) div 8;
    nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
    cbSize := 0;
  end;
  MS := TMemoryStream.Create;
  with MS do
  begin
    {Calculate length of sound data and of file data}
    DataCount := (Duration * SampleRate) div 1000; // sound data
    RiffCount := Length(WaveId) + Length(FmtId) + SizeOf(DWORD) +
      SizeOf(TWaveFormatEx) + Length(DataId) + SizeOf(DWORD) + DataCount; // file data
    {write out the wave header}
    Write(RiffId[1], 4); // 'RIFF'
    Write(RiffCount, SizeOf(DWORD)); // file data size
    Write(WaveId[1], Length(WaveId)); // 'WAVE'
    Write(FmtId[1], Length(FmtId)); // 'fmt '
    TempInt := SizeOf(TWaveFormatEx);
    Write(TempInt, SizeOf(DWORD)); // TWaveFormat data size
    Write(WaveFormatEx, SizeOf(TWaveFormatEx)); // WaveFormatEx record
    Write(DataId[1], Length(DataId)); // 'data'
    Write(DataCount, SizeOf(DWORD)); // sound data size
    {calculate and write out the tone signal} // now the data values
    w := 2 * Pi * Frequency; // omega
    for i := 0 to DataCount - 1 do
    begin
      SoundValue := round(Volume * sin(i * w / SampleRate)); // wt = w * i / SampleRate
      Write(SoundValue, WaveFormatEx.wBitsPerSample shr 3);
    end;
    {now play the sound}
//    sndPlaySound(MS.Memory, SND_MEMORY or SND_SYNC);
    PlaySound(MS.Memory, 0, SND_MEMORY or SND_SYNC);
    MS.Free;
  end;
end;

end.


Génial ce nouveau [[code]] !


Edit : ça a l'air d'être un composant émulant un synthé analogique, non ?

[Scaramanga]

Ca suffit pour faire un son 16 bits ça ?

Code: Tout sélectionner

wBitsPerSample := $0010;

[CapJack]

Non, parce que ça a été programmé avec les pieds : il y a deux ou trois autres modifs à faire - entre autres il utilise aussi un type byte pour calculer l'échantillon -

[CapRaff]

Nous avons enfin trouvé l'antimoustiques de nos rêves !



Si vous êtes intéressés, n'hésitez pas à passer votre commande en m'écrivant en privé !

[Koba]

Méga-groseille ! Du collector !

[Burnitall]

:Nous avons enfin trouvé l'antimoustiques de nos rêves !

Esthétique y'a pas à dire

Mais je doute de son efficacité sur les moustiques ,y sont pas assez c*ns pour se poser sur la grille à l'inverse d'autres bestioles volantes nocturnes...

J'ai déjà testé ce genre de bidule, à vrai dire ca marche mieux sur les mouches et dans une boucherie !

[CapRaff]

En tout cas, blagues pingouinesques à part , je remercie Sly de m'avoir rappelé l'existence de cet appareil qui a "bercé" toute mon enfance et une partie de mon adolescence en Italie !

Après pas mal de visites dans les supermarchés du coin, j'ai enfin trouvé les spirales ! C'est vraiment l'appareil idéal pour lutter contre les moustiques !