Nugroho's blog.

Friday, March 22, 2019

Lensa 7Artisans 7.5mm f/2.8 untuk Canon EOS M6.

Loh bukannya sudah punya 22mm f/2.0 yang keren itu?

Iya sih. Tapi rasanya masih kurang di hal-hal tertentu. Hal-hal seperti apa?

Well, kita tahu lensa 22mm itu di APS-C agak nanggung, walau bagi saya baik-baik saja untuk keperluan sehari-hari.

Memangnya nanggung seperti apa? Nah. Jika kita ingin memotret obyek agak jauh, maka akan terlihat kecil. Tentu saja karena memang 22mm, dibanding dengan 50mm, si nifty fifty, maka 22mm ini akan kalah.

Excited Through Indonesian General Elections.

Yeah, I can't wait to pass Wednesday on April 17th, 2019.

Why am I so enthusiastic? Am I sure that my chosen candidate'll wins?

No, Not because of that.

Pakai Clip-On Tuner tetapi Gitar Tetap Fals?

Pernah mengalami hal itu? Well, saya pernah, dan gara-gara itu pernah ada masa di mana saya sangat benci sekali dan menghindari clip-on tuner.

Walaupun, setelah tahu penyebabnya, tak lain disebabkan oleh kelalaian saya melihat detil dan membaca/mencari manual untuk tuner yang saya beli, hehehe.

Kesalahan apa?

Hal apa yang saya lewatkan?

Sebenarnya sederhana, yaitu penentuan standart tuning. Clip on tuner yang saya beli memiliki tombol (terletak di belakang) untuk setting standart tuning. Kita bisa memilih frekuensi nada A antara 430 hingga 450.

Bidadari Kesleo.

Saya suka lagu ini, sampai membuat cover tentang lagu ini beberapa kali. Yang terakhir berformat full band jazz/swing instrumental.

Tentu saja saya sendiri yang memainkan semua alat itu. Selain karena tidak punya teman juga..., eh, apa ya? Pokoknya saya yang memainkan semua alat musiknya, :D

Pernah juga membuat cover lagu ini menggunakan Ditto Looper (video yang bawah). Instrumental juga.

Kenapa kok tidak nyanyi? Karena lirik lagu ini bikin otak saya geli.

Recover The SD Memory Card Data

My SD Card is toasted.

It happened when I recorded my music video cover, a song called "Kolam Susu" by Koes Plus, but I used Musikimia arrangement.

I used to record my music performance on Logic Pro and the video on my Canon EOS M6.

I'm a multi-instrumentalist, I played music instruments all by myself. So my workflow is like:

Record the drum.
Record the bass.
The rhythm guitar.
Guitar Solo.
Bass Solo, I improvised this part.
Vocal.

In the middle of taking vocal part, suddenly the camera LCD went dark. I continue my vocal take because I always could lip-sync it later.

After my vocal take is finished, I grab the camera and, it shutdown by itself, uh oh...

I turned it on but it displayed a warning, something like "memory error", oh my...

I thought about my drum video record. It's always hard to "lip-sync" drum part; I have to rescue the SD Card data. And the journey's began...

Create Res2DMod File from Delphi

I post the full source code below

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
  edit1.Text:='Fault Model';
  edit2.Text:='51';
  edit3.Text:='15';
  edit4.Text:='0';
  edit5.Text:='1.0';
  edit6.Text:='2';
  edit7.Text:='0,200,3';
  edit8.Text:='4';
  edit9.Text:='200.0, 350.0, 175.0';
  edit10.Text:='14';
  edit11.Text:='0.2500, 0.5000, 0.7125, 1.1875, 1.6875, 2.3125,'+
                '3.1875, 4.4375, 6.4375, 10.4375, 18.4375, 34.4375,'+
                '66.4375, 130.4375 ';
  edit12.Text:='3';
  edit13.Text:='0';
  edit14.Text:='0';
  edit15.Text:='0';
  edit16.Text:='0';
  edit17.Text:='0';
  for i:=0 to 13 do begin
    for j:=0 to 209 do begin
      stringgrid1.Cells[j,i]:='0';
    end;
  end;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  if stringgrid1.Cells[ACol,Arow]='0' then
    stringgrid1.Cells[ACol,Arow]:='1' else
      stringgrid1.Cells[ACol,Arow]:='0';
end;

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
    s:string;
    i,j:integer;
begin
  assignfile(f,'data.mod');
  rewrite(f);
  writeln(f,edit1.text);
  writeln(f,edit2.text);
  writeln(f,edit3.text);
  writeln(f,edit4.text);
  writeln(f,edit5.text);
  writeln(f,edit6.text);
  writeln(f,edit7.text);
  writeln(f,edit8.text);
  writeln(f,edit9.text);
  writeln(f,edit10.text);
  writeln(f,edit11.text);
  for i:=0 to 13 do begin
    s:='';
    for j:=0 to 209 do begin
      s:=s+stringgrid1.Cells[j,i];
    end;
    writeln(f,s);
  end;
  writeln(f,edit12.text);
  writeln(f,edit13.text);
  writeln(f,edit14.text);
  writeln(f,edit15.text);
  writeln(f,edit16.text);
  writeln(f,edit17.text);

  closefile(f);
end;

end.

Parsing a String to Get a certain Substring (Serial Number, Product Keys, etc)

I have a question from a new friend on my instagram

Basically, he needs only certain substring.

Here's my code to parse the string.

The main code is

s          := edit1.text;

p          := pos('ME',s);

edit2.text := copy(s,p+2,13);

Nugroho's blog.

Pages