visual basic input data barang

Pertama yang kita lakukan adalah membuat form dan databasenya sebagai berikut:

form1

1. Database
*. Kode barang
*. Nama Barang
*. Satuan
*. Harga
setelah anda Membuat databasenya maka anda harus membuat form setelah jadi form dan yang telah di desain menurut ke inginan anda sendiri maka yang terkahir adalah membuat kode program sebagai berikut:
KODE PROGRAM
Private Sub Command1_Click()
Data1.Recordset.MoveFirst
If Data1.Recordset.BOF Then
Data1.Recordset.MoveNext
End If
End Sub
Private Sub Command10_Click()
Data1.Recordset.FindFirst “kode= ‘” + Text1 + “‘”
If Data1.Recordset.NoMatch Then
MsgBox “kode tidak di temukan”, vbQuestion, “cari data”
Text1.SetFocus
Data1.Recordset.MoveFirst
End If
Command5.Enabled = True
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
End Sub
Private Sub Command11_Click()
End
End Sub
Private Sub Command2_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
End Sub
Private Sub Command3_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End Sub
Private Sub Command4_Click()
Data1.Recordset.MoveLast
If Data1.Recordset.EOF Then
Data1.Recordset.MovePrevious
End If
End Sub

Private Sub Command5_Click()
Data1.Recordset.AddNew
Call aktif
Text1.SetFocus
Command5.Enabled = False
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = True
End Sub
Private Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
End Sub

Private Sub takaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub

Private Sub kosong()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
End Sub

Private Sub Command6_Click()
Data1.Recordset.Update
Data1.Recordset.MoveFirst
Call takaktif
Command5.Enabled = True
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
End Sub

Private Sub Command7_Click()
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Call takaktif
Command5.Enabled = True
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
End Sub

Private Sub Command8_Click()
Data1.Recordset.Edit
Call aktif
Text1.SetFocus
Command5.Enabled = False
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = True
End Sub

Private Sub Command9_Click()
hapus = MsgBox(“hapus data?”, vbInformation + vbYesNo, “hapus data”)
If hapus = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Else
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Form_Load()
kosong
Call takaktif
Command5.Enabled = True
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
End Sub

hasil:

hasil dari program input barang

Memunculkan Field Gambar(OLE Object) Di Database Acces

Sedikiit berbagi lagi.. Mungkin Teman2 ada kesulitan mengenai memunculkan file Image Database Acces ke VB. Saya menggunakan dua Cara untuk mewujudkan hal tersebut:

1. Me-Load Gambar dalam Kontrol Image dari String Alamat Gambar yang telah ada di Field Database, jadi Field dalam tabel bertype Text. Keuntungannya Database berukuran lebih Kecil dibanding cara kedua.
2. Meload Gambar Dari Field yang bertype OLE Object kedalam kontrol Image. Keuntungannya semua gambar dalam satu database sehingga dapat sebagai pustaka gambar.

Kali ini kita akan menggunakan cara yang kedua, Buat Database Acces bernama "BioData.mdb" terdiri atas satu Tabel yaitu "TblPhotoSaja" dan di dalamnya buat field Type Ole Object beri nama "Image",serta satu field lagi Bertype AutoNumber berinama "Id", Langsung saja ^_^ ini saourcenya..

Copy Paste Code Dibawah Ini Dalam form

Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private lpFSHigh As Long
Private strfilepath As String
Private Buffer As String
Private Const OF_READ = &H0&
Private db As ADODB.Connection
Private WithEvents adoPrimaryRSImageName As Recordset

Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

Private Function GetFile(ByRef frm As Form) As String
    Dim OFName As OPENFILENAME
    OFName.lStructSize = Len(OFName)
    'Set the parent window
    OFName.hwndOwner = frm.hWnd
    'Set the application's instance
    OFName.hInstance = App.hInstance
    'Select a filter
    OFName.lpstrFilter = "Bitmap (*.bmp)" + Chr$(0) + _
      "*.bmp" + Chr$(0) + _
      "Jpg (*.jpg)" + Chr$(0) + _
      "*.jpg" + Chr$(0) + _
      "Icons (*.ico)" + Chr$(0) + _
      "*.ico" + Chr$(0) + _
      "Windows Metafiles (*.wmf)" + Chr$(0) + _
      "*.wmf" + Chr$(0) + _
      "Jpeg (*.jpeg)" + Chr$(0) + _
      "*.jpeg" + Chr$(0) + _
      "Gif (*.gif)" + Chr$(0) + _
      "*.gif" + Chr$(0) + _
      "All Files (*.*)" + Chr$(0) + _
      "*.*" + Chr$(0)
    'create a buffer for the file
    OFName.lpstrFile = Space$(254)
    'set the maximum length of a returned file
    OFName.nMaxFile = 255
    'Create a buffer for the file title
    OFName.lpstrFileTitle = Space$(254)
    'Set the maximum length of a returned file title
    OFName.nMaxFileTitle = 255
    'Set the initial directory
    'OFName.lpstrInitialDir = "C:\" 'Commented so that the box opens on the last directory browsed
    'Set the title
    OFName.lpstrTitle = "Open Dialog Box"
    'No flags
    OFName.Flags = 0
    'Show the 'Open File'-dialog
    If GetOpenFileName(OFName) Then
      GetFile = Trim$(OFName.lpstrFile)
    Else
      GetFile = ""
    End If
