Thursday, March 22, 2012

Pelatihan Pemrograman Mikorontroler dan Interfacing PC dengan Bahasa Basic Daerah Istimewa Yogyakarta

Dengan ini kami mengajukan  penawaran atas pelatihan mikrokontroller dengan bahasa Basic menggunakan software bascom , untuk berbagai fungsi mikrokontroller sebagai berikut :


Aplikasi I/O digital
o simulasi keluaran / output digital (logika 1 dan 0, ON dan OFF) melalui satu atau
beberapa dari LED ;
o Simulasi masukan digital (logika 1 dan 0, ON dan OFF) melalui pushbutton ;

LCD 2 baris 16 kolom
o Untuk Menampilkan hasil proses maupun kondisi in-progress melalui LCD 2×16 karakter;
 Diantaranya : menampilkan teks pada  LCD, menggeser teks pada LCD, menampilkan karakter khusus sesuai desain pribadi (semisal tanda hati )pada LCD .

Masukan ADC Potensiometer, LDR (cahaya) dan LM35 (suhu)
o pembacaan masukan analog baik dari potensiometer maupun pengukuran kuat cahaya dengan
LDR atau suhu dengan LM35;
Data pengukuran sensor cahaya, sensor suhu dan potensio akan ditampilkan ke LCD

Relay
o Dapat dimanfaatkan untuk mengaktifkan peralatan listrik tegangan tinggi (220 Volt)

Buzzer
o Buzzer ini dimanfaatkan untuk alarm atau indikator suara pada kondisi tertentu, semisal tinggi nya suhu pada sensor suhu LM35 yang dijadikan acuan


Komunikasi serial RS232
o Bagaimana melakukan pemantauan dan/atau pengontrolan melalui komputer menggunakan
media komunikasi serial dengan tingkat tegangan RS232 melalui port DB 9 / port serial pada PC tema pertama dengan menggunakan Hyperteminal sebagai pengendali komunikasi serial (menampilkan data serial dari mikrokontroller ke hyperterminal, menampilkan tulisan/text dari hyperterminal ditampilkan pada LCD pada mikrokontroller, pengontrollon nyala peralatan listrik melalui hyperterminal)


o Bagaimana melakukan pemantauan dan/atau pengontrolan melalui komputer menggunakan
media komunikasi serial dengan tingkat tegangan RS232 melalui port DB 9 / port serial pada PC dengan menggunakan Delphi & sebagai pengendali komunikasi serial (menampilkan data serial dari mikrokontroller ke hyperterminal,

Penampil data sensor suhu pada PC dalam bentuk angka, grafik  menampilkan tulisan/text dari delphi ditampilkan pada LCD pada mikrokontroller,


Pengontrolon nyala peralatan listrik melalui komputer menggunakan antarmuka delphi )




 Akses EEPROM internal mikrokontroler (AVR)
o Menyimpan dan membaca data pada EEPROM internal

Interupsi Eksternal
o Pemrograman sistem interupsi eksternal.

Pulse Wave Modulation pada mikrokontroler
o Membangkitkan sinyal PWM (semulasi mengatur terang redup LED)

Biaya pelatihan tersebut adalah sebesar

Rp. 600.000,00 (enam ratus  ribu rupiah ) untuk pelajar.
Rp. 800.000,00 (delapan ratus ribu rupiah ) untuk mahasiswa.
Rp. 1.200.000,00 (Satu Juta Dua Ratus Ribu Rupiah ) untuk Umum.


Kit pembelajaran mikrokontroller yang kami gunakan untuk pelatihan tersebut adalah Board
AVR trainer versi 2 sebagai berikut :


