Tutorials

Saturday, January 30, 2016

Microsoft Excel Tutorial for Beginners formating cell

In this tutorial you can see some basic Excel cells formatting.
Microsoft excel is a powerful tool for data manipulation.
This is just basic way to do this, it is unbelievable how this can be used in more advanced examples.
I use this in my regular work very often.

0 comments:

Tuesday, January 26, 2016

Delphi Tutorial Listbox manipulate items

Delphi Tutorial Listbox manipulate items

In this video you can learn how to manipulate with Listbox items in Delphi.
You can learn how to add one, add multiple items, delete one or all items , so as save items to and load from text file.

Here is also code used in this video :
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Button3: TButton;
    Edit2: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add('Item - '+IntToStr(ListBox1.Items.Count));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i:Integer;
begin
ListBox1.Items.Clear; // clear all items in listbox first
for I := 1 to StrToInt(Edit2.Text) do
begin
ListBox1.Items.Add('Item - '+IntToStr(i));
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ListBox1.Items.Clear;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if SaveDialog1.Execute then
SaveDialog1.InitialDir:='C:\Temp\';
ListBox1.Items.SaveToFile(SaveDialog1.FileName);
ListBox1.Items.Clear;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
ListBox1.Items.Clear;
if OpenDialog1.Execute then
OpenDialog1.InitialDir:='C:\Temp\';
ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
end;

end.

Music in video by :
bensound-theelevatorbossanova
www.bensound.com

0 comments:

Tuesday, January 19, 2016

Power resistor DIY

Power resistor DIY

This is one simple way to create power resistor at home.
I needed 0,33 ohm resistor with some larger wattage so I decide to create one, instead of buying one.
I always say, creating is much more fun then buying.

So you need one old high wattage resistor ( I had one 10W 100 ohm ) to use wire from it.You will have to destroy it, and take high resisting wire of desired length-resistance.
You also need some copper wire as connectors.
And you will need jointing filler to create mass for coating, to protect resistor wire from oxidation, and to provide heat transfer from wire to environment.
Also you will need small piece of tin to create mold.

After finishing it will take some day or two to dry

0 comments:

Delphi tutorials create buttons at run time

In this video you will see short practical example of creating buttons at run time in Delphi.

0 comments:

Delphi - Create simple text viewer

Let's create simple text viewer with Delphi.
It is basic viewer which use Memo component to display text.
Just add Memo, a button and a Open dialog an we are ready to go...