tugas vb ke IV

DATBUKU

Data buku

Private Sub cmdbatal_Click()

txtkodebuku.SetFocus

txtkodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtkodebuku.SetFocus

txtkodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim K As String

txttahunterbit.Text = “20” & Mid(txtkodebuku.Text, 5, 2)

K = Left(txtkodebuku.Text, 3)

If K = “SIM” Then

txtjudulbuku.Text = “SISTEM INFORMASI MANAJEMEN”

txtpengarang.Text = “Fadiya Ulfa”

txtharga.Text = “75900 —> DILARANG BON !!”

ElseIf K = “EDP” Then

txtjudulbuku.Text = “Elektronik Data Processing”

txtpengarang.Text = “Nurul Agustina”

txtharga.Text = “62000 —> DILARANG BON !!”

ElseIf K = “MNJ” Then

txtjudulbuku.Text = “Manajemen”

txtpengarang.Text = “Rian Hidayat”

txtharga.Text = “42000 —> DILARANG BON !!”

ElseIf K = “CDR” Then

txtjudulbuku.Text = “Corel Draw”

txtpengarang.Text = “Siti Nur Khotimah”

txtharga.Text = “53000 —> DILARANG BON !!”

ElseIf K = “RPL” Then

txtjudulbuku.Text = “Rekayasa Perangkat Lunak”

txtpengarang.Text = “Winda Erlianti”

txtharga.Text = “83000 —> DILARANG BON !!”

End If

K = Right(txtkodebuku.Text, 1)

If K = “A” Then

txtpenerbit.Text = “Andi Offset Yogyakarta”

ElseIf K = “I” Then

txtpenerbit.Text = “Indah Surabaya”

ElseIf K = “S” Then

txtpenerbit.Text = “Salemba Empat”

ElseIf K = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

ElseIf K = “M” Then

txtpenerbit.Text = “Maxicom”

End If

End Sub

combokode copy

Private Sub form_load()

cbokodebuku.AddItem “A-SIM-01”

cbokodebuku.AddItem “I-EDP-02”

cbokodebuku.AddItem “S-MNJ-03”

cbokodebuku.AddItem “E-CDR-04”

cbokodebuku.AddItem “M-RPL-05”

End Sub

Private Sub cmdbatal_Click()

cbokodebuku.SetFocus

cbokodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

cbokodebuku.SetFocus

cbokodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim K As String

txttahunterbit.Text = “20” & Right(cbokodebuku.Text, 2)

K = Mid(cbokodebuku.Text, 3, 3)

If K = “SIM” Then

txtjudulbuku.Text = “SISTEM INFORMASI MANAJEMEN”

txtpengarang.Text = “Fadiya Ulfa”

txtharga.Text = “75900 ”

ElseIf K = “EDP” Then

txtjudulbuku.Text = “Elektronik Data Processing”

txtpengarang.Text = “Nurul Agustina”

txtharga.Text = “62000”

ElseIf K = “MNJ” Then

txtjudulbuku.Text = “Manajemen”

txtpengarang.Text = “Rian Hidayat”

txtharga.Text = “42000”

ElseIf K = “CDR” Then

txtjudulbuku.Text = “Corel Draw”

txtpengarang.Text = “Siti Nur Khotimah”

txtharga.Text = “53000”

ElseIf K = “RPL” Then

txtjudulbuku.Text = “Rekayasa Perangkat Lunak”

txtpengarang.Text = “Winda Erlianti”

txtharga.Text = “83000”

End If

K = Left(cbokodebuku.Text, 1)

If K = “A” Then

txtpenerbit.Text = “Andi Offset Yogyakarta”

ElseIf K = “I” Then

txtpenerbit.Text = “Indah Surabaya”

ElseIf K = “S” Then

txtpenerbit.Text = “Salemba Empat”

ElseIf K = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

ElseIf K = “M” Then

txtpenerbit.Text = “Maxicom”

End If

End Sub

PTPULANGPERDI

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkodestat.Text = “”

txtstat.Text = “”

txtthn.Text = “”

txtbag.Text = “”

txtjab.Text = “”

txtgapok.Text = “”

txttunj.Text = “”

txttot.Text = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkodestat.Text = “”

txtstat.Text = “”

txtthn.Text = “”

txtbag.Text = “”

txtjab.Text = “”

txtgapok.Text = “”

txttunj.Text = “”

txttot.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim k As String

txtthn.Text = “20” & Mid(txtnik.Text, 3, 2)

k = Mid(txtnik.Text, 7, 1)

If k = “S” Then

txtkodestat.Text = “S”

txtstat.Text = “Single”

ElseIf k = “M” Then

txtkodestat.Text = “M”

txtstat.Text = “Menikah”

ElseIf k = “J” Then

txtkodestat.Text = “J”

txtstat.Text = “Janda”

ElseIf k = “D” Then

txtkodestat.Text = “D”

txtstat.Text = “Duda”

End If

k = Mid(txtnik.Text, 5, 1)

If k = “A” Then

txtgol.Text = “A”

txtjab.Text = “Manager”

txtgapok.Text = “4000000”

txttunj.Text = “1025000”

ElseIf k = “B” Then

txtgol.Text = “B”

txtjab.Text = “Ka.Seksi”

txtgapok.Text = “3500000”

txttunj.Text = “975000”

ElseIf k = “C” Then

txtgol.Text = “C”

txtjab.Text = “Staff”

txtgapok.Text = “3000000”

txttunj.Text = “925000”

End If

k = Right(txtnik.Text, 3)

If k = “KEU” Then

txtbag.Text = “Accounting”

ElseIf k = “ADM” Then

txtbag.Text = “Administrasi”

ElseIf k = “SDM” Then

