Cara Membuat Kalkulator Sederhana di VBA PowerPoint

Next tutorial about VBA PowerPoint, kali ini kita akan belajar Membuat Program Hitung/Kalkulator Sederhana menggunakan VBA PowerPoint tentunya.

Mengapa sederhana? Karena operasi aritmatika yang saya gunakan hanya berupa operasi yang sering ditemui dan kita digunakan, diantaranya..

Penambahan(+), Pengurangan(-), Pembagian(/) dan Perkalian(*)

BACA JUGA : Slide Show Mini Mempermudah Editing di PowerPoint

Tutorial Buat Kalkulator Sederhana VBA PowerPoint

Dalam pembuatannya, kita memerlukan berbagai komponen yang tersedia pada Tab Developer di PowerPoint.

Bila anda tidak tahu cara/lupa cara Menampilkan Tab Developer, baca terlebih dahulu tutorial sebelumnya. 

1. Berikut 3 jenis Komponen dan Properti yang akan kita gunakan, sebagai berikut :

• Label( 4 buah )
• Textbox ( 2 buah )
• CommandButton ( 4 buah )

Silahkan desain dan atur posisi sesuai selera anda. 

Jangan lupa, ubah Caption dari komponen sesuai gambar diatas, caranya gimana ? Sudah saya jelaskan di Tutorial sebelumnya tentang Event & Property di PowerPoint.

Maka dari itu, sangat penting bagi anda agar mengikuti Tutorial VBA PowerPoint dari Awal di JuliKoding.

2. Klik ganda/Double cllick pada Tombol Tambah(+) dan tuliskan kode berikut.

 Keterangan Kode : 

• Perintah Val() merupakan suatu fungsi yang digunakan untuk mengkonversi tipe data String/Variant seperti pada Textbox menjadi tipe data Numerik/Angka sehingga bisa dihitung dengan operasi Aritmatika.
• Jadi, maksud kode diatas ialah saya membuat 3 Variabel yaitu a,b, dan c.
• Kemudian, operasi a+b disimpan dalam variabel baru yaitu c. 
• Dan nilai dari variabel c itu sendiri, sama dengan nilai dari Komponen Label4.

3. Terakhir, tambahkan kode yang hampir sama pada Tombol Kurang(-),Bagi(/) dan Kali(*). Perbedaannya hanya di simbol operasi Aritmatika.

• Tombol Kurang : c = a-b
• Tombol Bagi : c = a/b 
• Tombol Kali : c = a*b

Jalankan Slide Show PowerPoint kalian(F5) dan lihat hasilnya, maka kurang lebih seperti animasi di bawah ini..

Gampang, kan 😅 sebenarnya tanpa harus membuat Varibel C juga bisa. Jadi, isikan aja rumusnya dalam Label4. Contoh : Label4 = a+b atau Label4 = a*b.

Selain itu, kalian bisa menambahkan Operasi Aritmatika lain seperti Modulus, Pangkat dkk serta Tombol Hapus agar Kalkulator lebih Mantep kwkwkw...

Itulah tutorial singkat dalam Membuat Kalkulator Sederhana di PowerPoint menggunakan VBA pemograman, ditunggu Kritik|Saran|Share 😊 dari kalian..~ makasih..

Ayo Belajar 'Event & Property' di VBA PowerPoint

Sebelum mengikuti pembahasan 'Event dan Property' kali ini, pastikan anda membaca tutorial VBA PowerPoint dari awal hanya di JuliKoding.

Karena bermain VBA PowerPoint sangatlah menyenangkan 😁 asik deh, bisa bikin apapun semau kalian dengan koding.

BACA JUGA : Membuat Animasi Karakter 3D buatan Sendiri di PowerPoint

#Properti dan Event🤔?

Masing-masing komponen mempunyai PROPERTY yang berbeda dan jumlahnya banyak, tetapi ada beberapa property yang sering digunakan pada setiap komponen, antara lain :

• Name : menyatakan nama komponen/objek form yang sangat berguna untuk proses koding.
• Caption : untuk memberikan teks pada komponen.
• Font : untuk mengatur gaya(style), ukuran(size) dan Efek dari suatu teks.
• Position : mengatur posisi(top, left, height, bottom) pada komponen.
• Color : mengubah warna pada komponen. Umumnya, ada 2 yaitu BackColor & ForeColor.

