''

Rabu, 13 April 2011

PEMBELAJARAN VB.NET ....


Public Class Form21Perawatan
    '//////////////////////////////////Variabel Buatan
    Public LblJudul As New Label

    Public GbBelogix As New GroupBox
    Public WithEvents GbLantai As New GroupBox
    Public WithEvents GbRuang As New GroupBox

    Dim WithEvents TxtJumLantai As New TextBox
    Dim WithEvents TxtJumRuangan As New TextBox
    Dim WithEvents TxtNamaLantai As New TextBox
    '//////////////////////////////////Variabel Buatan



    '//////////////////////////////////Rumus Buatan Sendiri

    'untuk desain form
    Private Sub Desain_Form()

        'untuk TxtJumLantai
        Me.TxtJumLantai.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
        Me.TxtJumLantai.Size = New System.Drawing.Size(30, 36)
        Me.TxtJumLantai.Location = New System.Drawing.Point(0, 0)
        Me.TxtJumLantai.Visible = False

        'untuk txtid
        Me.TxtJumRuangan.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
        Me.TxtJumRuangan.Size = New System.Drawing.Size(30, 36)
        Me.TxtJumRuangan.Location = New System.Drawing.Point(0, 30)
        Me.TxtJumRuangan.Visible = False

        'untuk TxtNamaLantai
        Me.TxtNamaLantai.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
        Me.TxtNamaLantai.Size = New System.Drawing.Size(150, 36)
        Me.TxtNamaLantai.Location = New System.Drawing.Point(35, 0)
        Me.TxtNamaLantai.Visible = False

        'untuk lbljudul
        Me.LblJudul.Text = "PT BELOGIX TRAINING & SOLUTION PROVIDER"
        Me.LblJudul.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!)
        Me.LblJudul.Size = New System.Drawing.Size(520, 30)
        Me.LblJudul.Location = New System.Drawing.Point(430, 20)

        'untuk GbBelogix
        Me.GbBelogix.Text = "PT BELOGIX TRAINING & SOLUTION PROVIDER"
        Me.GbBelogix.Location = New System.Drawing.Point(25, 75)
        Me.GbBelogix.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
        Me.GbBelogix.Size = New System.Drawing.Size(1300, 600)

        'untuk form11pengguna
        Me.Size = New System.Drawing.Size(1065, 640)
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
        Me.BackColor = Color.PapayaWhip
        Me.WindowState = FormWindowState.Maximized
        Me.Text = "**SIMAS_KETAN**"
        Me.Controls.Add(Me.LblJudul)
        Me.Controls.Add(Me.GbBelogix)
        Me.Controls.Add(Me.TxtJumLantai)
        Me.Controls.Add(Me.TxtJumRuangan)
        Me.Controls.Add(Me.TxtNamaLantai)


    End Sub

    Public Sub mouse_hover(ByVal Sender As Object, ByVal e As EventArgs)
        Dim grpbx As GroupBox = CType(Sender, GroupBox)
        grpbx.BackColor = Color.SandyBrown
        Me.TxtNamaLantai.Text = grpbx.Name
    End Sub

    Public Sub mouse_leave(ByVal Sender As Object, ByVal e As EventArgs)
        Dim grpbx As GroupBox = CType(Sender, GroupBox)
        grpbx.BackColor = Color.PapayaWhip
        Me.TxtNamaLantai.Text = ""
    End Sub

    'untuk menghitung jumlah lantai di database
    Private Sub Jml_Lantai()
        Dim comm As New MySql.Data.MySqlClient.MySqlDataAdapter("Select count(kd_lantai) as jumlah from t_lantai ", MdKoneksi.konek)
        dt.Clear()
        comm.Fill(dt)
        For i = 0 To (dt.Rows.Count) - 1
            Me.TxtJumLantai.Text = (dt.Rows(i)("jumlah").ToString())
        Next i
    End Sub

    'untuk menghitung jumlah ruangan di database
    Private Sub Jml_Ruangan()
        Dim comm As New MySql.Data.MySqlClient.MySqlDataAdapter("Select count(kd_ruang) as jumlah from t_ruang ", MdKoneksi.konek)
        dt.Clear()
        comm.Fill(dt)
        For i = 0 To (dt.Rows.Count) - 1
            Me.TxtJumRuangan.Text = (dt.Rows(i)("jumlah").ToString())
        Next i
    End Sub

    'untuk menghitung jumlah ruangan di database
    Private Sub Tambah_Lantai()
        'untuk memasukkan lantai ke dalam groupbox belogix
        Dim comm As New MySql.Data.MySqlClient.MySqlDataAdapter("Select kd_lantai , ket_lantai from t_lantai ", MdKoneksi.konek)
        dt.Clear()
        comm.Fill(dt)
        For i = 0 To (dt.Rows.Count) - 1
            Dim jml As Integer = Val(Me.TxtJumLantai.Text)
            GbLantai = New GroupBox
            GbLantai.Size = New System.Drawing.Size((Me.GbBelogix.Size.Width - 50) / jml, (Me.GbBelogix.Size.Height - 50))
            GbLantai.Text = (dt.Rows(i)("ket_lantai").ToString())
            GbLantai.Name = (dt.Rows(i)("kd_lantai").ToString())
            GbLantai.Cursor = Cursors.Hand
            GbLantai.Location = New System.Drawing.Point(25 + (GbLantai.Size.Width * i), 30)
            Me.GbBelogix.Controls.Add(GbLantai)


            'untuk memasukkan ruang ke dalam groupbox lantai
            Dim comm2 As New MySql.Data.MySqlClient.MySqlDataAdapter("Select nama_ruang , kd_ruang from t_ruang where kd_lantai='" & dt.Rows(i)("kd_lantai").ToString() & "'", MdKoneksi.konek)
            dt2.Clear()
            comm2.Fill(dt2)
            For i2 = 0 To (dt2.Rows.Count) - 1

                'untuk menentukan ukuran groupbox ruang agar sama
                Dim comm3 As New MySql.Data.MySqlClient.MySqlDataAdapter("Select count(kd_ruang) as jum from t_ruang where kd_lantai='" & dt.Rows(i)("kd_lantai").ToString() & "'", MdKoneksi.konek)
                dt3.Clear()
                comm3.Fill(dt3)
                For i3 = 0 To (dt3.Rows.Count) - 1
                    TxtJumRuangan = New TextBox
                    TxtJumRuangan.Location = New System.Drawing.Point(25, 300 + (50 * i3))
                    TxtJumRuangan.Text = (dt3.Rows(i3)("jum").ToString())
                    TxtJumRuangan.Visible = False
                    Me.GbLantai.Controls.Add(TxtJumRuangan)
                Next i3

                Dim jum As Integer = Val(Me.TxtJumRuangan.Text)
                GbRuang = New GroupBox
                GbRuang.Size = New System.Drawing.Size((Me.GbLantai.Size.Width - 50), (Me.GbLantai.Size.Height - 50) / jum)
                GbRuang.Name = (dt2.Rows(i2)("kd_ruang").ToString())
                GbRuang.Location = New System.Drawing.Point(25, 25 + (GbRuang.Size.Height * i2))
                GbRuang.Text = (dt2.Rows(i2)("nama_ruang").ToString())
                Me.GbLantai.Controls.Add(GbRuang)

                'menambah event secara dinamik
                AddHandler GbRuang.MouseHover, AddressOf mouse_hover
                AddHandler GbRuang.MouseLeave, AddressOf mouse_leave
            Next i2
        Next i
    End Sub


    '//////////////////////////////////Rumus Buatan Sendiri



    '//////////////////////////////////Pemakaian Command

    'saat form dijalankan
    Private Sub Me_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        'memanggil rumus
        Call Me.Desain_Form()
        Call Me.Jml_Lantai()
        Call Me.Jml_Ruangan()
        Call Me.Tambah_Lantai()
    End Sub

    '//////////////////////////////////Pemakaian Command
End Class