FAOMASI BANAWO

Kamis, 01 Januari 2060

SELAMAT DATANG DI BLOG KU

KAMORIUS BUULOLO

Facebook

Rabu, 01 Januari 2059

Mencoba Memposting

Hallo Semuanya dimana ni posisi.... ? :D

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

K_dosen.Items.Add("PT4301")

Rabu, 15 Mei 2013

Membuat pesan berjalan dengan Delphi

Beberapa kali saya menerima email yang bertanya bagaimana membuat program yang menampilkan text berjalan (pesan berjalan) seperti di program Shollu. Prinsipnya sederhana, hanya menampilkan text biasa dan setiap waktu posisinya dikurangi atau ditambah dengan nilai tertentu. Untuk mempermudah disediakan download program dan source codenya dalam Delphi

Program ini juga disertakan contoh aplikasinya, sehingga bagi anda yang tidak atau belum bisa pemrograman bisa menggunakan program ini, dan mencobanya sendiri. Selain itu program ini tidak hanya menampilkan text berjalan biasa, tetapi ditambah dengan beberapa fitur lain.

Fitur selengkapnya sebagai berikut :

Menampilkan text berjalan diatas atau dibagian bawah window
Dapat menampilkan text dengan warna latar (background), huruf, format Bold, Italic, Underline, dan ukuran font bisa disesuaikan
Pesan bisa diulang sampai beberapa kali
Kecepatan pesan bisa diatur
Contoh pesan dan format Font bisa dilihat langsung
Animasi ketika menampilkan dan menutup pesan

Selanjutnya jika ingin menambahkan fasilitas-fasilitas lain, silahkan melihat dan mengubah source code program ini. Program ini dibuat dengan Turbo Delphi Explorer 2006. Meskipun begitu, program ini harusnya juga bisa di compile dengan Delphi versi lainnya, misalnya Delphi 5, Delphi 6, Delphi 7 sampai Delphi 2007 atau versi terbaru.

Berikut tampilan Program “Pesan Berjalan”

Untuk Lebih jelasnya kunjungi link berikut:
Sumber: http://ebsoft.web.id/membuat-pesan-berjalan-dengan-delphi/

Rabu, 01 Mei 2013

Program Koneksi Database Access Dari Visual Basic Net 2008

Wah hari sudah menunjukkan pukul 02:30 WIB dini hari. Hemmm sudah pagi toh? heheheh namun saya yakin masih semangat belajar kan? (belajar kehidupan) :D

Menjelang surya terbit nih ada postingan mengenai Program Koneksi Database Access Dari Visual Basic Net 2008
Silahkan anda buat dahulu database access.
Nama Database : BPC.mdb
Nama Table : Barang
Field
1. Kode type Text
2. Nama type Text
3. Harga type Number
4. Jumlah type Number

Kemudian design form pada VB.NET 2008 dengan hanya satu komponen yaitu DataGridView saja yang ada di bagian Data (pada Toolbox)

Kemudian ketikkan listing Program Koneksi Database Access Dari Visual Basic Net 2008 berikut ini.

Imports System.Data.OleDb
Public Class Form1    Public DB As OleDbConnection
    Public ADP As OleDbDataAdapter
    Public DS As New DataSet

    Public Sub OpenDB()        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DatabaseBPC.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub
    Sub TampilProduk()
          ' Tambahkan huruf T pada perintah SELEC       ADP = New OleDbDataAdapter("SELEC * FROM BARANG", DB)
        DS = New DataSet
        ADP.Fill(DS, "Barang")
        DataGridView1.DataSource = DS.Tables("Barang")
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Call OpenDB()
        Call TampilProduk()
    End Sub
End Class

Sumber: Mesran.net