Cara Buat Form Login dengan Visual Basic

Assalamualaikum Pengunjung Muslihpedia kali ini saya akan sedikit Membahas tentang bagaimana membuat form login dengan Visual Basic. Tanpa banyak basa-basi langusung saja :

Buka Microsoft Visual Basic lalu pilih Standard EXE, Save dulu Projectnya

Pada Menu Klik Add-Ins > Visual data manager

Pilih File > New > Microsoft Acces > Version 7.0 MDB. beri nama misalkan : Data , dan simpan di direktori tempat menyimpan project tadi. Klik kanan pada Database window pilih New Table

Beri nama Tabel dengan nama Tbl_login dan Klik Add Field dengan properti field :

Name	Type	Size
Username	Text	10
Password	Text	5

Kemudian Add Index lalu isi sesuai dengan gambar dibawah

kemudian Klik OK dan Build Table

kini Tabel Login Sudah tersedia. untuk coba silahkan isi tabel dengan double klik pada tabel misalkan :

username : admin

Password : 123

kembali lagi ke form yang tadi dan buatkkan desainnya seperti pada gambar dibawah ini

kemudian klik Project > References dan centang Microsoft DAO 3.51 Object Library lalu klik Ok

Lalu Ketikan Sintaks Ini

Dim data As Database
Dim rlogin As Recordset

Private Sub Command1_Click()
On Error GoTo PESAN

With rlogin
    .Seek "=", Text1
    If Not .NoMatch And !Password = Text2 Then
        MsgBox "SELAMAT DATANG", vbInformation, "INFORMASI"
        Exit Sub
    Else
        MsgBox "DATA TIDAK DIKENALI!", vbCritical, "Warning"
    End If
End With

PESAN:
    MsgBox "DATA TIDAK DIKENALI!", vbCritical, "INFORMASI"
    Me.Text1.Text = ""
    Me.Text2.Text = ""
    Me.Text1.SetFocus
    Exit Sub
End Sub

Private Sub Command2_Click()
keluar = MsgBox("Yakin Ingin Keluar ?", vbQuestion + vbYesNo, "KONFIRMASI")
If keluar = vbYes Then
    End
Else
    Me.Text1.SetFocus
End If

End Sub

Private Sub Form_Activate()
Set data = OpenDatabase(App.Path & "\DATA.mdb")
Set rlogin = data.OpenRecordset("TBL_LOGIN")
rlogin.Index = "idx_login"
Me.Text1.SetFocus
End Sub

Program setelah dijalankan

Untuk download File nya klik Disini

Terimakasih Semoga Bermanfaat

Program Biaya Angsuran dengan Turbo Pascal

Sintaks Program :

program biaya;
uses wincrt;
var
   tmpt, nama, jurusan :string;
   no, total,tgl,bulan,tahun, bayar, sisa : real;
begin
   writeln('Formulir Angsuran Biaya');
   write  ('No          : ');readln(no);
   write  ('Nama        : ');readln(nama);
   write  ('TTL         : ');
   gotoxy(15,4);readln(tmpt);
   gotoxy(24,4);write(',');
   gotoxy(25,4);readln(tgl);
   if tgl > 31 then
   donewincrt;
     
   gotoxy(27,4);write('-');
   gotoxy(28,4);readln(bulan);
   if bulan > 12 then
   donewincrt;
   gotoxy(30,4);write('-');
   gotoxy(31,4);readln(tahun);
   if tahun > 1996 then
   donewincrt;
   write  ('Jurusan     : ');readln(jurusan);
   total:=700000;
   writeln('Total Biaya : Rp.',total:0:2);
   write  ('Bayar       : Rp.');readln(bayar);
   sisa := total-bayar;
   write  ('Sisa BAyar  : Rp.',sisa:0:2);
end.

Gambar program setelah dijalankan :

 

DaftarKelompok :

Muslihudin

Ega Herdiana

Muhamad Ramdan

Ahmad Sabit

Helmi Fauzi

Irham Mediawan

Tendi Edrisa

Fathul Bari Abdul Aziz

