Friday, February 24, 2017

Menampilkan marker ke gmaps delphi XE


Marker pada gmaps merupakan salah satu fasilitas yang harus di tanam pada aplikasi berbasis google maps, dengan menggunakan delphi XE + component TMSGmaps,menampikkan marker bukanlah pekerjaan yang sulit, bahkan hal tersebut merupakan pekerjaan yang sangat sangat mudah. semudah membalik telapak kanan dari menghadap atas menjadi menghadap bawah.Hanya dengan menggunakan 2 baris kode , anda akan mendapatkan hasil marker yang sudah tertampil pada aplikasi google maps yang anda bangun dengan delphi Xe
Menampilkan marker ke gmaps delphi XE
Menampilkan marker ke gmaps delphi XE

berikut ini adalah kode nya

procedure TForm1.Button1Click(Sender: TObject);
begin

webgmaps1.MapPanTo(strtofloat(editlatitude.Text),strtofloat(editlongitude.Text));
WebGMaps1.Markers.Add(strtofloat(editlatitude.Text), strtofloat(editlongitude.Text), 'Lokasi Marker', '', true, true, true, true, false,1);

end;

dengan kode utama tersebut setelah anda run dan klik tampilkan marker, maka marker akan langsung tertampil pada aplikasi anda.


berikut ini screen shoot aplikasi Menampilkan marker ke gmaps delphi XE

Menampilkan marker ke gmaps delphi XE
Menampilkan marker ke gmaps delphi XE

berikut ini source code Menampilkan marker ke gmaps delphi XE, silakan KLIK DI SINI

catatan : untuk menggunakan aplikasi ini,anda harus terhubung dengan internet ,sebab aplikasi ini mengakses gmaps secara online


Menampilkan custom marker ke gmaps delphi XE

Marker pada gmaps merupakan salah satu fasilitas yang harus di tanam pada aplikasi berbasis google maps, dengan menggunakan delphi XE + component TMSGmaps,menampikkan marker bukanlah pekerjaan yang sulit, bahkan hal tersebut merupakan pekerjaan yang sangat sangat mudah. semudah membalik telapak kanan dari menghadap atas menjadi menghadap bawah.
Menampilkan custom marker ke gmaps delphi XE
Menampilkan custom marker ke gmaps delphi XE

custom marker yang di maksud dalam tulisan ini adalah marker yang sesuai dengan keinginan kita, umumnya marker pada google maps berupa baloon location berwarna merah, nah dengan kode di bawah ini kita bisa mengganti marker pada aplikasi gmaps menggunakan marker lain yang lebih informatif,semisal gambar manusia, gambar binatang, gambar rumah atau gambar apapun sekehendak kita.hanya dengan menggunakan 2 baris kode , anda akan mendapatkan hasil custom marker yang sudah tertampil pada aplikasi google maps yang anda bangun dengan delphi Xe

berikut ini adalah kode nya

procedure TForm1.Button1Click(Sender: TObject);
begin
webgmaps1.MapPanTo(strtofloat(editlatitude.Text),strtofloat(editlongitude.Text));

WebGMaps1.Markers.Add(strtofloat(editlatitude.Text), strtofloat(editlongitude.Text), 'Lokasi Custom Marker', 'https://1.bp.blogspot.com/-wJiSRtFWrSs/WIrGO-NPI9I/AAAAAAAAG1s/DY_gKJPHxNsfIVhsshYCRu5MLdT6FTEoQCLcB/s1600/maleemas.png', true, true, true, true, false,1);

end;

dengan kode utama tersebut setelah anda run dan klik tampilkan marker, maka marker akan langsung tertampil pada aplikasi anda.


berikut ini screen shoot aplikasi Menampilkan custom marker ke gmaps delphi XE

Menampilkan custom marker ke gmaps delphi XE
Menampilkan custom marker ke gmaps delphi XE
berikut ini source code Menampilkan marker ke gmaps delphi XE, silakan KLIK DI SINI

catatan : untuk menggunakan aplikasi ini,anda harus terhubung dengan internet ,sebab aplikasi ini mengakses gmaps secara online

Thursday, February 23, 2017

Parsing (pisah) data dengan basic4android dengan SubString2

