Blog Of Sem

excel live sheet 3 . gif olarak kaydeder

excel live sheet 3 . gif olarak kaydeder
Not dosya c :\ range . gif her 10 saniyede kaydedecek .
ilk önce excelde
developer -> insert -> Button
buttonun ismini kaydet ve recorda bas ve ok bas ve a1e tıkla stop recording bas ve f11e bas aşağısı gibi yap. ( developer mode yoksa excel toolbara sağ tıklas-> customise the ribbona bas developeri seç ve sağa koy...)

Sub kaydet ()
Dim rng As Excel . Range
Set rng = Range ("A1:D38")

If ExportRangeToPicture(rng, " C :\ range . gif ") Then

Else

End If
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:0: 10 "), " kaydet " ' 10 saniyede bir kaydeder
End Sub

ve daha sonra microsof excel objectse tıkla ve insert module bas ve içine aşağıdakileri yapıştır

Function ExportRangeToPicture(rng As Excel . Range , img As String) As Boolean
' save a range from Excel as a picture
' rng = Range to export
' img = filename & path

' basic error checking
' check for valid filetypes
' from http://peltiertech.com/WordPress/export-chart-as-image-file/
Const FILE_EXT As String = " gif ,png,jpg,jpe,jpeg"
If InStr(FILE_EXT, LCase$(Right$(img, 3))) = 0 Then
GoTo ExitProc
End If

