Sunday, September 15, 2013

Jasa pemrograman mikrokontroler serta interface komputer dengan mirkokontrooler untuk tugas akhir elektro , elektronika, mekatronika, informatika Blog Adi Sanjaya Global Techno Solution - AS-GTS



Jasa pemrograman mikrokontroler serta interface komputer dengan mirkokontrooler untuk tugas akhir elektro , elektronika, mekatronika, informatika
Jika anda sedang menyelesaikan tugas akhir atau skripsi dan anda merasa kesulitan untuk memprogram mikrokontroler untuk penyelesaian tugas akhir atau skripsi anda, kami bersedia membantu anda untuk memprogram mikrokontroler sesuai dengan spesifikasi yang anda buat ,
Beberapa gambaran program yang dapat kami bantu adalah:

Kendali via komputer melalui komunikasi serial dengan kabel
Kendali via komputer melalui komunikasi serial tanpa kabel bisa dengan xbee, kyl dan lain lain,
Kendali lampu, putaran motor 3 phase, via android melalui komunikasi serial dengan Bluetooth
Rpm meter dengan tampilan pada personal computer
Kendali lampu via internet dengan tampilan pada personal computer
Sensor suhu dengan tampilan pada personal computer
Sensor arus dengan tampilan pada personal computer
Sensor suhu dan kelembaban dengan tampilan pada personal computer
Early warning system untuk kegempaan dengan tampilan pada personal computer
Early warning system banjir dengan tampilan pada personal computer
Pengendalian lampu via sms dengan interface dari komputer
Pengendalian motor 3 phasa putar kanan putar kiri via sms dengan interface computer
Pengatur kecepatan kipas angin dengan interface personal computer
Penghitung jumlah barang multi line dengan tampilan komputer
Penampil data multi sensor dengan tampilan pada personal computer
Akses sensor dht 11 dengan tampilan pada personal computer
Sensor kelembaban tanah dengan tampilan pada personal computer
Sensor suhu dengan tampilan pada LCD 2 baris 16 kolom
Sensor arus dengan tampilan pada LCD 2 baris 16 kolom
Sensor suhu dan kelembaban dengan tampilan pada LCD 2 baris 16 kolom
Early warning system untuk kegempaan dengan tampilan pada LCD 2 baris 16 kolom
Early warning system banjir dengan tampilan pada LCD 2 baris 16 kolom
Pengendalian lampu via sms tanpa interface dari komputer (stand alone)
Pengendalian motor 3 phasa putar kanan putar kiri via sms tanpa interface computer
Pengatur kecepatan kipas angin dengan  tampilan LCD 2 baris 16 kolom
Penghitung jumlah barang multi line dengan tampilan LCD
Akses sensor dht 11 dengan tampilan pada LCD 2 baris 16 kolom
Sensor kelembaban tanah dengan tampilan pada LCD 2 baris 16 kolom
Penghitung pulsa high dengan tampilan LCD 2 baris 16 kolom
Pengukur ketinggian dengan sensor ping
Pengukur jarak dengan sensor ping
Pengukur ketinggian dengan sesor hc srf 05
Early warning system untuk kegempaan dengan tampilan pada LCD 2 baris 16 kolom
Early warning system banjir dengan tampilan pada LCD 2 baris 16 kolom
Sistem pengaman anti maling dengan infrared
Kunci kendaraan dengan password keypad
Kunci pintu dengan password keypad
Kunci kendaraan dengan password RFID
Kunci pintu dengan password RFID
Sistem Presensi dengan RFID berbasis komputer
Sistem Presensi dengan RFID berbasis mikrokontroler
Sistem presensi dengan sidik jari berbasis komputer

KETERANGAN :
Namun kami membatasi pemrograman dengan bahasa basic menggunakan Bascom AVR sebagai compiler serta mikrokontroler keluarga AVR,


Kami juga melayani desain dan pembuatan tugas akhir, namun mohon maaf untuk laporan kami tidak membuatkan, tujuan nya agar anda mengerti apa yang anda tulis dan anda laporkan dan tidak mati kutu saat ujuan dilaksanakan 

feel free to contact us Taufik adi sanjaya (0857433320570) / ym taufiksanjaya@yahoo.com atau chat facebook http://www.facebook.com/t.adisanjaya

beberapa dokumentasi yang sempat kami abadikan (banyak pula yang terlewat)
dapat di lihat pada link berikut ini :