End Function

Private Sub SaveBitmap(ByRef adoRS As ADODB.Recordset, ByVal strField As String, ByVal SourceFile As String)
    'This sub copies the actual file into a byte array.
    'This byte array is then used as the value for
    'the field having an image data type
    Dim Arr() As Byte
    Dim Pointer As Long
    Dim SizeOfThefile As Long
    Pointer = lOpen(SourceFile, OF_READ)
    'size of the file
    SizeOfThefile = GetFileSize(Pointer, lpFSHigh)
    lclose Pointer
    'Resize the array, then fill it with
    'the entire contents of the field
    ReDim Arr(SizeOfThefile)
    Open SourceFile For Binary Access Read As #1
    Get #1, , Arr
    Close #1
    adoRS(strField).Value = Arr
    Exit Sub
End Sub

Private Sub cmdFirst_Click()
If adoPrimaryRSImageName.BOF And adoPrimaryRSImageName.RecordCount = 0 Then
   MsgBox "Anda Tidak Memiliki Data Record, Klik Tombol " & """" & "Tambah Record" & """" & " untuk Membuat Record."
Else
  adoPrimaryRSImageName.MoveFirst
End If
End Sub

Private Sub cmdLast_Click()
If adoPrimaryRSImageName.EOF And adoPrimaryRSImageName.RecordCount = 0 Then
   MsgBox "Anda Tidak Memiliki Data Record."
Else
    adoPrimaryRSImageName.MoveLast
End If
End Sub

Private Sub cmdNext_Click()
If adoPrimaryRSImageName.EOF And adoPrimaryRSImageName.RecordCount = 0 Then
   MsgBox "Anda Tidak Memiliki Data Record."
End If
If Not adoPrimaryRSImageName.EOF Then adoPrimaryRSImageName.MoveNext
If adoPrimaryRSImageName.EOF And Not adoPrimaryRSImageName.RecordCount = 0 Then
    Beep
    adoPrimaryRSImageName.MoveLast
End If
End Sub

Private Sub cmdPrevious_Click()
If adoPrimaryRSImageName.BOF And adoPrimaryRSImageName.RecordCount = 0 Then
   MsgBox "Anda Tidak Memiliki Data Record"
End If
If Not adoPrimaryRSImageName.BOF Then adoPrimaryRSImageName.MovePrevious
If adoPrimaryRSImageName.BOF And Not adoPrimaryRSImageName.RecordCount = 0 Then
    Beep
    adoPrimaryRSImageName.MoveFirst
End If
End Sub

Private Sub CariSimpanImage_Click()
    strfilepath = GetFile(Me)
    If strfilepath <> "" Then
        Image1.Picture = LoadPicture(strfilepath)
        SaveBitmap adoPrimaryRSImageName, "Image", strfilepath
    End If
End Sub

Sub Koneksi()
    Set db = New ADODB.Connection
    db.CursorLocation = adUseClient
    db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & App.Path & "\BioData.mdb"
    Set adoPrimaryRSImageName = New ADODB.Recordset
    adoPrimaryRSImageName.Open "TblPhotoSaja", db, adOpenDynamic, adLockOptimistic
    Set Image1.DataSource = adoPrimaryRSImageName
End Sub

Private Sub Form_Load()
    Koneksi
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set db = Nothing
    Set adoPrimaryRSImageName = Nothing
    Unload Me
End Sub

Semoga bermanfaat.. ^_^

Dasar HTML

Saat mempelajar HTML, terdapat dasar HTML yang paling sering dipergunakan dalam penulisan HTML. Meliputi : HTML Headings, HTML Paragraphs, HTML Links dan HTML Images.

HTML Headings
Heading atau Judul ditulis menggunakan tag <h1>, <h2>, <h3>, <h4>, <h5> dan <h6>.

1 2 3

<h1>Judul</h1> <h2>Judul</h2> <h3>Judul</h3>

Coba contoh HTML diatas dengan HTML Editor.

HTML Paragraphs
Paragraf ditulis menggunakan tag <p>.

1 2 3 4 5 6