' check for valid path
Dim path As String
path = Left$(img, InStrRev(img, "\"))
If Dir(path, vbDirectory) = "" Then GoTo ExitProc

' check for valid range
Dim rRng As Excel . Range
On Error Resume Next
Set rRng = rng.CurrentRegion
On Error GoTo 0
If rRng Is Nothing Then GoTo ExitProc

' check for protected worksheet
If ActiveSheet.ProtectContents Then GoTo ExitProc

' copy range to picture, put into chart, export it
Application.ScreenUpdating = False
rRng.CopyPicture xlScreen, xlPicture

Dim cht As Excel .ChartObject
Set cht = ActiveSheet.ChartObjects.Add(0, 0, rng.Width + 10 , rng.Height + 10 )

With cht
.Chart.Paste
.Chart.Export img
.Delete
End With

' if we got this far, assume success
ExportRangeToPicture = True

ExitProc:
Application.ScreenUpdating = True
Set cht = Nothing
Set rRng = Nothing
End Function

Sub SaveMyBook()
'Turn off Excel message alerts
Application.DisplayAlerts = False

'Save this workbook.
ThisWorkbook.Save

'Turn back on alerts
Application.DisplayAlerts = True

'call this procedure again in another 15 mins
Application.OnTime Now + TimeValue("00:00: 10 "), "SaveMyBook" ' 10 saniyede bir kaydeder
End Sub

--------------------------------------------
<html>

<meta http-equiv="refresh" content="20" >
<head>
<style type="text/css">
body
{
margin: 0;
overflow: hidden;
}

#iframe1
{
height: 100%;
left: 0px;
position: absolute;
top: 0px;
width: 100%;
}
.image{
float:left;
margin-top:250px;
padding:12px;
width:200px;
}
</style>
</head>

<body>
<iframe id="iframe1" src="tv2. gif " frameborder="0">

</iframe>

<br><br><br><br><br><br><br><br><br><br><br>
<p align="center">
<img src="EARTHSPINING. gif " align="middle" height=50%" width=30%>
</p>

</body>

-------------------------------------------

Not enson birtane daha button koy arasına end koy tüm kodları durdurur...

Excel Live sheet gif

once makro ozellikli excel dosyanı oluştur
sayfaya bir button yarat kaydet koy ismini

module 1
-----------------------
Sub kaydet()
Dim rng As Excel.Range
Set rng = Range("A1:J19")

If ExportRangeToPicture(rng, "C:\MSDS500\1\RAPORGUNLUKAYLIKTV\tv2.gif") Then

Else

End If

If ExportRangeToPicture(rng, "\\DIGIKEY-PC\htmltvwebvesms\tv2.gif") Then

Else

End If

ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:30"), "kaydet" '10 saniyede bir kaydeder
End Sub
Sub durdur()
End
End Sub

-----------------------

module2
Function ExportRangeToPicture(rng As Excel.Range, img As String) As Boolean
' save a range from Excel as a picture
' rng = Range to export
' img = filename & path

' basic error checking
' check for valid filetypes
' from http://peltiertech.com/WordPress/export-chart-as-image-file/
Const FILE_EXT As String = "gif,png,jpg,jpe,jpeg"
If InStr(FILE_EXT, LCase$(Right$(img, 3))) = 0 Then
GoTo ExitProc
End If

' check for valid path
Dim path As String
path = Left$(img, InStrRev(img, "\"))
If Dir(path, vbDirectory) = "" Then GoTo ExitProc

' check for valid range
Dim rRng As Excel.Range
On Error Resume Next
Set rRng = rng.CurrentRegion
On Error GoTo 0
If rRng Is Nothing Then GoTo ExitProc

' check for protected worksheet
If ActiveSheet.ProtectContents Then GoTo ExitProc

' copy range to picture, put into chart, export it
Application.ScreenUpdating = False
On Error Resume Next
rRng.CopyPicture xlScreen, xlPicture
On Error GoTo 0

Dim cht As Excel.ChartObject
Set cht = ActiveSheet.ChartObjects.Add(0, 0, rng.Width + 10, rng.Height + 10)

With cht
.Chart.Paste
.Chart.Export img
.Delete
End With

' if we got this far, assume success
ExportRangeToPicture = True

ExitProc:
Application.ScreenUpdating = True
Set cht = Nothing
Set rRng = Nothing
End Function

Sub SaveMyBook()
'Turn off Excel message alerts
Application.DisplayAlerts = False

'Save this workbook.
ThisWorkbook.Save

'Turn back on alerts
Application.DisplayAlerts = True

'call this procedure again in another 15 mins
Application.OnTime Now + TimeValue("00:00:30"), "SaveMyBook" '10 saniyede bir kaydeder
End Sub

-------------------------------

html yarat
<html>

<meta http-equiv="refresh" content="30" >
<head>
<style type="text/css">
body
{
margin: 0;
overflow: hidden;
}

#iframe1
{
height: 100%;
left: 0px;
position: absolute;
top: 0px;
width: 100%;
}
.image{
float:left;
margin-top:250px;
padding:12px;
width:200px;
}
</style>
</head>

<body>
<iframe id="iframe1" src="tv2.gif" frameborder="0">

</iframe>

</body>

3g dongle uzerinden sms gonderme programi

3g dongle uzerinden sms gonderme programi indir

android ios spy

download from http://www.zealspy.com/
register to get mails about what u want
set administrator
hide with password 4 stepped
when u exit it hides and if u wanna open spy app back;
goto setting->general->security->device administator and uncheck com.adnroid.service

location detail.csv
LatLong,(35.1234567)(33.2222222)LatLong,(35.1234567)(33.2222222)

http://www.latlong.net/c/?lat=35.1234567&long=33.2222222

yada google map aramaya
LatLong,(35.1234567)(33.2222222)
yerine
35.1234567,33.2222222

yaz

DELPHI DLL FORM

DELPHI TIME

procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime : TDateTime;
Timestr,Timestr2 : string;
Datestr : string;

begin
DateTime := Time; // store the current date and time
Timestr2 := TimeToStr(DateTime); // convert the time into a string
Caption := Timestr2; // display the time on the form's caption
{Note This could have been done with the following line of code:
Caption := TimeToStr(Time); }

Timestr := formatDateTime('hh:mm', StrToDateTime(Timestr2));//format the time }
Label1.caption := DateToStr(Date);
Label2.caption := Timestr;
Form1.Caption := Caption; //puts time on Form Bar
// Label2.caption := TimeToStr(Time); //alternative method

end;

excel dbf "the query did not run or the database table could not be opened"

excel dbf açmaya çalışırken bazı dosyalarda hata verirse "the query did not run or the database table could not be opened"

excelde önce
data- from other sources - from data connection - micorosft jet4- klasörü yaz -all git extended properties dBASE IV yaz
o dbfyi seç hatayı verdikten sonra tekrar
data - from other sources-from data connection-odbc dsn- dbf file-next-connect specicif tikini kaldır-next bas-browsea bas ve C:\Users\usernama\Documents\My Data Sources deki o dbfyi seç.

Chrome console check all checkbox in page

Send GMail from Delphi Easily

1-first login to : https://www.google.com/settings/security/lesssecureapps and turn on access for secure apps

2-Create on form : button, IdSSLIOHandlerSocketOpenSSL1, IdMessage1, IdSMTP1

3-Code
uses
idglobal;

procedure SendEmail(const Recipients: string; const Subject: string; const Body: string);
var
SMTP: TIdSMTP;
Email: TIdMessage;
SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
eFrom: string;
begin
eFrom := 'from@gmail.com';
SMTP := TIdSMTP.Create(nil);
Email := TIdMessage.Create(nil);
SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

try
SSLHandler.MaxLineAction := maException;
SSLHandler.SSLOptions.Method := sslvTLSv1;
SSLHandler.SSLOptions.Mode := sslmUnassigned;
SSLHandler.SSLOptions.VerifyMode := [];
SSLHandler.SSLOptions.VerifyDepth := 0;
SSLHandler.Host := 'smtp.gmail.com';
SSLHandler.Port := 587;

SMTP.IOHandler := SSLHandler;
SMTP.Host := 'smtp.gmail.com';
SMTP.Port := 587;
SMTP.Username := eFrom;
SMTP.Password := 'xxxxxx';
SMTP.UseTLS := utUseExplicitTLS;

Email.From.Address := eFrom;
Email.Recipients.EmailAddresses := Recipients;
Email.Subject := Subject;
Email.Body.Text := Body;

SMTP.Connect; //always raise 'Host not found'
SMTP.Send(Email);
SMTP.Disconnect;

finally
SMTP.Free;
Email.Free;
SSLHandler.Free;
end;
end;
;------------------------------------------------------------------------
procedure TestSendMail(Sender: TObject);
begin
SendEmail('to@yahoo.com', 'Subject', 'Body');
end;

Flash AS3 - Dışarıdan Swf Çağırma

actionscript dışarıdan swf çağırma (not: dosyalar aynı klasörde olursa yolun yazılmasına gerek yok)
yol= c:\deneme\dosyalar\
dosya=hareket.swf

var myLoader:Loader = new Loader();
addChild(myLoader);
var url:URLRequest = new URLRequest("c:\deneme\dosyalar\hareket.swf");
dugme_mc.addEventListener(MouseEvent.MOUSE_DOWN, tikla);
function tikla(e:MouseEvent) //sürükle fonksiyonumuz
{
myLoader.load(url);
}

--------------------------------------------
1den fazla dosya çağırma

var myLoader:Loader = new Loader();
addChild(myLoader);
var url:URLRequest = new URLRequest("üçlü.swf");

var myLoader2:Loader = new Loader();
addChild(myLoader2);
var url2:URLRequest = new URLRequest("burun.swf");

dugme_mc.addEventListener(MouseEvent.MOUSE_DOWN, tikla);
function tikla(e:MouseEvent) //sürükle fonksiyonumuz
{
myLoader.load(url);
}

dugme2_mc.addEventListener(MouseEvent.MOUSE_DOWN, tikla2);
function tikla2(e:MouseEvent) //sürükle fonksiyonumuz
{
myLoader2.load(url2);
}

Delphi Get SQL SERVER INSTANCE NAMES

1er tane listbox, adodataset ve buton

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient, ActiveX,DB, ComObj, AdoInt,oleDB,
ADODB, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, cxControls,
cxContainer, cxEdit, cxTextEdit, cxMemo;

type
TForm1 = class(TForm)
ADODataSet1: TADODataSet;
cxButton1: TcxButton;
cboServers: TListBox;
procedure cxButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure ListAvailableSQLServers(Names : TStrings);
var
RSCon: ADORecordsetConstruction;
Rowset: IRowset;
SourcesRowset: ISourcesRowset;
SourcesRecordset: _Recordset;
SourcesName, SourcesType: TField;

function PtCreateADOObject(const ClassID: TGUID): IUnknown;
var
Status: HResult;
FPUControlWord: Word;
begin
asm
FNSTCW FPUControlWord
end;
Status := CoCreateInstance(
CLASS_Recordset,
nil,
CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,
IUnknown,
Result);
asm
FNCLEX
FLDCW FPUControlWord
end;
OleCheck(Status);
end;
begin
SourcesRecordset := PtCreateADOObject(CLASS_Recordset) as _Recordset;
RSCon := SourcesRecordset as ADORecordsetConstruction;
SourcesRowset := CreateComObject(ProgIDToClassID('SQLOLEDB Enumerator')) as ISourcesRowset;
OleCheck(SourcesRowset.GetSourcesRowset(nil, IRowset, 0, nil, IUnknown(Rowset)));
RSCon.Rowset := RowSet;
with TADODataSet.Create(nil) do
try
Recordset := SourcesRecordset;
SourcesName := FieldByName('SOURCES_NAME'); { do not localize }
SourcesType := FieldByName('SOURCES_TYPE'); { do not localize }
Names.BeginUpdate;
try
while not EOF do
begin
if (SourcesType.AsInteger = DBSOURCETYPE_DATASOURCE) and (SourcesName.AsString <> '') then
Names.Add(SourcesName.AsString);
Next;
end;
finally
Names.EndUpdate;
end;
finally
Free;
end;
End;

procedure TForm1.cxButton1Click(Sender: TObject);
begin
Screen.Cursor := crSQLWait;
cboServers.Items.Clear;
try
ListAvailableSQLServers(cboServers.Items);
finally
Screen.Cursor := crDefault;
end;

if cboServers.Items.Count>0 Then
cboServers.Itemindex:=0;
end;

end.

Dokunmatiğin kalibre edilişi

Eğer dokunmatiğin kalibre edilmesi gerekirse yapılması gerekenler aşağıdadır.

denetim masası->tablet ve pc ayarları->ayarla
Çıkan ekranda + yazan yere dokunularak kalibre edilir.

EXCEL 2013 CONNECT DBF FILE and QUERY BY TODAY

EXCELDE DATA->FROM OTHER SOURCES->OTHER ADVANCED->MICROSOFT JET 4 ÇİFT TIKLA-> ALL TABINA GEÇ->DATASOURCEU DBF DOSYASININ BULUNDUGU KLASORU EKLE->EXTENDED PROPERTIES=dBASE IV YAP-> OKE BAS->DBF DOSYASI CIKACAK LISTEDE CIFT TIKLA->FINISHE BAS->PROPERTIESA BAS DEFINITIONA TIKLA->COMMAND TYPE=SQL->SELECT * FROM DOSYAADI.DBF

select * from DATA
WHERE TARIH>=date()

Adobe Flash Actionscript 3 drag drop doğru yanlış nesne

http://www.flashvideodersler.com/actionscript-3-0-dersleri/gelismis-surukle-birak-ve-hittestobject-ornegi-1.html
Onemli: Baslangica Flash Actionscript 3 dosyası yarat secilmeli
3 daire 3 kare yap (daierler sürüklenecek olanlar kareler cevap kutuları)
6 nesneyi tek tek sağ tıkla ve convert to symbol e bas movie clip seçili olması gerekir ve isimlerinide örneğin

daire1
daire2
daire3
kare1
kare2
kare3
yap.

sonra nesnelere tek tek bir tıkla sol aşağıda
instance namelerini(örnek isimleri)
daire1_mc
daire2_mc
daire3_mc
kare1_mc
kare2_mc
kare3_mc
yap

Daha sonra yeni bir layer oluştur ismini Kodumuz yaz ve ilk framine sağ tıkla ve actionsa tıkla

Çıkan ekrana ve aşağıdaki kodları yaz

//Action Script 3 olmasi gerek

//sürüklenecek objelerin en üstte olmasına dikkat etki kareye sürüklendiğinde arkasına geçmesin

daire1_mc.addEventListener(MouseEvent.MOUSE_DOWN, surukle);

daire2_mc.addEventListener(MouseEvent.MOUSE_DOWN, surukle);

daire3_mc.addEventListener(MouseEvent.MOUSE_DOWN, surukle);

//aşağıda dairelerin gidecegi doğru cevaplar yani kareler taınmlanır

daire1_mc.yer=kare1_mc;

daire2_mc.yer=kare2_mc;

daire3_mc.yer=kare3_mc;

//aşağıda dairelerin ilk yerleri tanımlanır çunku cevap yanlışsa geri oraya gidecek

daire1_mc.ilkyerx=daire1_mc.x;

daire2_mc.ilkyerx=daire2_mc.x;

daire3_mc.ilkyerx=daire3_mc.x;

daire1_mc.ilkyery=daire1_mc.y;

daire2_mc.ilkyery=daire2_mc.y;

daire3_mc.ilkyery=daire3_mc.y;

//bir üstteki kodun aynısı ama daha kısa yani yanlış cevaba surukleynce daireyi geri ilk pozisyonuna götürecek (x=dikey pozisyon, y yatay pozisyon)

var xyeri:Number;

var yyeri:Number;

function surukle(e:MouseEvent)

{

xyeri=e.target.x;

yyeri=e.target.y;

e.target.startDrag();

}

daire1_mc.addEventListener(MouseEvent.MOUSE_UP, birak);

daire2_mc.addEventListener(MouseEvent.MOUSE_UP, birak);

daire3_mc.addEventListener(MouseEvent.MOUSE_UP, birak);

function birak(e:MouseEvent)

{

e.target.stopDrag();

if (e.target.hitTestObject(e.target.yer))

{

e.target.mouseEnabled=false;//cevap doğruysa dairenin hareket etmesini engeller

e.target.x=e.target.yer.x; //cevap yanlışsa daireyi sürüklemeye başladığın yere atar

e.target.y=e.target.yer.y;

}

else

{

e.target.x=xyeri; //cevap yanlışsa daireyi sürüklemeye başladığın yere atar

e.target.y=yyeri;

}

}

Adobe flash kim 500 milyar ister basit oyun yapimi

Videolu Anlatım:

Önce internette arkaplana koymak için kim 500 milyar isderin fotoğrafını bulup koyalım.

1icni frame başla yazısı ekleyip buttona çeviriyoruz (buton adı basla , örnek adı basla_mc)

Ve yine 1inci framee sag tıklayıp actionsa tıklarız

stop();//buraya stop yazmassak durmayacak

basla_mc.addEventListener(MouseEvent.MOUSE_DOWN,baslaa);//başla tuşu

function baslaa(e:MouseEvent) //başlaya basınca olacak olanlar

{

gotoAndStop(2); //başla tuşuna basıncı ikinci framee geçecek

}

daha sonra ikinci frame sag tıklayıp insert keyframee tıklarız

şıklarımızı ekleriz ve buttona çeviririz. Buto n ismi soru1cevapa , örnek isim soru1cevapa_mc

Ve bütün şıkların isimlerinide tanımladıktan sonra ikinci framee sağ tıklayıp actionsa tıklarız aşağıdaki kodları yazarız.

//tıklanacak şıkların tanımlanması

soru1cevapa_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru1d);//doğru

soru1cevapb_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru1y);//yanlş

soru1cevapc_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru1y);//yanlş

soru1cevapd_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru1y);//yanlş

