Arama sonuçlarınız

arkadaşlar elimde bulunan java kodlarını paylaşmak istedim. Basit Bir Http İstemcisi Örneği Kod: import java.net.*; import java.io.*; public class SocketCat { public static void main(String[] args) { for (int i = 0; i < args.length; i++) { int port = 80; String file = "/"; try { URL...

Merhabalar. Bu yazımda JAVA da TCP ile yazmış olduğum bir socket programlama uygulamasını yayınlıyorum. Uygulama bir TCP SERVER ve TCP CLİENT den oluşan mail server ve mail uygulaması. TCP SERVER kullanıcıların birbirlerine gönderdiği maillerin tutulduğu kısım.TCP CLİENT ise kullanıcıların...

Aritmetik Operatörleri Hemen her programlama dilinde olduğu gibi Java dilinde de aritmetik işlemler yaparken aşağıdaki operatörleri kullanırız: Operatör Açıklama + Toplama - Çıkarma * Çarpma / Bölme % Modulo ++ 1 artırma -- 1 eksiltme Bu operatörlerin kullanılışları aşağıdaki örneklerle...

Bu çalışmaya Kocaeli Üniversitesi Elektronik ve Haberleşme Mühendisliği bölümü İşaret ve Görüntü İşleme Laboratuvarında yaz stajımda gerçekleştirdim. İlk bölümde imge bölütlemenin ne olduğunu ve nasıl yapıldığı anlatacağım. Ardından bir imge bölütleme algoritması olarak da kullanılan k-ortalama...

Standart C++'ı Yeni Bir Dil Olarak Öğrenmek Bjarne Stroustrup AT&T Labs ÖZET C++'tan [C++,1998] olabildiğince yararlanabilmek için C++ programlarını yazış şeklimizi değiştirmeliyiz. Bunun için bir yol, C++'ın nasıl öğrenilebileceğini (ve öğretilebileceğini) gözden geçirmektir. Hangi tasarım...

Kod: #include<stdio.h> #include<conio.h> void main() { int sayac,zaman,saat,saat1,dakika,dakika1,saniye,saniye1; clrscr(); /*saatin başlangıç değeri giriliyor*/ printf("--------BAŞLANGIÇ---------- "); printf("Saat="); scanf("%d",&saat); printf("Dakika="); scanf("%d",&dakika)...

C++ programlama dili, C'den aldığı çok hoş sözdimi (elegant syntax) ve alt seviyelerde ileri derecede esnek programlar yazmaya uygun olması ile gerçekten birçok bilgisayar programcısının favorisi olmuştur. Bütün bunların yanında büyük çapta yazılım geliştirirken gerçek dünyayı iyi bir şekilde...

procedure TForm1.Button1Click(Sender: TObject); var sakat:integer; begin sakat:=strtoint(edit1.Text ); if sakat<0 then label2.Caption :='sonuç= negatif' else label2.Caption :='sonuç= pozitif' end; end.

table1.First; while not table1.Eof do begin if (Table1Numarasi.Text=edit1.Text)then begin edit2.Text:=Table1Adi.Text; edit3.Text:=Table1Soyadi.Text; edit7.SetFocus; end; table1.Next; end;

interface { Color Constants } uses SysUtils, Graphics; { NOTE: All Colors have the 'ec' prefix which means Encarta Color } const { Standard Encarta & FlatStyle Color Constants } ecDarkBlue = TColor($00996633); ecBlue = TColor($00CF9030); ecLightBlue = TColor($00CFB78F); ecDarkRed =...

interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Buttons, StdCtrls, Menus; type TForm1 = class(TForm) SpeedButton1: TSpeedButton; Panel1: TPanel; Label1: TLabel; Edit1: TEdit; Button1: TButton; Shape1: TShape; Bahis: TEdit; Button2...

PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0

procedure TForm1.Button1Click(Sender: TObject); var i,sayi,y:longint; a:boolean; begin FORM1.Caption:='ASAL SAYILARIN BULUNMASI'; for sayi:=1 to 100 do begin i:=2; y:=trunc(sqrt(sayi)); a:=true; while (i<=y) and (a=true) do begin if sayi/i=sayi div i then a:=false else i:=i+1; end; if a<>false...

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin randomize; button1.Top :=random(form1.Height); button1.Left:=random(form1.Width); end;

uses Registry; procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; b : bool; begin CopyFile('C:\DOWNLOAD\FP000100.TTF', 'C:\WINDOWS\FONTS\FP000100.TTF', b); reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.LazyWrite := false...

procedure TForm2.FormCreate(Sender: TObject); VAR ara:boolean; begin edit1.Text:=datetostr(date); //edit1’i visible=true yap ara:=table2.Locate('ÖLÇÜMTARIHI',edit1.Text,[locaseinsensitive]); if ara=true then begin PlaySound(pChar('SYSTEMSTART'),0,SND_SYNC); showmessage('BUGÜN ÖLÇÜM VAR'); end...

procedure TForm1.Edit1Change(Sender: TObject); begin if edit1.Text='' then begin listbox1.Items.Clear; end; listbox1.Items.Clear; uzun:=length(edit1.Text); table1.First; while not table1.Eof do begin ad:=copy(edit1.Text,1,uzun); ad1:=copy(Table1Ad.Text,1,uzun); if(ad=ad1)then begin...

function IntToBin(Value: LongInt; Digits: Integer): String; var i: Integer; begin Result:=''; for i:=Digits downto 0 do if Value and (1 shl i)<>0 then Result:=Result + '1' else Result:=Result + '0'; end;

unit IA_RGNEd; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ToolWin, ComCtrls, ExtCtrls, StdCtrls, IAeverButton, ExtDlgs,Math,dsgnintf, RgnEdWindow; type TIARGNEditor = class(TPropertyEditor) public Dialog : TRgnEditorForm; Rgn : HRGN; Closedison ...

unit WinampApi; interface uses Windows,Messages,Classes,SysUtils; type TWinampApi = class private WinampHnd : THandle; function ConvertTime(n: integer;m : integer): string; function ConvertTimeTool(n: integer): string; function split(seperator: Char; text: String; var list: TStringList)...