Membuat Aplikasi Sederhana Dengan Menambahkan Foto

Membuat Aplikasi Sederhana Dengan Menambahkan Gambar

Bagi teman-teman yang tertarik membuat program Data Mahasiswa dengan melampirkan foto mahasiswanya dapat mengikuti langkah-langkah berikut ini

Pertama-tama Buatlah sebuah table dengan struktur sebagai berikut :

Setelah itu desain Form seperti berikut ini

Setelah selesai mendesai Form lanjutkan ketahap berikutnya yaitu atur propertynya seperti berikut ini

Form1

Nama : frmmahasiswa

Caption : Data Mahasiswa

Picture : (Pilih Gambar Yang Anda Inginkan)

Text1

Name : txtnim

Text : -

BorderStyle : 1- Fixed Single

Text2

Name : txtnama

Text : -

BorderStyle : 1- Fixed Single

 Text3

Name : txtfakultas

Text : -

BorderStyle : 1- Fixed Single

Text4

Name : txtjurusan

Text : -

BorderStyle : 1- Fixed Single

Text5

Name : txtangkatan

Text : -

BorderStyle : 1- Fixed Single

Text6

Name : txtfoto

Text : -

BorderStyle : 1- Fixed Single

Label1

Caption : NIM

BackStyle: 0-Transparent

Label2

Caption : Nama

BackStyle: 0-Transparent

 Label3

Caption : Fakultas

BackStyle: 0-Transparent

Label4

Caption : Jurusan

BackStyle: 0-Transparent

Label5

Caption : Angkatan

BackStyle: 0-Transparent

Label6

Caption : iswandibaras@ymail.com

BackStyle: 0-Transparent

ForeColor : Red

Command1

Caption : Simpan

Name : cmdsimpan

Command2

Caption : Edit

Name : cmdedit

Command3

Caption : Hapus

Name : cmdhapus

Command4

Caption : Ubah Foto

Name : cmdfoto

Command5

Caption : Cetak

Name : cmdcetak

Command6

Caption : Keluar

Name : cmdkeluar

Timer

Interval : 200

Commondialog

Picture : Defaul (Foto Dari Komputer Anda)

BorderStyle : 1- Fixed Single

Sehingga hasil desainnya seperti gambar berikut

Kemudian isi kode program dengan listing di bawa ini

Private Sub cmdcetak_Click()

    DataReport1.Show

End Sub

Private Sub cmdhapus_Click()

    Data1.Recordset.Delete

    Data1.Refresh

    kosong

    Image1.Picture = LoadPicture("E:\Foto\Is One &I\isi.jpg")

    MsgBox "Data Telah Dihapus", vbOKOnly + vbInformation, "Is O^e &!.."

    txtnim.SetFocus

    cmdsimpan.Enabled = False: cmdhapus.Enabled = False: cmdedit.Enabled = False: cmdfoto.Enabled = False

End Sub

Private Sub Form_Activate()

    txtnim.SetFocus

    kosong

    Image1.Picture = LoadPicture("E:\Foto\Is One &I\isi.jpg")

    cmdsimpan.Enabled = False: cmdhapus.Enabled = False: cmdedit.Enabled = False: cmdfoto.Enabled = False

End Sub

Private Sub kosong()

    txtnim = "": txtnama = "": txtfakultas = "": txtjurusan = "": txtangkatan = "": txtfoto = ""

End Sub

Private Sub Form_Load()

    kosong

    'nonaktifkan tombol

    cmdsimpan.Enabled = False: cmdedit.Enabled = False:

    cmdfoto.Enabled = False: cmdhapus.Enabled = False

End Sub

Private Sub Form_Unload(Cancel As Integer)

    Image1.Picture = LoadPicture("")

End Sub

Private Sub Timer1_Timer()

    If Label5(1).ForeColor = &HFF& Then

        Label5(1).ForeColor = &HFF0000

    ElseIf Label5(1).ForeColor = &HFF0000 Then

        Label5(1).ForeColor = &H8080&

    ElseIf Label5(1).ForeColor = &H8080& Then

        Label5(1).ForeColor = &H800080

    ElseIf Label5(1).ForeColor = &H800080 Then

        Label5(1).ForeColor = &HFF&

    End If

End Sub

Private Sub txtnim_Change()