txtbag.Text = “General Affair”

ElseIf k = “EDP” Then

txtbag.Text = “IT Unit”

ElseIf k = “SPM” Then

txtbag.Text = “seccurity”

End If

txttot.Text = Val(txtgapok.Text) + Val(txttunj.Text)

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End Sub

NPM

NPM

 

Private Sub CMDPROSES_Click()

Dim K, J, PS As String

K = Mid(TXTNPM.Text, 4, 1)

If K = “1” Then

J = “SISTEM INFORMASI”

ElseIf K = “2” Then

J = “TEHNIK INFORMATIKA”

ElseIf K = “3” Then

J = “MANAJEMEN INFORMATIKA”

ElseIf K = “4” Then

J = “KOMPUTER AKUTANSI”

End If

TXTJURUSAN.Text = J

 

K = Mid(TXTNPM.Text, 6, 2)

If K = “01” Then

PS = “STRATA SATU”

ElseIf K = “02” Then

PS = “DIPLOMA EMPAT”

ElseIf K = “03” Then

PS = “DIPLOMA TIGA”

ElseIf K = “04” Then

PS = “DIPLOMA DUA”

End If

TXTPRODI.Text = PS

 

TXTTHNMASUK.Text = “20” & Left(TXTNPM.Text, 2)

TXTNOURUT.Text = Right(TXTNPM.Text, 3)

 

End Sub

Advertisements

Tugas Visual Bassic Pertemuan Ke 3

Membuat 10 Program menggunakan Visual Basic

Nama : Muammar

NPM  : 12201363

Kelas : Twitter 12

MK : Visual Basic

 

1.Kalkulator Sederhana

Kalkulotar Sederhana

Source Code :

Private Sub Command1_Click()
C = Val(A.Text) + Val(B.Text)
End Sub

Private Sub Command2_Click()
C = Val(A.Text) – Val(B.Text)
End Sub

Private Sub Command3_Click()
C = Val(A.Text) * Val(B.Text)
End Sub

Private Sub Command4_Click()
C = Val(A.Text) / Val(B.Text)
End Sub

Private Sub Command5_Click()
C = Val(A.Text) ^ Val(B.Text)
End Sub

Private Sub Command6_Click()
A.Text = Clear
B.Text = Clear
C.Text = Clear
A.SetFocus
End Sub

Private Sub Command7_Click()
End
End Sub

 

2.Properti Test

Properti test

Source Kode :

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

3.Font Color

MD font Color

Source Kode :

Private Sub chkBold_Click()
‘membuat teks tebal
If chkBold.Value = 1 Then
lblTeks.FontBold = True
Else
lblTeks.FontBold = False
End If
End Sub

Private Sub chkItalic_Click()
‘membuat teks miring
If chkItalic.Value = 1 Then
lblTeks.FontItalic = True
Else
lblTeks.FontItalic = False
End If
End Sub

Private Sub chkStrike_Click()
‘membuat teks bergaris tengah
If chkStrike.Value = 1 Then
lblTeks.FontStrikethru = True
Else
lblTeks.FontStrikethru = False
End If
End Sub

Private Sub chkUnder_Click()
‘membuat teks bergaris bawah
If chkUnder.Value = 1 Then
lblTeks.FontUnderline = True
Else
lblTeks.FontUnderline = False
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub

 

4.Data Nama Pasien

Data Nama Pasien

Source kode

Private Sub Form_Load()
Text3 = Format(Now, “DD-MMMM-YYYY”)
Text4 = Format(Now, “HH:MM”)
Text3.Enabled = False
Text4.Enabled = False

Combo1.AddItem “PRIA”
Combo1.AddItem “WANITA”
End Sub

Private Sub Text1_keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text5_keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text6.SetFocus
End If
End Sub
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text5.Text = “”
Text6.Text = “”
Combo1.Text = “”
End Sub

5.Aplikasi Perhitungan Gaji

Aplikasi Perhitungan gaji

Surce kode :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * 0.2
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End If
End Sub

Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * 0.2
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

6.Perhitungan Diskon

5.MD perhitungan diskon

Source Kode :

Private Sub Combo1_Click()
Combo1.AddItem “ABA”
Combo1.AddItem “AMIK”
Combo1.AddItem “AKA”
End Sub

Private Sub Combo2_Click()
If Combo2 = “MI-0101-KTI” Then
Text4.Text = “Konsep Teknologi Informasi”
Text5.Text = “4″
Text6.Text = “20000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0102-PA” Then
Text4.Text = “Penghantar Akutansi”
Text5.Text = “4″
Text6.Text = “25000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0103-LA” Then
Text4.Text = “Logika ALgoritma”
Text5.Text = “3″
Text6.Text = “30000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0104-MD” Then
Text4.Text = “Matematika Dasar”
Text5.Text = “2″
Text6.Text = “15000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-LS” Then
Text4.Text = “Listening”
Text5.Text = “4″
Text6.Text = “25000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-SP” Then
Text4.Text = “speaking”
Text5.Text = “3″
Text6.Text = “40000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-CV” Then
Text4.Text = “Conversation”
Text5.Text = “2″
Text6.Text = “35000″
Text6.SetFocus
Else
End If
End Sub

Private Sub Command1_Click()
Text9.Text = Val(Text7.Text) – Val(Text8.Text)
End Sub

Private Sub Form_Load()
Combo1.AddItem “ABA”
Combo1.AddItem “AMIK”
Combo1.AddItem “AKA”
Combo2.AddItem “MI-0101-KTI”
Combo2.AddItem “MI-0102-PA”
Combo2.AddItem “MI-0103-LA”
Combo2.AddItem “MI-0104-MD”
Combo2.AddItem “BA-0101-LS”
Combo2.AddItem “BA-0101-SP”
Combo2.AddItem “BA-0101-CV”
End Sub

