Tuesday, June 19, 2012

Menerima Pembuatan alat berbasis mikrokontroller (Jasa Pembuatan alat berbasis mikrokontroller)

Kami menerima pesanan pembuatan alat berbasis mikrokontroller, untuk berbagai keperluan ..


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) KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Tuesday, June 5, 2012

Penggunaan operator logika OR pada delphi 7

ketika menghadapi pernyataan dengan 2 kondisi yang harus dipenuhi salah satu saja (pada delphi) silakan gunakan operator logika OR

contohnya adalah sebagai berikut

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string;
begin
a:=edit1.Text;
b:=edit2.Text;

if a='abc' or b='def' then
showmessage(a+b);

end;
 
 
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Penggunaan operator logika AND pada delphi 7

ketika menghadapi pernyataan dengan 2 kondisi yang harus dipenuhi (pada delphi) silakan gunakan operator logika AND

contohnya adalah sebagai berikut

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string;
begin
a:=edit1.Text;
b:=edit2.Text;

if a='abc' and b='def' then
showmessage(a+b);

end;
 
 
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Monday, June 4, 2012

Angka terbilang dengan Delphi ( angka 1 menjadi huruf satu )

permintaan seorang teman untuk posting tentang fungsi terbilang dengan delphi...


ya akhirnya saya posting saja (sekalian upload source code) agar bisa di download  fungsi terbilang dengan delphi tersebut oleh banyak orang



Function Terbilang(Uang:Int64):String;
Begin
      If (Uang = 1) Then Terbilang:='Satu '
      Else If (Uang = 2) Then Terbilang:='Dua '
      Else If (Uang = 3) Then Terbilang:='Tiga '
      Else If (Uang = 4) Then Terbilang:='Empat '
      Else If (Uang = 5) Then Terbilang:='Lima '
      Else If (Uang = 6) Then Terbilang:='Enam '
      Else If (Uang = 7) Then Terbilang:='Tujuh '
      Else If (Uang = 8) Then Terbilang:='Delapan '
      Else If (Uang = 9) Then Terbilang:='Sembilan '
      Else If (Uang = 0) Then Terbilang := ' '
      Else If (Uang = 10) Then Terbilang := 'Sepuluh '
      Else If (Uang = 11) Then Terbilang := 'Sebelas '
      Else If (Uang >= 12) And (Uang <= 19) Then Terbilang:=Terbilang(Uang Mod 10) + 'Belas '
      Else If (Uang >=20) And (Uang <=99) Then Terbilang := Terbilang(Uang div 10) + 'Puluh ' + Terbilang(Uang Mod 10)
      Else If (Uang >=100) And (Uang <=199) Then Terbilang := 'Seratus ' + Terbilang(Uang - 100)
      Else If (Uang >= 200) And (Uang <=999) Then Terbilang := Terbilang(Uang div 100) + 'Ratus ' + Terbilang(Uang Mod 100)
      Else If (Uang >=1000) And (Uang <=1999) Then Terbilang := 'Seribu ' + Terbilang(Uang - 1000)
      Else If (Uang >=2000) And (Uang <=999999) Then Terbilang := Terbilang(Uang div 1000) + 'Ribu ' + Terbilang(Uang Mod 1000)
      Else If (Uang >=1000000) And (Uang <=999999999) Then Terbilang := Terbilang(Uang div 1000000) + 'Juta ' + Terbilang(Uang Mod 1000000)
      Else If (Uang >=1000000000) And (Uang <=999999999999) Then Terbilang :=Terbilang(Uang div 1000000000) + 'Milyar ' + Terbilang(Uang Mod 1000000000)
      Else If (Uang >=1000000000000)  Then Terbilang :=Terbilang(Uang div 1000000000000) + 'Triliun ' + Terbilang(Uang Mod 1000000000000);
End;


untuk donload source code dan cara penggunaan  fungsi terbilang dengan delphi KLIK DI SINI KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Menampilkan tanggal pada komponen label di Delphi 7



Bagi pemula (saya membayangkan saat pertama berkenalan dengan delphi ) menjadi masalah bagi saya untuk menampilkan jam pada aplikasi sederhana yang saya buat yang khusus ditujukan untuk menampilkan tanggal pada form Delphi.. tapi jika pemula sudah mengetahui caranya, maka akan menjadi hal yang sangat sepele… next langsung saja pembahasannya

Masukkan komponen sebagai berikut  :

No
Component pallete
Nama komponen
jumlah
1
system
timer
1
2
standard
label
1

Double klik pada component timer , kemudian  ketikkan source code Menampilkan jam pada Delphi
Sebagai berikut :
Label1.caption : = datetostr (now);

Sudah selesai…
Source code yang dipergunakan untuk menampilkan data tanggal ke label1 adalah perintah datetostr ( dalam bahasa manusia : ubah data tanggal saat ini ke type data string / text)
Jika anda berfikir Delphi itu mudah, anda sudah benar.
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Menampilkan jam pada Delphi