Data1.Refresh

    Dim namagbr As String

    Dim gbrkosong As String

    On Error Resume Next

    If Len(Trim(txtnim)) < 12 Then

    Exit Sub

    End If

    With Data1.Recordset

    .Index = "idxNIM"

    .Seek "=", txtnim

    If Not .NoMatch Then

    txtnim.Text = !nim

    txtnim.SetFocus

    txtnama = !NAMA

    txtfakultas = !FAKULTAS

    txtjurusan = !JURuSAN

    txtangkatan = !ANGKATAN

    txtfoto = !FOTO

    'menampilkan foto

    namagbr = "E:\Foto\Is One &I\" & Trim(txtfoto.Text) & ""

    Image1.Picture = LoadPicture(namagbr)

    'memunculkan beberapa tombol

    cmdedit.Caption = "Edit": cmdedit.Enabled = True: cmdhapus.Enabled = True: cmdsimpan.Enabled = False: cmdsimpan.Caption = "Batal": cmdkeluar.Caption = "Keluar"

    Else

    pesan = MsgBox("Yakin Ingin Menyimpan Data.?", vbYesNo + vbInformation, "Is O^e &!..")

    If pesan = vbYes Then

    txtnama = "": txtfakultas = "": txtjurusan = "": txtangkatan = "": txtfoto = ""

    txtnama.SetFocus

    bisaisi

    gbrkosong = "E:\Foto\Is One &I\isi.jpg"

    Image1.Picture = LoadPicture(gbrkosong)

    'pengaturan tombol

    cmdsimpan.Caption = "Simpan"

    cmdedit.Enabled = False

    cmdhapus.Enabled = False

    cmdfoto.Enabled = True

    Else

    Image1.Picture = LoadPicture("E:\Foto\Is One &I\isi.jpg")

    Form_Load

    End If

    End If

    End With

    On Error GoTo 0

End Sub

Sub bisaisi()

    txtnama.SetFocus

    cmdsimpan.Enabled = True

    cmdkeluar.Caption = "Batal"

End Sub

Private Sub cmdedit_Click()

    On Error Resume Next

    If cmdedit.Caption = "Edit" Then

    'menonaktifkan tombol hapus dan keluar

    cmdhapus.Enabled = False

    cmdkeluar.Enabled = False

    cmdsimpan.Caption = "Batal": cmdsimpan.Enabled = True

    'aktifkan tombol ubahfoto

    cmdfoto.Enabled = True

    If txtnim = "" Then

    MsgBox "Masukkan Kode Nim Yang Akan Diedit.!", 0, "Is O^e &!.."

    txtnim.SetFocus

    Else

    txtnama.SetFocus

    cmdedit.Caption = "Update"

    End If

    Else

    With Data1.Recordset

    .Edit

    !nim = txtnim

    !NAMA = txtnama

    !FAKULTAS = txtfakultas

    !JURuSAN = txtjurusan

    !ANGKATAN = txtangkatan

    !FOTO = txtfoto

    .Update

    Data1.Refresh

    End With

    MsgBox "Data Telah Diubah", 0, "Is O^e &!.."

    kosong

    Image1.Picture = LoadPicture("E:\Foto\Is One &I\isi.jpg")

    txtnim.SetFocus

    cmdedit.Caption = "Edit"

    'pengaturan tombol

    cmdedit.Enabled = False: cmdhapus.Enabled = False: cmdkeluar.Enabled = True: cmdsimpan.Enabled = False: cmdfoto.Enabled = False

    'pengaturan awal

    kosong

    txtnim.SetFocus

    End If

    On Error GoTo 0

End Sub

Private Sub cmdfoto_Click()

    On Error GoTo Ooops

    CommonDialog1.ShowOpen

    txtfoto.Enabled = False

    txtfoto = CommonDialog1.FileTitle

    Image1.Picture = LoadPicture(txtfoto)

    On Error GoTo 0

    Exit Sub

Ooops:

    MsgBox "File Error !", 0, "Is O^e &!.."

End Sub

Private Sub cmdkeluar_Click()

    If cmdkeluar.Caption = "Batal" Then

    'pengaturan awal

    Form_Load

    kosong

    Image1.Picture = LoadPicture("E:\Foto\Is One &I\isi.jpg")

    txtnim.SetFocus

    cmdkeluar.Caption = "Keluar"

    'pengaturan tombol

    cmdsimpan.Enabled = False

    cmdedit.Enabled = False

    cmdhapus.Enabled = False

    Else

    frmmenu.Show

    Form1.Hide

    End If