Private Sub Option1_Click()
Text8.Text = Val(Text7.Text) * 0.5
End Sub

Private Sub Option2_Click()
Text8.Text = Val(Text7.Text) * 0.1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

7.Gaji Karyawan

MD Gaji Karyawan

Source Kode :

Private Sub Command1_Click()
Text9.Text = Val(Text6.Text) – Val(Text8.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text4.Text)
Text7.SetFocus
End If
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.Text = Val(Text6.Text) * Val(Text7.Text) / 100
Text8.SetFocus
End If
End Sub

8.Nilai Mutu

Nilai Mutu

Source Kode :

Private Sub Form_Load()
Combo1.AddItem “12100515″
Combo1.AddItem “12100525″
Combo1.AddItem “12100535″
Combo1.AddItem “12100545″
Combo1.AddItem “12100555″
Combo1.AddItem “12100565″
Combo1.AddItem “12100575″
Combo1.AddItem “12100585″
Combo1.AddItem “12100595″
Combo1.AddItem “12100666″
End Sub

Private Sub Combo1_Click()
If Combo1 = “12100515″ Then
txtNama.Text = “Marchoni”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100525″ Then
txtNama.Text = “Siti Kholijah”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100535″ Then
txtNama.Text = “Adi Setiawan”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100545″ Then
txtNama.Text = “Barnes Setiawan”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100555″ Then
txtNama.Text = “Adhy Pangestu”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100565″ Then
txtNama.Text = “Setiawan Adi”
txtjurusan.Text = “Design Grafis”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100575″ Then
txtNama.Text = “Sunardi”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100585″ Then
txtNama.Text = “Arif Lukman”
txtjurusan.Text = “Manajemen Informatika”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100595″ Then
txtNama.Text = “Alivia”
txtjurusan.Text = “Sistem Informasi”
txtQuis.SetFocus
Else
End If

If Combo1 = “12100666″ Then
txtNama.Text = “Adi Barnes Setiawan”
txtjurusan.Text = “Design Grafis”
txtQuis.SetFocus
Else
End If
End Sub

Private Sub txtQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTugas.SetFocus
End If
End Sub

Private Sub txtTugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUts.SetFocus
End If
End Sub

Private Sub txtUas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtNA.Text = (Val(txtQuis.Text) + Val(txtTugas.Text) + Val(txtUts.Text) + Val(txtUas.Text)) / 4
If Val(txtNA.Text) <= 50 Then txtHuruf.Text = “E”
If Val(txtNA.Text) >= 50 Then txtHuruf.Text = “D”
If Val(txtNA.Text) >= 60 Then txtHuruf.Text = “C”
If Val(txtNA.Text) >= 70 Then txtHuruf.Text = “B”
If Val(txtNA.Text) >= 80 Then txtHuruf.Text = “A”
End If
End Sub

Private Sub txtUts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUas.SetFocus
End If
End Sub

Private Sub cmdProses_Click()
txtNA.Text = (Val(txtQuis.Text) + Val(txtTugas.Text) + Val(txtUts.Text) + Val(txtUas.Text)) / 4
If Val(txtNA.Text) <= 50 Then txtHuruf.Text = “E”
If Val(txtNA.Text) >= 50 Then txtHuruf.Text = “D”
If Val(txtNA.Text) >= 60 Then txtHuruf.Text = “C”
If Val(txtNA.Text) >= 70 Then txtHuruf.Text = “B”
If Val(txtNA.Text) >= 80 Then txtHuruf.Text = “A”
End Sub

Private Sub cmdBatal_Click()
txtNama.Text = “”
txtjurusan.Text = “”
txtQuis.Text = “”
txtTugas.Text = “”
txtUts.Text = “”
txtUas.Text = “”
txtNA.Text = “”
txtHuruf.Text = “”
txtNama.SetFocus
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

 

9.Penjualan

Penjualan

Source kode :

Private Sub Text1_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text7.Text = Val(Text3.Text) * Val(Text4.Text)
Text8.SetFocus
End If
End Sub

Private Sub Text8_Keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text9.Text = Val(Text8.Text) – Val(Text7.Text)
End If
End Sub

Private Sub Command1_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text1.SetFocus
End Sub

Private Sub Command2_Click()
End
End Sub

10.Data Mahasiswa

Data Mahasiswa

Source Kode :

Private Sub Command1_Click()
Dim S As String
Text5.Text = “20″ & Left(Text2.Text, 2)
S = Mid(Text2.Text, 3, 1)
If S = “1″ Then
Text3.Text = “Sistem Informasi”
ElseIf S = “2″ Then
Text3.Text = “Manajemen Informatika”
ElseIf S = “3″ Then
Text3.Text = “Tehnik Informatika”
ElseIf S = “4″ Then
Text3.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Text2.Text, 4, 2)
If S = “01″ Then
Text4.Text = “Strata Satu”
ElseIf S = “02″ Then
Text4.Text = “Diploma Tiga”
ElseIf S = “03″ Then
Text4.Text = “Diploma Empat”
ElseIf S = “04″ Then
Text4.Text = “Diploma Dua”
End If
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

Tugas VB Ke-2

untitled

Rumus :

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) / Val(Text2.Text)
Text6.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) / Val(Text2.Text)
Text6.Text = Val(Text1.Text) – Val(Text2.Text)
End If
End Sub

Kegunaan Internet dan Fungsi Utama Internet

Kegunaan Internet dan Fungsi Utama Internet

 

Minggu, 14 Oktober 2012 | 3:32:00 PM

Kegunaan Internet dan Fungsi Utama Internet