Bagi anda yang membutuhkan pemisahan data semisal ABCD menjadi karakter karater terpisah dengan basic 4 android sebagai mana aturan di bawah ini :

karakter pertama = A,
karakter kedua = B
karakter ketiga = C
karakter keempat = D

maka anda dapat melakukannya dengan basic4android menggunakan fungsi substring 2
kira kira source code nya menjadi sebagai berikut ini :

Sub ButtonPisah_Click
   
    Dim karakter As String
    Dim karakter1 As String
    Dim karakter2 As String
    Dim karakter3 As String
    Dim karakter4 As String
   
    karakter = EditText1.Text
    karakter1=karakter.SubString2(0,karakter.Length-3)
    karakter2=karakter.SubString2(1,karakter.Length-2)
    karakter3=karakter.SubString2(2,karakter.Length-1)
    karakter4=karakter.SubString2(3,karakter.Length-0)
   
    LabelKarakter1.Text=karakter1
    LabelKarakter2.Text=karakter2
    LabelKarakter3.Text=karakter3
    LabelKarakter4.Text=karakter4
   
   
End Sub

Hasil screen shoot aplikasi Parsing (pisah) data dengan basic4android dengan SubString2 adalah sebagai berikut :



source code Parsing (pisah) data dengan basic4android dengan SubString2 silakan KLIK DISINI


Wednesday, February 22, 2017

Menentukan koordinat longitude latidude akhir berdasarkan input jarak dan sudut terhadap koordinat awal

Jika diketahui longitude latidude koordinat awal sebuah titik lalu kita ingin mengetahui koordinat longitude latidude akhir  setelah ditambahkan dengan  jarak dan sudut dengan basic4android, anda dapat menggunakan fungsi bawaan dari library OSM droid sehingga anda dapat Menentukan koordinat longitude latidude akhir berdasarkan input jarak dan sudut terhadap koordinat awal hanya dengan source code singkat sesingkat kode di bawah ini :


Sub ButtonHitung_Click
Dim GeoPointA, GeoPointB As GeoPoint

GeoPointA.Initialize(lbllatasal.Text, lbllongasal.Text)
GeoPointB=GeoPointA.GetDestinationPoint(Editdistance.Text, Editbearing.Text)

Dim LatB As Double=GeoPointB.Latitude
Dim LonB As Double=GeoPointB.Longitude
Labellongakhir.Text=GeoPointB.Longitude
Labellatakhir.Text=GeoPointB.Latitude

End Sub

Jadi anda tidak perlu lagi menghitung dengan persamaan manual yang super njelimet untuk mendapatkan koordinat longitude latidude akhir dengan input jarak dan sudut jika diketahui koordinat longitude latidude awal

Menentukan koordinat longitude latidude akhir berdasarkan input jarak dan sudut terhadap koordinat awal
Menentukan koordinat longitude latidude akhir berdasarkan input jarak dan sudut terhadap koordinat awal

Menentukan koordinat longitude latidude akhir berdasarkan input jarak dan sudut terhadap koordinat awal
Menentukan koordinat longitude latidude akhir berdasarkan input jarak dan sudut terhadap koordinat awal


Untuk mendownload source code Menentukan koordinat longitude latidude akhir berdasarkan input jarak dan sudut terhadap koordinat awal KLIK DI SINI

Tuesday, February 21, 2017

Menampilkan data angka delphi ke dalam bentuk grafik

Delphi 7  memiliki Komponen Chart yang dapat anda ambil dan masukkan ke form desain aplikasi dari component pallete Additional. Salah satu fungsi dari komponen chart  dapat dipergunakan untuk menampilkan grafik line dari  inputan data berupa angka yang nanti diubah menjadi grafik fastline.

Berikut adalah screen shoot Menampilkan data angka delphi ke dalam bentuk grafik
Menampilkan data angka delphi ke dalam bentuk grafik
Menampilkan data angka delphi ke dalam bentuk grafik

Untuk download source code Menampilkan data angka delphi ke dalam bentuk grafik silakan KLIK DI SINI

Terima data Serial melalui usb port dengan delphi 7 + comport (delphi vs arduino)

Terkadang kita membutuhkan arduino untuk interface ke PC / laptop semisal untuk monitoring data suhu, data kelembaban, jarak , berat atau data sensor lainnya. untuk itu kita perlu mendapatkan data data dari sensor yang di baca oleh arduino, nah untuk dapat diterima oleh komputer maka umumnya data data tersebut dikirim ke PC / laptop melalui komunikasi serial 