<p>Paragraf pertama</p> <p>Paragraf kedua</p> <p>Paragraf ketiga</p> <p>Paragraf keempat</p> <p>Paragraf kelima</p> <p>Paragraf keenam</p>

Coba contoh HTML diatas dengan HTML Editor.

HTML Links
Links ditulis menggunakan tag <a>.

1	<a href="http://www.pemrograman.org/">Pemrograman.org</a>

Coba contoh HTML diatas dengan HTML Editor.

HTML Images
Gambar ditulis menggunakan tag <img>.

1	<img src="statx.jpg" width="738" height="327" />

Coba contoh HTML diatas dengan HTML Editor.

Sumber : Dasar HTML

Kata Kunci

dasar html, contoh program html, dasar html dan css, contoh program xml, contoh program CSS, dasar xml, contoh program css dasar, konsep dasar xml html, menggunakan xml html dan css, contoh program jadi css.

Persiapan Belajar HTML

Tools yang dibutuhkan untuk belajar HTML tidak sulit didapat. Teman-teman cukup menggunakan Notepad atau bisa menggunakan HTML Editor yang sudah kami sediakan.
Teman-teman bisa juga menggunakan HTML Editor yang lain seperti FrontPage atau Dreamweaver.
Cek HTML Editor.
Untuk dipahami bahwa penyimpanan file dapat dilakukan dalam ekstensi HTM atau HTML. Kedua ekstensi ini bisa berjalan dengan normal, tidak terdapat perbedaan pada keduanya. Penggunaan ekstensi HTM digunakan pada masa lalu, dimana software hanya memperbolehkan tiga buah karakter ekstensi. Untuk masa sekarang dapat menggunakan ekstensi HTML.
Sumber : Persiapan Belajar HTML

Kata Kunci

persiapan belajar, pengertian persiapan belajar, contoh program menggunakan html, Belajar css html xml, piramida bintang dengan program c, persiapan untuk belajar css, pascal getdate tpw 5, manfaat sekolah, fungsi xml pada delphi, ekstensi penyimpanan file css.

Pengenalan HTML

Sebelum belajar HTML, alangkah lebih baik jika kita memahami konsep dasar HTML terlebih dahulu.

Pengertian HTML

HTML adalah suatu bahasa yang dipergunakan untuk mendeskripsikan halaman web.

• HTML merupakan singkatan dari Hyper Text Markup Language.
• HTML bukan merupakan bahasa pemrograman, HTML adalah suatu markup language (bahasa markah).
• Suatu markup language berupa serangkaian markup tags.
• HTML menggunakan markup tags untuk mendeskripsikan halaman web.

HTML Tags

HTML markup tags biasa disebut HTML tags.

• HTML tags berupa keywords atau kata kunci yang diapit oleh tanda kurung seperti <html>.
• HTML tags biasanya dipakai berpasangan seperti <b> dan </b>.
• Tag pertama dalam pasangan html tags adalah start tag atau tag awal, sedang tag kedua adalah end tag atau tag akhir.
• Start tags dan end tags biasa juga disebut opening tags dan closing tags.

HTML Documents = Web Pages

• HTML documents atau dokumen HTML mendeskripsikan suatu web pages atau halaman web.
• HTML documents berisi HTML tags dan plain text atau text biasa.
• HTML documents atau dokumen HTML juga biasa disebut web pages atau halaman web.

Tujuan dari sebuah web browser (seperti Internet Explorer, Firefox, Opera, Safari atau Google Chrome) adalah untuk membaca HTML documents kemudian menampilkannya sebagai halaman web. Browser tidak menampilkan HTML tags, tetapi menggunakan tag tersebut untuk menterjemahkan isi dari halaman web.

1 2 3 4 5 6 7 8 9

<html> <body>   <h1>Judul Pertama</h1>   <p>Paragraf pertama</p>   </body> </html>

Penjelasan Contoh

• Teks di antara <html> dan </html> mendeskripsikan web page.
• Teks di antara <body> dan </body> adalah konten halaman web yang akan tertampil.
• Teks di antara <h1> dan </h1> digunakan untuk menampilkan judul.
• Teks di antara <p> dan </p> digunakan untuk menampilkan paragraf.

Sumber : Pengenalan HTML

Kata Kunci

artikel pemrograman html xml, konsep dasar html, pengenalan html, Mendeskripsikan HTML, apa arti end tag dalam bahasa html, membaca bahasa html php xml, memahami html css & xml, makalah tentang pemograman html, html tags, pengenalan html dan xml.

Pengertian CSS

Apa seh CSS itu?
Sepertinya kita sering banget denger istilah CSS, tapi bagi yang awam tentang dunia web dan Internet seperti kita pasti bingung atau bahkan banyak yang ga peduli apa itu CSS. Sebenarnya kalo kita punya profile di Friendster dan kita sering ngotak-ngatik tampilan profile kita, berarti secara langsung kita udah berhubungan dengan yang namanya CSS, Nah lo…baru nyadar kan?