Jaman semakin canggih dan modern. Kegunaan Internet dan Funsi Utama Internet makin banyak yang memakai dan memudahkan orang mengerjakan sesuatu menjadi lebih mudah. Waktu menjadi efektif dan efisien pada era globalisasi ini dengan adanya internet.

Sebelum kami memaparkan kegunaan internet, terlebih dahulu saya ingin menjelaskan apa itu internet. Menurut wikipedia, internet (kependekan dari interconnected-networking) adalah rangkaian komputer yang terhubung di dalam beberapa jaringan komputer. Adapun, Internet (dengan huruf “I” besar) yaitu sistem komputer umum, yang berhubung secara global dan menggunakan TCP/IP sebagai protocol pertukaran paket (packet switching communication protocol). Rangkaian dari internet yang besar dinamakan Internet.

Banyak kegunaan yang menguntungkan dari Internet baik dalam bidang akademis, bisnis, komunikasi, organisasi, dll. Sejarah Perkembangan Internet pada jaman sekarang memang sudah menjadi fungsi utama untuk mempermudah aktivitas kita dalam menjalin kerjasama yang baik dengan klien atau pun kerabat kita.

img on info-asik.com

Berikut adalah poin-poin kegunaan internet yang sedang anda cari :

1. Gudang Informasi
Dengan adanya Internet penyebaran informasi semakin cepat karena adanya fasilitas dari macam-macam Search Engines atau mesin pencari, yang artinya adalah pencarian segala informasi yang kita perlukan, yang bisa saja berupa file, gambar, musik, film, video, dll. Karena penyebaran informasi yang semakin cepat kita pun diuntungkan dengan mendapatkan informasi secara cepat juga.
2. Menjual/Membeli secara Online
Penjual bisa memasarkan produknya lewat Internet dan kita bisa membeli sesuatu dengan instan karena lewat Internet juga. Kita tinggal memilih produk atau jasa yang tersedia di halaman Web yang menyediakan penjualan secara on-line dan kita bisa membayarnya secara on-line seperti kartu kredit, transfer tunai di bank yang terdekat dengan anda, atau ada juga yang menyediakan sistem pembayaran cash on delivery (COD) yaitu, pembayaran yang dilakukan di tempat anda bertemu kurir pengirim barang, dan setelah itu kita sudah bisa mendapatkan produk atau jasa yang kita inginkan.
3. Mengetahui Berita
Sekarang tidak perlu lagi menunggu jam-jam tertentu untuk menonton berita yang disiarkan di televisi atau pun membaca koran ketika pagi karena sudah banyak halaman-halaman Web yang menyediakan berita-berita dunia secara up to date dan selalu diperbaharui dari waktu ke waktu sesuai perkembangan berita yang ada.
4. Pendidikan
Kita bisa memperoleh buku-buku yang dapat dibaca secara on-line maupun offline (setelah kita download/unduh terlebih dahulu) secara gratis. Kita juga bisa mendapatkan informasi-informasi tentang pendidikan secara cepat di halaman-halaman Web yang menyediakan informasi tentang pendidikan.
5.Komunikasi
Kita bisa menggunakan chatt/email untuk berkomunikasi dengan teman kita secara jarak jauh. Dengan jejaring sosial pun yang sekarang sedang booming kita bisa mempunyai banyak teman baru di dunia maya mau pun menemukan teman lama kita di jejaring soial tersebut sehingga kita bisa terus berkomunikasi.
Pemaparan diatas adalah gambaran secara umum tentang kegunaan internet dan fungsinya. Internet berkembang sangat pesat karena berbagai macam fasilitas yang ada di dalamnya.

Fasilitas Utama Internet

 

Fasilitas-fasilitas yang menunjang sangat berpengaruh terhadap perkembangan dalam dunia internet. Dan dibawah ini adalah fasilitas internet yang memiliki tujuan :

 

a. Sebagai media melakukan transfer file 
Transfer file yang dimaksud adalah untuk melakukan akses pada server lain yang jaraknya jauh, baik secara anonymous FTP (File Transfer Protocol) maupun yang bukan anonymous FTP didalam macam-macam web browser.
b. Sebagai sarana mengirim surat (email) 
c. Sebagai surat pembelajaran dan pendidikan 
d. Sebagai sarana untuk penjualan atau pemasaran 
e. Melakukan mailing list, newsgroup, dan konferensi
Mailing list atau newsgroup digunakan untuk melakukan diskusi online dalam sebuah forum tertentu untuk membahas permasalahan tertentu bagi netter (pengguna internet) yang memiliki masalah dan topic yang sama. 
f. Chating 
Chatting adalah sarana internet yang digunakan untuk berkomunikasi langsung melalui tulisan ataupun lisan. 
g. Mesin pencari (search engine) 
Mesin pencari (search engine) merupakan fasilitas yang disediakan oleh situs-situs tertentu untuk mempermudah pencarian atau pelacakan informasi yang kita butuhkan secara cepat. 
h. Untuk mengirim SMS ke telepon seluler 
i.  Sarana entertainment dan permainan 
j.  Berbagi pakai file 
k. Menyimpan file multimedia seperti, audio, foto, dokumen, maupun video
l.  Menjalin persahabatan / mencari teman baik local maupun mancanegara dengan situs jejaring sosial. 
m. Menyalurkan ide kreatif ide melalui blogging.

Semua yang kami jelaskan adalah mungkin sebagian dari kegunaan Internet dan juga Fungsi Utama Internet secara umum beberapa fasilitas didalamnya, yang terpenting adalah gunakan setiap kesempatan yang ada dengan hal yang positif seperti halnya menggunakan Internet . Bagaimana dengan Anda? Apakah Anda sudah merasakan kepraktisan yang Internet berikan dengan hal yang positif?