http://www.facebook.com/media/set/?set=a.2702723327269.2112214.1232303641&type=3

jika tidak nampil, pertama-tama silakan add terlebih dahulu account facebook saya.. setelah saya confirm friend .. baru link tersebut dapat di akses dengan baik...

Alat berbasis mikrokontroller dapat disesuaikan dengan  kebutuhan anda... beberapa yang pernah kami buat adalah monitoring sensor suhu (dapat pula sensor yang lain) ditampilkam pada PC

Kendali kecepatan kipas dc berdasarkan sensor suhu...


Monitoring data ketinggian air berbasis dengan menggunakan sensor ultra sonik srf 04 berbasis
mikrokontroler _  komputer secara wireles... (baik dengan x bee, wireless UM 96 / wireless um 12, kyl 1020 dan sebagainya)

Kendali peralatan listrik secara wireless (baik dengan x bee, wireless UM 96 / wireless um 12, kyl 1020 dan sebagainya) dengan mikrokontroler _  komputer

Kendali peralatan listrik melalui komunikasi serial dengan mikrokontroler _  komputer (RS 232)


More detail n pricing 
Contact Person : Taufik Adi Sanjaya
No HP / Whats App : 085743320570
Alamat : Jalan Imogiri Timur KM 11, 
Blawong 1 , RT 01, Trimulyo, 
Jetis, Bantul 55781.




Friday, September 13, 2013

Menampilkan data sensor suhu yang terhubung ke mikrokontroller ke dalam bentuk grafik pada Delphi 7 melalui komunikasi serial Blog Adi Sanjaya Global Techno Solution - AS-GTS


Menampilkan data sensor suhu  yang terhubung ke mikrokontroller ke dalam bentuk grafik pada Delphi 7 melalui komunikasi serial.

Pada tulisan kali ini akan di bahas bagaimana cara menampilkan data sensor suhu ke dalam bentuk grafik pada Delphi 7
Secara blok diagram  dapat digambarkan sebagai berikut :


Program yang di download (tanamkan) pada mikrokontroller dibuat supaya nantinya mengirimkan data sensor suhu dalam format  data suhu di akhiri dengan karakter A sehingga contoh data yang dikirim ke PC semisal berupa angka 35A atau 36A dan seterusnya (data tidak di akhiri dengan tanda enter / new line), sehingga jika ditampilkan pada hyperterminal format datanya adalah sebagaimana gambar berikut :


Sedangkan aplikasi yang di bangun dengan Delphi 7 nantinya dibuat supaya membaca satu persatu data yang masuk melalui port serial, dan ketika data yang masuk adalah huruf A, maka data sebelum huruf A akan di ambil sebagai data suhu sedangkan huruf A sendiri di hapus (didelimiter)


Source code pada sisi mikrokontroller nya adalah sebagai berikut :

$regfile = "m16def.dat"
$crystal = 12000000
$Baud = 9600

Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.6 , Rs = Portc.7
Config Lcd = 16 * 2

Dim inadc As Word
dim Suhu As Word
Dim I As Word
Dim Jml As Word
Dim Rata2 As Word

Start Adc
Cursor Off
Locate 1 , 2
Lcd "Sensor progres"
Locate 2 , 2
Lcd "Suhu sekarang"
Wait 1

Cls
Do
inadc = Getadc(0)                                           ' baca adc chanel 0
Suhu = inadc * 500                                          'tujuan baris ini dan baris di bawahnya untuk menghasilkan perkalian dengan angka 0,5
Suhu = Suhu / 1023
jml = Jml + Suhu                                            '  data masuk di simpan ke dalam variable jml. kemudian jumlahkan setiap data masuk dengan variable jml
 I = I + 1                                                  ' tiap ada data masuk, nilai ini akan di naikkan untuk perhitungan rata-rata
 Rata2 = Jml / I                                            ' nilai rata rata suhu di dapat dari jml di bagi jumlah data masuk

Waitms 100

loop until i = 20
if i = 20 then

locate 1 , 1
lcd "Suhu Saat Ini"
Locate 2 , 1
Lcd Rata2
Print Rata2 ; "A";
end IF
selanjutnya compile source code di atas untuk kemudian di downloadkan ke mikrokontroler.