Gambar Modul Trainer AVR (Support ATMega 8535 / ATMega16 / ATMega32 )
Berikut adalah fasilitas yang ada pada alat tersebut:
Aplikasi I/O digital
o 8 (delapan) LED;
Simulasi keluaran / output digital (logika 1 dan 0, ON dan OFF) melalui satu atau beberapa dari
LED ;
o 2 (dua) pushbutton;
Simulasi masukan digital (logika 1 dan 0, ON dan OFF) melalui pushbutton ;
LCD 16×2
o Untuk Menampilkan hasil proses maupun kondisi in-progress melalui LCD 2×16 karakter;
Masukan ADC Potensiometer, LDR (cahaya) dan LM35 (suhu)
o Dapat dipergunakan untuk pembelajaran pembacaan masukan analog baik dari potensiometer
maupun pengukuran kuat cahaya dengan LDR atau suhu dengan LM35;
Buzzer untuk bunyi-bunyian
o Buzzer ini dimanfaatkan untuk alarm atau indikator suara dll;

Komunikasi I2C
o EEPROM eksternal AT24C64 dengan komunikasi I2C;
Dengan fasilitas EEPROM, Anda bisa menyimpan data-data penting baik untuk pengukuran,
konstanta dan lain sebagainya tanpa khawatir hilang data saat board di matikan;
o Real Time Clock (RTC) DS1307 dengan komunikasi I2C;
Akurasi waktu adalah hal yang sangat penting, inilah sebabnya board ini dilengkapi dengan RTC
untuk menyimpan kalender lengkap dengan pengaturan alarm-nya;

Komunikasi serial TTL dan RS232
o Board ini siap digunakan untuk belajar bagaimana melakukan pemantauan dan/atau
pengontrolan melalui komputer menggunakan media komunikasi serial dengan tingkat tegangan
RS232 melalui port DB 9 / port serial pada PC
o Juga mendukung komunikasi serial dengan mikrokontroler lainnya menggunakan
komunikasi serial tingkat tegangan TTL

Relay
o Dapat dimanfaatkan untuk mengaktifkan peralatan listrik tegangan tinggi (220 Volt)

Antarmuka MMC/SD Card
o Untuk menghubungkan dengan MMC/multimedia card

Mendukung mikrokontroler AVR ATMega16/32/8535
Catu daya teregulasi 5volt, sehingga bisa Anda siapkan adaptor 6-15 volt
Jika menghendaki pelatihan + bonus kit pembelajaran di atas , biayatambahan nya Rp.500.000 (pembelian alat)
Bonus :

Downloader senilai Rp. 90.000,00

Pelatihan dilaksanakan 4 hari, dengan masing masing 4 jam pelatihan  pemrograman mikrokontroller setiap harinya, sehingga total jam pelatihan = 16 Jam

Berikut ini salah satu foto dokumentasi pelatihan untuk 2 orang Dosen dari STIMIK  Master Komputer Bandar Lampung pada tanggal 22-23 Maret 2012





Info lebih lanjut

Contact Us

Taufik Adi Sanjaya
Address:
Jalan Imogiri Timur KM 11,
Blawong 1, Tri Mulyo
Jetis, Bantul, Daerah Istimewa Yogyakarta
55781
Indonesia

E-mail: taufiksanjaya@yahoo.com

 
Mobile Phone Number: +6285743320570
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Friday, March 16, 2012

Mendapatkan kode ASCII dari tombol ditekan dengan Delphi 7 ( how to get keyboard ASCII kode using delphi 7)

Berikut ini adalah source code untuk mendapatkan kode ascii dari masing - masing tombol yang di tekan dengan menggunakan delphi 7


Set property KeyPreview pada form utama menjadi True

manfaatkan event OnkeyDown pada form utama



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.Caption:=Chr(Key)+' - '+IntToStr(Key);
end;
 
KLIK DI SINI  KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Tuesday, March 13, 2012

Jual AVR Fusebit Doctor untuk mengatasi masalah yang terjadi akibat kesalahan setting fusebit ( avr fuse bit doctor for sale : recovery your at microcontroller wrong fuse bits setting )

avr fuse bit doctor
(Fiber PCB ± 5,5cm x 9,4cm ; resistor 1%)
Layout PCB and firmware : DIY Elektroda

