VISUAL BASIC, Pembuatan Form Penjualan Tiket Kereta




Langkah Awal untuk pembuatan form ini, buka program Visual Basic 6.0, Untuk databasenya, gwe pake Ms. Access 2000 yang udah tersedia di dalam aplikasi VB itu sendiri,....
Rancang Formnya seperti gambar di atas,...

kemudian masukan listingnya seperti di bawah ini.

Sub aktif()
txtnotran.Enabled = True
txtkode.Enabled = True
txtnama.Enabled = True
cbojurusan.Enabled = True
txtharga.Enabled = True
txtjml.Enabled = True
txttotal.Enabled = True
cmdtambah.Enabled = True
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
End Sub

Sub nonaktif()
txtnotran.Enabled = False
txtkode.Enabled = False
txtnama.Enabled = False
cbojurusan.Enabled = False
txtharga.Enabled = False
txtjml.Enabled = False
txttotal.Enabled = False
cmdtambah.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
End Sub

Sub bersih()
txtnotran = ""
txtkode = ""
txtnama = ""
cbojurusan = ""
txtharga = ""
txtjml = ""
txttotal = ""
txtcari = ""
End Sub

Sub tampil()
txtnotran = Data1.Recordset!Notrans
txtkode = Data1.Recordset!Kdkereta
txtnama = Data1.Recordset!Nmkereta
cbojurusan = Data1.Recordset!Jurusan
txtharga = Data1.Recordset!Harga
txtjml = Data1.Recordset!Jumlahpesan
txttotal = Data1.Recordset!Total
End Sub

Private Sub cbojurusan_Click()
Select Case cbojurusan.ListIndex
Case 0
txtharga = 290000
Case 1
txtharga = 150000
Case 2
txtharga = 120000
Case 3
txtharga = 156000
Case 4
txtharga = 155000
End Select
txtjml.SetFocus
End Sub

Private Sub cmdbatal_Click()
bersih
aktif
txtnotran.SetFocus
End Sub

Private Sub cmdfirst_Click()
Data1.Recordset.MoveFirst
tampil
MsgBox "AWAL RECORD", vbInformation, "INFO"
End Sub

Private Sub cmdkeluar_Click()
pesan = MsgBox("Yakin Ingin Keluar?", vbQuestion + vbYesNo, "PESAN")
If pesan = vbYes Then
Unload Me
frmmenu.Visible = True
End If
End Sub

Private Sub cmdlast_Click()
Data1.Recordset.MoveLast
tampil
MsgBox " AKHIR RECORD", vbInformation, "INFO"
End Sub

Private Sub cmdnext_Click()
On Error Resume Next
Data1.Recordset.MoveNext
tampil
If Data1.Recordset.EOF Then
MsgBox "SUDAH DI AKHIR RECORD", vbExclamation, "INFO"
Data1.Recordset.MoveLast
End If
End Sub

Private Sub cmdprev_Click()
On Error Resume Next
Data1.Recordset.MovePrevious
tampil
If Data1.Recordset.BOF Then
MsgBox "SUDAH DI AWAL RECORD", vbExclamation, "INFO"
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.AddNew
Data1.Recordset!Notrans = txtnotran
Data1.Recordset!Kdkereta = txtkode
Data1.Recordset!Nmkereta = txtnama
Data1.Recordset!Jurusan = cbojurusan
Data1.Recordset!Harga = txtharga
Data1.Recordset!Jumlahpesan = txtjml
Data1.Recordset!Total = txttotal
Data1.Recordset.Update
MsgBox "Data TERSIMPAN", vbInformation
End Sub

Private Sub cmdtambah_Click()
aktif
bersih
txtnotran.SetFocus
End Sub

Private Sub Command1_Click()
Data1.Recordset.Index = "Notrans"
Data1.Recordset.Seek "=", txtcari.Text
If Data1.Recordset.NoMatch Then
MsgBox "Data Tidak ditemukan", vbInformation
bersih
txtnotran.SetFocus
Else
tampil
End If
End Sub

Private Sub Form_Load()
cbojurusan.AddItem "SURABAYA"
cbojurusan.AddItem "JOGJAKARTA"
cbojurusan.AddItem "BANDUNG"
cbojurusan.AddItem "SOLO"
cbojurusan.AddItem "SEMARANG"
nonaktif
bersih
End Sub

Private Sub txtcari_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Data1.Recordset.Index = "Notrans"
Data1.Recordset.Seek "=", txtcari.Text
If Data1.Recordset.NoMatch Then
MsgBox "Data Tidak ditemukan", vbInformation, "INFO"
bersih
aktif
txtcari.SetFocus
Else
tampil
End If
End If
End Sub

Private Sub txtjml_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal = Val(txtharga) * Val(txtjml)
End If
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cbojurusan.SetFocus
End If
End Sub

selamat mencoba ,,,,.... (' _'). good luck.

Mengatasi Licence Key yang Terblakcklist Kaspersky 7.0.1.325




1.Install KIS or KAV

2.Install key yang telah anda punya.

3.Disable kan self-defense service