End Sub

Private Sub cmdsimpan_Click()

If cmdsimpan.Caption = "Batal" Then

kosong

cmdkeluar.Enabled = True: cmdsimpan.Enabled = False: cmdedit.Enabled = False: cmdfoto.Enabled = False: Image1.Picture = LoadPicture("E:\Foto\Is One &I\isi.jpg")

txtnim.SetFocus

End If

Exit Sub

With Data1.Recordset

    .Index = "idxnim"

    .Seek "=", txtnim

    If Not .NoMatch Then

        MsgBox "Nim Telah Digunakan", vbOKOnly + vbInformation, "Is O^e &!.."

        txtnim = ""

        txtnim.SetFocus

    Else

    isi = MsgBox("Yakin Ingin Mengisi Data.?", vbYesNo + vbInformation, "Is O^e &!..")

    If isi = vbYes Then

        txtnama.SetFocus

    Else

    kosong

    End If

    End If

    End With

   On Error Resume Next

    If cmdsimpan.Caption = "Simpan" Then

    With Data1.Recordset

    .AddNew

    !nim = txtnim

    !NAMA = txtnama

    !FAKULTAS = txtfakultas

    !JURuSAN = txtjurusan

    !ANGKATAN = txtangkatan

    !FOTO = txtfoto

    .Update

    Data1.Refresh

    MsgBox "Data Telah Disimpan", vbOKOnly + vbInformation, "Is O^e &!.."

    Data1.Refresh

    kosong

    Image1.Picture = LoadPicture("E:\Foto\Is One &I\isi.jpg")

    txtnim.SetFocus

    End With

    Else

    kosong

    Image1.Picture = LoadPicture("E:\Foto\Is One &I\isi.jpg")

    txtnim.SetFocus

    cmdkeluar.Caption = "Keluar"

    cmdsimpan.Caption = "Simpan"

    'pengaturan tombol

    cmdsimpan.Enabled = False: cmdedit.Enabled = False: cmdhapus.Enabled = False: cmdfoto.Enabled = False: cmdkeluar.Enabled = True

    End If

    On Error GoTo 0

End Sub

Kemudian start programnya input data dan isi fotonya.

Contoh dari program yang telah saya buat seperti gambar berikut ini:

Gimana kawan-kawan..?? Unikkan.?

Selamat mencoba semoga sukses

Catatan : bila ingin copy paste artikel ini di blog anda jangan lupa cantungkan sumbernya www.iswandifikom.blogspot.com bagi kawan-kawan yang mau download programnya dapat kelik disini

Tutorial Membuat Blog

Bagi teman-teman yang ingin membuat Blog cepat dan gambang.
teman-teman bisa mengikuti langkah-langkah seperti yang ada di video ini

Gimana...?? udah bisa buatkan...
Tapi sebelumnya teman-teman harus memiliki akun gmail..!!!!
Smoga sukses..

Membuat Format Tanggal & Waktu Menggunakan FoxPro 9

Baik lah dari pada lama-lama silahkan kalian bikin dulu Formnya dan desain sesuai keinginan kalian,tapi kalau kalian ingin sama seperti punya saya yha ga papa juga kok,..
Nih desain saya

Nah untuk membuat timer yang seperti di gambar di atas tepatnya di samping Text6 maka  lihat dulu di Form Kontrol yang berbundar berwarna Merah itu adalah Timer,klik timer tersebut lalu drag di dalam form tepatnya di samping Text6.Setelah selesai klik 1x pada timer1 lalu pada bagian properties ganti intervalnya menjadi 100 lalu klik kanan pada timer1 lagi pilih Code & isi kan koding berikut

1.  thisform.text6.Value=TIME()

Nah setelah selesai dengan timer lalu klik kanan pada form lalu pilih Code maka akan muncul layar untuk kita mengetikan kodenya…tapi sebelum mengetikkan kodenya kalian harus merubah Procedure-nya dulu dari Load menjadi Activate karena Procedure Activate akan aktif secara otomatis pada saat kita menjalankan programnya.
Setelah kaliah rubah procedure-nya menjadi Activate maka silahkan ketik program berikut :

1.  SET DATE ITALIAN

2.   

3.  thisform.text1.Value=DATE()

4.  thisform.text4.Value=YEAR(DATE())

5.  thisform.text5.Value=DAY(DATE())

*Untuk Menampilkan Hari Dalam Bahasa Indonesia