AVR Fuse bit Doctor (Dokter fuse bit AVR) merupakan alat untuk memperbaiki fusebit yang salah ketika mendownload program ke mikrokontroler AVR. Sehingga kesalahan tersebut menyebabkan Mikrokontroler ke LOCK. Permasalahan ini disebabkan karena pengaturan sumber clock yang salah (CKSEL), menonaktifkan pemrograman SPI (SPIEN), atau pengaturan pin reset di mode I/O (RSTDISBL). Dengan alat ini, Anda bisa memperbaiki mikrokontroler yang ke-lock karena pengaturan fusebit yang salah, dan akan mengembalikan mikrokontroler seperti baru beli (kembali ke pengaturan awal / pabrik) .
 
Harga = Rp 150.000,-
(Support 145 Chips Mikrokontroler)
Yang di dapat :
1. AVR Fuse bit Doctor
2. CD
CD berisi :
1. Petunjuk penggunaan
2. Konfigurasi Pin (untuk soket/adapter ke mikrokontroler 8pin, 14pin, dsb)

 
*Gambar hanya merupakan contoh, karena dalam pembuatannya, pin-header diganti menggunakan fcp (female dari pin-head, agar lebih mudah digunakan untuk adapter 8pin, dsb selain 20pin, 28pin, dan 40pin).


Mode kerja dari alat ini ada 2, yaitu :
HVPP = High Voltage Parallel Programming
HVSP = High Voltage Serial Programming

 
Alat ini support 145 chip mikrokontroler, diantaranya :

 
1kB:
AT90s1200, Attiny11, Attiny12, Attiny13/A, Attiny15
2kB:
Attiny2313/A, Attiny24/A, Attiny26, Attiny261/A, Attiny28, AT90s2333, Attiny22, Attiny25, AT90s2313, AT90s2323, AT90s2343
4kB:
Atmega48/A, Atmega48P/PA, Attiny461/A, Attiny43U, Attiny4313, Attiny44/A, Attiny48, AT90s4433, AT90s4414, AT90s4434, Attiny45
8kB:
Atmega8515, Atmega8535, Atmega8/A, Atmega88/A, Atmega88P/PA, AT90pwm1, AT90pwm2, AT90pwm2B, AT90pwm3, AT90pwm3B, AT90pwm81, AT90usb82, Attiny84, Attiny85, Attiny861/A, Attiny87, Attiny88, AT90s8515, AT90s8535
16kB:
Atmega16/A, Atmega16U2, Atmega16U4, Atmega16M1, Atmega161, Atmega162, Atmega163, Atmega164A, Atmega164P/PA, Atmega165A/P/PA, Atmega168/A, Atmega168P/PA, Atmega169A/PA, Attiny167, AT90pwm216, AT90pwm316, AT90usb162
32kB:
Atmega32/A, Atmega32C1, Atmega323/A, Atmega32U2, Atmega32U4, Atmega32U6, Atmega32M1, Atmega324A, Atmega324P, Atmega324PA, Atmega325, Atmega3250, Atmega325A/PA, Atmega3250A/PA, Atmega328, Atmega328P, Atmega329, Atmega3290, Atmega329A/PA, Atmega3290A/PA, AT90can32
64kB:
Atmega64/A, Atmega64C1, Atmega64M1, Atmega649, Atmega6490, Atmega649A/P, Atmega6490A/P, Atmega640, Atmega644/A, Atmega644P/PA, Atmega645, Atmega645A/P, Atmega6450, Atmega6450A/P, AT90usb646, AT90usb647, AT90can64
128kB:
Atmega103, Atmega128/A, Atmega1280, Atmega1281, Atmega1284, Atmega1284P, AT90usb1286, AT90usb1287, AT90can128
256kB:
Atmega2560, Atmega2561



(AVR Fuse bit Doctor ini mendukung 145 chip mikrokontroler, tetapi pin yang tersedia pada alat hanya 20pin, 28pin, dan 40pin. Sehingga untuk penggunaan selain dari itu bisa melihat di dalam CD konfigurasinya jika ingin unlock mikrokontroler yang ke lock, sangat mudah, dan hanya melakukan koneksi saja dari alat ke mikro target.)

 
Pemesanan Hubungi :
Taufik (085743320570)