Cara Buat Kalkulator Sederhana Di Visual Basic 6

Assalamualaikum Wr.Wb Pada postingan kali ini saya akan membahas sedikit tentang bagaimana membuat kalkulator sederhana menggunhakan VB6, Kalkulatornya memang tidak Sebagus yang ada di windows hehe, langsung saja :

Buka VB6 nya dan buat desain seperti di bawah dengan komponen-komponen :

Komponen	Properti	Pengaturan
Form	Caption	Kalkulator Sederhana
Label1	Caption	Bilangan Pertama
Label2	Caption	Bilangan Kedua
Label3	Caption	Hasil
Text1	Text	(Kosongkan)
	Name	Bil1
Text2	Text	(Kosongkan)
	Name	Bil2
Text3	Text	(Kosongkan)
	Name	Hasil
	Enable	False
Command1	Caption	+
Command2	Caption	-
Command3	Caption	X
Command2	Caption	/
Command5	Caption	C

Desain Form :

Koding program :

Sintaks Untuk Command Tambah

Private Sub Command1_Click()
Me.hasil.Text = Val(Me.bil1.Text) + Val(Me.bil2.Text)
End Sub

Sintaks Untuk Command Kurang

Private Sub Command2_Click()
Me.hasil.Text = Val(Me.bil1.Text) - Val(Me.bil2.Text)
End Sub

Sintaks untuk Command Kali

Private Sub Command3_Click()
Me.hasil.Text = Val(Me.bil1.Text) * Val(Me.bil2.Text)
End Sub

Sintaks untuk Command Bagi. Agak panjang karena tidak bisa dibagi dengan 0 (nol).

Private Sub Command4_Click()

If Val(Me.bil2.Text) = 0 Then
MsgBox "Bilangan Tidak Bisa di bagi 0", vbOKOnly + vbCritical, "Erorr"
Call Command5_Click
Else
Me.hasil.Text = Val(Me.bil1.Text) / Val(Me.bil2.Text)
End If

End Sub

Sintaks untuk mengosongkan TextBox

Private Sub Command5_Click()
Me.bil1.Text = ""
Me.bil2.Text = ""
Me.hasil.Text = ""
Me.bil1.SetFocus

End Sub

Sintaks Pada bil1 & bil2 agar bisa di isi dengan angka saja

Private Sub bil1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
    And KeyAscii <= Asc("9") & Chr(13) _
    Or KeyAscii = vbKeyBack _
    Or KeyAscii = vbKeyDelete) Then
    Beep
   
    KeyAscii = 0
End If

End Sub

Private Sub bil2_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
    And KeyAscii <= Asc("9") & Chr(13) _
    Or KeyAscii = vbKeyBack _
    Or KeyAscii = vbKeyDelete) Then
    Beep
   
    KeyAscii = 0
End If

End Sub

Tampilan Setelah Dijalankan:

Untuk Downlaod Sourde Codenya Klik Disini

Sekian Tutorial dari saya. Semoga bermanfaat

Membaca File .txt di C++

Postingan kali ini akan membahas tentang program untuk membaca file teks. Untuk pertama letakan file txt-nya di dalam direktori program tersebut dan beri nama “filesaya.txt” dan berikut sintaks programnya :

#include <stdio.h>
#include <string.h>

#include <conio.h>
#include <iostream.h>
main()
{
      char namafileinput[] = "filesaya.txt";
     char teks[80];
     FILE *fin;
     fin = fopen(namafileinput, "rt");
     cout<<"isi file " << namafileinput << endl;
     while (1) {
     if (fgets(teks, 80, fin)==NULL) {
     break;
     }
     cout<<teks;
     }
     fclose(fin);
     cout<<"\nSelesai"<< endl;
     getch();
}

Gambar program setelah dijalankan :

Untuk Download File Klik Disini

Terimakasih Atas Kunjungannya. Semoga Bermanfaat

Menulis Ke File Teks Di C++

Program berikut ini adalah salah satu contoh bagaimana menulis ke file teks.

Sintaks Program :

