1. Desain dari form dan kontrol lainnya seperti gambar berikut:













2. Setting dari masing-masing kontrol sebagai berikut:

TextBox1  dengan name Txt_Data
Command1 dengan name Cmd_Proses

3. Selanjutnya ketik listing program berikut ini :
 
 Private Sub Cmd_Proses_Click()
Dim Bil(100) As Integer, N As Integer
N = Val(Txt_Data.Text)
Form1.Cls
For A = 1 To N
Bil(A) = InputBox("Masukan data ke : " & A)
Next A
For B = 1 To N
       Print Bil(B) & " = ";
       For C = 1 To Bil(B)
       Print " * ";
       Next C
       Print
Next B
End Sub

4. Buat prosedur data dan ketikkan listing program untuk menggerakkan pointer ke tombol PROSES :

Private Sub Txt_Data_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmd_Proses.SetFocus
End If
End Sub

5. Sekarang Jalankan programnya dengan menekan tombol F5 lalu isikan datanya.

Praktikum 5.

1. Desain dari form dan kontrol lainnya sebagai berikut :

2. Setting dari masing-masing kontrol sebagai berikut :

       Silahkan berkresi sendiri
       Dengan Catatan :
          - Labelnya  berindex


3. Pertama kali pada general, deklarasikan variabel dengan tipe data yang dibuat sendiri seperti berikut  ini:

 Dim Data As Data_Karyawan
 Private Type Data_Karyawan
       NIK                As String * 5
       NAMA            As String * 30
       ALAMAT        As String * 50
       KOTA             As String * 50
       TGL_LAHIR   As Date
       JML_ANAK    As Byte
  End Type

4. Buat even Click untuk ketiga tombol command Button, Seperti berikut ini :

    Private Sub Cmd_Tampil_Click()
        Call Isi_Data
        Call Tampil_Data
        Call Bersih
     End Sub


     Private Sub Cmd_Bersih_Click()
       Call Bersih
      End Sub

     Private Sub Cmd_Keluar_Click()
          End
     End Sub

5. Buat Prosedur Isi_Data untuk memasukkan data dari kontrol yang ada diform ke dalam variabel yang sudah dibuat, seperti berikut ini :


   Sub Isi_Data()
             Data.NIK = Txt_NIK.Text
             Data.NAMA = Txt_Nama.Text
             Data.ALAMAT = Txt_Alamat.Text
             Data.KOTA = Txt_Kota.Text
             Data.TGL_LAHIR = Txt_Lahir.Text
             Data.JML_ANAK = Txt_Anak.Text
    End Sub

6. Buat prosedur Tampil_Data untuk meanmpilkan data ke kotak pesan (MsgBox) dari data yang ada di variabel, seperti berikut ini :

    Sub Tampil_Data()
    MsgBox "INFORMASI DATA KARYAWAN :" & Chr(10) & _
                     "NIK                 :" & Data.NIK & Chr(10) & _
                     "Nama               :" & Data.NAMA & Chr(10) & _
                     "Alamat             :" & Data.ALAMAT & Chr(10) & _
                     "Kota                :" & Data.KOTA & Chr(10) & _
                     "Tgl.Lahir         :" & Data.TGL_LAHIR & Chr(10) & _
                     "Jumlah Anak    :" & Data.JML_ANAK
     End Sub


7. Buat prosedur bersih untuk membersihkan kotak isian, seperti berikut ini :

      Sub Bersih()
            Txt_NIK.Text = ""
            Txt_Nama.Text = ""
            Txt_Alamat.Text = ""
            Txt_Kota.Text = ""
            Txt_Lahir.Text = ""
            Txt_Anak.Text = ""
       End Sub


8. Sekarang jalankan programnya dan isi textbox yang ada dan lanjutkan klik tombol tampil.

Hai sobat, postingan berikut ini adalah perintah singkat untuk belajar menggambar di autocad
yang biasa disebut Shorcut
Untuk belajar dengan cara cepat pada program Autocad, saya akan bagikan perintah-perintah singkat yang sering digunakan untuk mempercepat cara penggambaran di autocad.

Berikut sebagian  shorcut yang digunakan :

 A = cara  buat busur
 L = cara buat garis
 dll.................

 selanjutnya silahkan klik link dibawah ini :

Defenisi:

Rata-rata dengan bobot atau kepentingan dari setiap
data berbeda. Besar dan kecilnya bobot tergantung
pada alasan ekonomi dan teknisnya.

 Untuk lebih lengkapnya silahkan klik link di bawah ini :

 Untuk lebih lengkapnya silahkan klik link dibawah ini :

membuat akun di Gmail.com

daftar blogger | Sign Up

Cara bikin blog

• email : email GMAIL yang kita buat tadi di tahap 1
• Password : pilihlah password minimal 8 karakter
• Display Name (nama tampilan) : Merupakan nama yang digunakan sebagai nama kita di akun blog nanti. Misal aku memilih nama "muh.ashar" maka nama yang akan muncul ketika aku posting nanti ialah "posted by muh.ashar atau diposting oleh muh.ashar"
• Gender (Jenis Kelamin) : pilih kelamin sesuai kenyataan atau kalau ragu pilih "other atau lainnya"
• Birthday (tanggal lahir) : masukan dengan format tanggal/bulan/tahun misal jika tanggal lahir 17 agustus 1945 maka yang dimasukkan = 17/08/1945 jika dalam format bahasa inggris seperti gambar dibawah maka format tanggalnya ialah bulan/tanggal/tahun
• Word Verification (verifikasi) : masukan karakter yang terdapat di bawah
• Lalu centang Acceptance of terms (penerimaan peryaratan)
• Klik Continue / Lanjutkan

Cara Membuat Blogger : memilih Judul, Alamat dan template

Google Email Verification

1.   PENGARUH LEDAKAN SUPERNOVA

Kontrol	Properti
Text1	Text
Command2	Name Caption	Koma .
Command3	Name Caption	AC AC
Command4	Name Caption	Tambah +
Command5	Name Caption	Kurang -
Command6	Name Caption	Tanda +/-
Command7	Name Caption	Bagi /
Command8	Name Caption	Kali x
Command9	Name Caption	Akar Akar
Command10	Name Caption	Hasil =l
Command11	Name Caption	Kuadrat X^2