potongan Rp.5rb untuk masing masing produk pemesanan minimal 3 unit
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Monday, March 12, 2012

Tipe Data pada Delphi (data type on delphi Delphi Basic Fundamental)

Salah satu tujuan dalam penggunaan program adalah mempermudah pekerjaan, salah satunya adalah pekerjaan mengolah data. Untuk mengolah data kita harus memasukkan data yang diketahui lalu diproses menggunakan programuntuk menghasilkan data jadi. Contoh mudah sebuah aplikasi yang menggunakan masukan data dan operator adalah aplikasi hitung, yakni pipilondo (ping poro lan sudo ) baca : kali , bali, tambah dan kurang... sebagai contoh adalah kalkulator

Pengertian Data, Konstanta dan Variabel.
Data adalah catatan atas fakta atau kenyataan yang berupa angka, huruf/karakter, simbol, gambar, suara, dll. Data merupakan merupakan informasi yang dibutuhkan dalam berbagai aspek. Sering sebelum melakukan sebuah proses dibutuhkan data-data sebagai referensi.
Konstanta adalah data yang nilainya tetap dan tidak akan berubah.
Contoh konstanta:
  • pi = 22/7 atau 3.14159265
    artinya nilai pi adalah tetap 22/7 atau 3.14159265
  • A = 10
    artinya nilai A disini sudah ditetapkan sebesar 10, jadi selanjutnya nilai A tidak berubah kecuali diganti dengan nilai konstanta yang lain.
Variabel adalah data yang nilainya dapat berubah sewaktu-waktu bergantung keadaan. Variabel tidak didefinisikan dengan sebuah nilai tertentu melainkan hanya namanya saja.
Contoh Variabel :
  • Luas
  • Panjang
  • Daftar Siswa
Macam-macam tipe data pada Delphi
  1. Tipe Integer
    Adalah tipe data yang menyatakan bilangan/angka.
    Macam-macam tipe data integer: 
    Tipe Data Jangkauan Nilai Format
    Shortint -128 s/d 127 8bit, signed
    Smallint -32768 s/d 32767 16bit, signed
    Longint -2147483648 s/d 2147483647 32bit, signed
    Int64 -2^63 s/d 2^63 -1 64bit, signed
    Byte 0 s/d 255 8bit, unsigned
    Word 0 s/d 65535 16bit, unsigned
    LongWord 0 s/d 4294967295 32bit, unsigned
    note:
    • signed maksudnya bilangan bertanda, artinya mengenal bilangan negatif dan positif
    • unsigned maksudnya bilangan tak bertanda, dimulai dari 0 (nol) dan tidak mengenal bilangan negatif dan positif
  2. Tipe Real
    Adalah tipe data yang menyatakan himpunan bilangan/angka. Tipe Real juga disebut tipe float.
    Macam-macam tipe data real: 
    Tipe Data Jangkauan Nilai Significant digit Ukuran
    Real48 2.9×10^-39 s/d 1.7×10^38 11-12 6 Byte
    Single 1.5×10^-45 s/d 3.4×10^38 7-8 4 Byte
    Double 5.0×10^-324 s/d 1.7×10^308 15-16 8 Byte
    Extended 3.6×10^-4951 s/d 1.1×10^4932 19-20 10 Byte
    Comp -2^63+1 s/d 2^63-1 19-20 8 Byte
    Currency -922337203685477.5808 s/d
    922337203685477.5807
    19-20 8 Byte
  3. Tipe Boolean
    Adalah tipe data yang menyatakan nilai benar atau salah (True atau False).
    Macam-macam tipe data Boolean: 
    Tipe Data Nilai Ukuran Memori
    Boolean True or False 1 Byte
    ByteBool True or False 1 Byte
    WordBool True or False 2 Byte
    LongBool True or False 4 Byte
  4. Tipe Character
    Adalah tipe data untuk menyatakan sebuah huruf/karakter. Tipe character fundamental adalah AnsiChar dan WideChar. AnsiChar berukuran satu byte dan WideChar berukuran lebih dari satu byte. Tipe character generic adalah Char, yang ekuivalen dengan AnsiChar.
    Karakter bisa juga ditunjukkan pada konstanta string dengan panjang 1, misalnya ‘A’. Fungsi Chr menghasilkan nilai karakter bagi setiap range integer AnsiChar. Contoh fungsi Chr(65) menghasilkan huruf A.
  5. Tipe String
    Adalah tipe data yang menyatakan rangkaian beberapa karakter.
    Macam-macam tipe string : 
    Tipe Data Panjang Teks Ukuran Memori Pemakaian
    ShortString 255 karakter 2 s/d 256 Byte compatible
    AnsiString ~2^31 karakter 4 Byte s/d 2GB 8bit ansi character
    WideString ~2^30 karakter 4 Byte s/d 2GB Unicode character
  6. Tipe Pointer
    Adalah sebuah variabel yang menunjukkan sebuah alamat memori. Pointer dipakai untuk mengindikasi jenis data yang disimpan pada alamat yang dikandungnya. Pointer menempati 4 byte memori.
  7. Tipe Variant
    Adalah tipe data yang menyatakan nilai yang bisa berubah saat runtime program. Variant dapat berisi semua tipe data. Variant menawarkan kompatibilitas yang tinggi namun membutuhkan memori yang besar.