Langkah demi langkah pembuatan aplikasi untuk menampilkan data suhu ke dalam bentuk grafik pada Delphi 7 adalah sebagai berikut :
1.      Buka delphi7, kemudian masukkan komponen sebagai berikut :
No
Komponen
Properti
Value
1
Form1
Caption
KOMUNIKASI SERIAL DELPHI - MIKROKONTROLLER
2
Button 1
Caption
START
3
Button 2
Caption
STOP
4
Button 3
Caption
CLOSE PROGRAM
5
Button 4
Caption
SETTING PORT SERIAL
6
Label 1
Caption
DATA :
7
Label 2
Caption
MENAMPILKAN DATA SERIAL DALAM BENTUK GRAFIK
8
Edit 1
Text
Kosongkan
9
ListBox1
Text
Kosongkan
10
GrouBox1
Caption
DATA SENSOR
11
TChart
-
-





















Susun tampilan desain form aplikasi sehingga menjadi sbb:



Catatan :
Untuk memilih tipe grafik yang akan di pergunakan, silakan Double click pada komponen chart sehingga muncul pengaturan property chart sebagai berikut:



Klik pada tombol Add..
Sehingga muncul chart gallery sebagai berikut :



Pilih Fast Line lalu tekan tombol OK
Tambahkan 1 buah series lagi (langkahnya sama dengan langkah di atas) sehingga menjadi sebagai berikut



Untuk pengaturan sumbu vertikal dan horizontal silakan klik pada tab axis



lalu pilih pada sub tab title, di sini anda dapat melakukan engauran terhadap nama nama axis yang ada , entah itu sumbu x , sumbu y dan sebagainya. Anda dapat mengaturnya sesuai dengan keinginan anda, selamat mengexplorasi dan berkreasi.


Sehingga tampilan form menjadi sebagai berikut :


Selanjutnya ketikkan source code sebagai berikut pada masing masing komponen yang bersesuaian :


No.
Nama Komponen
Event
Source Code
1
Button1
OnClick
if comport1.Connected = false then   //jika comport1 tidak terkoneksi, maka
  begin                               //akan dikoneksikan
   comport1.Connected := true;
  end;
2
Button2
OnClick
if comport1.Connected = true then       //untuk menghentikan proses penerimaan data
comport1.Connected := false;            //karena comport1 di disconnect
3
Button3
OnClick
Application.Terminate;
4
Button4
OnClick
comport1.ShowSetupDialog;    //untuk memilih comm serial sama setting baudrate
5
Comport1
OnRxChar
var A,DataA :string;
    s :TStringList;      //variabel string diatas bisa ditambahi sendiri sesuai
                         //kebutuhan jumlah sensor,tinggal tambah D,E,F,DataD,DataE,DataF,,dan seterusnya..
suhu:double;
waktu:string;
begin
{cari string 'A', jika ketemu string 'A' maka string SEBELUM 'A' atau data murni
akan di taruh dilistbox1 dan string 'A' di delimiter(dihapus). data dilistbox1
akan diambil dan ditampilkan ke edit1, begitu berurutan untuk data setelahnya.
kok bisa? ya karena nantinya format pengiriman datanya kan untuk misal 4 sensor suhu LM35 adalah
30A jadi dari format itu kan yg dimasukkan ke edit1 adalah 30 aja,sedangkan string pengenal 'A'
masuk ke listbox1 trus dihapus, data sensor berurutan dari A}

//////////////////SENSOR 1 delimiter string 'A'////////////////////////
//////////////////////////////////////////////////////////////////////
repeat
begin
comport1.ReadStr(A,1); //pengambilan data diulang trus sampai ketemu string 'A'
DataA:=DataA+A;
end;
until A='A';
s:=TStringList.Create;
s.Delimiter:='A';        //string 'A' dipisah dari data
s.DelimitedText:=DataA;  //data murni dimasukkan ke variabel DataA
listbox1.Items:=s;       //data murni di stringlist dipindah ke listbox1
edit1.Text:=listbox1.Items[0];  //data dilistbox1 ditampilkan ke edit1
//edit2.Text:=leftstr(edit1.Text,length(edit1.Text)-3 );
listbox1.Clear;                 //data listbox1 dihapus
waktu:=timetostr(now);
suhu:=strtofloat(edit1.Text);
chart1.Series[0].Add(suhu,waktu,clgreen);


Hasil uji coba aplikasi adalah sebagai berikut :



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