<![CDATA[ProgramBUL - Forum - Tüm Forumlar]]>

<![CDATA[ProgramBUL - Forum - Tüm Forumlar]]> http://www.programbul.net/forum/ Tue, 06 Jan 2009 03:30:13 +0200 MyBB <![CDATA[Proragm]]> http://www.programbul.net/forum/showthread.php?tid=13 Wed, 24 Sep 2008 19:30:35 +0300 varyabl http://www.programbul.net/forum/showthread.php?tid=13
Program ismi: Kelebek Script
version: v.media
boyut: 3.98 Kb
üretici firma: Klavye Bilgisayar
işletim sistemi: windows tümü
Kategori: chat,sohbet,eğlence
web site: Bu linki görme yetkiniz yok! Linki görebilmek için üye olmanız gerekmektetir. Ücretsiz üye olmak için tıklayınız...

download:
Bu linki görme yetkiniz yok! Linki görebilmek için üye olmanız gerekmektetir. Ücretsiz üye olmak için tıklayınız...]]>
Program ismi: Kelebek Script
version: v.media
boyut: 3.98 Kb
üretici firma: Klavye Bilgisayar
işletim sistemi: windows tümü
Kategori: chat,sohbet,eğlence
web site: Bu linki görme yetkiniz yok! Linki görebilmek için üye olmanız gerekmektetir. Ücretsiz üye olmak için tıklayınız...

download:
Bu linki görme yetkiniz yok! Linki görebilmek için üye olmanız gerekmektetir. Ücretsiz üye olmak için tıklayınız...]]> <![CDATA[Haber Programı 2.0.5.8]]> http://www.programbul.net/forum/showthread.php?tid=12 Sun, 31 Aug 2008 03:43:57 +0300 KaraKunT http://www.programbul.net/forum/showthread.php?tid=12 Bu linki görme yetkiniz yok! Linki görebilmek için üye olmanız gerekmektetir. Ücretsiz üye olmak için tıklayınız...

HaberProgramı haberleri size bölgelerdeki haber merkezleri aracılığı ile hiç bir yerde yayınlanmadan size ulaştırır.

Bu servis bir aracıdır. HaberProgamına gelen heberler yaptığınız ayarlara dayalı olarak bilgisayarınıza yüklenir.

Haber başlıklarını ve özetlerinizi HaberProgramı ile bilgisayarınızdan izleyebilir ve ilginizi çeken habere başlığını tıklayarak browser aracılığı ile gidebilirsiniz.

Program sizi seçltiğiniz haberin sayfasına yönlendirecektir.

Yeni haber yüklendiğinde sizi uyarır ve ekranın sağ altında yanıp sönerek sizi uyarır.

Elektronik ortamda haberler fazla yer kaplamadığı için modeminizin hızı yavaş olsa bile tüm haberler bilgisayarınızı zorlamadan yüklenir.

Bu esnada çalışan diğer programlarınızı etkilemez ve bilgisayarınıza zarar vermez.

Özellikleri

Online Haberler
Gerçek Zamanlı Doviz Kurları
Gerçek Zamanlı Hava Durumu ve 3 Günlük Hava Tahmini
[COLOR="Red"]İmsakiye ve Namaz vakitleri [/COLOR]
Sayısal Loto Çekiliş Sonuçları
Şans Topu Çekiliş Sonuçları
On Numara Çekiliş Sonuçları
Süper Lig Puan Tablosu
Haftalık Süper Lig Fikstürü
Özel Kullanıcı Haber Arşivi Ayrıca Haberprogramın yazar grubunda bulunan bağımsız veya bir medya kuruluşunda hizmet veren yazarların bağımsız yazılarını güncel olarak izleyebilirsiniz.

Ve hatta siz kendi duyurularınızı HaberProgramı aracılığı ile milyonlara ulaştırabilirsiniz. HABERPROGRAMININ BİLGİSAYARINIZA YÜKLENMESİ HABERPROGRAMI bilgisayarınıza yüklenmesi, size özel ayarların yapılması ve kullanımı çok kolaydır. Hakkında haber almak istediğiniz konuları seçebilir, dilerseniz daha sonra bu seçimleri değiştirebilirsiniz. HABERPROGRAMIIN kullanım şartları, bir Kullanıcı Lisans Anlaşması içerisinde belirtilmiştir. Kullanıcı lisansı programı yüklerken ekrana gelecektir. Okumak için tıklayın.