Sumber Artikel Dari : http://www.info-asik.com/2012/10/kegunaan-internet-dan-fungsi-utama.html#ixzz2J9srgDLZ

Manfaat Komputer Dalam Bidang Pendidikan

Manfaat Komputer Dalam Bidang Pendidikan

 

 

  1.    Manfaat Komputer Untuk Pembelajaran
Perkembangan IPTEK terhadap proses pembelajaran adalah diperkayanya sumber belajar dan media pembelajaran. Media komputer dimanfaatkan dalam pembelajaran karena memberikan keuntungan-keuntungan yang tidak dimiliki oleh media pembelajaran lainnya yaitu kemampuan komputer untuk berinteraksi secara individu dengan mahasiswa. Model  pembelajaran  yang  diterapkan  dalam  pembelajaran berbantuan komputer secara  umum  dapat  diklasifikasikan  menjadi  empat model,  yaitu  : 1) tutorial,  2) drill  and  practice, 3) simulation, dan 4)  problem-solving.  Dalam  model  1 dan  2, komputer berperan  sebagai  pengajar,  sedangkan model 3 dan 4, untuk mengembangkan penggunaan  kemampuan  memecahkan  masalah  melalui  pendekatan  discovery atau exploratory.
Komputer sebagai Media Pembelajaran
Aplikasi komputer dalam bidang pembelajaran memungkinkan berlangsungnya proses belajar secara individual (individual learning). Pemakai komputer atau user dapat melakukan interaksi langsung dengan sumber informasi. Perkembangan teknologi komputer jaringan (computer network/Internert) saat ini telah memungkinkan pemakainya melakukan interaksi dalam memperoleh pengetahuan dan informasi yang diinginkan. Berbagai bentuk interaksi pembelajaran dapat berlangsung dengan tersedianya medium komputer. Beberapa lembaga pendidikan jarak jauh di sejumlah negara yang telah maju memanfaatkan medium ini sebagai sarana interaksi. Pemanfaatan ini didasarkan pada kemampuan yang dimiliki oleh komputer dalam memberikan umpan balik (feedback) yang segera kepada pemakainya. Contoh penggunaan internet ini adalah digunakan oleh Universitas terbuka dalam penyelenggaraan Universitas Terbuka Jarak Jauh disamping mahasiswa mendapat modul untuk proses belajar mengajar dia juga dapat mengakses informasi melalui internet. Kuliah lewat Internet oleh IBUteledukasi.com. Universitas virtual IBUteledukasi ini didirikan oleh Adi sasono, Ketua Ikatan Cendekiawan Muslim Indonesia (ICMI) bekerjasama dengan Universitas Tun Abdul Razak (Unitar) Malaysia yang sudah lebih dulu menyelenggarakan perkuliahan online.
Pada pendidikan jarak jauh Fakultas Kedokteran Universitas Gajah Mada. Interaksi pembelajaran pada program Magister Manajemen Rumah Sakit dan Magister Manajemen Pelayanan Kesehatan dilakukan melalui surat elektronik (e-mail) mahasiswa harus menjawab 75% pertanyaan melalui e-mail. Contoh lain pemanfaatan jaringan komputer dilakukan di Universitas Indonesia (UI). Sejak tahun 1994 UI telah mengembangkan infrastruktur informasi yang dikenal dengan nama Jaringan Universitas Indonesia Terpadu (JUITA). JUITA menghubungkan sebelas fakultas dan lembaga-lembaga penting yang ada  di UI  dengan menggunakan jaringan serat optik ( Sri Hartati, dkk 1997 dalam Benny A. Pribadi dan  Rosita,  Tita,  2000).
       A. Kelebihan Komputer 
Heinich dkk. (1986) mengemukakan sejumlah kelebihan dan juga kelemahan yang ada pada medium komputer. Aplikasi komputer sebagai alat bantu proses belajar memberikan beberapa keuntungan. Komputer memungkinkan mahasiswa belajar sesuai dengan kemampuan dan kecepatannya dalam memahami pengetahuan dan informasi yang ditayangkan. Penggunaan komputer dalam proses belajar membuat mahasiswa dapat melakukan kontrol terhadap aktivitas belajarnya. Penggunaan komputer dalam lembaga pendidikan jarak jauh memberikan keleluasaan terhadap mahasiswa untuk menentukan kecepatan belajar dan memilih urutan kegiatan belajar sesuai dengan kebutuhan. Kemampuan komputer untuk menayangkan kembali informasi yang diperlukan oleh pemakainya, yang diistilahkan dengan “kesabaran komputer”, dapat membantu mahasiswa yang memiliki kecepatan belajar lambat. Dengan kata lain, komputer dapat menciptakan iklim belajar yang efektif bagi mahasiswa yang lambat (slow learner), tetapi juga dapat memacu efektivitas belajar bagi mahasiswa yang lebih cepat (fast learner).Disamping itu, komputer dapat diprogram agar mampu memberikan umpan balik terhadap hasil belajar dan memberikan pengukuhan (reinforcement) terhadap prestasi belajar mahasiswa. Dengan kemampuan komputer untuk merekam hasil belajar pemakainya (record keeping), komputer dapat diprogram untuk memeriksa dan memberikan skor hasil belajar secara otomatis. Komputer juga dapat dirancang agar dapat memberikan preskripsi atau saran bagi mahasiswa untuk melakukan kegiatan belajar tertentu. Kemampuan ini mengakibatkan komputer dapat dijadikan sebagai sarana untuk pembelajaran yang bersifat individual (individual learning). Kelebihan komputer yang lain adalah kemampuan dalam mengintegrasikan komponen warna, musik dan animasi grafik (graphic animation). Hal ini menyebabkan komputer mampu menyampaikan informasi dan pengetahu-an dengan tingkat realisme yang tinggi. Hal ini me-nyebabkan program komputer sering dijadikan sebagai sarana untuk melakukan kegiatan belajar yang bersifat simulasi. Lebih jauh, kapasitas memori yang dimiliki oleh komputer memungkinkan penggunanya menayangkan kembali hasil belajar yang telah dicapai sebelumnya. Hasil belajar sebelumnya ini dapat digunakan oleh siswa sebagai dasar pertimbangan untuk melakukan kegiatan belajar selanjutnya.
Keuntungan lain dari penggunaan komputer dalam proses belajar dapat meningkatkan hasil belajar dengan penggunaan waktu dan biaya yang relatif  kecil. Contoh yang tepat untuk ini adalah program komputer simulasi untuk melakukan percobaan pada mata kuliah sains dan teknologi. Penggunaan program simulasi dapat mengurangi biaya bahan dan peralatan untuk melakukan percobaan. (Benny A. Pribadi dan Tita Rosita, 2002:11-12)
        B.  Kekurangan Komputer 