function soru1d(e:MouseEvent) //doğru cevapda yapılacak olan

{

gotoAndStop(3);//doğru cevapda bir sonraki soruya yani frame geçiş

}

function soru1y(e:MouseEvent) //yanlış cevapda yapılacak olan

{

gotoAndStop(25);//kaybettiğimizde gidilecek olan frame(anahtar kare)

}

Aynı şekilde 3üncü frame sağ tıklayıp insert keyframe basarız ve soru ve şıklarımızı gireriz.

//tıklanacak şıkların tanımlanması

soru2cevapa_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru2y);//yanlş

soru2cevapb_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru2d);//doğru

soru2cevapc_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru2y);//yanlş

soru2cevapd_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru2y);//yanlş

function soru2d(e:MouseEvent) //doğru cevapda yapılacak olan

{

gotoAndStop(4);//doğru cevapda bir sonraki soruya yani frame geçiş

}

function soru2y(e:MouseEvent) //yanlış cevapda yapılacak olan

{

gotoAndStop(15);//kaybettiğimizde gidilecek olan frame(anahtar kare)

//15icni framede yanlış cevapda gösterilecek olanı yazacaz birazdan

}

Aynı şekilde diğer sorularımızıda yaparız. Yanlış cevapda gösterilecek 15inci keyframe sağ tıklarız ve insert keyframe basarız

