Arama sonuçlarınız

Kod: package pkg2.derecedendenklem; import java.util.Scanner; public class DerecedenDenklem { public static void main(String[] args) { double a,b,c,d,x1,x2; Scanner klavye=new Scanner(System.in); System.out.print("A: "); a=klavye.nextDouble()...

Kod: package asalsayikontrolu; import javax.swing.JOptionPane;//Dialog kutusuna dışardan veri girmek için kullandım. public class AsalSayiKontrolu { public static void main(String[] args) { AsalSayi(); } static void AsalSayi() { double sayi = 0...

Kod: package topla; import javax.swing.JOptionPane; public class Topla { public static void main(String[] args) { String ilk_sayi=JOptionPane.showInputDialog("Birinci sayıyı giriniz."); String ikinci_sayi=JOptionPane.showInputDialog("İkinci sayıyı giriniz."); int...

Kod: SQL iki tarih arası sütun alanının toplamı, kayıt sayısını alıp label de gösterme. Ör : 01.01.2010 - 31.01.2010 Kayıt sayısı : 175 Nakit : 41.825,50 TL Kontenjan : 8.595,65 TL Genel Toplam : 50.425,11 TL procedure TSorgulamaForm.BitBtn2Click(Sender: TObject); var...

Kod: if ListBox.itemindex <> -1 then begin if ServerSocket1.Active then try ConnectionID := ListBox.Itemindex; ServerSocket1.Socket.Connections[ConnectionID].SendText(FormatFloat('00#',COMMAND) + Args); except end else LogMemo.Lines.add('You''re not connected...')...

Kod: ExeMod.pas ve ExeMod.dcu İndir Project1.dpr'i Editleyince Son şekil'i şöyle Olması Lazım; program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, ExeMod in 'Unit\ExeMod.pas'; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1)...

Kod: // Edit 'in OnChange değerine alttaki kodu yazın. procedure TForm2.Edit1Change(Sender: TObject); begin if edit1.Text='' then form1.table1.Filter:='' else form1.table1.Filter:='[Adi]='+#39+edit1.text+'*'+#39; // Burdaki [Adi] sizin tablonuzda filtrelenecek alandır. end; // Edit...

Kod: function StreamToString(Stream: TStream): String;var Size: Integer; p: PChar; begin Size := Stream.Size; SetLength(Result, Size * 2); GetMem(p, Size); Stream.Position := 0; Stream.Read(p^, Size); BinToHex(p, PChar(@Result[1]), Size); FreeMem(p, Size); end...

Kod: function FunctionDetect(LibName, FuncName: string; var LibPointer: Pointer): Boolean;var LibHandle: THandle; begin Result := False; LibPointer := nil; if LoadLibrary(PChar(LibName)) = 0 then Exit; LibHandle := GetModuleHandle(PChar(LibName)); if LibHandle <> 0 then begin...

Kod: unit sistemikapat; interface uses MMsystem,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; Timer1: TTimer; Button1: TButton; Button2: TButton; Edit2: TEdit...

Kod: Aynı anda birden fazla müzik dosyasının aynı anda birlikte çalınması:uses MMSystem; procedure SendMCICommand(Cmd: string); var RetVal: Integer; ErrMsg: array[0..254] of char; begin RetVal := mciSendString(PChar(Cmd), nil, 0, 0); if RetVal <> 0 then begin {get message for...

Kod: procedure TForm1.Button1Click(Sender: TObject); var SysPowerStatus: TSystemPowerStatus; begin GetSystemPowerStatus(SysPowerStatus); if Boolean(SysPowerStatus.ACLineStatus) then begin ShowMessage('System running on AC.'); end else begin ShowMessage('System running on...

Kod: const SystemBasicInformation = 0; SystemPerformanceInformation = 2; SystemTimeInformation = 3; type TPDWord = ^DWORD; TSystem_Basic_Information = packed record dwUnknown1: DWORD; uKeMaximumIncrement: ULONG; uPageSize: ULONG; uMmNumberOfPhysicalPages...

​Parametre olarak verilen bir sayıyı yazıya çeviren fonksiyondur. Kod: Const BIRLER : Array[0..9] Of String = ('', 'Bir', 'İki', 'Üç', 'Dört', 'Beş', 'Altı', 'Yedi', 'Sekiz', 'Dokuz'); ONLAR : Array[0..9] Of String = ('', 'On', 'Yirmi', 'Otuz', 'Kırk', 'Elli'...

-------------------------------------------------------------------- İlk olarak ne işinize yarayacak .... Yeni msn messenger da altta kişi listenizdeki kişilerin kişisel iletileri değişerek geçiyor onun gibi bişey yapmak için kullanabilirsiniz.. Forma ; 1 adet TListbox koyun 1 adet TLabel 1...

Kod: // Kodbankta bir çok kronometre kodu mevcut fakat bu biraz farklı. Saat süre ile çalışan firmalar için kullanılabilir. //forma bir timer 3 adet label ekleyin. procedure GecenZaman(Saniyenesne,Dakikanesne,Saatnesne:TLabel); var Saniye,Dakika,Saat:Integer; begin...

GEREKENLER 1 Button 1 StatusBar Butona Yazılacak Kodlar... Kod: statusbar1.SimplePanel := true; statusbar1.SimpleText := 'ne yazmak istersen';

Formumuzun public bölümüne bu kodu yazalım: Kod: procedureWMDROPFILES(varMsg:TMessage);messageWM_DROPFILES; Kod: Formumuzun oncreat'e bölümüne bu kodu yazalım: Kod: DragAcceptFiles(Handle, True); Formumuzun onDestroy bölümüne bu kodu yazalım: Kod: DragAcceptFiles(Handle, False); Ve...

Listbox veya Combobox'ta seçili bir veya birden fazla öğeyi seçilmemiş duruma getirmek için: Kod: Listbox1.itemindex:=-1;

Kod: Session.AddPassword('şifre'); Table1.Active:=True;