Selanjutnya Benny dan Tita (2000) memberi penjelasan. Disamping memiliki sejumlah kelebihan, komputer sebagai sarana komunikasi interaktif juga memiliki beberapa kelemahan. Kelemahan pertama adalah tingginya biaya pengadaan dan pengembangan program komputer, terutama yang dirancang khusus untuk maksud pembelajaran. Disamping itu, pengadaan, pemeliharaan, dan perawatan komputer yang meliputi perangkat keras (hardware) dan perangkat lunak (software) memerlukan biaya yang relatif tinggi. Oleh karena itu pertimbangan biaya dan manfaat (cost benefit analysis) perlu dilakukan sebelum memutuskan untuk menggunakan komputer untuk keperluan pendidikan. Masalah lain adalah compatability dan incompability antara hardware dan software. Penggunaan sebuah program komputer biasanya memerlukan perangkat keras dengan spesifikasi yang sesuai. Perangkat lunak sebuah komputer seringkali tidak dapat digunakan pada komputer yang spesifikasinya tidak sama. Disamping kedua hal di atas, merancang dan memproduksi program pembelajaran yang berbasis komputer (computer based instruction) merupakan pekerjaan yang tidak mudah. Memproduksi program komputer merupakan kegiatan intensif yang memerlukan waktu banyak dan juga keahlian khusus.

I   I.  Penggunaan Jaringan Komputer untuk Pembelajaran
Teknologi jaringan komputer/internet memberi manfaat bagi pemakainya untuk melakukan komunikasi secara langsung dengan pemakai lainnya. Hal ini dimungkinkan dengan diciptakannya sebuah alat bernama modem. Jaringan komputer/internet memberi kemungkinan bagi pesertanya untuk melakukan komunikasi tertulis dan saling bertukar pikiran tentang kegiatan belajar yang mereka lakukan. Jaringan komputer dapat dirancang sedemikian rupa agar dosen dapat berkomunikasi dengan mahasiswa dan mahasiswa dapat melakukan interaksi belajar dengan mahasiswa yang lain. Interaksi pembelajaran dengan menggunakan jaringan komputer tidak saja dapat dilakukan secara individual, tetapi juga untuk menunjang kegiatan belajar kelompok. Pemanfaatan jaringan komputer dalam sistem pendidikan jarak jauh dikenal juga dengan istilah Computer Conferencing System (CCF). Biasanya sistem ini dilakukan melalui surat elektronik atau E-mail. Beberapa kelebihan pemanfaatan jaringan komputer dalam sistem pendidikan jarak jauh yaitu: dapat memperkaya model-model tutorial, dapat memecahkan masalah belajar yang dihadapi mahasiswa dalam waktu yang lebih singkat dan dapat mengatasi hambatan ruang dan waktu dalam memperoleh informasi.
      A.  Kreativitas Siswa
     1.   Pengertian
Kreativitas yang didmiliki oleh manusia sejak dilahirkan ke dunia suatu yang wajar. Demikian juga dengan guru, karena kreatvitasnya itu maka seseorang dapat mengaktualkan dirinya. Di sini terutama dalam penggunaan media pembelajaran PKn, mengingat peranan guru yang sangat besar dalam pembentukan sikap dan mental serta pengembangan intelektualitas anak yang dimilikinya.
     2.   Kemampuan Siswa Dalam Mengekpresikan Gagasan Sebagai Wujud Kreativitas
