Wednesday, May 30, 2012

Baca data ANALOG to DIGITAL CONVERTER secara free running pada at mega 16 / 32 / 8535 menggunakan bascom

untuk mengganti jenis mikrokontroller avr yang dipergukan silakan ganti kode

 $regfile = "m32def.dat"

lanjut....

ini adalah kode yang dipergunakan untuk membaca ADC secara free running pada pin adc mikrokontroller  avr 40 pin .. dlam hal ini menggunakan mikrokontroller at mega 32



‎$regfile = "m32def.dat"
$crystal = 12000000
Deflcdchar 0 , 28 , 20 , 28 , 32 , 32 , 32 , 32 , 32 ' replace 0 with number (0-7)
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

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

Config Adc = Free , Prescaler = Auto , Reference = Avcc
Dim Suhuinadc As Word , Suhu1 As Word , Suhu12 As Word
Dim I As Word , Jml As Word , Rata2 As Word
Cls

Do
Start Adc

Suhuinadc = Getadc(0)
Suhu1 = Suhuinadc * 500
Suhu12 = Suhu1 / 1023
Jml = Jml + Suhu12
I = I + 1

If I = 20 Then

Rata2 = Jml / I

Cls

Locate 1 , 2
Lcd "suhu " ; Rata2

Locate 1 , 10
Lcd "suhu " ; Rata2

Waitms 100
End If

Loop
 
hasil pembacaaan data ADC , sebenarnya lebih tepat jika di sebut untuk membaca sensor suhu... karena memang kenyataanya source code bascom di atas dipergunakan untuk membaca data sensor suhu lalu ditampilkan ke LCD
 
selamat mencoba
 
 
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Virtual Serial Ports Emulator (VSPE) solusi komunikasi serial secara virtual dalam sebuah personal computer ( PC )

Dulu pernah bermain virtual serial port kit dari http://www.fabulatech.com , akan tetapi versi berbayar. dan waktu itu saya hanya mendapatkan versi shareware nya (trial) .. akhirnya setelah 15 hari software super keren tersebut tidak dapat dipergunakan, habislah saya waktu itu.. (lebay mode on)

iseng iseng nyari versi lain yang serupa dan sama... hanya beda rupa saja saya mendapatkan sebuah software yang sangat bagus ...