4.Disable kan Kaspersky (KIS atau KAV) pada taskbar dengan mengklik kanan icon Kaspersky kemudian exit

5. Download Patch Kaspersky
http://rapidshare.com/files/94020599/Patch__Kaspersky_AV-IS_7.0_.exe

6. Aktifkan Patch Kasperky yang telah anda download, pilih KIS atao KAV.

7. Aktifkan kembali Kaspersky(KAV atau KIS) Enable kan self-defense service.

Fisinh, anda dapat menggunakan program tersebut dan mengupdate secara otomatis

pada saat Kaspersky sudah dalam keadaan terblacklist maka :

Selamat Mencoba......

Perbedaan TCP/IP dengan Model OSI

TCP/IP
(Transmission Control Protocol/Internet Protocol)

TCP/IP adalah Satu set protokol standar yang digunakan untuk menghubungkan jaringan komputer dan mengalamati lalu lintas dalam jaringan. protokol ini mengatur format data yang diijinkan, penanganan kesalahan (error handling), lalu lintas pesan, dan standar komunikasi lainnya. TCP/IP harus dapat bekerja diatas segala jenis komputer, tanpa terpengaruh oleh perbedaan perangkat keras maupun sistem operasi yang digunakan.

Keunggulan TCP/IP

Perkembangan protokol TCP/IP menggunakan standar protokol terbuka, sehingga tersedia secara luas.
Tidak bergantung pada perangkat keras atau sistem jaringan tertentu.
Cara pengalamatan bersifat unik dalam skala global
TCP/IP memiliki fasilitas routing dan jenis layanan lain yang bisa diterapkan pada internetwork.


Tugas protokol pada komputer yang menghantar data :

1. Data dipecah2kan kepada section yang lebih kecil yang dinamakan packet .
2. Tambahan maklumat address pada packet tersebut supaya sampai ke destinasi.
3. Menyediakan packet tersebut untuk dihantar melalui networck card dan melalui kabel.

Lapisan dalam TCP/IP

Dalam TCP/IP terdapat 5 lapisan yaitu :
1. Aplication Layer
2. Network Acces Layer
3. Internet Layer
4. Dataling Layer
5. Physical Layer

INTERNET PROTOKOL ( IP )

Internet Protokol ( IP ) berfungsi menyampaikan paket data ke alamat yang tepat. Oleh karena itu semua aplikasi jaringan TCP/IP pasti bertumpu pada IP agar dapat berjalan dengan baik.

SIFAT IP :

1. Connectionless
Adalah setiap paket data yang dikirim pada suatu saat akan melalui rute secara independen. Paket IP akan melalui rute yang ditentukan oleh router yang dilalui oleh datagram.

2. Unreliable
Atau ketidak andalan yakni protokol IP tidak menjamin datagram yang dikirim pasti sampai ketempat tujuan.

MODEL OSI