HABERPROGRAMININ ÖZELLİKLERİ HABERLER
Haberler sekmesinde Haberprogrami.com web sitemizdeki haberleri gerçek zamanlı olarak takip edebilirsiniz.

[Resim: haberler.jpg]

HAVA RAPORU
Hava Durumu sekmesini tıklayarak bütün illerin hava durum bilgilerini veya istemiş olduğunuz ilin 3 günlük ayrıntılı hava raporunu eşzamanlı alabilirsiniz.

[Resim: hava.jpg]

SÜPER LİG
Süper Lig sekmesini tıklayarak "Süper Lig Puan Tablosunu" veya "Haftalık Süper Lig Fikstürünü" izleyebilirsiniz.

[Resim: spor.jpg]

DOVİZ
Döviz sekmesini tıklayarak merkez bankası ve serbest piyasa döviz kurlarını eşdeğerli olarak izleyebilirsiniz.

[Resim: doviz.jpg]

İMSAKİYE (Namaz Vakitleri)
İmsakiye sekmesini tıklayarak il il namaz vakitlerini görebilir, zamanı gelince uyarı veya ezan dinlyebilirsiniz.

[Resim: imsakiye.jpg]

ŞANS OYUNLARIŞans oyunları sekmesini tıklayarak Milli Piyango İdaresi Genel Müdürlüğünün hizmeti olanı "Sayısal Loto Çekiliş Sonuçlarını", "Şans Topu Çekiliş Sonuçlarını" ve "On Numara Çekiliş Sonuçlarını" eşdeğerli olarak alabilirsiniz.

[Resim: sans.jpg]

HABER KATEGORİLERİHaber Kategorileri ayarlarından ilginizi çeken bölümleri seçerek sadece istediğiniz konu haberlerini bilgisayarınızda görebilirsiniz.

[Resim: haberkategori.jpg]

YEREL HABER KATEGORİLERİ
HaberProgramı aracılığı ile hiç bir yerde bulamayacağınız haberler ilk elden size ulaşır ve bu sistem tüm Türkiye’yi kapsar. Sizin yapacağınız ayarlara dayalı olarak sadece seçtiğniz ilin haberleri bilgisayarınıza gelecektir bu ayarlar için yerel ghaber kategorileri ayarlarında istediğniz illeri seçmeniz gerekmektedir.

[Resim: yerelkategori.jpg]

İMSAKİYE AYARLARI
Namaz vakitlerine 5dk kala uyarı mesajı alabilir veya zamanı gelince otomatik olarak indirmiş oldığunuz veya seçmiş olduğunuz ezan seslerini dinleyebilirsiniz.

[Resim: imsakiyeayar.jpg]

Bu linki görme yetkiniz yok! Linki görebilmek için üye olmanız gerekmektetir. Ücretsiz üye olmak için tıklayınız...]]> Bu linki görme yetkiniz yok! Linki görebilmek için üye olmanız gerekmektetir. Ücretsiz üye olmak için tıklayınız...

HaberProgramı haberleri size bölgelerdeki haber merkezleri aracılığı ile hiç bir yerde yayınlanmadan size ulaştırır.

Bu servis bir aracıdır. HaberProgamına gelen heberler yaptığınız ayarlara dayalı olarak bilgisayarınıza yüklenir.

Haber başlıklarını ve özetlerinizi HaberProgramı ile bilgisayarınızdan izleyebilir ve ilginizi çeken habere başlığını tıklayarak browser aracılığı ile gidebilirsiniz.

Program sizi seçltiğiniz haberin sayfasına yönlendirecektir.

Yeni haber yüklendiğinde sizi uyarır ve ekranın sağ altında yanıp sönerek sizi uyarır.

Elektronik ortamda haberler fazla yer kaplamadığı için modeminizin hızı yavaş olsa bile tüm haberler bilgisayarınızı zorlamadan yüklenir.

Bu esnada çalışan diğer programlarınızı etkilemez ve bilgisayarınıza zarar vermez.