Untuk percobaan Kirim data Serial melalui usb port pada arduino Uno kali ini kita hanya akan mempraktikkan arduino untuk kirim data ke pc berupa text " ini text dari arduino " dengan tundaan per 5 detik

oke tak perlu panjang lebar preface/pembukanya : 
berikut ini adalah source code / sketch  Kirim data Serial melalui usb port pada arduino Uno :

void setup() {
Serial.begin(9600); // memulai komunikasi serial dengan baud rate 9600
}

void loop() {
Serial.println("ini text dari arduino");// kirim ini text dari arduino ke PC
delay(5000);// tunda 5 detik
}

silakan upload sketch / source code Kirim data Serial melalui usb port pada arduino Uno tersebut ke board arduino, 

setelah proses upload selesai langkah selanjtunya adalah membuka serial monitor dengan menekan menu tools-serial monitor atau dengan menekan tombol ctrl+shift+M secara bersamaan dan hasil nya adalah sebagai berikut :


selanjtunya adalah code delphi untuk menerima data serial yang tampil pada comport terserbut:

berikut ini source code delphi 7 Terima data Serial melalui usb port dengan delphi 7 + comport (delphi vs arduino)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    ComPort1: TComPort;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ComPort1RxChar(Sender: TObject; Count: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
comport1.ShowSetupDialog;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
comport1.Connected:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
comport1.Connected:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var datamasuk:string;
begin
comport1.ReadStr(datamasuk,count);
Memo1.Text:=Memo1.Text+datamasuk;
end;

end.

dan hasil uji coba Terima data Serial melalui usb port dengan delphi 7 + comport (delphi vs arduino)
terima data serial dengan delphi
terima data serial dengan delphi
untuk download source code Terima data Serial melalui usb port dengan delphi 7 + comport (delphi vs arduino) KLIK DISINI



Kirim data Serial melalui usb port pada arduino Uno

Terkadang kita membutuhkan arduino untuk interface ke PC / laptop semisal untuk monitoring data suhu, data kelembaban, jarak , berat atau data sensor lainnya. untuk itu kita perlu mendapatkan data data dari sensor yang di baca oleh arduino, nah untuk dapat diterima oleh komputer maka umumnya data data tersebut dikirim ke PC / laptop melalui komunikasi serial 

Untuk percobaan Kirim data Serial melalui usb port pada arduino Uno kali ini kita hanya akan mempraktikkan arduino untuk kirim data ke pc berupa text " ini text dari arduino " dengan tundaan per 5 detik

oke tak perlu panjang lebar preface/pembukanya : 
berikut ini adalah source code / sketch  Kirim data Serial melalui usb port pada arduino Uno :

void setup() {
Serial.begin(9600); // memulai komunikasi serial dengan baud rate 9600
}

void loop() {
Serial.println("ini text dari arduino");// kirim ini text dari arduino ke PC
delay(5000);// tunda 5 detik
}

silakan upload sketch / source code Kirim data Serial melalui usb port pada arduino Uno tersebut ke board arduino, 

setelah proses upload selesai langkah selanjtunya adalah membuka serial monitor dengan menekan menu tools-serial monitor atau dengan menekan tombol ctrl+shift+M secara bersamaan dan hasil nya adalah sebagai berikut :

Saturday, February 18, 2017

Menghitung jarak dan sudut 2 buah koordinat longitude latitude dengan basic4android

Beberapa waktu lalu saya sempat ngoprek perhitungan jarak dua titik koordinat (longitude latitude dengan basic4android)untuk sekedar menghitung jarak antara 2 titik pada goole map dan hasil nya sangat memuaskan menurut saya , kode perhitungan jarak dan sudut nya adalah sebagai berikut

    Dim titikasal As Location
    Dim jarak As Double
    Dim titiktarget As Location
    titiktarget.Initialize2(LabelLatTarget.Text,LabelLongTarget.Text)
    titikasal.Initialize2(LabelLatAsal.Text,LabelLongAsal.Text)
    jarak = titikasal.DistanceTo(titiktarget)
    LabelJarak.Text=jarak
    Dim sudut As Double
    sudut=titikasal.BearingTo(titiktarget)
    LabelSudut.Text=sudut   
    

dan kita akan mendapati berapa jarak dalam meter serta sudut antara dua titik koordinat dengan menggunakan android. dalam perhitungan tersebut, saya menggunakan lokasi saya di bantul dan target adalah koordinat ka'bah di mekah saudi arabia, diperoleh jarak 8355195.5 meter (8355,1955 kilometer) dan sudut -65 derajat dengan acuan arah utara titik koordinat awal sebagai titik 0

Berikut ini adalah screen shoot aplikasi Menghitung jarak 2 buah koordinat longitude latitude dengan basic4android


untuk download source code Menghitung jarak 2 buah koordinat longitude latitude dengan basic4android KLIK DI SINI


Mengakses dan Menampilkan data longitude dan latitude pada Smartphone Android dengan basic4android


jadi jangan harap anda akan dapat mengakses data longitude dan latitude pada Smartphone Android anda dengan basic4android jika ternyata smartphone yang anda miliki tidak memiliki fitur GPS pada hape (jangan bercanda meminta sesuatu kepada orang yang tidak memilikinya). oh iya setelah mendapatakan nilai data longitude dan latitude anda dapat mengembangkan nya untuk hal hal lain semisal : hitung jarak dengan koordinat longitude latitude lain, hitung bearing /kemiringan  dengan koordinat longitude latitude lain, menentukan besarnya sudut ke kiblat dan sebagainya.. atau anda juga dapat memanfaatkannya untuk aplikasi panic button,atau menampilkan lokasi anda pada google maps pada aplikasi yang anda kembangkan dengan basic4android.


Berikut ini adalah screen shoot aplikasi Menampilkan data longitude dan latitude pada Smartphone Android dengan basic4android yang saya kembangkan menggunakan basic4android + OSM Droid

untuk download source code Menampilkan data longitude dan latitude pada Smartphone Android dengan basic4android KLIK DI SINI


Pada tulisan ini saya menggunakan HP lenovo p 780 dan xiomi prime 2 serta lenovo S6000 dan hasil bisa mengakses nilai data longitude dan latitude pada Smartphone Android pada masing masing smartphone tersebut, sebagai catatan data longitude dan latitude pada Smartphone Android dibaca dari GPS yang tertanan pada smartphone anda

Thursday, February 16, 2017

Akses Gmaps (Google Maps) dengan basic4android + OSM Droid

Posting kali ini saya tuliskan tentang Akses Gmaps (Google Maps) dengan basic4android + OSM Droid, awal nya saya menggunakan library  google maps pada basic4android, namun ternyata banyak parameter yang harus di setting dan menghabiskan waktu berhari hari, dan hasilnya menuurt saya menjad zonk mengapa zonk ? dari tutorial yang saya praktikan banyak langkah yang ternyata tidak bisa saya akses, dan jadinya saya gagal mengakses Google maps dengan library google maps.

Setelah baca sana sini akhirnya saya ketemu tutorial yang membahas tentang akses Gmaps dengan basic4android + OSM Droid dan setelah saya praktikkan hasilnya luar biasa keren, sukses
Berikut ini adalah screen shoot aplikasi Akses Gmaps (Google Maps) dengan basic4android + OSM Droid yang saya kembangkan menggunakan basic4android + OSM Droid


untuk download source code Akses Gmaps (Google Maps) dengan basic4android + OSM Droid KLIK DI SINI

Wednesday, February 15, 2017

Menghitung jarak 2 buah koordinat longitude latitude dengan delphi



beberapa waktu lalu saya sempat ngoprek perhitungan jarak dua titik koordinat (longitude latitude dengan delphi)untuk sekedar menghitung jarak antara 2 titik pada goole map. untuk menghitung jarak 2 buah koordinat longitude latitude berbeda dengan cara menghitung jarak 2 dua koordinat titik pada permukaan datar (garis lurus)
untuk menghitung jarak dua koordinat pada permukaan datar anda dapat menggunakan function :

function distance2d(x1,y1,x2,y2:double):double;
var a,b,c:double;
begin
 a:=abs(x1-x2);
 b:=abs(y1-y2);
 c:=sqr(a)+sqr(b);
 if c>0 then result:=sqrt(c) else result:=0;
end;


sedangkan menghitung jarak 2 buah koordinat longitude latitude dengan delphi silakan download source code nya dengan KLIK DISINI

Menghitung Kemiringan (bearing) dua titik koordinat longitude latitude dengan delphi 7

Bagi anda yang membutuhkan source code untuk Menghitung Kemiringan (bearing) dua titik koordinat longitude latitude dengan delphi 7 (tested juga dengan delphi XE  5 dan sukses) , berikut ini kami sertakan source code nya.(silakan download pada baigan akhir postingan ini).
Awalnya kami sempat hitung Kemiringan (bearing) dua titik koordinat longitude latitude dengan menggunakan asumsi bahwa bumi datar, artinya hanya menggunakan persamaan untuk menghitung namun ternyata terdapat kesalahan yang cukup besar (sampai 2 derajat), jika kita anggap 2 derajat adalah untuk jarak 10 meter mungkin tidak akan bermasalah, namun saat selisih sudut 2 derajat sejauh 1000km, anda akan mendapati error (kesalahan) jarak yang sangat besar.



awal nya kami menggunakan fungsi sebagai berikut :



function get_angle_degrees(x1,y1,x2,y2:double):double;
var
 part1, part2:double;
 angle:double;
begin
 if (x1=x2) and (y1=y2) then
  begin
   result:=0.0;
   exit;
  end;
 part1:=abs(y2-y1);
 if (part1=0) then begin part1:=0.0000001; y1:=y1+0.0000001; end;
 part2:=abs(x2-x1);
 if (part2=0) then begin part2:=0.0000001; x1:=x1+0.0000001; end;
 angle:=arctan(part1/part2)*RADIANS;
 if ((x1>x2) and (y1<y2)) then angle:=180-angle;
 if ((x1>x2) and (y1>y2)) then angle:=angle +180;
 if ((x1<x2) and (y1>y2)) then angle:=360-angle;
 angle:=fix_angle(angle);
 result:=angle;
end;

 
 
jika kita menggunakan fungsi terserbut di atas, anda memang benar, namun koordinat yang dimaksud adalah koordinat garis untuk permukaan datar (anggap saja persamaan garis lurus). jika yang anda maksud untuk menghutung Kemiringan (bearing) dua titik koordinat longitude latitude (ingat bumi enggak datar yak) dengan delphi 7 silakan saja download source code KLIK DISINI




Friday, February 3, 2017

Akses LCD I2C dengan Arduino Uno

Akses LCD I2C dengan Arduino Uno

Alat dan bahan :
arduino uno
i2c module
lcd 20x4
software arduino ide
kabel usb printer (kabel data arduino)















pemasangan kabel

vcc --> 5 volt
gnd --> ground
SDA -->A4,
SCL --> A5


untuk mengggunakan LCD I2C yang mau akses LCD i2c, nampilkan teks, charakter , scan ADRRESS nya dan lain lain monggo di comot dan ini link library nya  https://bitbucket.org/fmalpartida/new-liquidcrystal/downloads
download yg versi 1.3.4.zip

sketch Akses LCD I2C dengan  Arduino Uno :

#include <Wire.h>
#include <LiquidCrystal_I2C.h>

// Inicializa o display no endereco 0x27
LiquidCrystal_I2C lcd(0x27,2,1,0,4,5,6,7,3, POSITIVE);

void setup()
{
 lcd.begin (20,4);
}

void loop()
{
  lcd.setBacklight(HIGH);
  lcd.setCursor(0,0);
  lcd.print("LCD I2C 20x4 baris1");
  lcd.setCursor(0,1);
  lcd.print("taufik adi s baris2");
  lcd.setCursor(0,2);
  lcd.print("baris 3");
  lcd.setCursor(0,3);
  lcd.print("baris 4 ");

  delay(1000);

}

silakan save sketch untuk  Akses LCD I2C dengan Arduino Uno terserbut kemudian upoad ke board arduino uno dengan software arduino IDE, saat dinyalakan mungkin LCD akan terlihat blank, silakan untuk melakukan pemutaran terhadap potensio/trimport yang ada, sehingga karakter akan nampak jelas,

selamat bereksperimen

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Hot Sonakshi Sinha, Car Price in India