Apa yang dimaksud dengan model-OSI?
Dahulu, komunikasi antar komputer dari vendor yang berbeda adalah sangat sulit dilakukan, karena mereka mengunakan protocol dan format data yang berbeda-beda. Sehingga International Organization for Standardization (ISO) membuat suatu arsitektur komunikasi yang dikenal sebagai Open System Interconnection (OSI) model yang mendefinisikan standar untuk menghubungkan komputer-komputer dari vendor-vendor yang berbeda.
Model-OSI tersebut terbagi atas 7 layer, dan layer kedua juga memiliki sejumlah sub-layer (dibagi oleh Institute of Electrical and Electronic Engineers (IEEE) yang mana tidak saya diskusikan dalam tutorial ini. Perhatikan tabel berikut:

7th - layer: Application Services
6th - layer: Presentation Services
5th - layer: Session Communications
4th - layer: Transport Communications
3rd - layer: Network Communications
2nd - layer: Data-link Physical connections

Layer Physical (1)
Ini adalah layer yang paling sederhana; berkaitan dengan electrical (dan optical) koneksi antar peralatan. Data biner dikodekan dalam bentuk yang dapat ditransmisi melalui media jaringan, sebagai contoh kabel, transceiver dan konektor yang berkaitan dengan layer Physical. Peralatan seperti repeater, hub dan network card adalah berada pada layer ini.

Layer Data-link (2)
Layer ini sedikit lebih "cerdas" dibandingkan dengan layer physical, karena menyediakan transfer data yang lebih nyata. Sebagai penghubung antara media network dan layer protocol yang lebih high-level, layer data link bertanggung-jawab pada paket akhir dari data binari yang berasal dari level yang lebih tinggi ke paket diskrit sebelum ke layer physical. Akan mengirimkan frame (blok dari data) melalui suatu network.. Ethernet (802.2 & 802.3), Tokenbus (802.4) dan Tokenring (802.5) adalah protocol pada layer Data-link.

Layer Network (3)
Tugas utama dari layer network adalah menyediakan fungsi routing sehingga paket dapat dikirim keluar dari segment network lokal ke suatu tujuan yang berada pada suatu network lain. IP, Internet Protocol, umumnya digunakan untuk tugas ini. Protocol lainnya seperti IPX, Internet Packet eXchange. Perusahaan Novell telah memprogram protokol menjadi beberapa, seperti SPX (Sequence Packet Exchange) & NCP (Netware Core Protocol). Protokol ini telah dimasukkan ke sistem operasi Netware. Beberaoa fungsi yang mungkin dilakukan oleh Layer Network
• Membagi aliran data biner ke paket diskrit dengan panjang tertentu
• Mendeteksi Error
• Memperbaiki error dengan mengirim ulang paket yang rusak
• Mengendalikan aliran

Layer Transport (4)
Layer transport data, menggunakan protocol seperti UDP, TCP dan/atau SPX (Sequence Packet eXchange, yang satu ini digunakan oleh NetWare, tetapi khusus untuk koneksi berorientasi IPX). Layer transport adalah pusat dari mode-OSI. Layer ini menyediakan transfer yang reliable dan transparan antara kedua titik akhir, layer ini juga menyediakan multiplexing, kendali aliran dan pemeriksaan error serta memperbaikinya.

Layer Session (5)
Layer Session, sesuai dengan namanya, sering disalah artikan sebagai prosedur logon pada network dan berkaitan dengan keamanan. Layer ini menyediakan layanan ke dua layer diatasnya, Melakukan koordinasi komunikasi antara entiti layer yang diwakilinya. Beberapa protocol pada layer ini: NETBIOS: suatu session interface dan protocol, dikembangkan oleh IBM, yang menyediakan layanan ke layer presentation dan layer application. NETBEUI, (NETBIOS Extended User Interface), suatu pengembangan dari NETBIOS yang digunakan pada produk Microsoft networking, seperti Windows NT dan LAN Manager. ADSP (AppleTalk Data Stream Protocol). PAP (Printer Access Protocol), yang terdapat pada printer Postscript untuk akses pada jaringan AppleTalk.

The Presentation layer (6)
Layer presentation dari model OSI melakukan hanya suatu fungsi tunggal: translasi dari berbagai tipe pada syntax sistem. Sebagai contoh, suatu koneksi antara PC dan mainframe membutuhkan konversi dari EBCDIC character-encoding format ke ASCII dan banyak faktor yang perlu dipertimbangkan. Kompresi data (dan enkripsi yang mungkin) ditangani oleh layer ini.

Layer Application (7)
Layer ini adalah yang paling ‘cerdas’, gateway berada pada layer ini. Gateway melakukan pekerjaan yang sama seperti sebuah router, tetapi ada perbedaan diantara mereka (baca bagian berikutnya untuk informasi yang lebih jelas tentang kedua hal tersebut). Layer Application adalah penghubung utama antara aplikasi yang berjalan pada satu komputer dan resources network yang membutuhkan akses padanya. Layer Application adalah layer dimana user akan beroperasi padanya, protocol seperti FTP, telnet, SMTP, HTTP, POP3 berada pada layer Application.

KOMPONEN – KOMPONEN PADA SETIAP LAYER DI DALAM OSI

Layer 1 (physical)
Network components:
• Repeater
• Multiplexer
• Hubs(Passive and Active)
• TDR
• Oscilloscope
• Amplifier

Protocols:
• IEEE 802 (Ethernet standard)
• IEEE 802.2 (Ethernet standard)
• ISO 2110
• ISDN Layer 2 (Datalink)

Network components:
• Bridge
• Switch
• ISDN Router
• Intelligent Hub
• NIC
• Advanced Cable Tester

Protocols:
Media Access Control:

Communicates with the adapter card

Controls the type of media being used:
• 802.3 CSMA/CD (Ethernet)
• 802.4 Token Bus (ARCnet)
• 802.5 Token Ring
• 802.12 Demand Priority

Logical Link Control
• error correction and flow control
• manages link control and defines SAPs
802.2 Logical Link Control

Layer 3 (Network)
Network components:
• Brouter
• Router
• Frame Relay Device
• ATM Switch
• Advanced Cable Tester

Protocols:
• IP; ARP; RARP, ICMP; RIP; OSFP;
• IGMP;
• IPX
• NWLink
• NetBEUI
• OSI
• DDP
• DECnet

Layer 4 (Transport)
Network components:
• Gateway
• Advanced Cable Tester
• Brouter

Protocols:
• TCP, ARP, RARP;
• SPX
• NWLink
• NetBIOS / NetBEUI
• ATP

Layer 5 (Session)
Network components:
• Gateway


Protocols:
• NetBIOS
• Names Pipes
• Mail Slots
• RPC

Layer 6 (Presentation)
Network components:
• Gateway
• Redirector
Protocols:
• None

Layer 7 (Application)
Network components:
• Gateway

Protocols:
DNS; FTP

TFTP; BOOTP

SNMP; RLOGIN

SMTP; MIME;

NFS; FINGER

TELNET; NCP

APPC; AFP

SMB

Referensi : http://deeyan.blogspot.com
http://www.wikipedia.org
Modul Perkuliahan Semester 2 Komunikasi Data AMIK BSI