CSS bekerja sebagai pelengkap pada HTML, jadi untuk mengerti CSS paling tidak kita harus sedikit tahu tentang HTML. Cascading Style Sheet adalah suatu teknologi yang digunakan untuk memperindah tampilan halaman website (situs). Singkatnya dengan menggunakan Methode CSS ini anda dengan mudah mengubah secara keseluruhan warna dan tampilan yang ada di situs anda, sekaligus memformat ulang situs anda (merubah secara cepat). CSS juga memungkinkan si pembuat web untuk memodifikasi HTML untuk membentuk tampilan sebuah website. Jadi kalo kita ini adalah arsitek, maka HTML adalah bangunannya dan CSS adalah desain interior dan eksteriornya. Web tanpa CSS bagai sayur tanpa garam. Lho?
Lalu apa sih style sheet (css) itu sebenarnya? apa kegunaan sebenarnya? dan bagaimana cara menggunakannya? (taken from : rumahweb.com)
CSS diperkenalkan untuk pengembangan website pada tahun 1996. Nama CSS didapat dari fakta bahwa setiap deklarasi style yang berbeda dapat diletakkan secara berurutan, yang kemudian akan membentuk hubungan parent-child pada setiap style. Setelah CSS distandarisasikan, Internet Explorer dan Netscape melepas browser terbaru mereka yang telah sesuai atau paling tidak hampir mendekati dengan standar CSS. CSS adalah sebuah dokumen yang berdiri sendiri dan dapat dimasukkan dalam kode HTML atau sekedar mejadi rujukan oleh HTML dalam pendefinisian style. CSS menggunakan kode2 yang tersusun untuk menetapkan style pda elemen HTML atau dapat juga digunakan membuat style baru yang biasa disebut class.
CSS dapat mengubah besar kecilnya text, mengganti warna background pada sebuah halaman, atau dapat pula mengubah warna border pada tabel, dan masih banyak lagi hal yang dapat dilakukan oleh CSS. Singkatnya, CSS digunakan untuk mengatur susunan tampilan pada halaman HTML.

CSS dapat digunakan untuk menggantikan , , dan , dikarenakan hal berikut:

sebuah file css dapat menjadi rujukan banyak halaman HTML. Hanya dibutuhkan 1 baris kode untuk melakukan hal tersebut. Ini berarti akan meminimalkan file2 HTML yang akan dibuat.
Jika ingin mengubah tampilan website yang telah dibuat, maka yang perlu dilakukan hanya mengganti baris-baris kode pada css nya saja, tanpa perlu mengutak-atik file-file HTML nya.
CSS dapat mengatur banyak atribut pada sebuah halaman secara mudah. Misalnya: warna background, border, shadow, yang berbeda pada masing-masing tag yang digunakan.

Satu dari beberapa kehebatan tekhnologi css ini dan merupakan alasan banyak orang menyukai
penggunaannya adalah memperbolehkan kita untuk mendefinisikan sebuah style-sheet global yang dapat menerapkan aturan-aturan css tersebut untuk keseluruhan dokumen-dokumen HTML pada halaman web site anda. Keuntungannya jelas sekali, jika kita ingin mengubah tampilan situs, kita tinggal mengedit satu file saja
Sekarang, kita akan mencoba melihat bagaimana css itu bekerja. Untuk itu, kita butuh sebuah text editor (notepad, wordpad, Ms word, semua tergantung kesukaan masing2), dan sebuah web browser tentunya.
Pertama, masukkan kode dibawah ini ke dalam text editor, lalu simpan dengan nama, tanpacss.html:

Tanpa CSS

tag H1

Kemudian, masukkan kode dibawah ini kedalam text editor, lalu simpan dengan nama pakaicss.html

Pakai CSS

h1
{
color: #FF66CC;
font-family: Verdana;
size: 18pt;
}

tag H1 yang besar dan berwarna

Berarti sekarang ada 2 file html yang telah dibuat. Langkah selanjutnya, buka file-file html tersebut dengan menggunakan web browser.
pasti akan terlihat bedanya kan? Tag pada file tanpacss.html merupakan yang masih polos (tanpa dikenai atribut apapun), sedangkan pada file pakaicss.html telah diberi atribut berupa warna, font-family dan besar font yang digunakan. Pemberian atribut itu, terletak diantara tag dan .Penggunaan css yang langsung dimasukkan ke dalam file HTML, biasa disebut inline style sheet.

Ok, kira-kira seperti itulah CSS bekerja mendekorasi interior dan eksterior dari rumah maya kita.
Artikel ini saya buat dengan menyadur dari Abe Poetra dan rumah web.

