Yuli nurachman 's Blog

FOXPRO DIRECTORY READER prg

yuli nurachman — Mon, 16 Jan 2012 03:31:27 +0000

CLOSE DATABASES
SET DEFAULT TO (‘D:\’)

gnDbcnumber = ADIR(gaDatabase, ‘*.PDF’) && Create array

CLEAR
FOR nCount = 1 TO gnDbcnumber && Loop for number of databases
? gaDatabase(nCount,1) && Display database names
ENDFOR

Delphi Explode Function

yuli nurachman — Tue, 13 Dec 2011 02:02:55 +0000

function TForm1.Explode(delimiter:string; source:string) : TStringList;
var
c : word;
begin
Result:=TStringList.Create;
c:=0;
while source<>” do
begin
if Pos(delimiter,source)>0 then
begin
Result.Add(Copy(Source,1,Pos(delimiter,source)-1));
Delete(Source,1,Length(Result[c])+Length(delimiter));
end
else
begin
Result.Add(Source);
Source:=”;
end;
inc(c);
end;
end;

PRG DBF

yuli nurachman — Mon, 12 Dec 2011 05:57:03 +0000

CREATE TABLE c:\TOKE (char1 C(10), char2 C(10) NOCPTRANS,memo1 M, memo2 M NOCPTRANS)
BROWSE

C# Open File With Associated Application

yuli nurachman — Tue, 29 Nov 2011 03:44:00 +0000

[C#]

// open text file in notepad (or another default text editor)
System.Diagnostics.Process.Start(@"c:\textfile.txt");

Windows Service C#

yuli nurachman — Tue, 29 Nov 2011 02:43:46 +0000

C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727>InstallUtil.exe WindowsService2.ex
e
Microsoft (R) .NET Framework Installation utility Version 2.0.50727.42
Copyright (c) Microsoft Corporation. All rights reserved.

Running a transacted installation.

Beginning the Install phase of the installation.
See the contents of the log file for the C:\WINDOWS\Microsoft.NET\Framework\v2.0
.50727\WindowsService2.exe assembly’s progress.
The file is located at C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsServ
ice2.InstallLog.
Installing assembly ‘C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsServic
e2.exe’.
Affected parameters are:
logtoconsole =
assemblypath = C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsService2.
exe
logfile = C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsService2.Insta
llLog
Installing service MyService…
Service MyService has been successfully installed.
Creating EventLog source MyService in log Application…

The Install phase completed successfully, and the Commit phase is beginning.
See the contents of the log file for the C:\WINDOWS\Microsoft.NET\Framework\v2.0
.50727\WindowsService2.exe assembly’s progress.
The file is located at C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsServ
ice2.InstallLog.
Committing assembly ‘C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsServic
e2.exe’.
Affected parameters are:
logtoconsole =
assemblypath = C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsService2.
exe
logfile = C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsService2.Insta
llLog

The Commit phase completed successfully.

The transacted install has completed.

C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727>InstallUtil.exe \u WindowsService2
.exe
Microsoft (R) .NET Framework Installation utility Version 2.0.50727.42
Copyright (c) Microsoft Corporation. All rights reserved.

Exception occurred while initializing the installation:
System.IO.FileNotFoundException: Could not load file or assembly ‘file:///C:\u’
or one of its dependencies. The system cannot find the file specified..

C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727>InstallUtil.exe /u WindowsService2
.exe
Microsoft (R) .NET Framework Installation utility Version 2.0.50727.42
Copyright (c) Microsoft Corporation. All rights reserved.

The uninstall is beginning.
See the contents of the log file for the C:\WINDOWS\Microsoft.NET\Framework\v2.0
.50727\WindowsService2.exe assembly’s progress.
The file is located at C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsServ
ice2.InstallLog.
Uninstalling assembly ‘C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsServ
ice2.exe’.
Affected parameters are:
logtoconsole =
assemblypath = C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsService2.
exe
logfile = C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\WindowsService2.Insta
llLog
Removing EventLog source MyService.
Service MyService is being removed from the system…
Service MyService was successfully removed from the system.

The uninstall has completed.

C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727>

C# MDB READER

yuli nurachman — Mon, 28 Nov 2011 04:05:29 +0000

OleDbConnection MyConnection = new OleDbConnection(@”Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\MASTER\My Documents\Visual Studio 2005\Projects\xAccess\xAccess\bin\Debug\testcon.mdb”);
MyConnection.Open();

OleDbCommand thisCommand = MyConnection.CreateCommand();
thisCommand.CommandText = “select * from Table1″;
OleDbDataReader oleReader = thisCommand.ExecuteReader();

StreamWriter sw = new StreamWriter(“LogMDB.txt”);
sw.WriteLine(” OPSODPS “);
while(oleReader.Read() ){
sw.Write(oleReader["no"]+”\t”);
sw.Write(oleReader["nama"] + “\t”);
sw.Write(oleReader["alamat"] + “\t”);
sw.Write(oleReader["npm"] + “\t”);
sw.WriteLine();
}
sw.Close();
oleReader.Close();
MyConnection.Close();
MessageBox.Show(” SUCCESS “);

C# MDB Connection using Microsoft.Jet.OLEDB.4.0

yuli nurachman — Mon, 28 Nov 2011 03:47:27 +0000

OleDbConnection MyConnection = new OleDbConnection(@”Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\testcon.mdb”);
MyConnection.Open();
MessageBox.Show(” Open File Success “);
MyConnection.Close();

C# Enter String And parsing To Int

yuli nurachman — Fri, 25 Nov 2011 13:49:43 +0000

Console.Write(” Enter number “);
String nilai = Console.ReadLine();
Console.WriteLine(” Nilai ” + int.Parse(nilai));
Console.ReadKey();

Console.Write(” Enter number “);
String nilaiA = Console.ReadLine();
Console.WriteLine(” Nilai ” + Convert.ToInt16(nilaiA));
Console.ReadKey();

( C# ) Csharp Fibonaci

yuli nurachman — Fri, 30 Sep 2011 03:30:53 +0000

using System;
using System.Collections.Generic;
using System.Text;

namespace xFibo
{
class Program
{
static void Main(string[] args)
{
int bil1, bil2,swap;
bil1 = 0;
bil2 = 1;
for (int i = 0; i < 20; i++) {
swap = bil1 + bil2;
Console.WriteLine(swap);
bil2 = bil1;
bil1 = swap;

}
Console.ReadKey();
}
}
}

C# Send Mail

yuli nurachman — Mon, 26 Sep 2011 04:50:48 +0000

 try
            {
                MailMessage mail = new MailMessage();
                SmtpClient SmtpServer = new SmtpClient("smtp.gmail.com");

                mail.From = new MailAddress("you.you.you.lie@gmail.com");
                mail.To.Add("yuli.nurachman@intercity.co.id");
                mail.Subject=" Test Mail";
                mail.Body = " mail Body";
                SmtpServer.Port = 587;
                SmtpServer.Credentials = new System.Net.NetworkCredential("you.you.you.lie", "");
                SmtpServer.EnableSsl = true;

                SmtpServer.Send(mail);
                MessageBox.Show("mail Send Succes ");

            }
            catch (Exception ex){
                MessageBox.Show(ex.ToString());
            }