Skip to content

Instantly share code, notes, and snippets.

View martinusso's full-sized avatar
🏠
Working from home

Breno Martinusso martinusso

🏠
Working from home
View GitHub Profile

Responda às perguntas a seguir para facilitar o processo de Lean Naming:

  1. Quais são os nomes dos produtos dos teus competidores? Liste 20.

  2. Quais são as palavras que envolvem a coisa mais importante que o teu produto se propõem a mudar? Liste 20.

  • Literalmente: escreva palavras comumente usadas no teu ramo, o tipo de produto que você quer vender e as pessoas que vão comprá-lo.
  • Figurativamente: Use metáforas, ideias que estão relacionadas à experiência que está sendo criada.
  1. Quais dessas palavras (ou combinação de palavras) melhor transmitem o que o produto faz? Enxugue para 10 palavras.• Combinações de substantivos (coisas), verbos (ações) e adjetivos (descritivos) são ótimas fontes para nomes:

Keybase proof

I hereby claim:

  • I am martinusso on github.
  • I am martinusso (https://keybase.io/martinusso) on keybase.
  • I have a public key whose fingerprint is 0514 077B C63F F326 E445 6B9F 9177 9A7D E1E5 FBEC

To claim this, I am signing this object:

@martinusso
martinusso / UnixTimeInMilliseconds.pas
Created January 9, 2017 11:55
Get current Unix time in milliseconds using Delphi
function UNIXTimeInMilliseconds: Int64;
var
ST: SystemTime;
DT: TDateTime;
begin
Windows.GetSystemTime(ST);
DT := SysUtils.EncodeDate(ST.wYear, ST.wMonth, ST.wDay) +
SysUtils.EncodeTime(ST.wHour, ST.wMinute, ST.wSecond, ST.wMilliseconds);
Result := DateUtils.MilliSecondsBetween(DT, UnixDateDelta);
end;
@martinusso
martinusso / IsEmptyOrNull.pas
Created January 10, 2017 15:44
Check if Variant is empty or null in Delphi
// uses System, Variants
function IsEmptyOrNull(const Value: Variant): Boolean;
begin
Result := VarIsClear(Value) or VarIsEmpty(Value) or VarIsNull(Value) or (VarCompareValue(Value, Unassigned) = vrEqual);
if (not Result) and VarIsStr(Value) then
Result := Value = '';
end;
@martinusso
martinusso / GTIN.pas
Last active January 25, 2017 17:18
GTIN Validator
unit GTIN;
interface
uses
SysUtils;
type
{
Global Trade Item Number (GTIN) is an identifier for trade items, developed by GS1
@martinusso
martinusso / playground-delphi-aws-ses.dpr
Created January 25, 2017 19:00
Using: If you call the TAmazonEmailService.Create constructor without arguments the library will look for the following environment variables: AWS_REGION, AWS_ACCESS_KEY_ID and AWS_SECRET_ACCESS_KEY.
program Playground;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Data.Cloud.CloudAPI,
classes,
@martinusso
martinusso / clear_object_with_rtti.pas
Last active February 24, 2020 03:19
Clear objects with Run-Time Type Information (RTTI) In Delphi
procedure Clear;
var
t: TRttiType;
prop: TRttiProperty;
begin
t := TRttiContext.Create.GetType(Self.ClassType);
for prop in t.GetProperties do
begin
if not prop.IsWritable then Continue;
case prop.PropertyType.TypeKind of
@martinusso
martinusso / Barcode.php
Last active January 3, 2025 18:05
Interleaved 2 of 5 Barcode implemented in PHP
<?php
namespace Boleto;
class Barcode
{
/**
* Generate Barcode
*
* @param $value Código de barras em dígitos
//document.writeln(formatCPF_CNPJ('10437409708'));
document.writeln(formatCPF_CNPJ('99.999.999/0001-91'));
function formatCPF_CNPJ(doc) {
var s = (""+doc).replace(/\D/g, '');
// CPF
var m = s.match(/^(\d{3})(\d{3})(\d{3})(\d{2})$/);
if (m !== null) {
return (!m) ? null : m[1] + "." + m[2] + "." + m[3] + "-" + m[4];
@martinusso
martinusso / objToArray.php
Last active January 8, 2019 10:36
object to array
function objToArray($obj)
{
if (!is_object($obj)) {
$type = gettype($obj);
throw new \Exception("Invalid type. Expected object, but got $type.", 1);
}
$return = [];
$ref = new \ReflectionObject($obj);
$properties = $ref->getProperties(\ReflectionProperty::IS_PUBLIC);