Selasa, 30 April 2013

Cara Buat Forms dari Visual Basic



Hasil Eksekusi


Imports System.Windows.Forms
Imports System.Drawing.Color

Public Class Form1
    Inherits Form

    Dim OLabel, OLabel2 As New Label
    'Dim OLabel0 As New Label
    Dim OTextBox As New TextBox

    Dim WithEvents OButton As New Button


    Public Shared Sub main()   'WAJIB dibuat.. menampilkan forms pertama kali
        Application.Run(New Form1)
    End Sub


    'Wajib punya event Load
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        OLabel.Text = " Nama:"
        OLabel.ForeColor = Blue
        OLabel.SetBounds(50, 100, 50, 20)
        Me.Controls.Add(OLabel)


        OLabel2.SetBounds(100, 125, 100, 20)
        Me.Controls.Add(OLabel2)

        'OLabel0.Text = "NPM:"
        'OLabel0.SetBounds(55, 150, 50, 20)
        'Me.Controls.Add(OLabel0)

Sabtu, 20 April 2013

Addressing The Network


Diketahui:
Alamat Network 192.168.10.0
Subnet mask  255.255.255.224

Ditanya:
     a.      Berapa jumlah subnet?
     b.      Berapa jumlah host per subnet?
    c.       Apakah sub net yang valid?
    d.      Apakah alamat broadcast untuk tiap subnet
    e.      Apakah host yang valid?

Subnet Mask 255.255.255.224  ->  11111111.11111111.11111111.11100000
   2n – 2 =  23 – 2
              = 8 – 2
              = 6