#include <stdio.h>
#include <string.h>
#include <conio.h>
#include <iostream.h>
main()
{
   char namafileoutput[] = "filesaya.txt";
   char teks[80];
   FILE *fout;
   fout = fopen(namafileoutput, "w");
   cout<<"Ketikan teks yang akan ditulis "
   << "Ke file, akhiri dengan END\n";
   while (1) {
   gets(teks);
   if (strcmp(teks,"END")== 0)
   break;
   strcat(teks,"\n");
   fputs(teks, fout);
   }
   fclose(fout);
   cout<<"Selesai"<<endl;
   getch();

}

Simpan terlebih dahulu,Setelah itu kita jalankan dan ketikan “Muslihpedia” (tanpa tanda kutip) dan di akhiri dengan END.

kemudian Enter untuk menutup program.

Setelah itu kita cek pada direktori tempat dimana kita menyimpan program tersebut, maka akan ada file baru bernama filesaya.txt

Buka file txt nya dan isi file tersebut bertuliskan apa yang kita ketikan tadi.

Untuk download Souce Code nya Klik Disini

Terimakasih atas kunjungannya, Semoga Bermanfaat

Cara Menambahkan Password di WinRar

Assalamualaikum Wr.Wb

Pada Postingan Kali ini saya akan sedikit share bagaimana mem-password winrar'.

untuk caranya langsung saja :

• kita ambil contoh file gambar.png > Klik kanan > Add to Archive.. yang kemudian muncul jendela seperti gambar di bawah ini. Pilih tab Advanced > Set Passsword

• Masukan Password dan verifikasi password.

Kemudian Klik OK dan Klik OK lagi pada jendela pertama tadi.

• Kemudian Coba di buka file archive nya

Bisa dilihat File gambar.jpg mempunyai tanda ‘*’ yang artinya File Sudah di password.

Terima kasih sudah berkunjung, Semoga bermanfaat .

Manfaat Bahasa Pemograman Pascal

Bahasa Pascal berorientasi data, programmer diberi kemampuan untuk mendefenisikan tipe data sendiri. Dengan kebebasan ini pengecekan tipe data dilakukan secara ketat, yang menjamin bahwa tipe data yang didefenisikan tidak membingungkan. Pascal ditujukan sebagai bahasa pembelajaran, dan telah diterima secara luas. Pascal menggunakan bahasa Inggris sebagai penulisan kodenya, sehingga penulisannya dan pengemb
Berikut ini akan diberikan gambaran mengapa mesti belajar bahasa pascal.

1. Kecepatan (speed)
Kecepatan bahasa pascal untuk mengkompilasi baris program dapat dikatakan sekejap mata saja. Anda banyangkan kode baris program yang ribuan jumlahnya diterjemahkan dalam hitungan detik. Coba anda buktikan dengan bahasa pemrograman lainnya (C, C++, Java, dll)

2. Tipe data yang kuat
Pascal mengijinkan pemakainya untuk membuat tipe data sendiri, tetapi dengan beberapa batasan. Pascal tidak mengenal pengubahan tipe data (type casting) dan hal ini tentu saja memberi manfaat karena kemungkinan timbulnya kesalahan (error) kecil. Hal ini merupakan salah satu alasan utama yang dilakukan panitia ujian masuk mahasiswa untuk mata ujian komputer di Amerika.

3. Ukuran
Hasil compilasi dari program pascal hanya beberapa kilo byte saja. Sungguh kecil. Bila kita bandingkan dengan kapasitas ruang hard disk yang 40 mega byte, dapat dibanyangkan berapa besar program pascal yang dapat kita buat.

4. Portabilitas
Portabilitas berarti program pascal dapat berjalan pada jenis komputer yang berbeda, seperti : IBM, Apple, dll.

5. Produktivitas
Untuk belajar suatu bahasa pemrograman pada dasarnya sama, yaitu : harus mengenal aturan dan struktur data dari bahasa tersebut. Anda dapat bayangkan kalau tukang bangun tidak memiliki arsitektur yang jelas tentang bangunan rumah tersebut, tentu saja rumah yang akan dibangun tidak akan baik. Pascal menyediakan struktur data yang jelas, dengan demikian produktivitas hasil kerja kita tentu saja akan bertambah.