Bagi pemula (saya membayangkan saat pertama berkenalan dengan delphi ) menjadi masalah bagi saya untuk menampilkan jam pada aplikasi sederhana yang saya buat yang khusus ditujukan untuk menampilkan waktu pada form Delphi.. tapi jika pemula sudah mengetahui caranya, maka akan menjadi hal yang sangat sepele… next langsung saja pembahasannya

Masukkan komponen sebagai berikut  :

No
Component pallete
Nama komponen
jumlah
1
system
timer
1
2
standard
label
1

Double klik pada component timer , kemudian  ketikkan source code Menampilkan jam pada Delphi
Sebagai berikut :
Label1.caption : timetostr (now);

Sudah selesai…
Source code yang dipergunakan untuk menampilkan data waktu ke label1 adalah perintah datetostr ( dalam bahasa manusia : ubah data tanggal saat ini ke type data string / text)

Jika anda berfikir Delphi itu mudah, anda sudah benar.
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Saturday, June 2, 2012

Counter turun (down counter ) dengan tampilan seven segment pada mikrokontroler at mega 16 dengan pemrograman basic memanfaatkan bascom (basic compiler)



Penghitungan turun pada mikrokontroler at mega 16 dapat dilakukan pada event (meminjam istilah pada Delphi nih) saat tombol interupsi dalam kondisi low level maupun pada event-event yang lain… terserah panjenengan saja sebagai pengembang aplikasi karena hal ini bersifat opsional tergantung kebutuhan dn  kreatifitas anda (butuh otak kiri dan otak kanan untuk bisa sukses di dunia mikrokontroller)

Pemanfaatan interrupt pada pilihan enable saat kondisi low level sebagai inputan, dimaksudkan untuk menghindari double counting (penghitungan dobel) bahkan tidak hanya dobel malah bisa lebih dari itu.. penjelasannya adalah sebagai berikut : ketika yang dipergunakan adalah logika ketikan PINA.0 , PINB.x, PINC.x  atauPIND.x  maka yang terjadi ketika logika pada masing masing pin yang dimaksud berlogika nol maka penghitungan turun  akan terus dilakukan, tentunya hal ini akan menyebabkan aplikasi berjalan tidak sebagaimana mestinya.
Selanjutnya akan saya tampilkan rangkaian pada simulai proteus yang dipergunakan pada percobaan ini, berikut adalah gambar nya : (ingat pin interrupt  interrupt pada pada mikrokontroller dapat anda cek pada configurasi pin pada datasheet mikorokontroller ) silakan lihat gambar saja ya…

up down counter bascom


Untuk coding down counter memanfaatkan bascom (basic compiler), silakan lihat coding di bawah ini :

$regfile = "m16def.dat"
$crystal = 8000000

Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output

Datain Alias Portc.0
Clock Alias Portc.1
Strobe Alias Portc.2

Dim Kodesat As Byte , Npul As Integer , Nsat As Integer , Kodepul As Byte
Dim Koderat As Byte , Nrat As Integer

Mundur:
'Nrib = 9
Nrat = 9
Npul = 9
Nsat = 9



Do
  Gosub Tampil
  If Nsat = -1 Then
     Nsat = 9
     Decr Npul
  End If
  If Npul = -1 Then
     Npul = 9
     Decr Nrat
  End If
  If Nrat = -1 Then
     Nrat = 9
  '   Decr Nrib
     End If
  If Npul = 0 And Nsat = 0 Then
  If Nrat = 0 Then
     Goto Mundur
  End If
  End If
Gosub Tampil
Decr Nsat
Reset Strobe
Loop

Tampil:
Reset Strobe
Kodesat = Lookup(nsat , Kode)
Kodepul = Lookup(npul , Kode)
Koderat = Lookup(nrat , Kode)
'Koderib = Lookup(nrib , Kode)
'Shiftout Datain , Clock , Koderib , 1
Shiftout Datain , Clock , Koderat , 1
Shiftout Datain , Clock , Kodepul , 1
Shiftout Datain , Clock , Kodesat , 1
Waitms 1
Set Strobe
Waitms 100

Return

Kode:
Data &HC0 , &HF9 , &HA4 , &HB0 , &H99 , &H92 , &H82 , &HF8 , &H80 , &H90


Anda klenger ngeliatnya ? sama … saya juga tapi tenang saja dengan anda belajar sedikit saja, saya pastikan anda akan berhasil memahaminya (semoga tidak semakin klenger ya…..)




Jika anda bertanya dimana penerapannya ? anda dapat melihatnya pada traffic light , system  antrian bank dan sebagainya…
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Running text pada led dot matrix dengan at mega 16 dan bascom


Pernahkah anda menjumpai sebuah running text pada led matrix ? biasanya Running text pada led dot matrix tedapat pada pintu masuk swalayan, pom bensin / SPBU (Stasiun pengisian bahan bakar umum), gedung rektorat, kantor-kantor perusahaan, hotel dan sebagainya…
                Fungsi dari Running text pada led dot matrix adalah sebagai sarana promosi ataupun sebagai sarana memberikan informasi kepada pengunjung di suatu tempat tetentu…
                Running text pada led dot matrix biasanya terbuat dari beberapa buah led dot matrik yang di susun berjajar  supaya dapat menampilkan sekian banyak karakter yang akan di “running text”  kan
