Minggu, 29 Januari 2012

Jawaban soal no3 (Usri Sagala)

Jawaban soal no3 (Usri Sagala)

Untuk kasus lihat disini Kasus Tagihan PDAM ……………….. (maka di Tulisan Kasus itu anda buat link ke Page Kasus yang soalnya, itu contohnya).

Listing Program Login:


Public Class Login

Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
           If username.Text = "Yusri" And password.Text = "tikus" Then
                    Menu_Utama.Show()
                    Me.Hide()
           Else
                    MsgBox("Username/Password salah!!!")
                    username.Text = ""
                    password.Text = ""
            End If
End Sub

End Class



Hasil Program Login:


Listing Program Menu Utama:


Imports System.Windows.Forms

Public Class Menu_Utama

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
          End

End Sub

Private Sub PDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PDAMToolStripMenuItem.Click
             Tagihan_PDAM.Show()

End Sub
End Class

Sabtu, 28 Januari 2012

Postingan Jawaban No 3 (Usri Sagala)

Untuk kasus lihat disini Kasus Tagihan PDAM  (maka di Tulisan Kasus itu anda buat link ke Page Kasus yang soalnya, itu contohnya).
Listing Program Login:

Public Class Login

    Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
        If username.Text = "Yusri" And password.Text = "tikus" Then
            Menu_Utama.Show()

Postingan Jawaban No 2 (Usri Sagala)

Untuk kasus lihat disini Kasus disini(maka di Tulisan Kasus itu anda buat link ke Page Kasus yang soalnya, itu contohnya).

Listing Program

Public Class Form1

    Sub isinama()
        nama.Text = "Flasdisk 4GB"
        nama.Text = "Flashdik 2GB"
    End Sub

Kasus soal no 2

Desaign Form dengan ketentuan sebagai berikut:

- Kode barang menentukan nama barang dan merk
- 2 digit karakter dari sebelah kiri menentukan merk barang
- 3 digit karakter dari sebelah kanan adalah menentukan nama barang
- Total harga muncul ketika terjadi penekanan enter di jumlah beli
- Total harga = Harga * Jumlah Beli

Contoh :
   Kode barang: TS001, Merk: Toshiba, Nama Barang: Flashdisk 4GB
   Kode barang: TS002, Merk: Toshiba, Nama Barang: Flashdisk 2GB
   Kode barang: VG001, Merk: Toshiba, Nama Barang: Flashdisk 2GB
   Kode barang: VG002, Merk: Toshiba, Nama Barang: Flashdisk 4GB

Ketentuan harga:


KodeBarang                001                     002
TS 105000 75000
VG 90000 60000









Rabu, 25 Januari 2012

My Frame....


Sejarah Visual Basic

Written by Rudi  


Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang bersifat event driven dan menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model (COM).

First Love

Utada Hikaru


Saigono kiss wa
tabakono flavor gashita
nigakute setsunaikaori

ashitano imagoroniwa
anatawa dokoniirundarou
darewo omotterundarou

Beda vb 6.0 dan vb.net

Perbedaan mendasar pada VB.NET dibandingkan VB 6 adalah .NET framework itu sendiri dan konsep OOP.

Teknologi .NET framework dengan arsitekturnya sangat berbeda dengan teknologi sebelumnya seperti pada VB 6. .NET framework memiliki compiler untuk masing-masing bahasa; Untuk VB.NET ada VB compiler, C# ada C# compiler, dan compiler bahasa lainnya. Masing-masing compiler ini akan melakukan kompilasi (compile) source code kita menjadi Intermediate Language (IL). Bahasa apapun yang kita pakai pada source code (entah itu VB.NET, atau C#, atau lainnya), akan di-compile menjadi IL

perkembangan visual basic

1. Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
2. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System

Pemakaian Fungsi Val() pada VB.NET


Val() merupakan fungsi untuk mengubah nilai STRING pada sebuah properti Text di Textbox menjadi nilai Numerik.

Biasanya pada saat anda mengetikkan suatu nilai Numerik pada TextBox, misalnya 50, maka sebenarnya nilai 50 itu berjenis STRING. Mengapa? karna anda sebenarnya mengetik pada Property TEXT. Perhatikan saja jenis propertinya TEXT, ya tentu saja isinya bernilai TEXT atau STRING. Untuk lebih pahamnya, biasanya pada saat kita click Button HAPUS, maka perintah tertulisKomponen.Text = " " . perhatikan mengapa ada tanda "", tentu saja nilai dari Property Text yaitu STRING, karna diapit selalu oleh tanda petik ". Nah saat anda menulis 50 sebenarnya menjadi "50". :D


Nah bagaimana kejadiaannya pada saat kita buat perintah seperti ini pada Button Proses?

Hasil.Text = Bil1.Text + Bil2.Text

misalnya :

Membuat fungsi terbilang VB .Net

Mungkin para teman-teman developer VB .Net diminta oleh perusahaannya untuk membuat fungsi terbilang yang akan tercetak apabila di Print.
Berikut ini kode fungsi terbilang menggunakan VB .Net

- Buatlah sebuah module
- Ketikkan kode dibawah
Fungsi Ambil Koma