Kata Kunci

pengertian css, pengertian xml, pengertian html dan css, pengertian css to html, pengertian dari CSS, Pengertian File html, CSS pengertian, pengertian css dan html, pengertian cascading style sheet, hubungan html dengan css.

Konsep Dasar CSS

Dalam hal ini ada beberapa istilah dan kosep dasar dari css. Tapi sebelum menuju pembahasan lebih lanjut, akan lebih baik kita harus membiasakan dengan bagaimana suatu style harus ditulis. Berikut adalah contoh mudah penulisan css pada suatu halaman web:

Contoh CSS 1

<html>
 
<head>
<style Type="text/css">
      h1{font-family:tahoma}
      h2{color: blue}
   p{font-size:11pt ; font-style: italic}
</style>
</head>
<body>
<h2>NuSinau</h2>
 
<p>NuSinau adalah suatu website tempat berbagi berbagai ilmu pengetahuan.
 
</p></body>
</html>

Sintak CSS (Syntax CSS)

selector (properti: nilai)
 
body (color: blue)
p {font-family: tahoma}
h1 {font-weight: bold}
dan lain-lain

Selector

Selector biasanya merupakan elemen HTML atau tag dimana berbagai properti diberi suatu nilai. Dalam sebuah selector, setiap properti mempunyai nilai masing-masing dan sejumlah properti dengan nilai-nilai terkait dapat diatur.

Seperti pada contoh diatas; body, p, dan h1 adalah suatu selector dimana warna (color), nama font (font-family) dan jenis font (font-weight) diberi nilai untuk tiap propertinya (tahoma, bold, blue, dll).

Contoh

h1 (font-size: 20px; text-align: left; color: blue; font-family: Arial;)

dapat pula ditulis seperti:

h1 (font-size: 20px;
  text-align: left;
  color: blue;
  font-family: Arial;)

Pengelompokan Selector (Grouping of Selectors)

Seperti dapat dilihat, satu selector dapat memiliki beberapa properti. Dalam konteks yang berbeda, beberapa selector dapat mempunyai properti dengan nilai yang sama. Dengan begitu harus dilakukan pengolompokan selector.

h1 , body , p , ul
   {
         color : blue;
   }

Pada contoh diatas, elemen header, body, paragraph, unordered list berada pada group yang sama. Semua elemen tersebut nantinya akan berwarna biru.

Mengapa Pengelompokan diperlukan dalam CSS?

• Untuk berbagi style yang sama, bila beberapa elemen mempunyai nilai properti yang sama (misalnya font, ukuran, warna, dll).
• Dengan satu perintah dapat memberikan properti style pada elemen yang berbeda dengan nilai yang sama.
• Untuk menghemat waktu bila terjadi penambahan properti dan juga ketika merubah properti di elemen.

Kata Kunci

Sintak CSS, konsep html, teori CSS, konsep dasar css, sintak html, teori dasar css, konsep css3, sintak sintak html, landasan teori css, prinsip dasar css.

Pengertian CSS

• CSS adalah singkatan dari Cascading Style Sheets. Berisi rangkaian instruksi yang menentukan bagiamana suatu text akan tertampil di halaman web.
• Perancangan desain text dapat dilakukan dengan mendefinisikan fonts (huruf) , colors (warna), margins (ukuran), latar belakang (background), ukuran font (font sizes) dan lain-lain. Elemen-elemen seperti colors (warna) , fonts (huruf), sizes (ukuran) dan spacing (jarak) disebut juga “styles”.
• Cascading Style Sheets juga bisa berarti meletakkan styles yang berbeda pada layers (lapisan) yang berbeda.
• CSS terdiri dari style sheet yang memberitahukan browser bagaimana suatu dokumen akan disajikan.
• Fitur-fitur baru pada halaman web lama dapat ditambahkan dengan bantuan style sheet.
• Saat menggunakan CSS, Anda tidak perlu menulis font, color atau size pada setiap paragraf, atau pada setiap dokumen. Setelah Anda membuat sebuah style sheet, Anda dapat menyimpan kode tersebut sekali saja dan dapat kembali menggunakannya bila diperlukan.

Keuntungan Menggunakan CSS

• CSS memberikan keseragaman pada halaman web.
• Dengan CSS dapat menghemat banyak waktu dan pekerjaan berulang. Saat menggunakan CSS, perubahan tidak perlu dilakukan dalam setiap halaman web. Anda hanya perlu membuat perubahan dalam style sheet.
• CSS memungkinkan Anda untuk memuat halaman web Anda dengan mudah.
• Layers (Lapisan), seperti item pop-up, dapat digunakan dalam dokumen.
• CSS membantu Anda memelihara halaman web Anda dengan mudah dan efektif.

simulasi kredit motor