Pemrograman visual bersifat event-driver, yang artinya program bekerja berdasarkan EVENT yang terjadi ketika suatu object diberikan aksi misalkan tombol ditekan, option dipilih, atau setelah mengetikkan sesuatu pada text kemudian di tekan ENTER.

Tampilan Kode Program

• Procedure View : Menampilkan Kode Program pada Object Selector yang aktif.
• Full Module View : Menampilkan semua Kode Program yang ada.

Setelah mengetahui tampilan dasar dari Kode Program, waktunya ikuti tutorial dibawah ini..

#Tutorial Program Sederhana di VBA PowerPoint

1. Buatlah 3 komponen ke dalam Slide kalian, yaitu..

1. Textbox(1)
2. Label(1)
3. CommandButton(2)

Kemudian, ubah warna belakang dari TextBox. Caranya klik Textbox - Properties - BackColor - pilih warna yang tersedia.

2. Ubah nilai dari Properties Caption, Font & ForeColor dari Komponen Tombol OK dan Tombol Reset.

3. Klik Ganda(Double Click) pada salah satu komponen Tombol, maka akan otomatis muncul VBE(Visual Basic Editor) dan ketikkan kode berikut.

#Keterangan Kode, Ketika tombol di klik(Event) :

• Tombol OK = nilai dari properti Caption pada komponen Label1 memiliki nilai yang sama dengan properti Text pada komponen Textbox.
• Tombol Reset = Nilai dari properti Caption menjadi teks kosong. 

4. Jangan lupa simpan file PowerPoint dalam format pptm. Sekarang coba jalankan SlideShow(F5).

5. Ketika anda ketikkan sesuatu di TextBox dan klik tombol 'OK', maka Teks tersebut akan tampil pada Label.

Sedangkan untuk menghapusnya, tekan tombol 'Reset'.

Baiklah, sudah mulai mengerti? Sebagai pemanasan, saya tantang anda untuk membuat Program seperti di bawah ini.

Komponen yang digunakan untuk program diatas, antara lain :

• TextBox(1)
• Label(1)
• CommandButton(2)
• OptionButton(2) - New
• CheckBox(2) - New

Apabila anda tetap tidak bisa membuatnya, atau ingin melihat seperti apa kodingannya, klik tombol dibawah..

Private Sub CheckBox1_Click()
 Label1.FontItalic = CheckBox1.Value
End Sub

Private Sub CheckBox2_Click()
  Label1.FontBold = CheckBox1.Value
End Sub

Private Sub CommandButton1_Click()
  Label1.Caption = TextBox1.Text
End Sub

Private Sub CommandButton2_Click()
  CheckBox1.Value = False
  CheckBox2.Value = False
  OptionButton1.Value = False
  OptionButton2.Value = False
  Label1.ForeColor = vbBlack
End Sub

Private Sub OptionButton1_Click()
  Label1.ForeColor = vbRed
End Sub

Private Sub OptionButton2_Click()
  Label1.ForeColor = vbBlue
End Sub

Tantangan berikutnya, buat program VBA pakai komponen ListBox, Menyerah lagi? wkkwkw maklum baru belajar.

Private Sub OptionButton1_Click()
  ListBox1.Clear
  ListBox1.AddItem "Tamashii Insert"
  ListBox1.AddItem "Yamada Kun"
  ListBox1.AddItem "Kampher"
End Sub

Private Sub OptionButton2_Click()
  ListBox1.Clear
  ListBox1.AddItem "Aho Girl"
  ListBox1.AddItem "Gintama"
End Sub

Private Sub OptionButton3_Click()
  ListBox1.Clear
  ListBox1.AddItem "One Piece"
  ListBox1.AddItem "Dragon Ball"
  ListBox1.AddItem "Naruto"
End Sub

Jadi seperti itulah Pembelajaran mengenai 'Event dan Property' di VBA PowerPoint, perbanyak latihan ya agar lebih lincah dalam mengkoding.

Dukung terus blogku dengan Follow & Share dari kalian 😏 kan biar aku juga semangat bikin tutorialnya. Gomawo, syukron, arigatou, thanks, terima kasih..