Özellikleri

Online Haberler
Gerçek Zamanlı Doviz Kurları
Gerçek Zamanlı Hava Durumu ve 3 Günlük Hava Tahmini
[COLOR="Red"]İmsakiye ve Namaz vakitleri [/COLOR]
Sayısal Loto Çekiliş Sonuçları
Şans Topu Çekiliş Sonuçları
On Numara Çekiliş Sonuçları
Süper Lig Puan Tablosu
Haftalık Süper Lig Fikstürü
Özel Kullanıcı Haber Arşivi Ayrıca Haberprogramın yazar grubunda bulunan bağımsız veya bir medya kuruluşunda hizmet veren yazarların bağımsız yazılarını güncel olarak izleyebilirsiniz.

HAVA RAPORU
Hava Durumu sekmesini tıklayarak bütün illerin hava durum bilgilerini veya istemiş olduğunuz ilin 3 günlük ayrıntılı hava raporunu eşzamanlı alabilirsiniz.

[Resim: hava.jpg]

SÜPER LİG
Süper Lig sekmesini tıklayarak "Süper Lig Puan Tablosunu" veya "Haftalık Süper Lig Fikstürünü" izleyebilirsiniz.

[Resim: spor.jpg]

DOVİZ
Döviz sekmesini tıklayarak merkez bankası ve serbest piyasa döviz kurlarını eşdeğerli olarak izleyebilirsiniz.

[Resim: doviz.jpg]

İMSAKİYE (Namaz Vakitleri)
İmsakiye sekmesini tıklayarak il il namaz vakitlerini görebilir, zamanı gelince uyarı veya ezan dinlyebilirsiniz.

[Resim: imsakiye.jpg]

HABER KATEGORİLERİHaber Kategorileri ayarlarından ilginizi çeken bölümleri seçerek sadece istediğiniz konu haberlerini bilgisayarınızda görebilirsiniz.

[Resim: haberkategori.jpg]

Bu linki görme yetkiniz yok! Linki görebilmek için üye olmanız gerekmektetir. Ücretsiz üye olmak için tıklayınız...]]> <![CDATA[Stringteki veri tarih formatında mı?]]> http://www.programbul.net/forum/showthread.php?tid=11 Wed, 27 Aug 2008 17:09:15 +0300 KaraKunT http://www.programbul.net/forum/showthread.php?tid=11

Delphi Kod:

function IsDateTime(const Source:AnsiString):Boolean;
asm
Push ESI
Mov EAX,Source
Or EAX,EAX
Jz @Done
Mov ESI,EAX
Mov ECX,[EAX-4]
Xor EAX,EAX
Jecxz @Done
Cld
@Start:
Lodsb
Cmp AL,32
Jz @OK
Cmp AL,TimeSep
Jz @OK
Cmp AL,DateSep
Jz @OK
Cmp AL,45
Jz @OK
Cmp AL,65
Jz @OK
Cmp AL,77
Jz @OK
Cmp AL,80
Jz @OK
Cmp AL,48
Jb @NG
Cmp AL,57
Ja @NG
@OK:
Dec ECX
Jnz @Start
Mov EAX,True
Jmp @Done
@NG:
Xor EAX,EAX
@Done:
Pop ESI
Mov Result,AL
end;

KULLANIMI:

Delphi Kod:

var
   S: String;
begin
   S := '09.01.1979 08:30:12';
   if S = IsDateTime then
      ShowMessage(S + ' geçerli tarih formatı');
   else
      ShowMessage(S + ' geçersiz tarih formatı');   
end;

]]>

Delphi Kod:

function IsDateTime(const Source:AnsiString):Boolean;
asm
Push ESI
Mov EAX,Source
Or EAX,EAX
Jz @Done
Mov ESI,EAX
Mov ECX,[EAX-4]
Xor EAX,EAX
Jecxz @Done
Cld
@Start:
Lodsb
Cmp AL,32
Jz @OK
Cmp AL,TimeSep
Jz @OK
Cmp AL,DateSep
Jz @OK
Cmp AL,45
Jz @OK
Cmp AL,65
Jz @OK
Cmp AL,77
Jz @OK
Cmp AL,80
Jz @OK
Cmp AL,48
Jb @NG
Cmp AL,57
Ja @NG
@OK:
Dec ECX
Jnz @Start
Mov EAX,True
Jmp @Done
@NG:
Xor EAX,EAX
@Done:
Pop ESI
Mov Result,AL
end;