special thanks to
Abi Sabrina KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Operator-operator yang dipergunakan pada Delphi 7 ( delphi basic fundamentals : operators on delphi 7 )

Operator adalah bagian dari program untuk membuat operasi pada data. Terdapat beberapa operator untuk menangani operasi program sesuai tipe data.

Macam-macam operator pada Delphi 7 :
  1. Operator Aritmatika
    Adalah operator untuk keperluan operasi bilangan. Operator aritmatika dibagi menjadi dua, yaitu operator binary dan operator unary.
    Macam-macam operator aritmatika binary: 
    Operator Operasi Tipe Operand Tipe Hasil Contoh
    + Penjumlahan integer, real integer, real X + Y
    - Pengurangan integer, real integer, real X – Y
    * Perkalian integer, real integer, real X * Y
    / Pembagian real integer, real real X / Y
    div Pembagian integer integer integer X div Y
    mod Sisa integer integer X mod Y
    Macam-macam operator aritmatika unary:
    Operator Operasi Tipe Operand Tipe Hasil Contoh
    + (unary) Tanda positif integer, real integer, real +X
    - (unary) Tanda negatif integer, real integer, real -X
  2. Operator Boolean
    Adalah operator yang dipakai untuk menangani operasi data bertipa boolean. Operator ini juga menghasilkan data bertipe boolean.
    Macam-macam operator boolean: 
    Operator Operasi Tipe Operand Tipe Hasil Contoh
    not Negasi Boolean Boolean not lulus
    and Konjungsi Boolean Boolean pria and single
    or Disjungsi Boolean Boolean pria or wanita
    xor Disjungsi Eksklusif Boolean Boolean anak xor balita
  3. Operator Logika
    Adalah operator untuk menangani operasi logika pada bit-bit angka. Berbeda dengan operator boolean, operator logika berfungsi mirip dengan operator aritmatika, artinya operator ini tidak menangani data berupa pernyataan namun berupa angka / integer.
    Macam-macam operator logika :
    Operator Operasi Tipe Operand Tipe Hasil Contoh
    not bit negation integer integer not A
    and bit and integer integer A and B
    or bit or integer integer A or B
    xor bit xor integer integer A xor B
    shl bit shift left integer integer A shl 2
    shr bit shift right integer integer B shr 3
  4. Operator String
    Adalah operator yang menangani data berupa string atau huruf/karakter. Operator string hanya satu, yaitu operator +. Operator ini berfungsi sebagai perangkai, jadi tidak sama dengan + pada operator aritmatika. 
    Operator Operasi Tipe Operand Tipe Hasil Contoh
    + Perangkaian String, Character String ‘A’+'ku’
  5. Operator Pointer
    adalah operator yang khusus menangani data berupa pointer, hasil operator pointer bisa berupa pointer, integer, atau boolean.
    Macam-macam operator pointer: 
    Operator Operasi Tipe Operand Tipe Hasil Contoh
    + Penjumlahan Pointer Character pointer, Integer Character pointer P+I
    - Pengurangan Pointer Character Pointer, Integer Character Pointer, Integer P-Q
    ^ Selisih Pointer Pointer Tipe dasar pointer P^
    = Persamaan Pointer Boolean P=Q
    <> Pertidaksamaan Pointer Boolean P<>Q
  6. Operator Himpunan
    Adalah operator yang menangani data berupa himpunan.
    Macam-macam operator himpunan : 
    Operator Operasi Tipe Operand Tipe Hasil Contoh
    + Union set set S1+S2
    - Selisih set set S1-S2
    * Intersection set set S1*S2
    <= Subset set boolean S1<=S2
    >= Superset set boolean S2>=S1
    = Persamaan set boolean S1=S2
    <> Pertidaksamaan set boolean S1<>S2
    in Keanggotaan ordinal, set boolean S1 in S2
  7. Operator Relasional
    Adalah operator yang menangani perbandingan antara dua buah data. Operator relasional menghasilkan nilai boolean.
    Macam-macam operator relasional:
    Operator Operasi Tipe Operand Tipe Hasil Contoh
    = Persamaan simple, class, class reference, interface, string, packed string Boolean A=B
    <> Pertidaksamaan simple, class, class reference, interface, string, packed string Boolean A<>B
    < Kurang dari simple, string, packed string, PChar Boolean A<B
    > Lebih Dari simple, string, packed string, PChar Boolean A>B
    <= Kurang dari atau sama dengan simple, string, packed string, PChar Boolean A<=B
    >= Lebih dari atau sama dengan simple, string, packed string, PChar Boolean A>=B
  8. Operator Class
    Operator as dan is menerima class dan instan obyek sebagai operand, operator = dan juga beroperasi dengan class
  9. Operator @
    Operator @ menghasilkan alamat variabel, function, procedure, atau method. Operator @ mengkonstruksi pointer dengan operandnya