Buat CRUD dengan Fieldbyname, FieldList & FieldValues di Delphi7

Melanjutkan tutorial sebelumnya tentang Cara Menghubungkan MySQL ke Delphi 7, kali ini kita akan belajar pada penggunaan FieldByName, FieldList dan FieldValue di Delphi 7.

Tutorial FieldByName, FieldList & FieldValues Delphi7

1. Pastikan nyalakan MySQL kalian dengan Xampp atau lainnya seperti Mampp.

2. Buka dan Jalankan Projek yang kita buat sebelumnya, buka Data Module lalu.., 

3. pilih File - Use Unit(ALT+F11).

3. Buat komponen RadioGrup dan dibagian Properties - Items - tuliskan tiga pilihan tersebut.

4. Beralih ke kode program(Gunakan tombol F12 untuk berpindah form ke kode program & sebaliknya). Buatlah 3 procedure dibagian Public, lalu arahkan kursor ke ;(semicolon) pada FieldByName1 dan tekan CTRL + SHIFT + C, maka

5. Akan secara otomatis terbuatlah 1 procedure FieldByName1, kemudian silahkan ketik kode di bawah ini..!

Lakukan cara yang sama untuk membuat Procedure FieldList dan FieldValues 😊 

6. Kode program untuk Procedure FieldList :

with DataModule1.ZQ_Mahasiswa do
    begin
      Append; // membuka jalur koneksi
      FieldList[0].AsString := edt_npm.text;
      FieldList[1].AsString := edt_nama.text;
      FieldList[2].AsString := edt_alamat.text;
      FieldList[3].AsDateTime := edt_tanggal.Date;
      Post;   // store data ke database
    ShowMessage('Data berhasil disimpan dengan FieldList');
    end;

7. Kode program untuk Procedure FieldValues :

with DataModule1.ZQ_Mahasiswa do
    begin
      Append; // membuka jalur koneksi
      FieldValues['npm'] := edt_npm.text;
      FieldValues['nama'] := edt_nama.text;
      FieldValues['alamat'] := edt_alamat.text;
      FieldValues['tglLahir'] := edt_tanggal.Date;
      Post;   // store data ke database
    ShowMessage('Data berhasil disimpan dengan FieldValue');
    end;

#Penjelasan fungsi FieldByName, FieldList & FieldValues

• FieldByName adalah suatu Field yang dapat diakses berdasarkan nama Kolom yang ada pada Database anda. Jadi, kalian harus ingat nama-nama Field yang kalian gunakan 😜 mposs hehe.. Selain itu, kalian juga harus ingat Masing-masing tipe datanya dalam properti As. Nasib banget cekaceka XD
• FieldValues penggunaannya hampir sama dengan FieldByName, tapi TANPA properti As.
• FieldList paling gampang digunakan, karena dapat diakses sesuai no.kolom pada Database anda.
• Tambahan, properti As digunakan pada saat membaca/mengubah nilai suatu Field/Kolom.

8. Beralih kembali ke Form(tekan F12 lagi), Double Click pada Tombol Tambah dan ketik kode program di bawah ini..

if PilihMetode.ItemIndex = 0 then
    FieldByName1
  else if PilihMetode.ItemIndex = 1 then
    FieldList2
  else if PilihMetode.ItemIndex = 2 then
    FieldValue3
  else
    ShowMessage('Jangan ngeGAS, isi duluu kwkwwk :v');

9. Maka, ketika anda masukkan Data dan klik Tombol Tambah, maka akan muncul pesan Peringatan 😋 makanya, pilih dulu Metode Field nya wkwkwk.

10. Jika sudah dicentang, misalkan pakai FieldList, lalu klik Tombol Tambah maka Data berhasil tersimpan.

11. Untuk kode program tombol HAPUS :

With DataModule1.ZQ_Mahasiswa do
    begin
      delete;
      ShowMessage('Data telah dihapus');
    end;

12. Untuk kode program tombol Reset : 

edt_npm.Clear;
  edt_nama.Clear;
  edt_alamat.Clear;
  PilihMetode.ItemIndex := -1;
  edt_npm.SetFocus;