Virtual Serial Ports Emulator (VSPE



ini dia penjelasan resmi dari web nya

About VSPE

VSPE is intended to help software engineers and developers to create/debug/test applications that use serial ports. It is able to create various virtual devices to transmit/receive data. Unlike regular serial ports, virtual devices have special capabilities: for example, the same device can be opened more than once by different applications, that can be useful in many cases. With VSPE you are able to share physical serial port data for several applications, expose serial port to local network (via TCP protocol), create virtual serial port device pairs and so on.

Key Features

  • Virtual device: connector
  • Virtual device: data splitter
  • Virtual device: pair
  • Mapper device
  • User mode device: TcpServer
  • User mode device: TcpClient
  • User mode device: Serial Redirector
  • User mode device: UDP Manager
  • User mode device: Bridge
  • Python scripting system
  • x86 and x86_64 processor architecture support
  • VSPE API (C/C++ header and static library) for native language developers
  • VSPE API Python bindings for Python developers
  • Embedded HTTP server
  • Data monitoring



Screen shoot aplikasi tersebut adalah sebagai berikut :

 


saya hanya nampilkan yang versi pair saja ya... karena ini yang paling sering saya pergunakan untuk berpura - pura (virtual)... maksudnya komunikasi serial antara 2 device serial yang sekedar berpura pura (tapi bisa)

Requirements

Operating system: Windows 2000, XP, Vista (32/64), Windows 7

Free License for 32 bit Platform (X86)

Virtual Serial Ports Emulator is a FREEWARE program on 32 bit platform and can be used absolutely free for any purpose.
FOR DEVELOPERS: You can also use FREE VSPE API key located in the distribution package to get access to internal VSPE functions.

Free License for 32 bit Platform VSPE API Key (X86 only)

Please look for the FREE 32 bit VSPE API key in the distribution package (VSPE_API_32_KEY.txt in SetupVSPE.zip). Please note, that this key is valid for the current version only! After installing new VSPE version, you should replace old key with the new one.

Download and Documentation ( SILAKAN DOWNLOAD PADA LINK DI BAWAH INI)

  • To download VSPE please click HERE;
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Tuesday, May 29, 2012

Berbagi Layout RS232 to RS485 FULL DUPLEX

Berbagi Layout RS232 to RS485 FULL DUPLEX
oleh : Isnan Max
isi file :
FULL DUPLEX RS485 to RS232 Corel X4.cdr (CorelDraw X4 keatas)
FULL DUPLEX RS485 to RS232 Corel X4.jpg (image)


Akses barcode reader dengan delphi

pertanyaan :

kalo hasil pembacaan barcode reader masuk ke komponen edit, event biar langsung eksekusi apa ya? on change kah?
jawaban 
barcode reader itu sudah ada char #13 (tombol enter) pada akhir proses scaner, jadi tinggal disesuaikan aja mau di eksekusi apa. intinya sama saja dengan kita mengetik manual angka barcode pada komponen edit kemudian tekan tombol enter.
pakai event OnKeyPress

contoh :
pada Form1 set properties KeyPreview = True
pada Edit1 events OnKeyPress

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin

// eksekusi pada bagian ini sesuai selera

end;
end;
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Copy file gambar satu dari folder ke folder lain pada delphi

source kode pada event on click button adalah sebagai berikut :

CopyFile('C:\Gambar1.jpg', 'D:\Folder\Gambar2.jpg', True);

maka file gambar1.jpg pada directory C akan di copy menjadi file dengan nama gambar2.jpg pada direcktory D:\Folder\ KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Notebook / laptop baru yang masih punya port serial (DB9)

bagi yang sering interfacing dan tidak mau menggunakan kabel usb to serila, silakan menggunakan ;


Notebook / laptop  DELL LATITUDE D420

atau 
Notebook / laptop DELL Latitude D620

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

TIPS mengubah tombol tab jadi enter untuk pemula :


apabila anda menginginkan perpindahan kursor dari edit1 ke edit2 dst dengan tombol enter (seperti tombol tab) coba yang satu ini, jangan lupa event keypress pada edit1,2,dll link juga ke eventkeypressnya form1 ini....

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then // tombol enter
begin
Key := #0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Pencarian data dengan ADO Table delphi

AdoTable1.Lobate('Nama Field',Edit1.Text,[loPartialKey])
atau
AdoTable1.Lobate('Nama Field',Edit1.Text,[loCaseSensivity])

Edit1.text bisa diganti menggunakan komponen yang sesuai, tergantung komponen yang digunakan dalam input data
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Membuat Folder dari delphi (secara otomatis)

tambahkan

 SysUtils

pada bagian uses 

 
pada komponen button dobel klik
lalu ketikkan kode

CreateDir('d:\test_folder');


akan tercipta sebuah folder dengan nama  test_folder pada directory D pada komputer anda



KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Fungsi terbilang delphi

thanks berat tu member  KPPDI

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;



cara memakainya

masukkan
1 komponen edit
1 komponen button
1 komponenmemo

procedure Tform1.button1Click(Sender: TObject);

   Memo1.Text := Terbilang(StrToInt64(edit1.Text));

 end;

jika button1 di klik maka akan muncul kalimat terbilang dari angka pada komponen edit1 KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Mendeteksi keberadaan file Flash (*.swf) di dalam suatu folder

source kode untuk Mendeteksi keberadaan file Flash (*.swf) di dalam suatu folder

event nya pada form show


procedure TForm1.FormShow(Sender: TObject);
var FileSearch:TSearchRec;
S,TempF,Ucode:String;
FileAttrs:Integer;
AppPath:string;
begin

// ListBox1.Items.Clear;
//target pencarian
AppPath:= ExtractFilePath(application.ExeName) + 'Media\*.swf';
if findfirst(S,faDirectory,FileSearch) <> 0 then
FileAttrs:=faArchive;
if FindFirst(AppPath, FileAttrs, FileSearch) = 0 then
begin
Ucode:=FileSearch.Name;
// ListBox1.Items.Add(Ucode);
while FindNext(FileSearch) = 0 do
begin
Ucode:=FileSearch.Name;
//masukan hasil pencarian ke listbox
// ListBox1.Items.Add(Ucode);
end;
FindClose(FileSearch);

sfPlayer.Movie := ExtractFilePath(application.ExeName) +'Media\' + Ucode;;
sfPlayer.GotoFrame(1);
sfPlayer.Play;
end;
end;
KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Membuat komponen edit secara otomatis ketika runtime

pernahkah anda berfikir bagaimana cara membuat beberapa buah kompoenen edit ketika aplikasi ijalan kan ?

berikut source codenya

var
Form1: TForm1;
MyEdit: array of TEdit;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i,nJumlah: Integer;
begin
nJumlah:=5; // berapa jumlah yang dibikin
SetLength(MyEdit,nJumlah);
for i:=0 to nJumlah-1 do
begin
MyEdit[i]:=TEdit.Create(Self);
MyEdit[i].Parent:=Self;
MyEdit[i].SetBounds(8,8+(i*25),121,21);
end;
end;


sumber : http://www.facebook.com/groups/delphi.interbase/
oleh  : http://www.facebook.com/imam.chalimi  KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI

Running text delphi ( teks berjalan pada form delphi)

source code Running text delphi ( teks berjalan pada form delphi)

caranya masukkan komponen timer ke form delphi

masukkan sebuah kompoen label

double klik komponen time dan ketikkan source sebagai berikut :

procedure Tform1.timer1timer(sender:Tobject);
begin

if label1.left=-900 then label1.left:=1300;
label1.left:=label1.left-1;
end;
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