Berikut ini adalah contoh beberapa running text dengan at mega 16 memanfaatkan driver transistor bc547 sebagai saklar yang akan mengaktifkan baris / kolom yang akan menampilkan karakter yang dimaksud,
Pada rangkaian Running text pada led dot matrix biasanya dipergunakan shift register 74HC595 untuk menghemat penggunaan pin pada mikrokontroller 
Running text pada led dot matrix dengan at mega 16 dan bascom
DOWLOAD SOURCE CODE DAN SIMULASI PROTEUS : KLIK DI SINI VIDEO RUNNING TEXT SAMPLE YANG KAMI TAWARKAN ADALAH SEBAGAI BERIKUT :
  Jika membutuhkan peralatan dengan dot matrix silakan hubungi  085743320570 (taufik)

Hubungan bermain mikorontroller dengan otak kanan dan otak kiri (review pribadi) oleh Taufik Adi Sanjaya

 
Mikrokontroller , mungkin merupakan sebuah kata yang sangat asing bagi kalangan awam bahkan bagi mahasiswa kupu-kupu (kuliah - pulang – kuliah - pulang) pada jurusan elektro, elektronika, telekomunikasi, ilmu computer,  mesin, fisika maupun elektronika instrumentas.., padahal sebenar nya mikrokontroller sebaiknya menjadi salah satu bagian yang wajib hukumnya untuk dimegerti oleh kalangan tersebut … but its oke.. no problem terkait hal di atas

Lanjut, apa hubungan antara mikrokontroller dengan otak kanan dan otak kiri?
Sebelumnya secara kasar kita pernah di doktrin bahwa otak kiri adalah otak kecerdasan dn otak kanan adalah otak kebodohan (kata siapa? Kata saya mas… walopun saya sangat yakin pernyataaan ini salah kaprah bin salah total). Lanjut … sebenarnya yang ingin saya sampaikan bahwa otak kiri adalah otak orang-orang ga kreatif dan otak kanan adalah otak orang – orang kreatif (sekali lagi ini adalah pernyataan yang salah ) jangan dimasukkin hati

Yang benar menurut saya adalah otak kiri adalah otak orang – orang cerdas dan otak kanan adalah otak orang-oang kreatif sedangkan mikrokontroller adalah otaknya sebuah system otomatisasi

Hubungan ketiganya (otak kanan, otak kiri dan mikrokontroler) baik-baik saja alias tidak ada konflik di antara mereka… yang ingin saya sampaikan adalah pada pemrograman mikrokontroller dibutuhkan otak kiri (sedikit kecerdasan), otak kanan (sedikit imajinasi kreatif) itu saja….ndak perlu muluk-muluk yang penting jalan…

Kesimpulan akhir nya

Dibutuhkan otak kanan dan otak kiri dalam mencapai kesuksesan belajar mikrokontroller.

Sekian dan terimakasih atas kunjungannya

Special Thanks to Mr. Agfianto Eko P

Friday, June 1, 2012

Link Exchange ( tukeran links )

Arsoft Downloads
Welcome To Bed & Breakfast In Barcelona
Profit Forex Signal Review
Remi Weaving
Image Restoration
Windows 7 Home Premium Key
Accommodation In Bed And Breakfast In Barcelona, Spain
Tallahassee Kitchen Crafters Llc
Image Restoration
Locafroid
Cat Preparation, Cat 2011 Test Papers, Cat Online Test, Mba Test
Cheap Reseller Hosting
Apartment For Sale In Coimbatore, Land For Sale In Coimbatore,
Vitamins
Chinese Fresh Garlic | Chinese White Garlic | Chinese Garlic
Bakeware & Kitchenware - Fine Bakeware, Cookware, Kitchenware
Half Price Miami Tours
Cheap Hotels In Kuala Lumpur
Driving Lessons In Leyland
Find Tanning Salon Locations Near Me
Gucci Bags
BBB - Casanova Guest House
Website Availability Monitoring And Alert Escalation Profiles
Chefcuisine
Domain Hosting
Equipresto
Wedding Gowns
Loft Locator
Gastro Billig
Commercial Metal Roof Repair Companies Dallas
Free Classified India, Post Free Ad Listing, Free Ads Online
Commercial Metal Roofing Repair Dallas
Flat Roof Repair Companies Dallas Texas
Uk Handbags
Partypoker.de
Time Clock Software - Pointeuse Horodateur
Fabrication De Bijoux - Cabochon - Jewelry Supplies
Gbg 10 In One
Dallas Federal Criminal Lawyer
Juicy Outlet
Ceiling Tiles Store
Dresses Karen Millen
North Face Denali
Airbrush Tanning Guide Training
Short Sales And Bank Owned Homes
Duro Shed
Giuseppe Zanotti Shoes
Karen Millen Dresses
Dress Karen Millen
Gastro-billiger
Gastrodirect Asia
Gastrodirect Austria
Photo Restoration
Kronus Grande Cuisine
Kitchen Catering Europe
Tallahassee Swing Sets And Playgrounds
Kitchen Outlet
Gastrodirect Food Catering KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

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