Dan satu hal yang jelas bahasa turbo pascal for windows atau visual delphi adalah turunan dari turbo pascal. Dan bila struktur dari program pascal sudah kita pahami, maka untuk memahami pascal for windows ataup visual Delphi tidaklah sulit lagi. Orang bijak bilang ‘belajar dari dasar merupakan modal yang paling besar’. Untuk itulah Pascal hadir bagi kita.angannya mudah dipahami.

CARA MENYELESAIKAN INVERS MATRIKS SPL 5 VARIABEL

Contohnya Saya Punya Soal :
6X₁ + X₂ – 9X₃ – X₄ + X₅ = 18
-4X₁ + 3X₂ – 3X₃ – 6X₄ + 5X₅ = 6
6X₁ - 3X₂ – 8X₃ – 4X₄ - 5X₅ = 17
7X₁ + 0X₂ – 5X₃ – 0X₄ - 8X₅ = 48
-4X₁ + 6X₂ – 4X₃ + 9X₄ - 2X₅ = –22
cara penyelesaiannya adalah dengan mencari dulu determinannya, kemudian cofaktor dan dilanjutkan dengan invers matriks
hasil akhir dari soal diatas adalah :
X₁ = -1
X₂ = -2
X₃ = -3
X₄ = -4
X₅ = –5
file excel ini di lengkapi dengan penjelasannya dan otomatis terselesaikan X1 sampai X5. Untuk pertama masukan soalnya pada sheet ‘SOAL COPY’. Untuk Download File Excelnya Klik Download


Semoga Bermanfaat .

Cara Mengubah File CDR menjadi JPG

Assalamualaikum Fans Muslihpedia kali ini saya akan berbagi Trik bagaimana mengubah file CDR menjadi JPG. Tanpa basa-basi lagi langsung saja

• Buka Corel Drawnya

 

• Kemudian buka file CDR nya

 

• Lalu klik File > Export

 

• Kemudian ubah Save as type nya menjadi JPG < Klik Export

 

• kemudian muncul Jendela Export to JPEG lalu klik OK

 

• Selesai

Semoga bermanfaat

 

Cara Menggambar Bunga dengan Corel Draw

Assalamualaikum Wr.Wb.

Kali ini saya akan berbagi sedikit tentang bagaimana cara menggambar bunga di corel Draw. Untuk Itu langsung saja :

• Pertama, Buka Corel Draw nya.

 

• Pilih Free Hand Tool di toolBox lalu pilh Bezier

 

• Lalu buat objek seperti gambar di bawah ini :

 

• Kemudian beri warna dengan menggunakan Interaktive Fill, drag dan sesuaikan sesuai warna yang di inginkan

untuk pewarnaan bisa di atur melalui Toolbar

Sedangkan untuk menghilangkan Garis pada objek Dengan cara Klik kanan pada Color Palette dengan tanda

 

• Kemudian buatlah garis melengkung di atas objek pertama tadi dengan menggunakan Bezier

• Lalu pilih SmartFill dan klik pada bagian bawah bunga, maka otomatis akan tercipta objek yang baru dan berikan efek transparency

Atur Sesuai dengan keinginan

• Lalu blok semua objek dan buat dalam satu grup (Ctrl+G),

Agar lebih cantik berikan efek Drop Shadow

 

• kemudian pindahkan Centernya ke bagian bawah objek

 

• Kemudian pada menu pilih Arrange > Transformation > Rotate. dan atur sesuai dengan gambar dibawah :

Maka akan Terbentu gambar bunga :

• untuk menambahkan efek cahaya buat sebuah lingkaran dengan warna putih dan pilih transparency dengan type Radial

Atur dengan efek transformation sesuai dengan keinginan

• Untuk menambahkan hiasan yang lain bisa ditambahkan sesuai dengan keinginan anda.

Untuk Download File CDR nya Klik Disini

Semoga bermanfaat