Dalam kaitannya dengan kreativitas Supriadi ( 1989 : 303 ) mengatakan ciri kehidupan sekolah yang   kondusif untuk tumbuhnya kreativitas keilmuan adalah :
a.   memberikan peluang kepada siswa untuk mengekspresikan gagasan secara aman. Mengeluarkan pendapat merupakan suatu keinginan yang harus dihargai oleh guru, agar dalam membuat media pengajaran PKn tidak dimonopoli oleh guru bidang studi PKn. Siswa dilibatkan karena tujuan pembelajaran semuanya adalah untuk keberhasilan siswa
b.   menghargai prestasi siswa
c.   menghargai imajinasi siswa
d.   menghormati keunikan individu siswa
e.   menyediakan sumber-sumber informasi yang memadai untuk   kebutuhan siswa
f.    mampu mengakomodasikan minat siswa yang beragam
g.   melatih kepekaan siswa
Kemampuan siswa dalam mengemukakan pendapatnya harus dihargai dan bagaimana caranya agar siswa tersebut tidak merasa mempunyai kekurangan  dalam menumbuhkan kreativitasnya, dengan menggunakan media pembelajaran berbasis TIK tentu saja diharapkan siswa mampu menumbuhkan kreativitasnya dengan maksimal yang terdapat di dalam diri mereka. Seorang anak yang mempunyai kretaivitas tinggi tentunya berbeda dengan siswa yang mempunyai krativitas rendah
3. Penggunaan Media Pembelajaran Berbasis TIK Dalam Meningkatkan Kreativitas Siswa
Media pembelajaran berbasis TIK sangat erat kaitannya dengan kreativitas anak, dan anak yang mempunyai kreativitas tentunya anak yang perkembangannya baik dan mampu menyelesaikan permasalahan dengan baik pula dan mereka  tidak ingin mempermasalahkan berlarut-larut dan secepatnya diselesaikan.
Kreativitas yang merupakan kemampuan seseorang untuk mengaktualkan dirinya dalam pergaulan dan juga dalam pembelajaran di sekolah. Hal ini yang diharapkan agar dengan adanya media pembelajaran atau dengan  menggunakan media pembelajaran berbasis TIK anak dapat kreatif dan berkembang sesuai yang diinginkan. Adapun ciri-ciri  anak yang mempunyai kreativitas tinggi menurut Asep H. Hermawan ( 1997 : 50 ) :
1.      selalu ingin mengetahui sesuatu yang benar
2.      selalu ingin  mengubah sesuatu yang telah ada mencoba hal-hal yang baru
  
  2.    E-LEARNING
 
DEFINISI dan KOMPONEN E-LEARNING
    Istilah e-Learning atau eLearning mengandung pengertian yang sangat luas, sehingga banyak pakar yang menguraikan tentang definisi eLearning dari berbagai sudut pandang. Beberapa definisi yang cukup dapat diterima banyak pihak misalnya dari
Darin E. Hartley [Hartley, 2001] yang menyatakan:
eLearning merupakan suatu jenis belajar mengajar yang memungkinkan tersampaikannya bahan ajar ke siswa dengan menggunakan media Internet, Intranet atau media jaringan komputer lain.
LearnFrame.Com dalam Glossary of eLearning Terms [Glossary, 2001] menyatakan suatu definisi yang lebih luas bahwa:
eLearning adalah sistem pendidikan yang menggunakan aplikasi elektronik untuk mendukung belajar mengajar dengan media Internet, jaringan komputer,maupun komputer standalone.
Menurut Onno W Purbo:
istilah e-learning dapat didefinisikan sebagai sebuah bentuk teknologi informasi yang diterapkan di bidang pendidikan dalam bentuk sekolah maya.
 
       Namun, istilah e-learning lebih tepat ditujukan sebagai usaha untuk membuat sebuah tranformasi proses belajar mengajar yang ada di kampus ke dalam bentuk digital yang dijembatani oleh teknologi Internet.
Inti dari e-learning sebenarnya adalah cara belajar secara virtual – melalui akses internet dan media elektronik yaitu komputer – interaktif dan mandiri. Dalam tekonologi e-learning, semua proses belajar mengajar yang biasa didapatkan di dalam kelas dilakukan secara live namun virtual, artinya pada saat yang sama seorang dosen mengajar di depan sebuah komputer yang ada di suatu tempat, sedangkan para mahasiswa mengikuti kuliah tersebut dari komputer lain di tempat yang berbeda. Dalam hal ini secara langsung dosen dan mahasiswa tidak saling berkomunikasi namun secara tidak langsung mereka saling berinteraksi pada waktu yang sama.
            Materi pelajaran pun dapat diperoleh secara gratis dalam bentuk file-file yang dapat di download. Sedangkan interaksi antara dosen dan mahasiswa dalam bentuk memberi tugas, maupun diskusi dapat dilakukan secara lebih intensif dalam bentuk forum diskusi dan e-mail. E-learning sebagai sebuah revolusi dalam bidang pendidikan sangatlah menakjubkan bahkan ketika pertama kali diperkenalkan kepada masyarakat. Meskipun demikian tanggapan masyarakat bagi pemanfaatan teknologi ini masihlah berada dalam tahap embrio dan masih sangat terpecah-pecahnya peminat dan peserta dari teknologi ini.
Harus diakui bahwa konsep e-learning lebih pada efisiensi belajar mengajar, cara pengajaran maupun materi ajar masih dapat mengacu pada kurikulum yang ada. Mahasiswa berposisi sebagai konsumen pengetahuan, sedangkan dosen sebagai otoritas pengetahuan yang didukung oleh sistem perpustakaan dan metode penyampaian. Pada tingkat lanjut, filosofi e-learning tidak lagi digunakan. Konsep knowledge management, belajar mandiri yang berbasis pada kreativitas mahasiswa dan mendorong mahasiswa melakukan analisa hingga sintesa pengetahuan menghasilkan tulisan, informasi dan pengetahuan sendiri menjadi fokus yang lebih mengarah ke masa depan. Mahasiswa tidak lagi dibombardir dengan doktrin ilmu pengetahuan, tetapi lebih dirangsang untuk mengeksplorasi pengetahuan dan menjadi bagian integral proses pemurnian pengetahuan itu sendiri.
           Pada tahapan ini, metode belajar mengajar dan kurikulum perlu mengalami perombakan lumayan banyak. Terlepas dari adanya konsep yang revolusioner ini, piranti yang nanti digunakan di e-learning maupun knowledge management tidak jauh berbeda, hanya konsep dan filosofinya yang berbeda sangat radikal.