13. Untuk kode program tombol Keluar :

Application.Terminate;

14. Untuk kode program tombol Edit/Ubah :

with DataModule1.ZQ_Mahasiswa do
begin
      Edit; // ubah bagian ini aja
      FieldByName('npm').AsString := edt_npm.text;
      FieldByName('nama').AsString := edt_nama.text;
      FieldByName('alamat').AsString := edt_alamat.text;
      FieldByName('tglLahir').AsDateTime := edt_tanggal.Date;
      Post;   // store data ke database
      ShowMessage('Data berhasil di UBAH');
    end;

15. Untuk kodingan Edit/Ubah belum selesai disitu, klik DbGrid - Event - klik Ganda pada OnDblClick, maka akan muncul kode program untuk Procedure DBGrid1.

Silahkan ketik kode program seperti pada gambar di bawah ini!

16. Untuk mencoba mengedit Data, berikut langkahnya :

• klik Ganda pada DBGrid, maka data yang dipilih akan muncul di Tedit.
• Ubah datanya, dan klik Tombol UBAH. Maka, data berhasil di ubah 😎 mantep

#KATA PENUTUP

Itulah tutorial singkat tentang penggunaan FieldByName, FieldList dan FieldValues serta apa itu properti As di Aplikasi CRUD Delphi 7.

Kurang jelas? Tanyakan & diskusikan 😅 semoga bisa dijawab kwkwkw.. Sampai jumpa di tutorial Delphi berikutnya.

Referensi : Fairuzelsaid

8 Program/Kode Perintah di C++ yang Jarang Diketahui! Coba kuy

Bahasa Pemograman C++ merupakan salah satu bahasa yang saya pelajari ketika Kuliah, semester 3 dalam "Pemograman Terstruktur".

IDE yang saya gunakan bukanlah CodeBlocks, tetapi Dev-C++. 

Yang saya bahas kali ini bukan tutorial Basic(Pemula) Bahasa C++, karena tutorial banyak di Google/Youtube. Kalian bisa cari dan pelajari sendiri 😀

Tetapi, saya akan menunjukkan beberapa Perintah/Cara yang jarang digunakan dan diketahui di C++ sebagai berikut ini.

Kode Perintah/Program di C++ yang jarang Diketahui!

1. Mengubah Tema IDE di Dev-C++

• Cari dan Download Tema IDE Dev-C++ di Internet, pastikan format filenya .syntax
• Kemudian, letakkan File Tema tersebut ke dalam Forlder C:\Users\nama_user\AppData\Roaming\Dev-Cpp. Agar lebih cepat, gunakan fitur RUN(windows+R) dan enter "%appdata%/dev-cpp"(tanpa petik).

• Buka IDE Dev-C++ dan klik Menu Tools - Editor Options - Tab Color - Select Theme dan klik OK. Sekarang Tema C++ berhasil kalian ubah 🤗

2. Cara Membersihkan Layar di C++

Gunakan Perintah system("cls"); seperti contoh kode di bawah ini..

int main(){
   int x; cout <<"inputkan : ";cin>>x;
   system("cls");
   cout <<"x";
}

3. Cara Mengubah Warna Teks di C++

Gunakan perintah system("color A"); seperti contoh kode di bawah ini..

int main(){
     system("color A");
     cout << "Ini WARNA APA ?";
     system("color B");
     cout << "Ini WARNA APA ?";
}

TAPI, kelemahan dari kode ini ialah cuma bisa digunakan 1 kali.

4. Cara Mengubah Warna Teks dengan Kostum di C++

Berbeda dengan cara diatas, cara ini dapat digunakan untuk IDE Dev-C++ saja, bila di CodeBlock kurang tahu. Kodenya sebagai berikut :

#include <iostream>
#include <Windows.h> // processor
using namespace std;

void DaftarWarnaNya(unsigned short color){
     HANDLE hCon = GetStdHandle(STD_OUTPUT_HANDLE);
     SetConsoleTextAttribute(hCon,color);
}

int main(){
     for(int i=1;i<200;i++){
          DaftarWarnaNya(i); cout << i << "Inilah warna ku"<<"    ";
     }
}

Jadi, kita perlu menggunakan Library Windows.h dan membuat Fungsi void sebelum menggunakannya di dalam Method main.