KULLANIMI:

Delphi Kod:

var
   S: String;
begin
   S := '09.01.1979 08:30:12';
   if S = IsDateTime then
      ShowMessage(S + ' geçerli tarih formatı');
   else
      ShowMessage(S + ' geçersiz tarih formatı');   
end;

]]> <![CDATA[Ses ayarını kısmak ve açmak]]> http://www.programbul.net/forum/showthread.php?tid=10 Wed, 27 Aug 2008 16:20:41 +0300 KaraKunT http://www.programbul.net/forum/showthread.php?tid=10 Örnek 1

Delphi Kod:

uses
  MMSystem;
procedure SetVolume(const volL, volR: Word);
var
  hWO: HWAVEOUT;
  waveF: TWAVEFORMATEX;
  vol: DWORD;
begin
  // init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
  // open WaveMapper = std output of playsound
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
  vol := volL + volR shl 16;
  // set volume
  waveOutSetVolume(hWO, vol);
  waveOutClose(hWO);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetVolume(14000, 14000);
end;

Örnek 2

Delphi Kod:

uses
  MMSystem;
function GetVolumeControl(aMixer: HMixer; componentType, ctrlType: Longint;
  var mxc: TMixerControl): Boolean;
var
  mxl: TMixerLine;
  mxlc: TMixerLineControls;
  rc: Longint;
begin
  Result := False;
  FillChar(mxl, SizeOf(TMixerLine), 0);
  mxl.cbStruct := SizeOf(TMixerLine);
  mxl.dwComponentType := componentType;
  {Obtain a line corresponding to the component type}
  rc := mixerGetLineInfo(aMixer, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);
  if rc = MMSYSERR_NOERROR then
  begin
    with mxlc do
    begin
      cbStruct := SizeOf(TMixerLineControls);
      dwLineID := mxl.dwLineID;
      dwControlType := ctrlType;
      cControls := 1;
      cbmxctrl := SizeOf(TMixerLine);
      pamxctrl := @mxc;
      pamxctrl^.cbStruct := SizeOf(TMixerControl);
    end;
    mixerGetLineControls(aMixer, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);
    rc := mixerGetLineControls(aMixer, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);
    Result := rc = MMSYSERR_NOERROR;
  end;
end;
function SetVolumeControl(aMixer: HMixer; mxc: TMixerControl; volume: Longint): Boolean;
var
  mxcd: TMixerControlDetails;
  vol: TMixerControlDetails_Unsigned;
  rc: MMRESULT;
begin
  FillChar(mxcd, SizeOf(mxcd), 0);
  with mxcd do
  begin
    cbStruct := SizeOf(TMixerControlDetails);
    dwControlID := mxc.dwControlID;
    cbDetails := SizeOf(TMixerControlDetails_Unsigned);
    paDetails := @vol;
    cMultipleItems := 0;
    cChannels := 1;
  end;
  vol.dwValue := volume;
  rc := mixerSetControlDetails(aMixer, @mxcd, MIXER_SETCONTROLDETAILSF_VALUE);
  Result := rc = MMSYSERR_NOERROR;
end;
function InitMixer: HMixer;
var
  Err: MMRESULT;
begin
  Err := mixerOpen(@Result, 0, 0, 0, 0);
  if Err <> MMSYSERR_NOERROR then
    Result := 0;
end;
// Example:
procedure SetMasterVolumeToZero;
var
  MyMixerHandle: HMixer;
  MyVolCtrl: TMixerControl;
begin
  MyMixerHandle := InitMixer;
  if MyMixerHandle <> 0 then
    try
      FillChar(MyVolCtrl, SizeOf(MyVolCtrl), 0);
      if GetVolumeControl(MyMixerHandle, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS,
        MIXERCONTROL_CONTROLTYPE_VOLUME, MyVolCtrl) then
      begin
        {The last parameter (0) here is the volume level}
        if SetVolumeControl(MyMixerHandle, MyVolCtrl, 0) then
          ShowMessage('Volume should now be set to zero');
      end;
    finally
      mixerClose(MyMixerHandle);
    end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
 SetMasterVolumeToZero
