.NET Framework in Concise

How to get RGB Value from Decimal Value

There is a powerful OCX from LS Retail Tool to convert Decimal Value to get RGB Value.

By using this OCX, we dont need to convert Decimal Value to Hexadecimal value. Afterward, convert Hexadecimal Value to get RGB Value :) :) :)

gToolsOcx ==> OCX ==> LSTools Control

[LONG GetColorRGB :=] gToolsOcx.GetColorRGB(LONG colorref, VAR LONG r, VAR LONG g, VAR LONG b)

Decimal to Hexadecimal

This is a sample code how to convert Decimal to Hexadecimal

Dec2Hex(DecValue : Decimal) : Text[6]
//Sample DecValue : 16422450
//16422450 MOD 16 = 1026403 --> 2
//1026403  MOD 16 = 64150   --> 3
//64150    MOD 16 = 4009    --> 6
//4009     MOD 16 = 250     --> 9
//250      MOD 16 = 15      --> 10 (A)
//15       MOD 16 = 15      --> 15 (F)
// -------------------------------------> FA9632

i := 1;
WHILE(DecValue <> 0) DO BEGIN
  Value := DecValue MOD 16;
  CASE Value OF
    10: Hex[i] := 'A';
    11: Hex[i] := 'B';
    12: Hex[i] := 'C';
    13: Hex[i] := 'D';
    14: Hex[i] := 'E';
    15: Hex[i] := 'F';
    ELSE Hex[i] := FORMAT(Value);
  END;
  DecValue := DecValue DIV 16;
  i += 1;
END;

FOR i := 6 DOWNTO 1 DO BEGIN
  IF Hex[i] = '' THEN Hex[i] := FORMAT(0);
  ResultHex += Hex[i];
END;

EXIT(ResultHex);

Motivation Quote

Read COM Port Dynamically by reading Windows Registry

I encounter issue when I try to develop integration between a Device and Navision by using Microsoft Communications Control, version 6.0.

This OCX tools need specific COM Port number information before opening the port. When the Device connect to USB port, system will assign COM Port number. Normally fixed COM Port number.

CRLF[1] := 13;
CommCtrl.CommPort := 8; // This is Fixed COM Port number
CommCtrl.Settings := '9600,n,8,1';
CommCtrl.InputMode := 0;    // 0 - Text mode, 1 - Binary
CommCtrl.PortOpen := TRUE;
CommCtrl.Output := <your command to Device> + CRLF;

If you have many USB Port, you plug the Device to any port you want. The problem is that every time we plug to certain port, system will assign new COM Port number. For example, you have 2 USB Port on your PC, USB port 1 will assign COM8 and USB Port 2 will assign COM9.

On this situation, we need to get COM Port number dynamically so that we have flexibility when we plug the Device in our PC regardless any USB port.

After checking further, if the Device without assigned Unique Serial Number will not have Fixed COM Port Number.

This is the work-around how to read COM Port dynamically by reading Windows Registry.

REPEAT
  CLEAR(InstanceID);
  CLEAR(PortName);
  CLEAR(DevicePortFound);