5. Mengatur posisi output dengan gotoxy di IDE Dev-C++ dan CodeBlocks

Bila di dalam bahasa Pascal, kita cukup ketikkan gotoxy(x,y); sedangkan di C++ perlu fungsi sebagai berikut ini..

#include <iostream>
#include <windows.h> // perlu library ini juga :v
using namespace std;

void gotoxy(int x, int y){
     COORD coord;
     coord.X = x;
     coord.Y = y;
     SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), coord);
}

int main(){
     gotoxy(5,9); cout<<"JuliKoding";
}

6. Cara menggunakan perintah Label dan Goto di C++

Perintah label dan goto dapat digunakan untuk mengulang sebuah pernyataan kode, lebih jelasnya seperti ini..

#include <iostream>
using namespace std;

int main(){
     int x;
     awal:
     cout << "Masukkan nilai[1-100] : ";
     cin >> x;
          if(x>100){
               cout << "Data terlalu besar \n";
               goto awal;
          }else{
               cout << "Nilai x : " << x;
          }
}

Jadi, dengan perintah goto dan label, syntax kode kalian lebih hemat memori dan line.

7. Bagi kalian yang ingin program untuk perpangkatan di C++

#include <iostream>
using namespace std;

     int pangkat (int x, int n){
          if (n<0){
               cout << "Illegal Error Bakayaro";
                     exit(1);
          }if (n>0) return (pangkat(x, n-1)*x);
               else return(1); // perintah ini akan jalan jika pangkat atau n = 0
          }

int main(){
     cout << pangkat(2,3);
}

Intinya, kalian perlu membuat sebuah method baru lagi, dengan tipe data integer disertai parameternya.

8. Cara Membuat Program Segitiga di C++

 kalian ingin membuat program Segitiga di C++, berikut kodenya..

#include <iostream>
using namespace std;

     int main(){
          int i=0, j=0, k=0;
               cin >> i;
                    while(j<i){
                         k=0;
                              while(k<j){
                                  cout << "*";
                                  k++;
                              }
                          if (j!=0){
                               cout << "\n"; // \n artinya enter
                          } j++;
                   }
      }

Itulah beberapa Perintah Kode atau Program yang belum kalian ketahui di C++, semoga dapat membantu projek Koding kalian :p dan tetap semangat.

Jangan lupa untuk Follow blog, Sosial Media ataupun MyYoutube Channel ya, hehe.. 😉 Gomawo

Cara Koneksi Database MySQL ke Delphi 7 dan buat Form CRUD

Melanjutkan tutorial sebelumnya tentang "Cara Install Library Zeos Access di Delphi 7", kali ini kita akan belajar untuk Menghubungkan/Koneksi antara Database ke Delphi 7.

Selain itu, kita juga buatkan Form untuk Aplikasi CRUD pada Delphi 7.

APA itu CRUD ?

CRUD(Create, Read, Update & Delete) berguna untuk menambahkan, menghapus ataupun mengupdate/memperbaharui data. Intinya sih gitu 👻

Tutorial Koneksi Database ke Delphi 7 

Banyak komponen yang dapat digunakan untuk Menghubungkan Database MySQL kalian ke Delphi 7, tetapi..

Di tutorial ini, saya menggunakan komponen ZEOS Access, jadi jangan lupa di install dulu. Berikut langkah-langkah koneksikan Database ke Delphi 7 :

1. Pastikan kalian sudah membuat database yang ingin kalian koneksikan ke Delphi nanti. 

Yang perlu diingat, ialah nama Database(db_universitas), nama Tabel(tb_mahasiswa) dan nama Kolom Primary Key(npm) yg ingin ditampilkan datanya.

2. Beralih ke Delphi 7, buatlah Projek baru dan tambahkan Komponen TLabel dan TEdit pada Form.

Karena dalam tb_mahasiswa terdapat 4 kolom, maka saya buat masing-masing 4 label dan 3 Edit.

3. Untuk menginputkan Tanggal, kalian perlu menambahkan komponen "DateTimePicker".

Gunakan pencarian, agar lebih mudah untuk menemukan komponen.

