Cara Membuat Aplikasi Dengan Delphi 7 – Kali ini saya akan menjelaskan cara membuat software Delphi sebagai interface untuk menampilkan data yang dikirim oleh Arduino, jadi program ini hanya untuk menampilkan data secara real time dan grafik saja, selain data yang masuk ke dalam lukisan. itu akan disimpan dalam database nyonya. Gunakan waktu cek setiap 1 detik. yang perlu diperhatikan disini adalah bagaimana Ms. Akses ke Delphi untuk terhubung dengan benar dan cara mengatur compor agar data dari Arduino dikirim ke Delphi 7. Program dan diagram dapat ditemukan pada deskripsi di bawah ini.
Unit TA; antarmuka menggunakan Windows, Informasi, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir, Dialog, StdCtrls, ExtCtrls, strutils, TeeProcs, TeEngine, Bagan, CPort, sistem mm, Seri, Tombol, DB, ADODB, Kisi, DBGrids, tipe DBC TForm1 = kelas (TForm) ComPort1: TComPort; GroupBox1: TGroupBox; Sunting1: Sunting; Sunting2: Ubah; Gambar 1: TCArt; Tipe 1: Bentuk T; Tipe2: TBentuk; GroupBox2: TGroupBox; Tombol1: tombol TB; Tombol2: tombol TB; Tombol3: tombol TB; Memo1: TMemo; Tingkat 1: TBC; Tingkat 2: TBC; Pengatur Waktu 1: Pengatur Waktu; Tingkat 7: TBC; Kelas 8: TBC; GroupBox4: TGroupBox; Sunting3: Ubah; Sunting4: Ubah; Label3: TLabel; Tingkat 4: TBC; BitBtn1: TBitBtn; Gambar 2: TCArt; Seri1: TFastLineSeries; Seri2: TFastLineSeries; Sumber Data1: TDataSource; DBGrid1: TDBGrid; ADOConnection1: TADOConnection; ADOTable1: TADOTable; Timer2: TTimer; metode ComPort1RxChar(Pengirim: TObject; End: Integer); metode Button1Click(Pengirim: TObject); metode Button2Click (Pengirim: TObject); metode Button3Click (Pengirim: TObject); metode Button4Click (Pengirim: TObject); metode FormCreate ( Pengirim : TObject ); metode Memo1Change(Pengirim: TObject); metode Edit1Change(Pengirim: TObject); metode Edit2Change(Pengirim: TObject); metode Timer1Timer (Pengirim: TObject); metode BitBtn1Click (Pengirim: TObject); metode Timer2Timer(Pengirim: TObject); badan swasta publik; var Formulir1: TForm1; Metode implementasi TForm1.ComPort1RxChar(Pengirim: TObject; Nomor: Integer); var penggemar: string; mulai compor1.ReadStr(buffer, count); memo1.Teks := memo1.Teks+buff; akhir; metode TForm1.Button1Click(Pengirim: TObject); mulai comport1.ShowSetupDialog; akhir; metode TForm1.Button2Click(Pengirim: TObject); mulai jika Button2.Caption = ‘Connect’ kemudian mulai Button2.Caption := ‘Disconnect’; impor1.Buka; Timer2.Enabled := Benar; end else if button2.Caption = ‘Disconnect’ lalu start button2.Caption := ‘Connect’; comport1.Instalasi; akhir; akhir; metode TForm1.Button3Click(Pengirim: TObject); mulai Edit1.Color := clwhite; Sunting2.Warna := clwhite; edit1.teks: =”; edit2.teks: =”; memo1.Teks:=”; akhir; metode TForm1.Button4Click(Pengirim: TObject); mulai dekat; akhir; metode TForm1.FormCreate(Pengirim: TObject); mulai ThousandSeparator :=’,’; desimal :=’.’; akhir; metode TForm1.Memo1Change(Pengirim: TObject); adalah shell, shell: ganda; rin, kerabat: tali; sumdata: bilangan bulat; mulai form1.Brush.Color := clgreen; form2.Brush.Warna :=warnahijau; jumlah := chart1.GetMaxValuesCount; form1.Caption: =inttostr(jumlah data); jika sumdata = 10000 maka mulai Series1.Clear; Metode 2. Bersihkan; akhir; rin := note1.Lines[note1.lines.number-2]; relatif := note1.Lines[note1.lines.number-1]; if rightstr(rin, 1)= ‘a’ kemudian mulai edit1.Text:=leftstr(rin, length(rin) -1); spasi := strtoint(edit1.teks); Series1.Add(spasi, ”, clred); form1.Brush.Warna := clred; akhir; jika rightstr(kin, 1)=’b’ kemudian mulai edit2.Text:=leftstr(kin, length(kin) -1); kulit := strtoint(edit2.teks); Seri2.Tambahkan (kulit, ”, clgreen); form2.Brush.Warna := clred; akhir; akhir; metode TForm1.Edit1Change(Pengirim: TObject); adalah ruang: ganda; awal kosong := strtoint(edit1.text); jika interval 31 maka mulai edit1.Color:=clred; edit3.text := ‘Kering’; akhir; if (spasi >= 31) dan (spasi <= 30) maka mulai edit1.Color := clwhite; edit3.text := 'Normal'; akhir; akhir; metode TForm1.Edit2Change(Pengirim: TObject); adalah kulit: ganda; mulai kulit := strtoint(edit2.text); jika skin 61 maka mulai edit2.Color := clred; edit4.text := ‘Dalam’; akhir; jika (kulit >= 61) dan (kulit <= 60) maka mulai edit2.Warna := clwhite; edit4.text := 'Normal'; akhir; akhir; metode TForm1.Timer1Timer(Pengirim: TObject); mulai label7.Caption := 'Tanggal' + FormatdateTime('h/mm/tttt', Tanggal); label8.Caption := 'Waktu' + FormatDateTime('hh:nn:ss', Waktu); akhir; metode TForm1.BitBtn1Click(Pengirim: TObject); mulai dekat; akhir; metode TForm1.Timer2Timer(Pengirim: TObject); mulai diadopsi1.Tambahkan; adoptable1.Fields.FieldByName('Data').Text:=edit1.Text; adoptable1.Fields.FieldByName('Job').Text:=edit2.Text; bunga1.Pos; akhir; menyelesaikan
Cara Membuat Aplikasi Dengan Delphi 7
Untuk menggunakan alat ini, pertama-tama aktifkan Arduino dan unggah program di atas. Buat port Delphi 7 seperti di atas dan masuk ke program, jangan lupa untuk mengatur port yang sesuai untuk dapat berkomunikasi dengan Arduino. Jika berhasil maka akan ditampilkan data yang dibutuhkan pada interface Delphi 7 dan data tersebut akan tersimpan dengan benar di database. Kali ini kita akan belajar cara menggunakan browser, kalian semua pasti tahu browser yang berbeda, yang biasa kalian gunakan di komputer atau smartphone. Diantaranya adalah mozilla firefox, chrome, opera, IE dan lain-lain. Lalu bagaimana jika kita ingin membuat browser sendiri seperti browser diatas dengan Delphi? kali ini saya akan mencoba memberikan contoh membuat browser dengan Delphi XE, selain Delphi XE, anda juga bisa menggunakan Delphi apa saja, misalnya Delphi 7, Delphi 2010, atau di Delphi versi baru yang lain.
Dasar Menggunakan Delphi
Pada browser ini kita akan menggunakan salah satu komponen Delphi yaitu TWebBrowser. Sumber daya ini menggunakan mesin utama IE (Internet Explorer). Oleh karena itu, setiap halaman/situs web yang dijalankan di TWebBrowser akan terlihat seperti yang ada di IE (Internet Explorer).
Untuk menghemat waktu, saya bisa menjelaskan proses pembuatan browser di Delphi kali ini.
Langkah – langkahnya adalah sebagai berikut : 1. Pertama – tama buat project baru di Delphi. Cara memilih file – Baru – Alat Format VCL. Kemudian muncul versi baru. Kemudian atur atribut form1 seperti di bawah ini:
Jika sudah, kami akan memberikan kode program kecil agar tombol yang dibuat bekerja sesuai fungsinya, prosesnya adalah sebagai berikut: A. Klik Bitbtn1 dua kali dan masukkan program rahasia di bawah ini: TForm1.BitBtn1Click. (Pengirim: TObject); mulai form1.WebBrowser1.GoBack; akhir; B. Klik dua kali Bitbtn2 dan masukkan kode di bawah ini: metode TForm1.BitBtn2Click(Sender: TObject); mulai form1.WebBrowser1.GoForward; akhir; C. Klik dua kali Bitbtn3 dan masukkan kode di bawah ini: metode TForm1.BitBtn3Click(Sender: TObject); mulai form1.WebBrowser1.Navigate(edit1.Text); akhir; D. Klik dua kali Bitbtn4 dan masukkan kode di bawah ini: metode TForm1.BitBtn4Click(Sender: TObject); mulai form1.WebBrowser1.Refresh; akhir; E. Klik dua kali Bitbtn5 dan masukkan kode di bawah ini: metode TForm1.BitBtn5Click(Sender: TObject); mulai form1.webbrowser1.Stop; akhir; F. Klik dua kali Bitbtn6 dan masukkan kode di bawah ini: metode TForm1.BitBtn6Click(Sender: TObject); mulai form1.WebBrowser1.GoHome; akhir; G. Selanjutnya, di bidang Edit1, di inspektur, klik acara, lalu cari kata OnKeyPress dan tambahkan kode berikut: metode TForm1.Edit1KeyPress (Pengirim: TObject; var Key: Char); mulai jika kunci = #13 lalu webbrowser1.Navigate(edit1.Text); akhir; H. Kemudian klik TWebBrowser1, di browser klik aplikasi dan cari kata OnCommandStateChange, klik 2x dan tambahkan aplikasi pribadi ini TForm1.WebBrowser1CommandStateChange(ASender: TObject; Command: Integer; Enable: WordBool); mulai fungsi Perintah CSC_NAVIGATEBACK : start bitbtn1.Enabled := Enabled; akhir; CSC_NAVIGATEFORWARD : start bitbtn2.Enabled := Enabled; akhir; akhir; akhir; I. Setelah berada di properti TWebBrowser1, cari kata OnProgressChange dan klik dua kali dan tambahkan kode berikut: method TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress, ProgressMax: Integer); mulai jika Progress>0 lalu mulai ProgressBar1.Max := ProgressMax ; ProgressBar1.Position := Kemajuan; end else ProgressBar1.Position := 0 ; edit1.Teks := webbrowser1.LocationURL ; akhir;
Membuat Aplikasi Dengan Delphi
Sampai proses pembuatan browser selesai, langkah selanjutnya tinggal menjalankan programnya, untuk menjalankan programnya tinggal tekan F9/RUN. Kemudian masukkan URL yang ingin Anda akses di adess bar, misalnya dengan mengklik “google.com” (pastikan komputer/laptop Anda terhubung ke internet). Jadi jika tidak ada error maka tampilan event saat dijalankan akan seperti gambar dibawah ini.
Sekian tutorial saya kali ini tentang cara membuat web browser sederhana di Delphi yang bisa saya bagikan, sobat bisa mengisi browser di atas dengan banyak fitur dan hal lainnya agar lebih bagus seperti kreatifitas anda. Semoga artikel saya kali ini dapat bermanfaat dan selamat mencoba untuk anda. Terima kasih kepada blogger…. pada postingan saya kali ini saya akan membagikan cara sederhana untuk memanggil program lain menggunakan Delphi. Untuk dapat memprogram dengan cara ini, kita menggunakan library ShellApi. Dan untuk membuatnya agar program tersebut dapat dipanggil kita akan menggunakan perintah shellexecute untuk menulis program tersebut, melalui perintah shellexecute kita dapat memanggil program/program lain seperti program Microsoft Office, winamp, media player, mozila, crome dan lain-lain. melalui program yang dikembangkan di Delphi.
Selain itu, shellexecute dari shellapi juga dapat memanggil dokumen dengan jenis file yang berbeda, apakah itu doc, xls, txt, pdf, dan sebagainya, kunci untuk memanggil program ini adalah kita harus mengetahui lokasi file yang ingin kita panggil . , jadi jalur ke file harus diketikkan ke dalam baris perintah Delphi.
Untuk mengurangi waktu ini, saya akan membuat tutorial tentang program Delphi yang memanggil banyak program Delphi lainnya. Pada contoh ini saya menggunakan Delphi XE8 untuk membuat aplikasinya, sobat bisa mencobanya di Delphi versi apapun, baik itu Delphi 7, Delphi 2010, Delphi seattle 10 atau versi Delphi lainnya. Prosedur pembuatan programnya adalah sebagai berikut:
Selamat Ultah Ke 25, Delphi!
1. Buat fungsi baru di Delphi sobat, form muncul dan kita buat. 2. Kemudian atur properties form di bawah ini: – Caption = Delphi program call – Color = clskyblue – Position = poScreenCenter 3. Selanjutnya di form1 di area aplikasi taruh ShellApi, Stdctrls 4. lalu tambahkan 5 bitbtn. dan masukkan dan ubah judul untuk setiap tombol seperti yang ditunjukkan pada gambar di bawah ini.
5. Jika Anda sudah meletakkan kode di bawah ini di setiap tombol satu per satu: method TForm1.BitBtn1Click(Sender: TObject); mulai ShellExecute (nama, ‘buka’, ‘C:Program Files (x86)Microsoft OfficeOffice12WINWORD.exe’, ”, ”, SW_NORMAL); akhir; metode TForm1.BitBtn2Click(Pengirim: TObject); mulai ShellExecute (alias, ‘buka’, ‘C:Program Files (x86)Microsoft