uses wincrt;
var no,kl,nl,km,nmr,:string;
begin
clrscr;
writeln('belajar membuat program');
writeln('===simulasi kredit motor');
writeln('===09 november 2011===');
writeln;
write('no kredit=');readln(no);
write('kode leasing=');radln(kl);
write('nama konsumen=');readln(nk);
     if kl='fif'then
       nk:='federal internasional finance'
else if kl='adr'then
       nk:='adira finance'
else if kl='wom'then
       nk:='wom finance'
else if kl='tns'then
       nk:='tunas finance'
else if kl='oto'then
       nk:='oto finance';
writeln('nama leasing=');readln(nl);
writeln('alamat=');readln(almt);
writeln('kode kendaraan=');readln(kd);
writeln('no telepon=');readln(tlp);
writeln('type motor=');readln(tm);
write('kode motor=');readln(km);
if km='hnd'then
       tm:='honda'
else if km='ymh'then
       tm:='yamaha'
else if km='szk'then
       tm:='suzuki'
else if km='kwk'then
       tm:='kawasaki'
else if km='kzn'then
       tm:='kanzen'
else if km='bjj'then
       tm:='bajaj'
else if km='tvs'then
       tm:='tvs'
else if km='mnv'then
       tm:='minerva'
else if km='jlg'then
       tm:='jialing'
else if km='snx'then
       tm:='sanex';
writeln('jenis=');readln(jns)
write('kode jenis=');readln(kj)
    if kj='spt'then
     jns:='sport'
else if kj='bbk'then
     jns:='bebek'
else if kj='mtk'then
     jns:='metik'
else if kj='udb'then
     jnis:='under boun';
writeln('nama barang=');readln(nb)
write('kode barang=');readln(kdb)
   if kdb='tgr'then
      nb:='tiger'
else if kdb='spr'then
      nb:='supra'
else if kdb='cs1'then
      nb:='city sport one'
else if kdb='bld' then
      nb:='blade,
else if kdb='bat'then
      nb:='beat'
else if kdb='var'then
      nb:='vario'
else if kdb='vxn'then
      nb:='vixion'
else if kdb='bsn'then
      nb:='bison'
else if kdb='scp'then
      nb:='scorpion'
else if kdb='jpt'then
      nb:='jupiter'
else if kdb='mio'then
      nb:='mio matic';

Turbo basic nilai mahasiswa

5 cls
10 input"masukan nama mahasiswa=",nama
20 input"masukan nilai mahasiswa=",nilai
30 if nilai >=85 and nilai <=100 then
       gosub 100: goto 700
   elseif nilai >=70 and nilai < 85 then
       gosub 200: goto 700
   elseif nilai >=55 and nilai < 70 then
       gosub 300: goto 700
   elseif nilai >=30 and nilai < 55 then
       gosub 400: goto 700
   elseif nilai >=0 and nilai < 30 then
       gosub 500: goto 700
       else
       gosub 600 : goto 700
 end if


100 print"nama mahasiswa=";nama$
110 print"nilai=A"
120 print"predikat= sangat baik"
130 return


200 print"nama mahasiswa=";nama$
210 print"nilai=B"
220 print"predikat= baik"
230 return


300 print"nama mahasiswa=";nama$
310 print"nilai=C"
320 print"predikat=cukup"
330 return


400 print"nama mahasiswa=";nama$
410 print"nilai=D"
420 print"predikat=kurang"
430 return


500 print"nama mahasiswa=";nama$
510 print"nilai=E
520 print"predikat=buruk"
530 return


600 print"input salah"
610 return


700 input"input lagi ?(Y/N)",pil$
710 if pil$="Y"or pil$="y" then
     goto 5
    elseif pil$= "N" or pil$="n" then
    end
    else
    cls
    goto 700
    end if

Etika sertifikasi IT

STANDAR SERTIFIKASI TEKNOLOGI INFORMASI BIDANG INTERNET

PPAUME[1] ITB & APJII[2]

1      Latar Belakang

Perkembangan Teknologi Informasi (Information Technology, IT), khususnya di bidang Internet, memacu kebutuhan akan sumber daya manusia yang handal. Namun sumber daya manusia ini tidak dapat dipenuhi sehingga timbul krisis sumber daya manusia. Dalam dokumen BHTV, ternyata pada tahun 2010 dibutuhkan sekitar 350.000 tenaga di bidang IT di Indonesia. Angka ini masih kecil jika dibandingkan dengan kubutuhan akan tenaga IT di dunia.

