Tugas 7

MEMBUAT MDI FORM, LAYER CASECADE, HORIZONTAL, VERTICAL & RIBBON TOOLBOX

Kali ini saya akan menerangkan tentang MDI Form – MDI Child, Membuat layer MDI Child berbentuk Casecade, Horizontal, Vertical, & Membuat Toolbox Ribbon seperti pada MS Office Word 2010.....

Langsung ajah :

1. Buatlah form Induk MDI Form seperti dibawah ini :

2. Ganti Properties Form1 sub IsMDIContain ubah menjadi “True” untuk menetapkan Form1 sebagai Induk dari MDIForm. Untuk memindahkan ToolStrip, klik pada segitiga saat ToolStrip di klik, Lalu pilih Dock, pindah sesuai kebutuhan.

3. Isikan Tab Latihan dengan Latihan 1 – Latihan 3, dan buat Tab barum dengan nama "Tugas " di isi dari tugas 1 - tugas 3 ( siisi semau kamu )

4. Buat perintah tombol menggunakan toolstrip, untuk membuat perintah: casecade, horizontal, dan vertical.

    a. Hasil dari casecade : 

    b. Hasil dari horizontal :

    c. Hasil dari vertical :

5. Untuk membuat Tool tambahan saya menggunakan toolstrip, karena belum tau tool tambahan yang lain slain di visual basic 2010. Dan hasilnya seperti ini : 

6. Untuk membuat program seperti diatas , berikut coding yang saya gunakan, mungkin ada kesalahn saya minta maaf :

Public Class FormInduk

    Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click

        Form1.MdiParent = Me

        Form1.Show()

    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

    Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FertikalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

      

    End Sub

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

      

    End Sub

    Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub Latihan3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3ToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click

        Me.Close()

    End Sub

End Class

7. Sekian yang sya dapat jelaskan, bila ada kesalahan saya mohon maaf, karena manusia ga jauh dari kesalahan. 

TERIMA KASIH 

PUZZLE

Puzzle 

cara unruk membuat puzzle si atas sebagai berikut skrip yang di buruhkan.

Copy scrip di visual basic

