Langsung ke konten utama

TUGAS DELPHI

 .       klik pada button1 lalu ketikkan program seperti dibawah ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.SetFocus;
end;

           Jika sudah selanjutnya klik button2 lalu ketikkan program seperti dibawah ini :
procedure TForm1.Button2Click(Sender: TObject);
var
F:Textfile;
nmfile:string;
begin
if savedialog1.Execute then
begin
nmfile:=savedialog1.FileName+'.txt';
assignfile(F,nmfile);
rewrite(F);
write(F,memo1.text);
closefile(F);
end;
end;

        Selanjutnya klik pada button3 lalu ketikkan program seperti dibawah ini :
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate
end;
end.



1.Bikin Seperti ini

2. Lalu seperti ini

3.Seperti ini jadinya

Komentar

Posting Komentar

Postingan populer dari blog ini

Prinsip Dasar Antarmuka

 SOAL Jelaskan fungsi protokol dalam  antarmuka ! Apa yang dimaksud denga handsaking! Berikan contohnya! Berikan contoh penggunaan protokol dalam  antarmuka ! JAWABAN 1. Fungsi Protokol : Secara umum fungsi dari protokol adalah untuk menghubungkan sisi pengirim dan sisi penerima dalam berkomunikasi serta dalam bertukar informasi agar dapat berjalan dengan baik dan benar. Sedangkan fungsi protokol secara detail dapat dijelaskan berikut: Fragmentasi dan reassembly Fungsi dari fragmentasi dan reassembly adalah membagi informasi yang dikirim menjadi beberapa paket data pada saat sisi pengirim mengirimkan informasi dan setelah diterima maka sisi penerima akan menggabungkan lagi menjadi paket informasi yang lengkap. Encapsulation Fungsi dari encapsulation adalah melengkapi informasi yang dikirimkan dengan address, kode-kode koreksi dan lain-lain. Connection control Fungsi dari connection control adalah membangun hubungan (connection) komunikasi dari sisi pengirim dan sisi ...
Posting Komentar
Baca selengkapnya

Perusahan/Organisasi Sistem Terbuka Atau Tertutup

Konsep Sistem Informasi Sistem Terbuka dan Sistem Tertutup Fisika konvensional hanya berkenaan  dengan sistem tertutup,  yang terisolasi terhadap lingkungan. Dalam teori kimia fisis dijelaskan reaksi-reaksi, rata-rata dan kesetimbangan kimia yang ditetapkan dalam bejana tertutup dimana sejumlah reaktan dijadikan satu. Hukum termodinamika menyatakan bahwa hukum tersebut hanya diterapkan pada sistem tertutup saja. Sedangkan setiap organisme yang hidup pada dasarnya merupakan sistem yang terbuka. Mereka mempertahankan diri dalam sebuah pemasukan dan pengeluaran yang berkesinambungan, pembangunan dan kerusakan komponen-komponen, tidak pernah selama hidupnya berada dalam kesetimbangan kimiawi dan termodinamis, tapi tetap berada dalam sebuah keadaan tetap yang berbeda jauh dengan keadaan sebelumnya. Perumusan fisika yang terjadi tidak dapat dipakai oleh organisme hidup dengan sistem terbuka dan keadaan tetap, dan kita juga bisa menduga bahwa karakteristik sistem kehidupan yang beran...
Posting Komentar
Baca selengkapnya

isal

 Macro Kelompok Excel Fauzia Rahma Faizal Ali Rozan Iqbal Baihaqi Buat tampilan muka seperti di bawah ini : Tambah tombol button di insert di tab Develover bisa juga kok Shape Setelah itu masuk ke menu bar > Developer lalu pilih View code atau bisa pilih visual basic paling kiri Setelah itu akan muncul tampilan seperti ini : Lalu masukan program seperti dibawah ini : Dan ini Codingannya Public Sub Shuffle()     Dim lCnt As Long     Dim rRng As Range     Set rRng = Sheet1.Range("B6:F13")     Do         'Add a random value for sorting         With rRng.Columns(4)             .Formula = "=RAND()"             .Value = .Value         End With         'Sort on random value         Sheet1.Sort.SortFields.Clear         Sheet1.Sort.SortFields.Add rRng.Columns(4), xlSortOn...
Posting Komentar
Baca selengkapnya