end;

Örnek 3

Delphi Kod:

function GetVolumeControl(aMixer: HMixer; componentType, ctrlType: Longint;
  var mxc: TMixerControl): Boolean;
var
  mxl: TMixerLine;
  mxlc: TMixerLineControls;
  rc: Longint;
begin
  Result := False;
  FillChar(mxl, SizeOf(TMixerLine), 0);
  mxl.cbStruct := SizeOf(TMixerLine);
  mxl.dwComponentType := componentType;
  {Obtain a line corresponding to the component type}
  rc := mixerGetLineInfo(aMixer, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);
  if rc = MMSYSERR_NOERROR then
  begin
    with mxlc do
    begin
      cbStruct := SizeOf(TMixerLineControls);
      dwLineID := mxl.dwLineID;
      dwControlType := ctrlType;
      cControls := 1;
      cbmxctrl := SizeOf(TMixerLine);
      pamxctrl := @mxc;
      pamxctrl^.cbStruct := SizeOf(TMixerControl);
    end;
    mixerGetLineControls(aMixer, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);
    rc := mixerGetLineControls(aMixer, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);
    Result := rc = MMSYSERR_NOERROR;
  end;
end;
function SetVolumeControl(aMixer: HMixer; mxc: TMixerControl; volume: Longint): Boolean;
var
  mxcd: TMixerControlDetails;
  vol: TMixerControlDetails_Unsigned;
  rc: MMRESULT;
begin
  FillChar(mxcd, SizeOf(mxcd), 0);
  with mxcd do
  begin
    cbStruct := SizeOf(TMixerControlDetails);
    dwControlID := mxc.dwControlID;
    cbDetails := SizeOf(TMixerControlDetails_Unsigned);
    paDetails := @vol;
    cMultipleItems := 0;
    cChannels := 1;
  end;
  vol.dwValue := volume;
  rc := mixerSetControlDetails(aMixer, @mxcd, MIXER_SETCONTROLDETAILSF_VALUE);
  Result := rc = MMSYSERR_NOERROR;
end;
function InitMixer: HMixer;
var
  Err: MMRESULT;
begin
  Err := mixerOpen(@Result, 0, 0, 0, 0);
  if Err <> MMSYSERR_NOERROR then
    Result := 0;
end;
procedure SetMasterVolume(vol:integer);
var
  MyMixerHandle: HMixer;
  MyVolCtrl: TMixerControl;
begin
{ Windows benutzt einen Wertebereich von 0-65536  }
  vol:=vol*65536 div 100;
  MyMixerHandle := InitMixer;
  if MyMixerHandle <> 0 then
    try
      FillChar(MyVolCtrl, SizeOf(MyVolCtrl), 0);
      if GetVolumeControl(MyMixerHandle,  MIXERLINE_COMPONENTTYPE_DST_SPEAKERS,
        MIXERCONTROL_CONTROLTYPE_VOLUME, MyVolCtrl) then
      begin
         { Der letzte parameter ist die Lautstärke }
          SetVolumeControl(MyMixerHandle, MyVolCtrl, vol )
      end;
    finally
      mixerClose(MyMixerHandle);
    end;
end;
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
  SetMasterVolume(TTrackBar(Sender).Position);
end;

Örnek 4

Delphi Kod:

uses
  MMSystem;
function GetMasterMute(
  Mixer: hMixerObj;
  var Control: TMixerControl): MMResult;
var
  Line: TMixerLine;
  Controls: TMixerLineControls;
begin
  ZeroMemory(@Line, SizeOf(Line));
  Line.cbStruct := SizeOf(Line);
  Line.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
  Result := mixerGetLineInfo(Mixer, @Line,
    MIXER_GETLINEINFOF_COMPONENTTYPE);
  if Result = MMSYSERR_NOERROR then
  begin
    ZeroMemory(@Controls, SizeOf(Controls));
    Controls.cbStruct := SizeOf(Controls);
    Controls.dwLineID := Line.dwLineID;
    Controls.cControls := 1;