Adobe flash bir soru iki cevaba süreklensin

kare1_mc.addEventListener(MouseEvent.MOUSE_DOWN, surukle);

//yanlış cebapta gidecek olan yer yani ilk yer aşağısı

kare1_mc.ilkyerx=kare1_mc.x;

kare1_mc.ilkyerx=kare1_mc.y;

var xyeri:Number;

var yyeri:Number;

function surukle(e:MouseEvent) //sürükle fonksiyonumuz

{

xyeri=e.target.x;//sürüklemeye başlar başlamaz objemizin yerini alır

yyeri=e.target.y;//cünkü yanlış cevaba giderse geri yerine dönecek

kare1_mc.startDrag();//sürüklemeye başlatma komutu

}

//birakma kodları bölümü aşağısı

kare1_mc.addEventListener(MouseEvent.MOUSE_UP, birak);

function birak(e:MouseEvent)//birak fonksiyonumuz

{

if(kare1_mc.hitTestObject(daire1_mc))//eğer kare1 daire1e denk

{ //gelirse bunları yap

kare1_mc.x=daire1_mc.x;//sürükleyince ortalasın cevaba

kare1_mc.y=daire1_mc.y;//sürükleyince ortalasın cevaba

kare1_mc.stopDrag();//birak

}

else if (kare1_mc.hitTestObject(daire2_mc))//kare1 daire2ye denk gelirse

{

kare1_mc.x=daire2_mc.x;

kare1_mc.y=daire2_mc.y;

kare1_mc.stopDrag();

}

else //eğer kare1 daire1 ve daire2ye denk gelmessede bunları yap

{

kare1_mc.x=xyeri; //cevap yanlışsa daireyi sürüklemeye başladığın yere atar

kare1_mc.y=yyeri; //cevap yanlışsa daireyi sürüklemeye başladığın yere atar

kare1_mc.stopDrag();

}

Windows 8 install framework

cmd -> run as administrator
cmd command:
Dism /online /enable-feature /featurename:NetFx3 /All /Source:D:\win83264\sources\sxs /LimitAccess

LOGO LKS2 SQL şu anki aya göre ürünlerin listelenmesi

SELECT dbo.LG_114_01_INVOICE.DATE_ AS [TARIH] ,
dbo.LG_SLSMAN.DEFINITION_ AS [SATIŞ ELEMANI], dbo.LG_114_ITEMS.CODE AS [URUN KODU],
dbo.LG_114_ITEMS.NAME AS [ÜRÜN ADI], dbo.LG_114_ITEMS.STGRPCODE AS [URUN GRUP KODU] ,SUM(dbo.LG_114_01_STLINE.AMOUNT) AS ADET,
SUM(dbo.LG_114_01_STLINE.VATMATRAH) AS TUTAR, dbo.LG_114_ITEMS.B2CCODE AS [3GSATF]
FROM dbo.LG_114_01_INVOICE INNER JOIN
dbo.LG_114_01_STLINE ON dbo.LG_114_01_INVOICE.LOGICALREF = dbo.LG_114_01_STLINE.INVOICEREF INNER JOIN
dbo.LG_114_CLCARD ON dbo.LG_114_01_INVOICE.CLIENTREF = dbo.LG_114_CLCARD.LOGICALREF INNER JOIN
dbo.LG_114_ITEMS ON dbo.LG_114_01_STLINE.STOCKREF = dbo.LG_114_ITEMS.LOGICALREF INNER JOIN
dbo.LG_SLSMAN ON dbo.LG_114_01_INVOICE.SALESMANREF = dbo.LG_SLSMAN.LOGICALREF
WHERE (dbo.LG_114_01_INVOICE.DATE_ >=DATEADD(MONTH, DATEDIFF(MONTH, 0, getDate()) , 0))

GROUP BY dbo.LG_114_01_INVOICE.DATE_ , dbo.LG_114_ITEMS.CODE , dbo.LG_114_ITEMS.NAME , dbo.LG_SLSMAN.DEFINITION_ , dbo.LG_114_ITEMS.STGRPCODE,dbo.LG_114_ITEMS.B2CCODE

LOGO LKS2 SQL Anlik Sanal Satislar

SELECT TOP 100 PERCENT dbo.LG_114_01_INVOICE.DATE_ AS TARİH, dbo.LG_114_01_INVOICE.FICHENO AS [FATURA NO],
dbo.LG_SLSMAN.DEFINITION_ AS [SATIŞ ELEMANI], dbo.LG_114_CLCARD.DEFINITION_ AS [CARİ HESAP ÜNVANI],
dbo.LG_114_ITEMS.NAME AS [ÜRÜN ADI], dbo.LG_114_01_STLINE.AMOUNT AS ADET, dbo.LG_114_01_STLINE.VATMATRAH AS TUTAR,
dbo.LG_114_01_INVOICE.GENEXP1 AS [FATURA AÇIKLAMA]
FROM dbo.LG_114_01_INVOICE INNER JOIN
dbo.LG_114_01_STLINE ON dbo.LG_114_01_INVOICE.LOGICALREF = dbo.LG_114_01_STLINE.INVOICEREF INNER JOIN
dbo.LG_114_CLCARD ON dbo.LG_114_01_INVOICE.CLIENTREF = dbo.LG_114_CLCARD.LOGICALREF INNER JOIN
dbo.LG_114_ITEMS ON dbo.LG_114_01_STLINE.STOCKREF = dbo.LG_114_ITEMS.LOGICALREF INNER JOIN
dbo.LG_SLSMAN ON dbo.LG_114_01_INVOICE.SALESMANREF = dbo.LG_SLSMAN.LOGICALREF
WHERE (dbo.LG_114_ITEMS.CODE = KK 01') OR

(dbo.LG_114_ITEMS.CODE = KK 05') OR
(dbo.LG_114_ITEMS.CODE = KK 06') OR
(dbo.LG_114_ITEMS.CODE = KK 06_2') OR
(dbo.LG_114_ITEMS.CODE = KK 06_3') OR
(dbo.LG_114_ITEMS.CODE = KK 07') OR
(dbo.LG_114_ITEMS.CODE = KK 08') OR
(dbo.LG_114_ITEMS.CODE = KK 09') OR
(dbo.LG_114_ITEMS.CODE = KK 10') OR
(dbo.LG_114_ITEMS.CODE = KK 11') OR

(dbo.LG_114_ITEMS.CODE = KK 12') OR
(dbo.LG_114_ITEMS.CODE = KK 12_1') OR
(dbo.LG_114_ITEMS.CODE = KK 13') OR
(dbo.LG_114_ITEMS.CODE = KK 13_2') OR
(dbo.LG_114_ITEMS.CODE = KK 13_3') OR
(dbo.LG_114_ITEMS.CODE = KK 14') OR
(dbo.LG_114_ITEMS.CODE = KK 15') OR
(dbo.LG_114_ITEMS.CODE = KK 16') OR
(dbo.LG_114_ITEMS.CODE = KK 16_1') OR
(dbo.LG_114_ITEMS.CODE = KK 17') OR
(dbo.LG_114_ITEMS.CODE = KK 17_1') OR
(dbo.LG_114_ITEMS.CODE = KK 17_2') OR
(dbo.LG_114_ITEMS.CODE = KK 17_3') OR
(dbo.LG_114_ITEMS.CODE = KK 17_4') OR
(dbo.LG_114_ITEMS.CODE = KK 17_5') OR
(dbo.LG_114_ITEMS.CODE = KK 17_6') OR
(dbo.LG_114_ITEMS.CODE = KK 17_7') OR
(dbo.LG_114_ITEMS.CODE = KK 36_0')

GROUP BY dbo.LG_114_01_INVOICE.DATE_, dbo.LG_114_01_INVOICE.FICHENO, dbo.LG_114_01_INVOICE.TIME_, dbo.LG_114_CLCARD.DEFINITION_,
dbo.LG_114_ITEMS.NAME, dbo.LG_SLSMAN.DEFINITION_, dbo.LG_114_01_STLINE.AMOUNT, dbo.LG_114_01_STLINE.VATMATRAH,
dbo.LG_114_01_INVOICE.CAPIBLOCK_CREATEDHOUR,dbo.LG_114_01_INVOICE.CAPIBLOCK_CREATEDMIN,dbo.LG_114_01_INVOICE.CAPIBLOCK_CREATEDSEC,
dbo.LG_114_01_INVOICE.GENEXP1
HAVING (dbo.LG_114_01_INVOICE.DATE_ >= CONVERT(DATETIME, '2013-09-01 00:00:00', 102))
ORDER BY dbo.LG_114_01_INVOICE.DATE_, dbo.LG_114_01_INVOICE.CAPIBLOCK_CREATEDHOUR,dbo.LG_114_01_INVOICE.CAPIBLOCK_CREATEDMIN,dbo.LG_114_01_INVOICE.CAPIBLOCK_CREATEDSEC

PHP BOTLARI

http://www.4shared.com/rar/cP_0xh4Kce/php_botlar.html?

PHPBOT DOVIZ KURLARI - NOBETCI ECZANE KKTC

<strong>(<?php echo date("d/m/Y")
?>
) DOVİZ KURLARI <br>

</strong>
<BR></BR>
<?php

$link = "http://www.kktcmerkezbankasi.org/";
$parcala = '@<table border="0" cellpadding="3" class="mbnet_center sticky-enabled">(.*?)a href="/veriler/doviz_kurlari/kur_sorgulama"@si';
$botara = str_replace(array("\n","\r","\t"), NULL, file_get_contents($link));
preg_match_all($parcala, $botara, $baslik);

echo $baslik[0][0];

?>

-----------------------------------------------------

doviz kurları2

<?php
$xml = simplexml_load_file("http://www.kktcmerkezbankasi.org/kur/gunluk.xml");
echo '<table>';
echo ' <thead>
<tr>
<th>#</th>
<th>Alış</th>
<th>Satış</th>
</tr>
</thead>';
echo ' <tbody>';
foreach ($xml->Resmi_Kurlar->Resmi_Kur as $resmi_kur) {

echo '<tr>
<td>' . $resmi_kur->Sembol . '</td>
<td>' . number_format((float) $resmi_kur->Doviz_Alis, 2, '.', ',') . ' TL</td>
<td>' . number_format((float) $resmi_kur->Doviz_Satis, 2, '.', ',') . ' TL</td>

</tr>';
}
echo '</table>';

?>

------------------------------------------------------------------------------

<BR></BR>
<BR></BR>
<strong>(<?php echo date("d/m/Y")
?>
) NÖBETÇİ ECZANELER<br>

</strong>
<BR></BR>
<?php

$link = "http://www.kteb.org/";
$parcala = '@<div id="ContentPlaceHolderDefault_CpRightContent_ManageDutyPharmacies_4_UpdatePanel1">(.*?)<h2>@si';
$botara = str_replace(array("\n","\r","\t"), NULL, file_get_contents($link));
preg_match_all($parcala, $botara, $baslik);

echo $baslik[0][0];

?>

Phpde turkce kakakter

notepad ++ da önce new yap
encoding utf8 without bom seçili olsun
türkçe karakterli yazını yaz
ve encode in ansiyi seç ve php koduna kopyala

Flash CS3 play button

Once karemizi ekleyip üstüne sağ tıklayıp sembole dönüştür düğme ve ok

daha sonra düğmeye çift tıklayıp üstündeyken basarken gibi aylarını aylarıyoruz

daha sonra katman ekliyoruz oynanacak videomuz için ve karelerini oluşturruyoruz.

ve düğmenin keyframine sağ tıklıyoruz

ve oraya stop();

yazıyoruz.

ve daha sonra düğmemize sağ tıklayıp eylemlere giriyoruz

orayada :

on (release){

gotoAndPlay(2);

}

CXGRID AUTOGETCOLUMNS VE FOOTER

cxGrid1DBTableView1.BeginUpdate;
cxGrid1DBTableView1.ClearItems;
cxGrid1DBTableView1.DataController.CreateAllItems;
cxGrid1DBTableView1.EndUpdate;

FOOTER
ÖNCE CXGRIDIN USTUNDEN CUSTOMIZE VE ADDA BAS
SONRA VIEWSDEN SOLDAKINE TIKLA VE EDIT VIEW LAYOUT YAP VE COLUMNA SAG TIKLA FOOTERA TIKLA OK DE VE SAGDAKI CXGRID1DBTABLEVIEW1COLUMNA TIKLA VE DELETE BAS

cxGrid1DBTableView1.Columns[0].Summary.FooterKind:=skCount;

cxGrid1DBTableView1.ApplyBestFit();

DELPHI PROGRAM HATALARINI MSGBOXDA GOSTER

except
on E : Exception do
ShowMessage(E.Message);
end;

DELPHIDE DBF VERITABANI DOSYASIYLA ISLEM YAPMA

ADOCONNECTION ADODATASET VE DATASOURCE EKLE
DATASOURCA TIKLA VE DATASET AYARINI ADODATASET1 YAP
ADODATASET1IN CONNECTIONINIDA ADOCONNECTION1 YAP
BUTTON VE GRID EKLE
KODLAR BU :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons,
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGrid, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
ADODataSet1: TADODataSet;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxButton1: TcxButton;
procedure cxButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cxButton1Click(Sender: TObject);
var
dbf_folder : string;
begin
dbf_folder:='C:\Users\JJJ\Downloads\Compressed';//set your dbf folder location here
ADOConnection1.LoginPrompt:=false;
ADOConnection1.ConnectionString:=Format('Provider=Microsoft.JET.OLEDB.4.0;Data Source=%s;Extended Properties=dBase IV;',[dbf_folder]);
try
ADOConnection1.Connected:=True;
ADODataSet1.CommandText:='Select * from SSS.dbf'; //make your SQL query using the name of the dbf file
ADODataSet1.Open;
while not ADODataSet1.eof do
begin
//do your stuff here
//ADODataSet1.FieldByName('').AsString
ADODataSet1.Next;
end;
except
on E : Exception do
ShowMessage(E.Message);
end;
cxGrid1DBTableView1.BeginUpdate;
cxGrid1DBTableView1.ClearItems;
cxGrid1DBTableView1.DataController.CreateAllItems;
cxGrid1DBTableView1.EndUpdate;

cxGrid1DBTableView1.Columns[0].Summary.FooterKind:=skCount;

cxGrid1DBTableView1.ApplyBestFit();
end;

end.

delphide belirli kelime aralarını silmek icin function

belirli seylerin arasını sil pos StdCtrls uses olacak

Function ExtractBetweenTags(Const Value,TagI,TagF:string):string;
var
i,f : integer;
begin
i:=Pos(TagI,Value);
f:=Pos(TagF,Value);
if (i>0) and (f>i) then
Result:=Copy(Value,i+length(TagI),f-i-length(TagF)+1);
end;

ve kullanırken ShowMessage(ExtractBetweenTags(cxmemo1.Text,'<html>','</font>'));

FLASH CS3 DRAG AND DROP

*Actionscript 2 olması gerek

action kodumuz:

on (press){

this.startDrag();

}

on(release, releaseOutside ){

stopDrag();

}

f12ye basip test edin

Fatih1453 projesindeki akıllı tvlerde windows 8e touchdriver yüklemek

Fatih1453 projesindeki akıllı tvlerde windows 8e touchdriver yüklemek için touchscreen driver setup dosyasını uyumluluk modunda windows 7 yap öyle kur.
Driver indir

USB DONGLEDAN ARAMA YAPMA VE USSD SORGULAMA

AŞAĞIDAKİ PROGRAMI INDIR(MOBILE PARTNER) GEZZDEN ARAMA OZELLIGINI AKTIF EDER
http://www.4shared.com/get/bUWKqv0j/mobile_partner_160010601500.html

AYRICA GORUNTULU ARAMA OZELLIGI GETIRMEK ICIN; http://www.geekdave.in/2011/10/huawei-usb-modem-3g-dongle-hacked-make.html

WINDOWS 7 APACHE VE PHP KURULUMU

1-Apache

2-Php

Dumpper Jumpstart Wifi

https://www.youtube.com/watch?v=4fal4ervc9w
https://www.youtube.com/watch?v=gn1WcoPnQ-U

Program İndir

Jumpstart klasörünün içine girip Setup'a ( Uygulama olan) tıklıyoruz. (Gerçi bu klasörün içinde kullanacağımız Dumpper programı hazır olarak varmış, yani diğerine gerek yokmuş ama zarar yok devam edelim.)

Şimdi Dumpper 'ı açıyoruz. İlk başta Scan'a basarak etrafımızda bulunan bütün modemleri listeliyoruz.Daha sonra üstte bulunan WPS 'ye tıklıyoruz.

WPS 'ye geldiğimizde önce Todas las redes 'i tıklıyoruz. Daha sonraEscanear 'a basıyoruz. Wps için uygun olan modemler aşağıdaki gibi listelenmiş oluyor.

Bağlanmak istediğimiz modemi seçiyoruz. Essid yazan bölümde modemin adı, Wps Pin yazan yerde de anlaşılacağı gibi WPS Pin yazıyor. Daha sonraIniciar Jumpstart yazan yere tıklıyoruz. Bundan sonra yapacağımız şey beklemek. Jumpstart programı seçtiğiniz modemi kendiliğinden seçip sahip olduğu şifre listesinden denemeye başlıyor. En fazla 4-5 dakika sürüyor ve bulamadığı takdirde bulamadığını size bildiriyor.

delphi cxgrid autofitcolumn , get footer value

//cxGrid1DBTableView1.ApplyBestFit(); //ShowMessage((cxGrid1DBTableView1.DataController.Summary.FooterSummarytexts[5])); //toplam nokta //ShowMessage((cxGrid1DBTableView1.DataController.Summary.FooterSummarytexts[6])); //satış adet //ShowMessage((cxGrid1DBTableView1.DataController.Summary.FooterSummarytexts[7])); //satış tl

Delphide surukle birak excel dosyasini ve cxgride al sheetleri kodlari

unit Unit1;

interface
(*

Code for the article:

Accessing and managing MS Excel sheets with Delphi

http://delphi.about.com/library/weekly/aa090903a.htm

How to retrieve, display and edit Microsoft Excel spreadsheets
with ADO (dbGO) and Delphi. This step-by-step article describes
how to connect to Excel, retrieve sheet data, and enable editing
of data (using the DBGrid). You'll also find a list of most common
errors (and how to deal with them) that might pop up in the process.

*)

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, Buttons,
ComCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, cxPC;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
cxGrid1: TcxGrid;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
DBNavigator1: TDBNavigator;
Edit3: TEdit;
ListBox1: TListBox;
ADOConnection1: TADOConnection;
ADOConnection2: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
l1: TLabel;
l2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
ComboBox1: TComboBox;
Edit4: TEdit;
Panel2: TPanel;
Button1: TButton;
Button2: TButton;
StatusBar1: TStatusBar;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
procedure ConnectToExcel;
procedure FetchData;
procedure GetFieldInfo;

procedure DisplayException(Sender:TObject; E: Exception);
public
procedure WMDROPFILES(var msg : TWMDropFiles) ;
message WM_DROPFILES;
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.dfm}
uses typinfo,shellapi;

{ TForm1 }

procedure TForm1.ConnectToExcel;
var strConn : widestring;
i:integer;
begin

i := Pos('xlsx',edit1.Text);
if i>1 then strConn:='Provider=Microsoft.ACE.OLEDB.12.0;' +
'Data Source=' + Edit1.Text + ';' +
'Extended Properties="Excel 12.0;HDR=YES";'
else

//xlsx
//Provider=Microsoft.ACE.OLEDB.12.0;
//Data Source=c:\myFolder\myExcel2007file.xlsx;
//Extended Properties="Excel 12.0;HDR=YES";

strConn:='Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + Edit1.Text + ';' +
'Extended Properties=Excel 8.0;';

AdoConnection1.Connected:=False;
AdoConnection1.ConnectionString:=strConn;
try
AdoConnection1.Open;
AdoConnection1.GetTableNames(ComboBox1.Items,True);
except
ShowMessage('Unable to connect to Excel, make sure the workbook ' + Edit1.Text + ' exist!');
raise;
end;
end;(*ConnectToExcel*)

procedure TForm1.FetchData;
begin
StatusBar1.SimpleText:='';

if not AdoConnection1.Connected then ConnectToExcel;

AdoQuery1.Close;

if combobox1.Text ='' then combobox1.ItemIndex:=0;
ShowMessage(Edit2.Text+l1.Caption+ComboBox1.Text+l2.Caption);
AdoQuery1.SQL.Text:=Edit2.Text+l1.Caption+ComboBox1.Text+l2.Caption;
try
AdoQuery1.Open;
except
ShowMessage('Unable to read data from Excel, make sure the query ' + Edit1.Text + ' is meaningful!');
raise;
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
FetchData;

GetFieldInfo;

cxGrid1DBTableView1.BeginUpdate;
cxGrid1DBTableView1.ClearItems;
cxGrid1DBTableView1.DataController.CreateAllItems;
cxGrid1DBTableView1.EndUpdate;

cxGrid1DBTableView1.Columns[0].Summary.FooterKind:=skCount;

cxGrid1DBTableView1.ApplyBestFit();

//grdCevapDBTableView2.BeginUpdate;
//grdCevapDBTableView2.ClearItems;
//fillGridView(grdCevapDBTableView2,command);
//grdCevapDBTableView2.DataController.CreateAllItems;
//grdCevapDBTableView2.EndUpdate;
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
DragAcceptFiles( Handle, True ) ;
AdoConnection1.LoginPrompt:=False;
AdoQuery1.Connection:=AdoConnection1;
DataSource1.DataSet:=AdoQuery1;

DBNavigator1.DataSource:=DataSource1;

Application.OnException:= DisplayException;

end;

procedure TForm1.DisplayException(Sender: TObject; E: Exception);
begin
StatusBar1.SimpleText:=E.Message;

edit3.Text:=E.Message;
end;

procedure TForm1.GetFieldInfo;
var
i : integer;
ft : TFieldType;
sft : string;
fname : string;
begin
ListBox1.Clear;
for i := 0 to AdoQuery1.Fields.Count - 1 do
begin
ft := AdoQuery1.Fields[i].DataType;
sft := GetEnumName(TypeInfo(TFieldType), Integer(ft));
fname:= AdoQuery1.Fields[i].FieldName;

ListBox1.Items.Add(Format('%d) NAME: %s TYPE: %s',[1+i, fname, sft]));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var sAppend : string;
begin
sAppend:='INSERT INTO [Sheet2$] IN "' + Edit1.Text + '" "Excel 8.0;" SELECT AuthorEmail, Title, Description FROM Articles';

AdoQuery2.SQL.Text:=sAppend;
AdoQuery2.ExecSQL;
end;

procedure TForm1.Button1Click(Sender: TObject);
var sCopy : string;
begin
sCopy := 'SELECT * INTO ["Excel 8.0;Database=' + Edit1.Text + '"].[SheetAuthors] FROM Authors';

AdoQuery2.SQL.Text:=sCopy;
AdoQuery2.ExecSQL;
end;

procedure TForm1.WMDROPFILES(var msg: TWMDropFiles) ;
const
MAXFILENAME = 255;
var
cnt, fileCount : integer;
fileName : array [0..MAXFILENAME] of char;
begin
// how many files dropped?
fileCount := DragQueryFile(msg.Drop, $FFFFFFFF, fileName, MAXFILENAME) ;

// query for file names
for cnt := 0 to -1 + fileCount do
begin
DragQueryFile(msg.Drop, cnt, fileName, MAXFILENAME) ;

//do something with the file(s)
Edit1.Text:=fileName;

end;

//release memory
DragFinish(msg.Drop) ;
end;

end.

outlook imap hızlı olsun

instagram bussiness