4. Selanjutnya, tambahkan DBGrid pada tab "Data Controls".

5. Terakhir, tambahkan tombol. Agar tombol yang kalian miliki ada Icon nya. Pilih button di tab "Additional".

6. Klik FILE - New - Data Module, untuk membuat Data Module baru.

7. Sekarang, SAVE ALL. Simpan semua unit dan projek, usahakan namanya disamakan agar lebih mudah dipahami.

8. Tambahkan Komponen ZConnection dan ZQuery pada tab "ZeosAccess" dan komponen DataSource lalu letakkan ke DataModule(yg baru kita buat).

9. Ubah masing-masing properti "Name" pada 3 Tombol tersebut :

• tombol_simpan
• tombol_ubah
• tombol_hapus

10. Ubah nilai pada properti ZConnection sebagai berikut :

• User : root
• Protocol : mysql
• Port : 3306
• Hostname : localhost
• Database : db_universitas (nama databasenya)
• Kemudian klik [...] pada LibraryLocation

11. Pilih File libmySQL, silahkan Download filenya disini..

12. Masih pada komponen ZConnection, ubah properti Connected menjadi True.

13. Beralih pada komponen ZQuery(ZQ_Mahasiswa), isi Properti "SQL" dengan perintah berikut :

• SELECT * FROM nama_tabel ORDER BY nama_kolom_PrimaryKey ASC;
• contohnya : SELECT * FROM tb_mahasiswa ORDER BY npm ASC;

Dan isi properti Connection : ZConnection1 dan Active : True.

Arti dari Perintah tersebut ialah Menampilkan semua Data Mahasiswa dengan mengurutkan Nilai sesuai kolom NPM.

14. Ubah nilai DataSet pada komponen "DataSource"(DataMahasiswa) menjadi ZQ_Mahasiswa(ZQuery)

15. Klik FILE - Use Unit - pilih Unit Module yang kalian simpan sebelumnya.

16. Pilih dbGrid kalian - pada bagian Properties, ubah DataSource nya menjadi "DataModule.DataMahasiswa".

 Selesai deh, sekarang tabel DbGrid akan menampilkan semua Database kalian di Form Delphi 7..

Pada tutorial selanjutnya, saya akan menjelaskan mengenai pembuatan Aplikasi CRUD yang kita buat tadi. 😊 selamat mencoba..

Cara Mengubah/Ganti Tema Syntax Highlighter di Eclipse

Salah satu IDE compiler terkenal selain Netbeans untuk bahasa pemograman JAVA ialah Eclipse.

IDE Eclipse saya pilih dengan alasan RINGAN 😛 Netbeans gak kuat, biar aku aja(Efek film Dilan1990 🤣)

Nah, agar tampilan 'penulisan kode' terlihat menarik, mudah dipahami digunakanlah fitur Syntax Highligter.

seperti yang saya bahas di artikel sebelumnya, Syntax highligter merupakan fitur agar mewarnai kode bahasa pemograman.

Tiap IDE, punya cara tersendiri untuk mengubah tema atau Syntax higligter tersebut. Oleh karena itu, kali ini gue akan share bagaimana "Mengubah Tema/Syntax Higlighter di Eclipse".

Pembahasan mengenai "Apa itu Syntax Higlighter?" bisa kalian baca terlebih dahulu.

Tutorial Mengubah Tema Eclipse(IDE JAVA)

1. Download tema Syntax Highlighter yang kalian suka di Website Resminya.

2. Buka IDE Eclipse - pilih tab HELP - Eclipse Marketplace...

3. Kemudian install plugin 'Eclipse Color Theme', pastikan terkoneksi/terhubung dengan internet.

4. 'Accept' apabila ada lisensi, silahkan baca bila ingin 😁. klik tombol FINISH.

5. Klik tombol "Install anyway" dan,

apabila ada pesan untuk restart now. Silahkan klik Restart.

6. Lanjut, pilih Tab Windows - Preference - General - Appearance - Color Theme - pilih tema yang tersedia, atau 'Import a Theme' dan pilih tema yang baru kalian download tadi.

Itulah cara mudah untuk mengubah/ganti Theme di IDE Eclipse, tetap semangat ngodingnya ya :3 apalagi buat Java Developers😋