Untuk menghasilkan SDM yang jumlahnya sangat ini dibutuhkan kerjasama antara institusi pendidikan formal (perguruan tinggi, sekolah) dan pendidikan informal (professional training center). Pendidikan formal melalui perguruan tinggi tidak mampu menghasilkan jumlah SDM yang banyak, dan juga kurikulumnya tidak dapat berubah secara cepat mengikuti perkembangan kemajuan teknologi. Padahal, perkembangan dunia IT (khususnya yang terkait Internet) sangat pesat. Oleh sebab itu, lembaga penghasil SDM profesional sangat dibutuhkan.

Bidang IT memiliki rentang bidang yang cukup luas. Latar belakang kebutuhan pendidikan pun bervariasi. Ada perkerjaan yang membutuhkan banyak inovasi dan teori yang membutuhkan latar belakang pendidikan formal di perguruan tinggi. Akan tetapi ada pula bidang IT yang tidak membutuhkan pendidikan perguruan tinggi dan dapat dilakukan oleh lulusan setingkat SMU/SMK, diploma.

Adanya standar kompetensi dibutuhkan untuk memudahkan bagi perusahaan atau institusi untuk menilai kemampuan (skill) calon pegawai atau pegawainya. Adanya inisiatif untuk membuat standar dan sertifikasi sangat dibutuhkan. Namun masih terdapat permasalahan seperti beragamnya standar dan sertifikasi. Sebagai contoh, ada standar dari Australian National Training Authority (lihat bagian referensi). Untuk itu PPAUME ITB beserta APJII mengambil inisiatif untuk membuat sebuah standar sertifikasi di bidang yang terkait dengan Internet.

Standar dan sertifikasi dapat dilakukan oleh badan yang resmi dari pemerintah atau dapat juga mengikuti standar sertifikasi di industri, yang sering juga disebut vendor certification. Untuk contoh yang terakhir (vendor certification), standar industri seperti sertifikat dari Microsoft atau Cisco merupakan standar sertifikasi yang diakui di seluruh dunia. Padahal standar ini dikeluarkan oleh perusahaan, bukan badan sertifikasi pemerintah. Memang pada intinya industrilah yang mengetahui standar yang dibutuhkan dalam kegiatan sehari-harinya.

Standar sertifikasi dari PPAUME & APJII ini bersifat terbuka dan dapat digunakan oleh siapa saja. Analogi yang dapat digunakan adalah mirip dengan TOEFL, dimana banyak kursus dan lembaga yang mengajarkan materi TOEFL akan tetapi hanya ada satu ujian TOEFL. Dalam hal ini hanya ada satu standar ujian sertifikasi PPAUME & APJII.

2      Lapangan Pekerjaan

Ada berbagai jenis pekerjaan di bidang IT. Pengelompokan jenis pekerjaan bergantung kepada acuan yang digunakan. Akan tetapi ada hal yang sama. Salah satu cara untuk melihat lapangan pekerjaan di bidang IT adalah dengan menanyakan kepada industri IT atau mengambil data-data dari lowongan pekerjaan yang ditawarkan. Berikut ini adalah beberapa kategori lowongan pekerjaan yang ditawarkan di lingkungan Penyedia Jasa Internet (PJI) atau Internet Service Provider (ISP):

·         Web Developer / Programmer

·         Web Designer

·         Database Administrator

·         System Administrator

·         Network Administrator

·         Help Desk

·         Technical Support

Masing-masing kategori di atas memiliki kebutuhan kompetensi yang berbeda-beda.

3      Kompetensi di bidang IT

Dalam bagian ini akan dibahas masalah seputar kompetensi di bidang IT. Kompetensi ditunjukkan dengan dimiliki dan didemonstrasikannya kemampuan (skill).

Sebagai catatan, kompetensi yang ditunjukkan dengan kode “ANTA” merupakan standar kompetensi yang direkomendasikan oleh Australian National Training Authority (ANTA).

3.1    Ketrampilan Mendukung (Support) Solusi IT

·         Menghubungkan perangkat keras. (ANTA: ICAITS014B)

·         Melakukan instalasi Microsoft Windows

·         Melakukan instalasi Linux

·         Pasang dan konfigurasi mail server, ftp server, web server

·         Memahami Routing

·         CGI programming

3.2    Ketrampilan Penggunaan IT

·         Kemampuan mengoperasikan perangkat keras. (ANTA: ICAITU005B)

·         Administer dan melakukan konfigurasi sistem operasi yang mendukung network. (ANTA: ICAITS120A)

·         Administer perangkat network. (ANTA: ICAITS121A)

·         Mencari sumber kesalahan di jaringan dan memperbaikinya. (ANTA: ICAITS122A)

·         Mengelola network security. (ANTA: ICAITS123A)

·         Monitor dan administer network security. (ANTA: ICAITS124A)

·         Monitor dan administer sebuah database. (ANTA: ICAITS125A)

·         Kemampuan menangkap digital image. (ANTA: ICPMM21cA)

·         Mengakses Internet. (ANTA: ICPMM63bA)