Komponen yang membentuk e-Learning adalah:
  1. Infrastruktur e-Learning: Infrastruktur e-Learning dapat berupa personal computer (PC), jaringan komputer, internet dan perlengkapan multimedia. Termasuk didalamnya peralatan teleconference apabila kita memberikan layanan synchronous learning melalui teleconference.
  1. Sistem dan Aplikasi e-Learning: Sistem perangkat lunak yang mem-virtualisasi proses belajar mengajar konvensional. Bagaimana manajemen kelas, pembuatan materi atau konten, forum diskusi, sistem penilaian (rapor), sistem ujian online dan segala fitur yang berhubungan dengan manajemen proses belajar mengajar. Sistem perangkat lunak tersebut sering disebut dengan Learning Management System (LMS). LMS banyak yang opensource sehingga bisa kita manfaatkan dengan mudah dan murah untuk dibangun di sekolah dan universitas kita.
 
3.      Konten e-Learning: Konten dan bahan ajar yang ada pada e-Learning system (Learning Management System). Konten dan bahan ajar ini bisa dalam bentuk Multimedia-based Content (konten berbentuk multimedia interaktif) atau Text-based Content (konten berbentuk teks seperti pada buku pelajaran biasa). Biasa disimpan dalam Learning Management System (LMS) sehingga dapat dijalankan oleh siswa kapanpun dan dimanapun. Depdiknas cukup aktif bergerak dengan membuat banyak kompetisi pembuatan multimedia pembelajaran.
METODE PENYAMPAIAN E-LEARNING
Metode penyampaian bahan ajar di e-Learning ada dua:
  1. Synchrounous e-Learning: Guru dan siswa dalam kelas dan waktu yang sama meskipun secara tempat berbeda. peran teleconference ada di sini. Misalnya saya mahasiswa di Universitas Ujung Aspal mengikuti kuliah lewat teleconference dengan professor yang ada di Stanford University. Nah ini disebut dengan Synchronous e-Learning. Yang pasti perlu bandwidth besar dan biaya mahal. Jujur saja Indonesia belum siap di level ini, dalam sudut pandang kebutuhan maupun tingginya biaya. Tapi ada yang main hajar saja (tanpa study yang matang) mengimplementasikan synchronous e-Learning ini. Hasilnya peralatan teleconference yang sudah terlanjur dibeli mahal hanya digunakan untuk coffee morning, itupun 6 bulan sekali
 
2.      Asynchronous e-Learning: Guru dan siswa dalam kelas yang sama (kelas virtual), meskipun dalam waktu dan tempat yang berbeda. Nah disinilah diperlukan peranan sistem (aplikasi) e-Learning berupa Learning Management System dan content baik berbasis text atau multimedia. Sistem dan content tersedia dan online dalam 24 jam nonstop di Internet. Guru dan siswa bisa melakukan proses belajar mengajar dimanapun dan kapanpun. Tahapan implementasi e-Learning yang umum, Asynchronous e-Learning dimatangkan terlebih dahulu dan kemudian dikembangkan ke Synchronous e-Learning ketika kebutuhan itu datang.
 
  3.    ISU DAN MASALAH KOMPUTER DALAM PENDIDIKAN
 
Pengertian Teknologi Pendidikan diabad ke dua puluh meliputi lentera pertama proyektor slide kemudian radio dan kemudian gambar hidup. Sedangkan abad 19 ke bawah sampai lima belas teknologi lebih diartikan papan tulis dan buku. Jadi Teknologi Pendidikan adalah segala usaha untuk memecahkan masalah pendidikan.
LEBIH DETAIL DAPAT DIURAIKAN BAHWA:
1. Teknologi Pendidikan lebih dari perangkat keras.
2. Teknologi dapat juga terdiri segala teknik atau metode  yangdapat dipercaya untuk melibatkan pelajaran; strategi belajarkognitif dan keterampilan berfikir kritis.
3. Belajar teknologi dapat dilingkungan manapun yang melibatkansiswa belajar secara aktif, konstruktif, autentik dan kooperatif serta bertujuan.
Macam-macam Teknologi Pendidikan :
 
·         Sistem berpikir
·         Desain sistem
·         Kualitas pengetahuan
·         Manajemen Perubahan
·         Teknologi pembelajaran
 
DAMPAK POSITIF KOMPUTER DALAM PENDIDIKAN
Dalam dunia pendidikan, komputer dan Internet merupakan sebuah layanan yang memudahkan kita menambah wawasan, berkomunikasi, dan juga memudahkan kita untuk mencari suatu bahan yang mungkin sulit dicari secara nyata.
PERMASALAHAN TEKNOLOGI (KOMPUTER) DI DUNIA PENDIDIKAN
·         Masalah pembiayaan.
·         Keterbatasan sarana prasarana sekolah/Universitas.
·         Penggunaan teknologi pendidikan dalam bentuk Hardware memerlukan kontrol
yang tinggi dari para pengajar atau orang tua terutama internet dan software.
PERMASALAHAN TEKNOLOGI (KOMPUTER) DI DUNIA PENDIDIKAN
·         Siswa yang tidak mempunyai motivasi yang tinggi cenderung gagal.
·         karena adanya kebebasan akses internet dapat terjadi penyalahgunaan fasilitas internet sebagai sarana untuk kriminalitas atau asusila oleh para pelajar atau mahasiswa.
MEMASYARAKATKAN KOMPUTER DI DUNIA PENDIDIKAN
Beberapa langkah yang dapat ditempuh untuk memasyarakatkan komputer adalah sebagai berikut:
1. Tahap awal adalah memahami pengoperasian komputer.
2. Pada tahap kedua ini ditanamkan keuntungan‑keuntungan yang bisa diperoleh dengan adanya alat bantu komputer.
3. Khususnya untuk pelajar‑pelajar tingkat sekolah dasar atau menengah. Pemahaman pelajaran dapat dilakukan dengan bantuan komputer.

4.   Tahap selanjutnya adalah mengembangkan kemampuan siswa untuk bekerja dan menganalisa masalah menggunakan komputer.