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.