Data Flow Diagram (DFD) Pendaftaran Mahasiswa

Contoh Data Flow Diagram (DFD) Pendaftaran Mahasiswa STMIK

Data Flow Diagram (DFD) Level Konteks

Data Flow Diagram (DFD) Level 0

Pemrograman Pencarian Harga Kaset Menggunakan Microsoft Visual Studio 2010

Public Class Form1

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

        Kode.Items.Add("A1001")

        Kode.Items.Add("A1002")

        Kode.Items.Add("A2001")

        Kode.Items.Add("A2002")

        Kode.Items.Add("A3001")

        Kode.Items.Add("S1001")

        Kode.Items.Add("S1002")

        Kode.Items.Add("F1001")

        Kode.Items.Add("F1002")

        Jenis.Items.Add("Arcade")

        Jenis.Items.Add("Simulasi")

        Jenis.Items.Add("First Person Shooter")

        Dim i As Integer

        For i = 1 To 2

            JumlahKaset.Items.Add(i)

        Next

        For i = 1 To 100

            JumlahBeli.Items.Add(i)

        Next i

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Dim x As String

        x = Mid(Kode.Text, 1, 1)

        If x = "A" Then

            Jenis.Text = "Arcade"

        ElseIf x = "S" Then

            Jenis.Text = "Simulasi"

        ElseIf x = "F" Then

            Jenis.Text = "First Person Shooter"

        End If

        x = Mid(Kode.Text, 2, 1)

        JumlahKaset.Text = x

        Harga.Text = x * 10000

        If Kode.Text = "A1001" Then

            Nama.Text = "GTA San Andreas"

        ElseIf Kode.Text = "A1002" Then

            Nama.Text = "Worm"

        ElseIf Kode.Text = "A2001" Then

            Nama.Text = "Devil May Cry"

        ElseIf Kode.Text = "A2002" Then

            Nama.Text = "Naruto Shippuden 6"

        ElseIf Kode.Text = "A3001" Then

            Nama.Text = "GTA IV"

        ElseIf Kode.Text = "S1001" Then

            Nama.Text = "Train Simulator"

        ElseIf Kode.Text = "S1002" Then

            Nama.Text = "Flight Simulator"

        ElseIf Kode.Text = "F1001" Then

            Nama.Text = "Counter Strike"

        ElseIf Kode.Text = "F1002" Then

            Nama.Text = "Ghost Recon"

        End If

    End Sub

    Private Sub JumlahBeli_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahBeli.SelectedIndexChanged

        TotalHarga.Text = JumlahBeli.Text * Harga.Text

    End Sub

    Private Sub TotalHarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TotalHarga.TextChanged

        If JumlahBeli.Text > 10 Then

            Diskon.Text = TotalHarga.Text * 0.1

        End If

    End Sub

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

        Bayar.Text = TotalHarga.Text - Diskon.Text

    End Sub

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

        Kode.Text = ""

        Nama.Text = ""

        Jenis.Text = ""

        JumlahKaset.Text = 0

        Harga.Text = 0

        JumlahBeli.Text = 0

        TotalHarga.Text = 0

        Diskon.Text = 0

        Bayar.Text = 0

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Close()

    End Sub

End Class

Tips Install Ulang Blackberry Tanpa Bayar

Selama ini, kita tidak tau apa yang akan kita lakukan jika gadjet kita hars di install ulang. khususnya Blackberry. Nah, untuk masalah ini, kita harus berkonsultasi dengan para counter counter HP. diperlukan biaya yang cukup mahal untuk menginstal ulang gadget tersebut. untuk meminimalisir pengeluaran saat Blackberry sudah bermasalah seperti itu, di butuhkanlah tips berikut ini.

- Install Blackberry desktop manager ke PC anda.(silahkan cari di google ya situs resminya).
- Download OS yang sama seperti Blackberry anda.
- Buka file OS.exe
- Restart PC anda.
- Buka drive C/Program Files/common files/reaserch in motion/app.loader
- Hapus file vendor.xml
- Backup data Blackberry anda melalui Blackberry desktop manager.
- Matikan network dan copot memory card.
- Hapus handheld yang bermasalah di Blackberry anda.
- Buka Blackberry desktop manager.
- Connect Blackberry dengan Blackberry desktop manager.
- Ketika deteksi otomatis berjalan, akan muncul OS versi terbaru. Ikuti langkah langkahnya.
- Tunggu Blackberry anda selesai Booting.
- Setting Blackberry anda.

Demikianlah tips ini saya berikan, semoga bermanfaat bagi kita semua.

Selamat Datang DI Blog Saya

Selamat Datang Di Blog Saya. Semoga Artikel Yang Saya Berikan Cukup Bermanfaat Bagi Anda Semua.