special thanks to
Abi Sabrina KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Aplikasi untuk menghitung Gaji karyawan delphi (sederhana) how to calculate employee fee on delphi

free source code Aplikasi untuk menghitung Gaji karyawan delphi (sederhana) dapat di download pada akhir postingan ini..



Kita akan membuat aplikasi perhitungan gaji karyawan dengan kriteria sebagai berikut :
  1. Setiap orang memiliki gaji pokok dan tunjangan anak.
  2. Besarnya tunjangan anak adalah 50.000
  3. Jumlah anak yang diberi tunjangan maksimal sampai anak ke-3.
tapi saya tidak membagi step by step... langsung source code saya ya


KLIK DI SINI

special thanks to
Abi Sabrina KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Program Pertama dengan Delphi (bukan Hello World Delphi) first application using delphi ( say good bye to hello world ! )

free source code nya ada di akhir posting ya...

aplikasi ini adalah aplikasi super sederhana untuk para newbie delphi programmer dimana " permainan " yang akan dilakukan hanyalah bermain text caption dan bermain button,.. mengapa saya katakan bermain? karena jika disebut belajar mungkin akan membosankan dan menjenuhkan...



SILAKAN DONLOAD Program Pertama dengan Delphi (bukan Hello World Delphi)




ucap terimakasih kepada

Abi Sabrina

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Smallport, komponen untuk mengakses port paralel / printer / LPT ( smallport delphi download / component for accessing paralel port n delphi)

Smallport, komponen untuk mengakses port paralel / printer / LPT

komponen small port pada delphi dipergunakan untuk mengakses port lpt/ port paralel / port printer, baik itu membaca maupun menulis data, komponen ini sangat mudah dipergunakan karena tidak memerlukan library tertentu ataupun penulisan kode dengan bahasa assembler untuk membaca / menulis data ke port paralel.