Public Class Form1
    Dim smt As String
    Dim acak As Integer
    Dim b, s As Boolean

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each kontrol In Me.Controls
            kontrol.enabled = False
            Button10.Enabled = True
            Button12.Enabled = True
        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        b = True
        s = False

        If Button2.Visible = s Then
            Button2.Visible = b
            Button1.Visible = s
            Button2.Text = Button1.Text
        Else
            If Button4.Visible = s Then
                Button4.Visible = b
                Button1.Visible = s
                Button4.Text = Button1.Text

            End If
        End If

        cek()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        b = True
        s = False

        If Button1.Visible = s Then
            Button1.Visible = b
            Button2.Visible = s
            Button1.Text = Button2.Text
        Else If Button3.Visible = s Then
                Button3.Visible = b
                Button2.Visible = s
                Button3.Text = Button2.Text

            Else If Button5.Visible = s Then
                    Button5.Visible = b
                    Button2.Visible = s
                    Button5.Text = Button2.Text
                End If
         
        cek()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        b = True
        s = False

        If Button2.Visible = s Then
            Button2.Visible = b
            Button3.Visible = s
            Button2.Text = Button3.Text

        Else
            If Button6.Visible = s Then
                Button6.Visible = b
                Button3.Visible = s
                Button6.Text = Button3.Text

            End If
           End If
        cek()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        b = True
        s = False

        If Button1.Visible = s Then
            Button1.Visible = b
            Button4.Visible = s
            Button1.Text = Button4.Text
        ElseIf Button5.Visible = s Then
                Button5.Visible = b
                Button4.Visible = s
                Button5.Text = Button4.Text
            Else If Button7.Visible = s Then
                    Button7.Visible = b
                    Button4.Visible = s
                    Button7.Text = Button4.Text
                End If        
        cek()
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        b = True
        s = False

        If Button2.Visible = s Then
            Button2.Visible = b
            Button5.Visible = s
            Button2.Text = Button5.Text
        Else If Button4.Visible = s Then
                Button4.Visible = b
                Button5.Visible = s
                Button4.Text = Button5.Text
            Else If Button6.Visible = s Then
                    Button6.Visible = b
                    Button5.Visible = s
                    Button6.Text = Button5.Text
                Else If Button8.Visible = s Then
                        Button8.Visible = b
                        Button5.Visible = s
                        Button8.Text = Button5.Text
                    End If
        cek()
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        b = True
        s = False

        If Button3.Visible = s Then
            Button3.Visible = b
            Button6.Visible = s
            Button3.Text = Button6.Text
        Else If Button9.Visible = s Then
                Button9.Visible = b
                Button6.Visible = s
                Button9.Text = Button6.Text
            ElseIf Button5.Visible = s Then
                    Button5.Visible = b
                    Button6.Visible = s
                    Button5.Text = Button6.Text
                End If
        cek()
    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        b = True
        s = False

        If Button8.Visible = s Then
            Button8.Visible = b
            Button7.Visible = s
            Button8.Text = Button7.Text
        Else
            If Button4.Visible = s Then
                Button4.Visible = b
                Button7.Visible = s
                Button4.Text = Button7.Text
            End If
        End If
        cek()
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        b = True
        s = False
        If Button7.Visible = s Then
            Button7.Visible = b
            Button8.Visible = s
            Button7.Text = Button8.Text
        ElseIf Button9.Visible = s Then
                Button9.Visible = b
                Button8.Visible = s
                Button9.Text = Button8.Text
            ElseIf Button5.Visible = s Then
                    Button5.Visible = b
                    Button8.Visible = s
                    Button5.Text = Button8.Text
                End If
        cek()
    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        b = True
        s = False

        If Button6.Visible = s Then
            Button6.Visible = b
            Button9.Visible = s
            Button6.Text = Button9.Text
        Else
            If Button8.Visible = s Then
                Button8.Visible = b
                Button9.Visible = s
                Button8.Text = Button9.Text
            End If
        End If
        cek()
    End Sub
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Dim kontrol As Windows.Forms.Control
        For Each kontrol In Me.Controls
            kontrol.Enabled = True
            Button10.Enabled = True
            Button12.Enabled = True
            smt = Button1.Text
            Button1.Text = Button3.Text
            Button3.Text = Button2.Text
            Button2.Text = Button5.Text
            Button5.Text = Button6.Text
            Button6.Text = Button7.Text
            Button7.Text = Button8.Text
            Button8.Text = Button4.Text
            Button4.Text = Button6.Text
            Button6.Text = smt

            Button12.Enabled = True
            Button11.Enabled = True
            Label1.Enabled = True
            Label1.Text = "Selamat Mencoba"
        Next
    End Sub
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If MsgBox("Apakah Anda Ingin Mengulang ?", vbYesNo + vbQuestion + vbDefaultButton2, "Anda Ingin Mengulang") _
            = vbYes Then Application.Restart()
    End Sub
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If MsgBox("Apakah Anda Yakin Akan Keluar ?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = _
            vbYes Then Me.Close()
    End Sub
    Private Sub cek()
        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" _
            And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" _
            And Button7.Text = "7" And Button8.Text = "8" Then MessageBox.Show("selamat anda berhasil")
    End Sub
End Class
     

TUGAS 2 VISUAL STUDIO 2012 ULTIMATE

Latihan 1 variable constanta type data

1.       Yang menyebabkan error pada Btalamat1_Click pada baris alamat = “Kuningan” 

yaitu tidak ditemukanya alamat pada target yang jelas, atau target yang terdekat dan variabel alamat tidak di deklarasikan dulu sebagai  As String. Hal ini dapat disiasati dengan menambahkan (‘) pada awal kata, menjadi ‘alamat = “Kuningan” atau dengan “Dim alamat As String. Sehingga demikian error message yang tadinya ada menjadi hilang (telah teratasi).

2.       Kenapa saat ditekan tombol Nama 1 dan Nama 2 nama yang ditampilkan textbox nama berbeda hasilnya? Sedangkan pada tombol Alamat 1 dan Alamat 2 hasilnya sama.

Hal ini terjadi karena target yang dipakai pada Btnama1_Click adalah Dim nama As String ; nama = “Nandang” dan target yang dipakai pada Btnama2_Click adalah Public Const nama As String = “Nandang Hermanto” yang tertera pada module form sehingga membuat suatu konstanta pada form. Lalu kenapa hasil Alamat 1 dan Alamat 2 sama? Ini terjadi karena pendeklarasian konstanta (Const alamat = “Kuningan”) pada form satu sehingga berlaku hanya di form satu saja.

3.       Kenapa saat ditekan tombol Tambah Umur 1 hasil yang keluar menunjukkan angka satu dan tombol Tambah Umur 2 menunjukkan nilai yang bertambah tiap kali ditekan?

Perbedaan ini terletek pada ruang lingkup variable yaitu Dim pada BttambahUmur1_Cklik dan Static pada BttambahUmur2_Clik. Dim hanya akan di eksekusi satu kali sehingga jika dieksekusi berkali-kali. Hal ini akan di perjelas dengan umur +=1, sedangkan  yang selalu bertambah 1, jika tombol Tambah Umur 2 ditekan berkali-kali

4.        Pada form dua semua berjalan sesuai dengan value yang diterima oleh masing-masing variabel. Karena pada form dua terdapat Option Explicit Off yang menunjukkan bahwa variabel tidak perlu dipesan terlebih dahulu. Disinilah diperlukan module form untuk menyiasati agar tidak terjadi error.

Latihan 2 if dan case

Kelemahan:
Programnya terdapat pada nama barang dan harga barang, dimana tertuliskan nama barang = - dan harga barang = 0, itulah yang menyebabkan program menjadi salah.

Harusnya : 

Seperti ini hasil program yang benar :

Kode program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cmbKode.Items.Add("SPT")

        cmbKode.Items.Add("SND")

        cmbKode.Items.Add("TST")

        cmbKode.Items.Add("TOP")

        cmbKode.Items.Add("TAS")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKode.SelectedIndexChanged

        Dim kdbarang, namabarang As String

        Dim harga As Single

        kdbarang = cmbKode.Text

        Select Case kdbarang

            Case "SPT"

                namabarang = "Sepatu"

                harga = 200000

            Case "SND"

                namabarang = "Sandal"

                harga = 100000

            Case "TST"

                namabarang = "T-Shirt"

                harga = 150000

            Case "TOP"

                namabarang = "Topi"

                harga = 50000

            Case "TAS"

                namabarang = "Tas Laptp"

                harga = 200000

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

    End Sub

    Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged

        txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

        txtbayar.Text = Val(txttotal.Text) - Val(Txtdiskon.Text)

    End Sub

    Private Sub Radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiotunai.CheckedChanged

        Txtdiskon.Text = Val(txttotal.Text) * 10 / 100

        txtbayar.Text = Val(txttotal.Text) - Val(Txtdiskon.Text)

    End Sub

    Private Sub Radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiokredit.CheckedChanged

        Txtdiskon.Text = 0

        txtbayar.Text = Val(txttotal.Text) - Val(Txtdiskon.Text)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click

        Txtdiskon.Clear()

        txtharga.Clear()

        txtjumlah.Clear()

        txtnama.Clear()

        txttotal.Clear()

        Me.Radiotunai.Checked = False

        Me.Radiokredit.Checked = False

        cmbKode.Text = ""

        cmbKode.Focus()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClose.Click

        If MsgBox("anda yakin", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then

            Me.Close()

        End If

    End Sub

End Class

Kalkulator Sederhana

Untuk pembelajaran awal, saya membuat kalkulator sederhana menggunakan visual studio 2012 ultimate , yang gampang di pelajari oleh para nuwbi, hehehehe , ga usah banyak basa basi lasung ajah :

1. Buka Visual Studio 2010 Express for Windows Phone. Pada "start page" pilih "New Project". Atau pada menu "File" --> New Project : 

2.  Akan muncul window, seperti di bawah ini :

             Keterangan gambar :

             1. Pilih windows

             2. Pilih windows Form Application

             3.Beri nama  Project

             4.Pillih folder penyimpanan

             5.Selesai

3.Buat tampilan Form seperti gambar di baawah ini :

Jenis	Nama	text
Lable 1	Label 1	Kalkulator sederhana
Lable 2	Label 2	Bilangan 1
Lable 3	Label 3	Bilangan 2
Lable 4	Label 4	Hasil
TextBox 1	Bilangan 1	(kosong)
TextBox 2	Bilangan 2	(kosong)
TextBox 3	Hasil	(kosong)
Button 1	Tambah	+
Button 2	Kurang	-
Button 3	Kali	*
Button 4	Bagi	/
Button 5	Brsh	Bersihkan
Nutton 6	Klr	Keluar

4.   Masukan kode” seperti berikut :

Public Class Form1

    Dim bil1 As Single

    Dim bil2 As Single

    Dim Hasile As Single

    Private Sub Tamnbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click

        bil1 = Val(Bilangan1.Text)

        bil2 = Val(Bilangan2.Text)

        Hasile = bil1 + bil2

        Hasil.Text = Str(Hasile)

    End Sub

    Private Sub Kurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kurang.Click

        bil1 = Val(Bilangan1.Text)

        bil2 = Val(Bilangan2.Text)

        Hasile = bil1 - bil2

        Hasil.Text = Str(Hasile)

    End Sub

    Private Sub Kali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kali.Click

        bil1 = Val(Bilangan1.Text)

        bil2 = Val(Bilangan2.Text)

        Hasile = bil1 * bil2

        Hasil.Text = Str(Hasile)

    End Sub

    Private Sub klr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klr.Click

        If MsgBox("Apakh anda yakin ", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub brsh_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brsh.Click

        Bilangan1.Clear()

        Bilangan2.Clear()

        Hasil.ResetText()

        Bilangan1.Focus()

    End Sub

    Private Sub Bagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bagi.Click

        bil1 = Val(Bilangan1.Text)

        bil2 = Val(Bilangan2.Text)

        Hasile = bil1 / bil2

        Hasil.Text = Str(Hasile)

    End Sub

End Class


5.  Hasil akan seperti gambar berikut :

unduh : http://www.ziddu.com/download/20683201/WindowsApplication11.rar.html

terimakasih by bolankz

MOUSE UNIK BUATAN LG YANG BISA JADI SCANNER

 Bentuknya seperti mouse biasa. Bedanya, di bagian bawah mouse terdapat sensor pemindai. Mendekati penghujung 2011, LG meluncurkan LG Mouse Scanner. Sesuai dengan namanya, alat ini lahir sebagai sebuah perangkat yang menggabungkan fungsi navigasi komputer (mouse) dan alat pemindai (scanner).

“Kami menawarkan keunikan fungsi dengan kejutan inovasi terkini di dalamnya,” kata Billy Tantri, IT Product Marketing LG Electronics Indonesia.

Tampilan LG LSM-100 tak jauh beda dengan alat bantu navigasi komputer (mouse) lainnya. Perbedaan hanya terlihat dengan adanya tambahan dua tombol pada bagian samping kiri yaitu tombol scan untuk mengaktifkan fungsi pemindaian dan tombol back untuk kembali ke menu sebelumnya.

PERKEMBANGAN PROSESSOR INTEL DARI MASA KE MASA

Pada tahun 1968, Bob Noyce dan Gordon Moore merupakan dua orang yang tidak “bahagia” yang bekerja bagi Fairchild Semiconductor. Mereka akhirnya memutuskan untuk keluar dan membuat perusahaan sendiri.

Bob Noyce kemudian menuliskan ide-idenya ke dalam satu halaman mengenai apa yang akan mereka lakukan pada perusahaan yang baru. Hal tersebut akhirnya sudah cukup meyakinkan investor dari San Francisco, Art Rock, untuk menaikkan investasinya ke perusahaan mereka. Art Rock menaikkan USD$ 2.5 juta dalam waktu kurang dari dua hari.

Masalah berikutnya adalah masalah nama perusahaan. Nama “Moore Noyce” sudah terdaftar oleh sebuah jaringan hotel, sehingga mereka memutuskan untuk menggunakan nama “Intel” sebagai nama perusahaan baru mereka. Intel merupakan singkatan dari Integrated Electronics.

PERKEMBANGAN PROSSESOR AMD

AMD adalah perusahaan semikonduktor multinasional Amerika Serikat yang berbasis di Sunnyvale, California yang mengembangkan prosesor komputer dan teknologi yang terkait untuk pasar konsumen dan komersial. Produk yang utama termasuk mikroprosesor, chipset motherboard, embedded prosesor kartu grafis (GPU) dan prosesor untuk server, workstation dan komputer pribadi (PC), dan teknologi prosesor untuk perangkat genggam, televisi digital, mobil, konsol game, dan aplikasi lainnya yang terdapat sistem.

AMD adalah terbesar kedua pemasok global mikroprosesor berdasarkan arsitektur x86 setelah Intel Corporation, dan ketiga terbesar pemasok unit pengolahan grafis. Ia juga memiliki 21 persen dari Spansion, pemasok non-volatile memori flash. Pada tahun 2007, AMD peringkat kesebelas antara produsen semikonduktor dari segi pendapatan.