Nugroho's blog.: March 2019

Sunday, March 24, 2019

Musim Gitar Fals.

Di minggu-minggu ini, saya setiap hari harus menyetem gitar dulu sebelum memainkannya. Tidak peduli sekarang sudah saya stem dengan akurat, besok pasti semua nada di setiap senar pasti naik sedikit.

Hal ini tidak terjadi di bulan-bulan sebelumnya. Kok bisa?

Ohya, dan tidak stem-nya secara umum karena nadanya naik. Kok aneh? Biasanya senar yang tidak stem kan nadanya turun.

Analisa amatir saya (bukan ahlinya ahli, intinya inti, dan core of the core seperti Pak nDul, :) ), hal ini terjadi karena perubahan musim menuju ke kemarau.

Apa hubungannya?

Well, di Indonesia, khususnya Malang, tempat saya sekarang, musim kemarau yang secara "resmi" berada di bulan April hingga Oktober merupakan musim dingin.



Loh, kemarau kok dingin. Iya, karena saat itu matahari berada di belahan bumi utara; Malang berada di belahan bumi selatan.

Lantas, apa hubungannya dengan gitar yang tidak stem? Gitar terdiri dari kayu dan senar. Kemungkinan (hanya kemungkinan), terjadi penyusutan karena suhu lingkungan menjadi lebih dingin.

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. 

Saturday, March 16, 2019

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.

Friday, March 15, 2019

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:
  1. Record the drum.
  2. Record the bass.
  3. The rhythm guitar.
  4. Guitar Solo.
  5. Bass Solo, I improvised this part. 
  6. 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...

Thursday, March 14, 2019

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);
.
323f (5) amp (1) android (12) apple (7) arduino (18) art (1) assembler (21) astina (4) ATTiny (23) blackberry (4) camera (3) canon (2) cerita (2) computer (106) crazyness (11) debian (1) delphi (39) diary (286) flash (8) fortran (6) freebsd (6) google apps script (8) guitar (2) HTML5 (10) IFTTT (7) Instagram (7) internet (12) iOS (5) iPad (6) iPhone (5) java (1) javascript (1) keynote (2) LaTeX (6) lazarus (1) linux (29) lion (15) mac (28) macbook air (8) macbook pro (3) macOS (1) Math (3) mathematica (1) maverick (6) mazda (4) microcontroler (35) mountain lion (2) music (37) netbook (1) nugnux (6) os x (36) php (1) Physicist (29) Picture (3) programming (189) Python (109) S2 (13) software (7) Soliloquy (125) Ubuntu (5) unix (4) Video (8) wayang (3) yosemite (3)