( smallport port test application )

untuk dapat mendownload komponen small port silakan KLIK DI SINI KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Membaca data port paralel / port printer / port LPT dengan delphi 7 (delphi source code for accessing parallel port / read and write data to paralel port with delphi and smallport )

Membaca data port paralel  / port printer / port LPT, source code aplikasi ini ditulis dengan memanfaatkan komponen smallport, dikarenakan kemudahan yang ditawarkan oleh komponen tersebut untuk membaca / menulis data pada port paralel.... tidak perlu banyak tulisan ya saudara-saudara sekalian, saya berikan source code Membaca data port paralel  / port printer / port LPT dengan delphi 7 secara gratis - tis..

aplikasi ini memanfaatkan komponen smallport sebagai komponen utama dalam proses membaca / menulis data pada paralel port / port printer / LPT

silakan download DI SINI KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Thermometer Digital berbasis mikrokontroler atmega8535 untuk mengakses sensor suhu lm 35 dan mengontrol kecepetan Kipas DC( digital thermometer using at mega 8535 and controlling dc motor fan speed)

Thermometer Digital berbasis mikrokontroler atmega8535, termometer digital ini hanya sebagai sample saja, berikut ini adalah tampilannya :

sensor suhu

video nya adalah sebagai berikut :



jika berminat untuk memiliki aplikasi dengan sensor sebagai mana di atas, silakan hubungi 085743320570 (taufik)


source code untuk mengakses sensor suhu pada at mega 8535 + mengontrol kecepatan motor dc adalah sebagai berikut

$regfile = "8535def.dat"
$crystal = 12000000

Porta = &B00000000



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




'Dim Pwm As Integer

Dim Pwm_eprom As Eram Integer

Dim Pwm As Integer


Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Dim Insuhuadc As Word , Suhu As Word , Insuhuadcolah As Word , Insuhuadcprescalerx5 As Word
Dim I As Word , Jml As Word , Rata2 As Word


Wait 1


Cls
Locate 1 , 1
Lcd "input adc"

Locate 2 , 1
Lcd "Suhu"






Do



Start Adc

Insuhuadc = Getadc(0)
Insuhuadcolah = Insuhuadc * 5000
Insuhuadcprescalerx5 = Insuhuadcolah / 1023
Suhu = Insuhuadcprescalerx5 * 1
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
Waitms 100

If I = 20 Then
Rata2 = Jml / I

Cls
Locate 1 , 1
Lcd "input adc" ; Insuhuadc

Locate 2 , 1
Lcd "Suhu" ; Rata2

Locate 2 , 10
Lcd "PWM" ; Pwm


Elseif I > 20 Then
Jml = 0
 I = 0



'SEDANG
'Pwm = Pwm_eprom

If Rata2 < 25 Then : Pwm = 180 : Waitms 10
End If
' panas
If Rata2 > 30 Then : Pwm = 220 : Waitms 10
End If

If Rata2 > 40 Then : Pwm = 255 : Waitms 10
End If


'If Pwm > 255 Then : Pwm = 0 : Waitms 10

'End If

'If Pwm < 0 Then : Pwm = 255 : Waitms 10

'End If

Pwm1a = Pwm
Pwm1b = Pwm






End If

Loop KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Sunday, March 11, 2012

Free Source Code Memasukkan dan menampilkan gambar ke dan dari database pada Delphi ( free source code : insert picture to database delphi and viewing picture )

berikut ini adalah contoh  Free Source Code Memasukkan dan menampilkan gambar ke dan dari  database pada Delphi, database yang dipergunakan adalah MS access

silakan download source code nya  dengan KLIK DI SINI KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Free Source Kode menampikan Gambar berformat GIF pada Delphi ( how to show gif picture on delphi )

Pemula .. sebagai pada pembuat postingan ini, pasti akan merasa kebingungan untuk menampilkan gambar berformat gif pada delphi,