gToolsOcx.getRegKeyStringValue('SYSTEM\CurrentControlSet\services\usbser\Enum',FORMAT(I),InstanceID);
  IF (InstanceID <> '') AND (STRPOS(InstanceID,'VID_04B4&PID_E00A') > 0) THEN BEGIN
    gToolsOcx.getRegKeyStringValue('SYSTEM\CurrentControlSet\Enum\' + InstanceID + '\Device Parameters','PortName',PortName);
    IF (PortName <> '') AND (STRPOS(PortName,'COM') > 0) THEN BEGIN
      DevicePortFound := TRUE;
      PortName := COPYSTR(PortName,4);
    END;
  END;

  I += 1;
UNTIL (DevicePortFound) OR (I = 16); //Limitation of CommCtrl: COM1 to COM16


Note:
You have to find out VID (Vendor ID) and PID (Product ID) of the Device. Normally can be found on device's driver file (.inf) or by using usbdeview or usbview tool (free download) to view PID and VID number.

gToolsOcx is OCX object from LS Retail. you may use WSHShell instead to read registry.

PERNIKAHAN BUKAN PENTERNAKAN

PERNIKAHAN BUKAN PENTERNAKAN

Ayat bacaan: Kejadian 2:18

===================="TUHAN Allah berfirman: "Tidak baik, kalau manusia itu seorang diri saja. Aku akan menjadikan penolong baginya, yang sepadan dengan dia."

Beberapa minggu yang lalu ada salah seorang siswa yang sudah berkeluarga berbincang-bincang dengan saya selepas kuliah. Obrolan akhirnya sampai kepada keluarga, dan dia bercerita bahwa ia menceraikan istrinya dan kemudian menikah lagi. Alasannya apa?"karena tidak bisa punya anak.." katanya ringan sambil tertawa kecil. Saya merasa kaget, tapi sebenarnya itu adalah sebuah potret kehidupan. Begitu banyak orang yang akhirnya mengalami kegagalan rumah tangga karena kekecewaan akan pasangannya yang belum juga mampu menghadirkan keturunan. Ketika usia terus bertambah, namun tidak juga mendapat keturunan, apalagi setiap hari ditanyai "kapan punya anak" dari keluarga atau teman-teman, mereka pun mulai berpikir bahwa pernikahan mereka telah gagal. Sebagian lagi akan memakai hal ini sebagai alasan untuk menikah lagi untuk kedua kalinya. Apakah saya merasa tidak butuh keturunan? Sama sekali tidak. Saya masih terus berdoa agar Tuhan berkenan memberkati kami dengan keturunan. Saya, sama seperti pasangan lainnya, tentu mengharapkan keluarganya dilengkapi dengan anak-anak. Wajar jika kita berharap akan lahirnya anak-anak dari pernikahan kita. Namun yang ingin saya sampaikan adalah, tujuan utama sebuah pernikahan bukanlah untuk mempunyai anak.Pernikahan bukanlah peternakan.

Dari contoh siswa saya di atas tadi, dan banyak kasus lain mengenai kegagalan rumah tangga akibat tidak mendapat keturunan, saya melihat adanya salah kaprah mengenai tujuan utama mendirikan lembaga pernikahan. Mereka memandang pernikahan layaknya sebuah peternakan, dimana kita bisa mengembangbiakkan keturunan kita. Sekali lagi, pernikahan bukanlah peternakan. Sebuah pernikahan, dimana Tuhan sendiri yang memateraikan pembentukannya, punya tujuan yang jauh lebih penting daripada sekedar memiliki keturunan. Apalagi jika dasarnya hanyalah "kejar tayang" atau takut disebut "bujang lapuk/perawan tua", akibat nafsu, gengsi, desakan orang tua dan lain-lain. Itu semua bukanlah tujuan utama sebuah pernikahan menurut firman Tuhan. Ayat bacaan hari ini menyatakan dengan jelas tujuan Allah menciptakan pasangan buat manusia, yaitu sebagai penolong. Tuhan menciptakan Hawa dari tulang rusuk Adam (Kejadian 2:21), yang menunjukkan sebuah hubungan erat, bahwa istri adalah bagian hidup suami, bukan sekedar alat pemuas nafsu dan "pabrik" pembuat anak.Tapi Tuhan melengkapi kita dengan seorang pasangan agar kita bisa saling melengkapi, saling menyempurnakan dan saling menolong. 

Dalam sebuah pernikahan yang diberkati Tuhan, kita bisa mengalami, menikmati dan saling berbagi sukacita dan cintakasih. Kita bisa saling support ketika salah satu tengah mengalami kesulitan. Kita bisa menghidupkan sebuah persekutuan dengan memuliakan Allah diatas segalanya. Janji pernikahan yang kita ucapkan pun menyatakan hal itu, bukan menyatakan bahwa kita menikah untuk membuat anak. Memiliki penerus garis keturunan adalah penting dan merupakan dambaan hampir setiap orang, namun itu bukanlah yang terutama. 

"Sesungguhnya, anak-anak lelaki adalah milik pusaka dari pada TUHAN.." (Mazmur 127:3). Anak adalah pemberian dan anugerah dari Tuhan. Jangan tawar hati jika hingga saat ini anda masih seperti saya yang belum saatnya dikaruniai anak. Biarlah itu terjadi sesuai kehendak Tuhan, Sang Pencipta. Yang penting adalah kita menyadari hakekat dari sebuah pernikahan sesuai apa yang difirmankan Tuhan. Jangan merasa bahwa tanpa anak, lembaga pernikahan yang anda bangun sebagai sebuah kegagalan. Karena ada Allah yang bertahta di atasnya, yang telah memberkati dan mengikat penyatuan hubungan antara suami dan istri. Jadikan pernikahan sebagai tempat dimana anda bisa bersinergi dengan pasangan untuk memuliakan Tuhan, dan bersama-sama seiring sejalan melakukan kehendak Allah atas kehidupan kita. Pernikahan yang gagal bukanlah pernikahan yang tidak melahirkan anak, melainkan pernikahan yang tidak berjalan sesuai dengan kehendak Tuhan.

ADA ANAK ATAU TIDAK, TETAPLAH MEMILIKI PERNIKAHAN YANG SUKSES PENUH DENGAN KEBAHAGIAAN

Maksimalkan Skill Anda!

Untuk mencapai kesuksesan, tidak ada pilihan lain kecuali Anda sendiri mempunyai keahlian, bakat atau potensi diri yang lebih baik dari orang lain. Bahkan ada yang mengatakan untuk menggapai sukses, ‘be extremist’. Faktor lain yang tidak kalah penting adalah "komunikasi" dan "promosi" (bagaimana cara menyampaikan kelebihan Anda ke pihak-pihak luar yang tepat, sehingga mereka mengetahui, lalu tertarik dan memanfaatkan kelebihan atau keunggulan yang Anda miliki).

Ada pepatan bijak dalam bahasa Mandarin, 百艺通, 不如一艺精 bǎi yì tōng bù rú yī yì jīng, arti harfianya “mengerti ratusan keahlian tidak lebih baik daripada menguasai satu yang mendasar”. Maka dalam hidup ini, akan lebih baik menguasai satu keterampilan secara mendalam dibandingkan menguasai banyak tetapi setengah-setengah. Dengan menguasai satu keahlian secara mendalam, akan menjadikan diri Anda unik, spesial dan tiada tandingannya.

Untuk lebih jelasnya, coba simak kisah berikut ini, tentang seekor anak singa dan anak kambing gunung.

Suatu hari di suatu lapangan yang luas, di daerah perbukitan, terlihat seekor singa sedang mengajari anaknya berlari. Melihat langkah anaknya sangat lambat, induknya pun berkata, ”Ayo lari lebih cepat lagi, ayo... tambah cepat lagi...!”

Tapi ternyata ajakan ibunya belum mampu mendorong anak singa tersebut untuk berlari lebih cepat. Akhirnya sang ibu menasihatinya, ”Jika kamu tidak bisa lari lebih cepat dari kambing gunung yang paling lambat, maka kamu akan mati kelaparan di hutan ini.” Kata-kata tersebut menyadarkan si anak, bahwa tidak ada yang bisa menolongnya kecuali ia sendiri harus lebih baik dan lebih cepat dari mangsanya. Seketika itu pula, ia pun mengeluarkan segenap tenaganya, dan ternyata ia bisa berlari dengan sangat kencang.

Pada saat yang bersamaan, di padang rumput hijau di seberang sana, terdapat sekumpulan kambing gunung. Di antara kambing-kambing yang sedang beristirahat, terlihat seekor induk kambing sedang melatih anaknya. Dari jauh terdengar suara ajakan yang bersemangat, ”Ayo lari... ayo lari..... lebih cepat lagi...! Bagus...bagus...! Lebih cepat lagi!”

Ternyata ajakan tersebut tidak juga memotivasi anaknya untuk berusaha berlari lebih cepat. Sampai akhirnya, ibunya mengeluarkan nada yang sedikit mengancam. Ia berkata, ”Jika kamu tidak bisa lari lebih cepat dari singa yang paling cepat, maka hidup kamu akan sia-sia. Cepat atau lambat kamu akan menjadi mangsanya.”

Mendengar kata-kata tersebut, si anak pun berdalih,”Mana mungkin seekor kambing gunung bisa berlari lebih cepat dari singa yang larinya paling cepat?”

Tiba-tiba ibunya berteriak sambil berlari,”Ada singa di belakang kamu! Ayo lari...!” Ancaman yang kelihatan sungguh-sungguh itu, ternyata mampu membuat anak kambing gunung bisa berlari dengan luar biasa cepatnya.

”Nah... kecepatan inilah yang kamu harus pertahankan dan kembangkan untuk bisa sukses mempertahankan hidup,” pesan ibunya.

Netter yang Bijaksana,

Tidak ada yang "tidak bisa" di dunia ini sepanjang kita mempunyai keyakinan, kemauan untuk melaksanakannya. Ada peribahasa dalam bahasa Mandarin yang mengungkapkan bahwa “batang besi pun bisa diasah menjadi jarum” (磨杵成针 mó chǔ chéng zhēn). Kesuksesan apapun bisa diraih, asalkan kita rajin, tekun, dan pantang menyerah. Maju selangkah demi selangkah, konsisten, pada akhirnya akan membawa kita ke jenjang yang lebih bagus, ke puncak kesuksesan.

Dalam kisah di atas, hanya ada satu pilihan bagi masing-masing pihak: ”lebih baik, atau mati”. Singa hanya bisa hidup jika bisa berlari lebih cepat dari kambing gunung yang paling lambat. Dan kambing gunung bisa mempertahankan hidupnya jika ia bisa berlari lebih cepat dari singa yang paling cepat.

Demikian halnya dalam hidup ini, jika kemampuan kita di bawah rata-rata (teman kerja atau seprofesi), yang ada hanyalah menunggu waktu ”kematian” karena selalu tertinggal. Sedangkan bila kemampuan kita setingkat rata-rata, kesempatan yang tersedia hanyalah untuk mempertahankan hidup. Hanya dengan kemampuan di atas rata-ratalah, kita baru bisa mencapai jenjang kehidupan yang lebih baik dan sukses.

Jadi, persiapkan diri Anda dengan sebaik-baiknya dan menjadi manusia yang terbaik di bidang yang Anda tekuni.





from Andrie Wongso