1.  hari=DOW(DATE())

2.  DO case

3.  CASE hari=1

4.  thisform.text2.Value="Minggu"

5.  CASE hari=2

6.  thisform.text2.Value="Senin"

7.  CASE hari=3

8.  thisform.text2.Value="Selasa"

9.  CASE hari=4

10.thisform.text2.Value="Rabu"

11.CASE hari=5

12.thisform.text2.Value="Kamis"

13.CASE hari=6

14.thisform.text2.Value="Jum'at"

15.CASE hari=7

16.thisform.text2.Value="Sabtu"

17.ENDCASE

*Untuk Tampilan Bulan Dalam Bahasa Indonesia

1.  bulan=MONTH(DATE())

2.  DO CASE

3.  CASE bulan=01

4.  thisform.text3.Value="Januari"

5.  CASE bulan=02

6.  thisform.text3.Value="Februari"

7.  CASE bulan=03

8.  thisform.text3.Value="Maret"

9.  CASE bulan=04

10.thisform.text3.Value="April"

11.CASE bulan=05

12.thisform.text3.Value="Mei"

13.CASE bulan=06

14.thisform.text3.Value="Juni"

15.CASE bulan=07

16.thisform.text3.Value="Juli"

17.CASE bulan=08

18.thisform.text3.Value="Agustus"

19.CASE bulan=09

20.thisform.text3.Value="September"

21.CASE bulan=10

22.thisform.text3.Value="Oktober"

23.CASE bulan=11

24.thisform.text3.Value="Nopember"

25.CASE bulan=12

26.thisform.text3.Value="Desember"

27.ENDCASE

Nah setelah kalian ketikan koding di atas maka silahkan jalankan formnya maka format Tanggal,Hari,Bulan,Tahun & Jam akan otomatis mengikuti Format waktu yang ada di Komputer/Laptop Kalian.

Ket :
TIME() = Berfungsi Untuk Menampilkan Waktu sekarang
SET DATE ITALIAN = Berfungsi agar Format Tanggal Yang Di gunakan Sesuai s=dengan format tanggal di Indonesia;
DATE()  = Berfungsi Untuk Menampilkan Tanggal,Bulan & Tahun Sekarang;
YEAR(DATE()) = Berfungsi Untuk Menampilkan Tahun Sekarang;
DAY(DATE()) = Berfungsi Untuk Menampilkan Tanggal nya saja;
DOW(DATE()) = Berfungsi Untuk Menampilkan Hari dengan Angka dan di mulai dari angka 1 yaitu Sunday sampai dengan angka 7 yaitu Saturday;
MONTH(DATE()) = Berfungsi Untuk Menampilkan Bulan dengan Angka  dimana Januari adalah Bulan Ke 1 dan Desember adalah bulan Ke 12.

Nah selesailah sudah Program & keterangan Kode-kode yang kita pakai silahkan di pahami tapi kalo ada yang kurang jelas silahkan bertanya,…
Silahkan Mencoba Goog Luck. ..
Nih hasilnya punya saya

Artikel Ini  Posting dari Blog 

Read more: http://komputerkampus.com/artikel-75/program-format-tanggal--waktu-di-visual-foxpro-90/#ixzz2BpbaNl00

Mengubah Bilangan Menjadi Bentuk Rp. 00,- dan Fungsi Terbilang

MENGUBAH BILANGAN MENJADI BENTUK Rp. 00,- DAN FUNGSI TERBILANG DENGAN MENGGUNAKAN VB 6.0

Untuk membuat program mengubah bilangan menjadi bentuk Rp. 00,- dan fungsi terbilang terlebih dahalu anda harus memiliki program Microsoft Visual Basic 6.0 setelah itu Buka program Visual Basic dalam Komputer anda dan pastikan pilihan anda adalah dalam posisi Standart EXE

Klik Tombol Open, maka tampilan Visual Basic yang akan muncul seperti dibawah ini

Selanjutnya anda tambahkan komponen Label, Text, dan Command dan desain seperti gambar dibawa ini:

Kemudian pada propertisnya anda atur seperti berikut ini:

Form1

Caption : Fungsi Terbilang

BorderStyle : 1-Fixed Single

Label1

Caption : Masukkan Angka

Label2

Caption : Terbilang

Text1

Text : -

Text2

Text : -

Text3

Text : -

Text4

Text : -

Command1

Caption : Keluar