anda mengalami kesulitan ?

berikut ini adalah jawabannya

SILAKAN DONLOAD SOURCE CODE NYA DI SINI KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Mengapa terjadi Key value for this row was changed or deleted at the data store. The local row in now deleted pada delphi

Programmer pemula bertanya : mengapa terjadi muncul pesan "Key value for this row was changed or deleted at the data store. The local row in now deleted " pada delphi saat digunakan untuk mengakses database (dalam hal ini setelah proses update/edit data)?

programmer yang lebih pemula menjawab : hal tersebut terjadi karena

semisal ada 2 buah komponen yang dipergunakan untuk akses data base semisal adotable dan adoquery, ketika terjadi perubahan data (semisal karena proses edit data), salah satu komponen mempost (baca : memasukkan data, saat komponen lain pengaskses database tersebut sama - sama masih aktif)

solusinya : ketika proses penyimpanan data semisal

adotable1.Edit;
adotable1.FieldByName('deadline').AsDateTime:=datetimepickeredit.DateTime;
adotable1.post;
adotable1.Refresh;

TAMBAHKAN KODE

adoquery1.Close;
adoquery1.open;
adoquery1.Refresh;


SEHINGGA MENJADI

adoquery1.Close;

adotable1.Edit;
adotable1.FieldByName('deadline').AsDateTime:=datetimepickeredit.DateTime;
adotable1.post;
adotable1.Refresh;

adoquery1.open;
adoquery1.Refresh;
 
MASIH BINGUNG?

berarti anda memang benar benar pemula... KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Monday, March 5, 2012

Menghitung rata-rata pada delphi 7 ( calculate the average value using delphi )

Menghitung rata-rata pada delphi 7

pernahkah anda berkeinginan untuk menghitung suatu nilai rata - rata pada delphi? pada posting ini , akan dibagikan sebuah source code untuk menghitung nilai rata -rata yang di buat dengan delphi 7, nilain inputan akan dijumlahkan terus menerus dari komponen edit (hanya 1 buah inputan) sehingga nilai perhitungan rata-rata menjadi dinamis (tidak terbatas pada banyak nya komponen edit sebagai inputan), variable jumlah akan disimpan dalam sebuah varible di dalam source code, selanjutnya akan ditambahkan dengan data inputan pada komponen edit 1, begitu pula counter jumlah data, sehingga pada setiap data masuk , jumlah data masukan dan counter jumlah data akan bertambah secara beriringan ... ada akhirnya dapat dihiting nilai rata rata dengan membagi jumlah total data inputan dibagi cunter jumlah dta masukkan

silakan DOWNLOAD DI SINI KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Perkalian dengan delphi (angka dengan huruf) how to calculate between numeric value and alphabet

pada posting ini saya akan memberikan soruce code sederhana untuk pemula dalam pemrograman delphi, yakni perkalian angka dengan huruf, disini angka akan di ambil dari combobox, jadi angka pertama di[eroleh dari huruf yang ada di combobox 1 lalu di konversi ke dalam bentuk angka semisal, A=1, B=2, C=3, D=4 dan seterusnya. sedangkan angka ke kedua, data berupa angka dari combobox 2, selanjutnua dilakukan perkalian antara data 1 dengan data 2...


SILAKAN DOWNLOAD DI SINI KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Perkalian dengan delphi (angka dengan angka) hoe to calculate numeric value in dephi

pada posting ini saya akan memberikan soruce code sederhana untuk pemula dalam pemrograman delphi, yakni perkalian angka dengan angka, disini angka akan di ambil dari combobox, jadi di kedua data berupa angka dari combobox1 dan combobox 2, selanjutnua dilakukan perkalian antara data 1 dengan data 2...

SILAKAN DOWNLOAD DI SINI KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Thursday, March 1, 2012

Mengaktifkan LED Tanpa Menggunakan Tombol pada mikrokontroller At Mega 8535

Mengaktifkan LED Tanpa Menggunakan Tombol pada mikrokontroller At Mega 8535

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