·         Membuat halaman web dengan multimedia. (ANTA: ICPMM65dA)

·         Penggunaan perangkat lunak Internet berbasis Windows seperti Internet Explorer, telnet, ftp, IRC.

3.3    Pengetahuan di bidang IT

Selain memiliki kompetensi teknis di bidang IT, diharapkan seorang pelaku di bidang IT juga memiliki pengetahuan tambahan yang juga berkatian dengan bidang IT. Berikut ini adalah daftar pengetahuan bidang IT.

·         Dasar perangkat keras. Memahami organisasi dan arsitektur komputer.

·         Dasar-dasar telekomunikasi. Mengenal perangkat keras komunikasi data serta memahami prinsip kerjanya.

·         Bisnis Internet. Mengenal berbagai jenis bisnis Internet

4      Kompetensi dan lapangan pekerjaan

Kompetensi yang di sebutkan pada bagian sebelumnya digunakan untuk mengembangkan paket yang dikhususkan untuk bidang tertentu yang terkait dengan lapangan pekerjaan (seperti web developer, help desk, dan seterusnya). Dalam bagian ini akan ditunjukkan kompetensi untuk masing-masing bidang pekerjaan tersebut.

Kompetensi dasar standar (standard core competency) yang harus dimiliki oleh kesemua kategori lapangan pekerjaan yaitu:

·         Kemampuan mengoperasikan perangkat keras. (ANTA: ICAITU005B)

·         Mengakses Internet. (ANTA: ICPMM63bA)

4.1    Web Developer / Programmer

·         Membuat halaman web dengan multimedia. (ANTA: ICPMM65dA)

·         CGI programming

4.2    Web Designer

Berikut ini adalah kompetensi yang harus dimiliki oleh seorang web designer

·         Kemampuan menangkap digital image. (ANTA: ICPMM21cA)

·         Membuat halaman web dengan multimedia. (ANTA: ICPMM65dA)

4.3    Database Administrator

Database Administrator berkorelasi dengan sertifikasi ANTA ICA40299. Kompetensi yang harus dimiliki:

·         Monitor dan administer sebuah database. (ANTA: ICAITS125A)

4.4    System Administrator

·         Menghubungkan perangkat keras. (ANTA: ICAITS014B)

·         Melakukan instalasi Microsoft Windows

·         Melakukan instalasi Linux

·         Pasang dan konfigurasi mail server, ftp server, web server

·         Memahami Routing

4.5    Network Administrator

·         Menghubungkan perangkat keras. (ANTA: ICAITS014B)

·         Administer dan melakukan konfigurasi sistem operasi yang mendukung network. (ANTA: ICAITS120A)

·         Administer perangkat network. (ANTA: ICAITS121A)

·         Memahami Routing

·         Mencari sumber kesalahan di jaringan dan memperbaikinya. (ANTA: ICAITS122A)

·         Mengelola network security. (ANTA: ICAITS123A)

·         Monitor dan administer network security. (ANTA: ICAITS124A)

4.6    Help Desk

·         Penggunaan perangkat lunak Internet berbasis Windows seperti Internet Explorer, telnet, ftp, IRC.

4.7    Technical Support

Kemampuan yang harus dimiliki

·         Menghubungkan perangkat keras. (ANTA: ICAITS014B)

·         Melakukan instalasi Microsoft Windows

·         Melakukan instalasi Linux

·         Mencari sumber kesalahan di jaringan dan memperbaikinya. (ANTA: ICAITS122A)

·         Penggunaan perangkat lunak Internet berbasis Windows seperti Internet Explorer, telnet, ftp, IRC.

·         Pasang dan konfigurasi mail server, ftp server, web server

5      Metoda Pengujian (Assesment)

Setelah kompetensi diketahui harus dibuat mekanisme untuk pengujian (assesment) untuk menilai apakah seseorang sudah memiliki kompetensi yang diuji.

[Metoda pengujian akan dibahas lebih lanjut. Salah satu alternatif yang diusulkan adalah mengikuti standar dari Australian National Training Authority (ANTA).]

6      Referensi

1.     Australian National Training Authority (ANTA), “Information Technology Training Package ICA99”, 1999

2.     De Anza College 2000 catalog / schedule. <http://www.deanza.fhda.edu>

7      Kontak

PPAUME
Budi Rahardjo
PPAU Mikroelektronika ITB
Jl. Ganesha 10, Bandung 40132
Email: br@paume.itb.ac.id
Telepon: (022) 250-6280
Fax: (022) 250-8763

APJII
Heru Nugroho
Email: hn@melsa.net.id

---

[1] PPAUME = Pusat Penelitian Antar Universitas Bidang Mikroelektronika

[2] APJII = Asosiasi Penyelenggara Jasa Internet Indonesia