BackStyle : 0-Transparent

Command2

Caption :Lagi

BackStyle : 0-Transparent

Sehingga hasilnya seperti gambar dibawa ini

Kemudian masukkan kode program berikut ini

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text1.SetFocus

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

   Command1.SetFocus

End If

End Sub

Private Sub Text1_LostFocus()

On Error GoTo 1

VUbah = Round(Val(Text1))

'Awal Konversi Terbilang

Banyak = 10 - Len(VUbah)

Z = ""

If Banyak <> 0 Then

    For Ulang = 1 To Banyak

     Z = Z + "0"

    Next Ulang

End If

K = Z + Trim(Str(VUbah))

For I = 1 To 10 Step 1

Select Case Mid(K, I, 1)

       Case Is = "0"

            If Val(K) = 0 Then

               A = "Nol "

               Else

               A = A + ""

            End If

       Case Is = "1"

            If (I = 3 Or (I = 6 Or I = 9)) And (Mid(K, I, 1) = "1" And Mid(K, I + 1, 1) <> "0") Then

               A = A + ""

               ElseIf (I = 10 Or I = 4) And Val(Mid(K, I - 1, 1)) <> "1" Then

                      A = A + "satu "

                      ElseIf (I = 10 Or I = 4) And Val(Mid(K, I - 1, 1)) = "0" Then

                             A = A + "satu "

                             ElseIf I = 7 And (Mid(K, I - 1, 1) <> "0" And (Mid(K, I - 1, 1) <> "1")) Then

                             A = A + "satu "

                             Else

                             A = A + "se"

            End If

       Case Is = "2"

            A = A + "dua  "

       Case Is = "3"

            A = A + "tiga  "

       Case Is = "4"

            A = A + "empat  "

       Case Is = "5"

            A = A + "lima  "

       Case Is = "6"

            A = A + "enam  "

       Case Is = "7"

            A = A + "tujuh  "

       Case Is = "8"

            A = A + "delapan  "

       Case Is = "9"

            A = A + "sembilan  "

       Case Is = ","

            A = A + "koma "

End Select

If I = 4 Or (I = 7 Or I = 10) Then

   If Mid(K, I - 1, 1) <> "0" Then

      If Mid(K, I - 1, 1) = "1" And Mid(K, I, 1) <> "0" Then

         A = A + "belas "

      End If

   End If

       ElseIf Mid(K, I, 2) = "10" And (I = 3 Or (I = 6 Or I = 9)) Then

          A = A + "puluh "

       End If

      

If I = 4 And Val(Mid(K, 1, 4)) <> 0 Then

   A = A + "juta "

   ElseIf Mid(K, I, 1) <> "0" And (I = 2 Or (I = 5 Or I = 8)) Then

          A = A + "ratus "

   ElseIf Val(Mid(K, 5, 3)) <> 0 And I = 7 Then

          A = A + "ribu "

   ElseIf Mid(K, I, 1) <> "0" And Mid(K, I, 1) <> "1" And (I = 3 Or (I = 6 Or I = 9)) Then

          A = A + "puluh "

End If

If I = 10 Then

   A = A + "rupiah"

   X = UCase(Mid(A, 1, 1))

   Y = Mid(A, 2)

   Hasil = X + Y

If Len(Hasil) > 60 Then

     Pos = 60

     Do While Mid(Hasil, Pos, 1) = " "

        Pos = Pos - 1

     Loop

     Konversi1 = Left(Hasil, Pos)

     Konversi2 = Mid(Hasil, Pos + 1, Len(Hasil) - Pos)

  Else

     Konversi1 = Hasil

     Konversi2 = ""

  End If

 

Text3.Text = Konversi1

Text4.Text = LTrim(Konversi2)

  

End If

    Next I

'Konversi Format Rp.000.000,-

For J = 1 To 10 Step 1

If Val(Mid(K, 1, J)) = 0 Then

Else

    H = H + Mid(K, J, 1)

   r = r + 1

   If J = 4 Or J = 7 Then

    H = H + "."

   End If

End If

If J = 10 Then

H = "Rp. " + H + " ,-"

End If

    Next J

Text2.Text = H

1 Exit Sub

End Sub

Setelah memasukkan kode diatas anda dapat melihat hasilnya

Seperti yang telah saya buat. Lihat gambar dibawa ini:

Mudahkan teman-teman..!!

Selamat mencoba semoga sukses…