FAOMASI BANAWO: November 2013

Jumat, 29 November 2013

Cara Membuat Tabel Di HTML

Tabel digunakan untuk menyajikan data dalam betuk baris dan kolom. Anda Juga Dapat Membaca Cara Membuat Kolom Atau Frame Di HTML. Adapun Elemen-Elemen yang digunakan untuk membuat Tabel adalah:

Atribut Tabel tag <TD>

Mengatur Border
Border adalah garis yang mengelilingi sebuah tabel.
Contoh:
<html>
<head><title>Sampul Ilmu</title></head>
<body>
<BODY><CENTER>
<P>Menggunakan tag <b><
TABLE BORDER="1"></b><P>
<TABLE BORDER="1">
<TR>
<TD>Baris #1 Kolom #1</TD>
<TD>Baris #1 Kolom #2</TD>
</TR>
<TR>
<TD>Baris #2 Kolom #1</TD>
<TD>Baris #2 Kolom #2</TD>
</TR>
</TABLE></body></html>

Menggabungkan Kolom
Contoh :
<html>
<head><title>Sampul Ilmu</title></head>
<BODY>
<TABLE BORDER="1" CELLPADDING="1" CELLSPACING="1">
<TR>
<TD COLSPAN=2>Kolom A & B</TD>
</TR>
<TR>
<TD>Kolom C</TD>
<TD>Kolom D</TD>
</TR>
</TABLE></BODY>
</html>

Menggabungkan Baris
Contoh
<html>
<head><title>Sampul Ilmu</title></head>
<BODY>
<TABLE BORDER="1" CELLPADDING="1" CELLSPACING="1">
<TR>
<TD ROWSPAN="2">Kolom A & C</TD> 
<TD>Kolom B</TD>
</TR>
<TR>
<TD>Kolom D</TD>
</TR>
</TABLE>
</BODY>
</html>

Perataan Tabel
Posisi tabel dapat diatur pertaannya dengan menyertakan atribut ALIGN pada tag <TABLE>
Contoh:
<html><body>
<TABLE BORDER ALIGN="center">
<TR>
<TH>ALIGN="center"</TH>
<TD>Kolom #A Tengah</TD>
<TD>Kolom #B Tengah</TD>
</TR>
</TABLE><BR>
<TABLE BORDER ALIGN="right">
<TR>
<TH>ALIGN="right"</TH>
<TD>Kolom #A Kanan</TD>
<TD>Kolom #B Kanan</TD>
</TR>
</TABLE><BR>
<TABLE BORDER ALIGN="left">
<TR>
<TH>ALIGN="Left"</TH>
<TD>Kolom #A Kiri</TD>
<TD>Kolom #B Kiri</TD>
</TR>
</TABLE>
</body></html>

Mengatur Isi Sel
Teks dalam sel dapat diatur (align) dengan: Rata kiri, rata tengah, dan rata kanan
Atribut yang digunakan adalah :
Align={“left” | “center” | “right”} pada tag <TD>
Atau
Align={“left” | “center” | “right” | “justify”} pada tag <P> dalam tag <TD>
Contoh:
<html>
<BODY>
<TABLE BORDER="1" CELLSPACING="1" WIDTH="100%">
<TR bgcolor="silver">
<td>Text Rata Kiri</td>
<td>Text Rata Tengah</td>
<td>Text Rata Kanan</td>
<td>Text Rata Kiri-Kanan</td>
</TR>
</TR>
<TR>
<TD ALIGN="left" bgcolor="yellow">Kata-kata dalam sel ini rata KIRI</TD>
<TD ALIGN="center">Kata-kata dalam sel ini rata TENGAH</TD>
<TD ALIGN="right" bgcolor="green"><font color="yellow">Kata-kata dalam sel ini rata KANAN</TD>
<TD><p Align="Justify">Kata-kata dalam sel ini rata KIRI-KANAN</TD>
</TR>
</TABLE>
</BODY>
</html>

Semoga Bermanfaat

Tabel digunakan untuk menyajikan data dalam betuk baris dan kolom. Anda Juga Dapat Membaca Cara Membuat Kolom Atau Frame Di HTML. Adapun Elemen-Elemen yang digunakan untuk membuat Tabel adalah:

Atribut Tabel tag <TD>

Jumat, 22 November 2013

penggunaan listview pada visual basic 2008

seperti yang kita ketahui, listview digunakan untuk menampilkan data dalam bentuk tabel yang mempunyai baris dan kolom,tidak seperti combobox yang hanya memiliki satu kolom saja,
disini sayak akan menshare kepada teman teman contoh penggunaan listview
1.buat dan desainlah terlebih dahulu form nya seperti contoh dibawah ini

2. gantilah name pada textbox dan combo box menjadi
nmp           = npm
nama        = nama
kelas          = kelas
mata kuliah = mk
dosen         = ds

3. masukkan listingnya seperti berikut ini
Public Class Form1
    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)
        LV.Columns.Add("kelas", 80, HorizontalAlignment.Center)
        LV.Columns.Add("ds", 120, HorizontalAlignment.Center)
        LV.Columns.Add("mk", 120, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = npm.Text
        LST.SubItems.Add(nama.Text)
        LST.SubItems.Add(kelas.Text)
        LST.SubItems.Add(mk.Text)
        LST.SubItems.Add(ds.Text)
        LV.Items.Add(LST)

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        mk.Items.Add("pemograman visual")
        mk.Items.Add("struktur data")
        mk.Items.Add("sistem operasi")
        mk.Items.Add("komunikasi data")
        mk.Items.Add(" sistem basis data")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        ISITABEL()
        npm.Text = ""
        nama.Text = ""
        kelas.Text = ""
        mk.Text = ""
        ds.Text = ""
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub hs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hs.Click
        LV.Items.Clear()
    End Sub


    Private Sub mk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mk.SelectedIndexChanged
        Select mk.Text
            Case "pemograman visual"
                ds.Text = "Mesran M.Kom"
            Case "struktur data"
                ds.Text = "Marzuki Sinambela,M.Kom"
            Case "sistem operasi"
                ds.Text = "Yasir Hasan,M.Kom"
            Case "komunikasi data"
                ds.Text = "Sony Bahagia,S.Kom"
            Case "sistem basis data"
                ds.Text = "Rivalri Hondro,S.Kom"
        End Select

    End Sub
End Class
4.jika telah selesai memasukkan listingnya maka cobalah menjalankannya dengan menekan tombol "F5" pada keyboard atau meng "KLIK" lambang "PLAY" jika masih terdapat yang eror cobalah memperbaikinya hingga tidak ada yang eror lagi
jika telah berjalan maka tampilannya akan seperti ini

cobalah isi setiap tabnya dan simpan dengan cara meng "KLIK" simpan kelistview
seperti inilah tampilannya jika kita sudah mengisi data

ini lah contoh penggunaak listview semoga bermanfaat buat kita semua

Selasa, 05 November 2013

VB 2008 tugas membuat program perhitungan nilai

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load        Npm.Items.Add("12110767")        Npm.Items.Add("12116512")        Npm.Items.Add("12110708")        K_dosen.Items.Add("MS4303")        K_dosen.Items.Add("YH4306")        K_dosen.Items.Add("TL4303")        K_dosen.Items.Add("MS4305")        K_dosen.Items.Add("MP4302")        K_dosen.Items.Add("P4302")
        K_Mkuliah.Items.Add("KKTI4303")
        K_Mkuliah.Items.Add("KBTI4306")
        K_Mkuliah.Items.Add("KBTI4303")
        K_Mkuliah.Items.Add("KBTI4305")
        K_Mkuliah.Items.Add("KKTI4302")
        K_Mkuliah.Items.Add("KBTI4302")
        K_Mkuliah.Items.Add("KKTI4301")
        Dim x As Integer
        For x = 100 To 1 Step -1
            NK.Items.Add(x)
            NT.Items.Add(x)
            NU.Items.Add(x)
            NUAS.Items.Add(x)
        Next x
    End Sub
    Private Sub Npm_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesNpm.SelectedIndexChanged
        Select Case Npm.Text
            Case "12111049"
                Nama.Text = "KAMORIUS"
                Jurusan.Text = "Teknik Informatika"
            Case "12116512"
                Nama.Text = "Siti arbayah"
                Jurusan.Text = "Sistem informasi"
            Case "12110708"
                Nama.Text = "Annisa chairani"
                Jurusan.Text = "Akuntasi"
        End Select
        Dim x As String
        x = Microsoft.VisualBasic.Left(Npm.Text, 2)
        If Npm.Text = "12110767" Then
            Jenjang.Text = "S1"
        ElseIf Npm.Text = "12116512" Then
            Jenjang.Text = "D111"
        ElseIf Npm.Text = "12110708" Then
            Jenjang.Text = "S1"
        End If
    End Sub
    Private Sub K_dosen_SelectedIndexChanged(ByVal senderAs System.Object, ByVal e As System.EventArgs) HandlesK_dosen.SelectedIndexChanged
        Select Case K_dosen.Text
            Case "MS4303"
                N_dosen.Text = "Marzuki sinambela s.kom,M.T"
            Case "YH4306"
                N_dosen.Text = "Yasir Hasan s.kom"
            Case "TL4304"
                N_dosen.Text = "Tonni limbong s.kom,m.kom"
            Case "MS4305"
                N_dosen.Text = "Mesran m.kom"
            Case "MP4302"
                N_dosen.Text = "Megaria purba S.Si,m.kom"
            Case "PI4302"
                N_dosen.Text = "Pristiwanto s.kom"
            Case "PT4301"
                N_dosen.Text = "Pilipus Tarigan S.T,M.kom"
        End Select
    End Sub
    Private Sub Kodemkuliah_SelectedIndexChanged(ByValsender As System.Object, ByVal e As System.EventArgs)Handles K_Mkuliah.SelectedIndexChanged
        Select Case K_Mkuliah.Text
            Case "KKTI4303"
                MK.Text = "Struktur data"
            Case "KBTI4306"
                MK.Text = "Sistem Operasi"
            Case "KBTI4303"
                MK.Text = "Sistem basis data"
            Case "KBTI4305"
                MK.Text = "Pemograman visual"
            Case "KKTI4302"
                MK.Text = "Matriks dan Linier"
            Case "KBTI4302"
                MK.Text = "Komunikasi data"
            Case "KKTI4301"
                MK.Text = "Arsitektur dan Organisasi"
        End Select
    End Sub
    Private Sub Btnproses_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesBtnproses.Click
        NA.Text = 0.1 * NK.Text + 0.15 * NT.Text + 0.35 * NU.Text + 0.45 * NUAS.Text
        If NA.Text >= 50 Then
            Keterangan.Text = "LULUS"
        Else
            Keterangan.Text = "GAGAL"
        End If
        If NA.Text >= 80 Then
            NH.Text = "A"
        ElseIf NA.Text >= 70 Then
            NH.Text = "B"
        ElseIf NA.Text >= 60 Then
            NH.Text = "C"
        ElseIf NA.Text >= 50 Then
            NH.Text = "D"
        Else
            NH.Text = "E"
        End If
    End Sub
    Private Sub Btnkeluar_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesBtnkeluar.Click
        Close()

    End Sub


    Private Sub Btnhapus_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesBtnhapus.Click
        Npm.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        K_dosen.Text = ""
        N_dosen.Text = ""
        K_Mkuliah.Text = ""
        MK.Text = ""
        NK.Text = ""
        NT.Text = ""
        NU.Text = ""
        NUAS.Text = ""
        NA.Text = ""
        NH.Text = ""
        Keterangan.Text = ""
    End Sub
    Private Sub Jurusan_TextChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesJurusan.TextChanged
    End Sub
End Class

Jumat, 29 November 2013

Cara Membuat Tabel Di HTML

Cara Membuat Tabel Di HTML

Jumat, 22 November 2013

penggunaan listview pada visual basic 2008

penggunaan listview pada visual basic 2008

Selasa, 05 November 2013

VB 2008 tugas membuat program perhitungan nilai

K_dosen.Items.Add("PT4301")