by | Leave a comment

Image

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

 

Private Sub cmddelete_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdproses_Click()

Dim s As String

txttahun.Text = “20” &Left(txtnpm.Text, 2)

s = Mid(txtnpm.Text, 3, 1)

If s = “1” Then

txtjurusan.Text = “SistemInformasi”

ElseIf s = “2” Then

txtjurusan.Text = “tekhnikInformasi”

ElseIf s = “3” Then

txtjurusan.Text = “ManajemenInformatika”

ElseIf s = “4” Then

txtjurusan.Text = “komputerakutansi”

End If

s = Mid(txtnpm.Text, 4, 2)

If s = “01” Then

txtps.Text = “Strata Satu”

ElseIf s = “02” Then

txtps.Text = “Diploma empat”

ElseIf s = “03” Then

txtps.Text = “Diploma Tiga”

ElseIf s = “04” Then

txtps.Text = “Diploma Dua”

End If

txtnurut.Text = Right(txtnpm.Text, 3)

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

by | Leave a comment

Image

Private Sub Combo1_Click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12100152”
nama = “haries purbianto”
jurusan = “Sistem Informasi”
Case “12100153”
nama = “hendra perasetia”
jurusan = “Diploma Empat”
Case “12100154”
nama = “fahrul”
jurusan = “Diploma Tiga”
Case “12100155”
nama = “lia”
jurusan = “Diploma Dua”
Case “12100156”
nama = “juli irawan”
jurusan = “Diploma Satu”
End Select
Text1.Text = nama
Text2.Text = jurusan
Text3.SetFocus
End Sub

Private Sub command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA

Select Case Text7.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
Text8.Text = HM
End Sub

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

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “12100152”
Combo1.AddItem “12100153”
Combo1.AddItem “12100154”
Combo1.AddItem “12100155”
Combo1.AddItem “12100156”
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.SetFocus
End If
End Sub

MENENTUKAN WARNA PADA TULISAN

by | Leave a comment

Image

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

Private Sub ChkBold_Click()
Label2.FontBold = ChkBold.Value
End Sub

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

Private Sub Command2_Click()
End
End Sub

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

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

HARGA SETELAH DIDISKON10%

by | Leave a comment

Image

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

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

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Val(Text1.Text) * 0.1
End If
End Sub

kalkulator mini

by | Leave a comment

Image

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

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

nilai mahasiswa

by | Leave a comment

Gambar

Private Sub Command1_Click()
Text7.Text = Val((Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 4
End Sub

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

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

Private Sub Command4_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.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.SetFocus
End If
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
Text7.Text = Val((Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 4
End Sub

perkalian dua bilangan

by | Leave a comment

Gambar

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) * (Text2.Text)
End Sub

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

Private Sub Command3_Click()
Unload Me
End Sub

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

Private Sub Text2_KeyPress(KeyAscii As Integer)
If keyasceii = 13 Then
Text3 = Val(Text1.Text) * (Text2.Text)
End If
End Sub

Cara Membuat Email Yahoo

by tagged | Leave a comment

Cara membuat email yahoo sebenarnya sangat mudah, akan tetapi bagi para pemula yang belum pernah membuat sebuah akun email sebelumnya tentu saja masih bingung bagaimana cara memulai dari awal hingga akhir membuat akun email baru. Dan itu memang dialami oleh semua pemula, tak terkecuali saya pun dulunya juga begitu.

Untuk itulah melalui tulisan berikut ini saya ingin berbagai tips bagaimana cara membuat sebuah akun email baru dari awal sampai ke akhir. Apabila dalam penjelasan yang saya berikan terdapat hal yang kurang dimengerti jangan sungkan-sungkan untuk meninggalkan komentar melalui form yang tersedia.

Penggunaan alamat email memang sangat banyak sekali, diantaranya untuk berkirim surat ataupun file secara online, untuk mendaftar akun facebook dan twitter. Bahkan seringkali apabila kita ingin bertransaksi online atau mendaftar menjadi member sebuah situs selalu ditanyakan alamat email. Untuk itulah wajib di era sekarang ini bagi semua orang untuk memiliki akun email.

Silahkan ikuti panduan cara membuat email langkah demi langkah berikut ini :

1. Masuklah ke alamat mail.yahoo.com

2. Pilih tombol “create new account”

cara daftar email

Sign up

3. Anda akan dibawa ke halaman form pendaftaran, isilah data-data yang diminta kemudian masukkan kode captcha dan tekan tombol “create my account”

cara mendaftar email

Form isian daftar email

Penjelasan angka-angka :
1). Isilah dengan nama depan dan nama belakang anda
2). Pilihlah gender anda apakah laki atau perempuan
3). Isilah tanggal, bulan dan tahun lahir anda
4). Pilihlah kewarganegaraan anda
5). Pilihlah alamat email yang anda inginkan, anda bisa menggunakan yahoo.com, yahoo.co.id, rocketmail.com, atau ymail.com
6). Pilih password yang akan anda gunakan untuk login selanjutnya, gunakan kombinasi huruf dan angka atau bila ingin lebih aman lagi pergunakan karakter khusus misalnya $,#,* dan #
7). Ulangi kata sandi yang anda pilih seperti pada poin 6. Tujuannya hanya untuk mengonfirmasi bahwa anda tidak salah memasukkan kata sandi
8). Ini adalah alamat email alternatif, anda bisa mengisinya atau tidak diisi juga tidak apa-apa
9). Pilih pertanyaan rahasia yang akan anda gunakan untuk mereset password apabila suatu hari lupa.
10). Ini adalah jawaban dari pertanyaan rahasia pada poin 9. Sebaiknya pergunakan kata-kata yang hanya anda sendiri yang tahu agar akun email anda tidak mudah dibobol oleh orang lain
11). Pertanyaan rahasia seperti halnya pada poin 9
12). jawaban dari pertanyaan rahasia seperti halnya pada poin 10
13). Isilah sesuai dengan kode captcha yang ditampilkan. Misalnya pada contoh adalah 4ssHcy. Bila kode captchanya sulit dibaca, anda bisa request kode baru dengan menekan tombol “try a new code”

4. Jika data-data yang anda masukkan sudah benar maka setelah menekan tombol “create my account” anda akan dibawa ke halaman konfirmasi seperti pada gambar berikut. Tekan saja tombol “lanjutkan”

cara mengonfirmasi email

Konfirmasi email

5. Email sudah jadi dan anda sudah bisa menggunakannya untuk berbagai keperluan.

Cara membuat email

Mengecek email

Bagi yang masih kurang jelas dengan panduan yang saya berikan di atas, silahkan menonton video cara membuat email yahoo berikut :

Buat yang koneksinya lemot, biarkan dulu videonya mengalami buffering sambil membaca artikel lain di blog ini. Beberapa menit kemudian baru tonton videonya, biar lancar tidak ngelag. :D

Dengan mengikuti petunjuk berdasarkan gambar maupun video di atas, saya yakin anda akan mampu menerapkan cara membuat email dengan mudah. Dan jika sebelumnya anda berpikir membuat email itu sulit maka akan segera berpikiran bahwa ternyata hal tersebut adalah sangat mudah. :D

http://kemuh.com/tutorial/cara-membuat-email-yahoo/

 

 

Nama-nama Alat Musik Daerah

by tagged | Leave a comment

Berikut adalah Nama-nama Alat Musik Daerah di Indonesia:

1 Alosu : Berupa kotak anyaman daun kelapa, didalamnya berisi biji-biji – Dari Sulawesi Selatan.
2 Anak Becing : Berupa dua batang logam seperti pedayung – dari Sulawesi Selatan.
3 Angklung : Terbuat dari bambu – Dari Jawa Barat
4 Aramba : Bentuknya seperti bende – Dari Pulau Nias.
5 Arumba : Terbuat dari Bambu – Dari daerah Sunda.
6 Atowo : Sejenis genderang – Dari Papua.
7 Babun : Sejenis kendang – Dari Kalimantan Selatan.
8 Basa-basi : Sejenis terompet dari bambu yang di pasang rangkap – Dari Sulawesi Selatan
9 Calung : Terbuat dari bambu – Dari daerah Sunda
10 Cungklik : Sejenis kulintang dari kayu -Dari Pulau Lombok
11 Dog-dog : Sejenis genderang – Dari Jawa Barat.
12 Doli-doli : Berupa empat bilah kayu lunak – Dari Pulau Nias
13 Druri Dana : Berupa bambu yang dikerat seperti garpu penala – Dari Pulau Nias.
14 Faritia : Aramba kecil – Dari Pulau Nias
15 Floit : Seruling bamhu- Dari daerah Maluku
16 Foi Mere : Sejenis seruling-Dari Pulau Flores
17 Gamelan Bali : Seperangkat alat musik – Dari daerah Bali
18 Gamelan Jawa : Seperangkat alat musik -Dari Jawa tengah
19 Gamelan Sunda : Seperangkat alat musik – Dari Daerah Sunda
20 Garantung : Berupa biulah-bilah kayu yang di gantung – Dari Tapanuli.
21 Gerdek : Seruling tempurung – Dari daerah Kalimantan.
22 Gonrang : Sejenis kendang – Dari daerah Simalungun.
23 Hapetan : Sejenis kacapi – Dari Tapanuli
24 Kecapi : Gitar kecil dengan dua dawai – terdapat di seluruh Nusantara
25 Keloko : Terompet kulit kerang – Dari Doro Fores Timur
26 Kere-kere Galang : Sejeris rebab – Dari daerah Goa.
27 Keso-keso : Sejenis seruling – Dari daerah Goa.
28 Kinu : Sejenis seruling – Dari Pulau Roti.
29 Keledi : Alat musik tiup – Dari Kalimantan.
30 Kolintang : Berupa bilah-bilah kayu yang disusun di atas kotak kayu – Dari Minahasa.
31 Lembang : Sending panjang – Dari daerah Toraja.
32 Nafiri : Alat musik tiup – Dari Maluku.
33 Popondi : Alat musik petik – Dari Toraja, Sulawesi Selatan.
34 Rehab : Alat musik gesek – Dari Jawa Barat.
35 Sampek : Sejenis gitar – Dari Dayak Kalimantan.
36 Sasando : Alat musik petik -Dari Nusa Tenggara Timor.
37 Seluang : Seruling bambu – Dari Minangkabau
38 Serunai : Alat musik tiup – Dari Sumatra.
39 Siter/Celempung : Alat music petik – Dari Jateng, dan Jabar
40 Talindo : Alat musik petik – DariSulawesi.
41 Talempong Pacik : Alat musik pukul seperti gong kecil – Dari Sumbar,
42 Tifa : Genderang kecil – Dari Maluku atau Papua
43 Totobuang : Sejenis talempong – Dari Maluku.

Sumber: budayaku-budaya.blogspot.com

RESEP EMPEK-EMPEK ( PALEMBANG )

by tagged | Leave a comment
RESEP EMPEK-EMPEK ( PALEMBANG )

EMPEK-EMPEK ( PALEMBANG ) – indonesianamazing.blogspot.com

BAHAN :
EMPEK EMPEK :
* I kg daging ikan gabus/tenggiri, dihaluskan
* 1/2 kg tepung sagu
* 300 ml air
* 1 sdt garam
KUAH EMPEK-EMPEK :
* 1 liter air
* 1 kg gula merah
* 150 gr bawang putih, dihaluskan
* 200 gr cabai rawit
* 2 sdm cuka/sesuai selera
* 1 sdt garam
CARA MEMBUAT EMPEK-EMPEK ( PALEMBANG ) :
1. Empek-empek : Campurkan air, garam, dan daging ikan yang sudah dilialuskan, aduk, masukkan tepung sagu sedikit demi sedikit sampai cukup kerasnya dan dapat diuleni, sampai tidak melekat. Bentuk adonan sesuai selera, ada bentuk kelasan, lenjer, diisi telur, dan lain-lain.
Setelah empek-empek terbentuk, lalu direbus di dalam air hingga mengapung atau matang, angkat dan tiriskan. Empek-empek bisa dimakan basah atau digoreng dulu, sesuai selera.
2. Kuah Cuka : Didihkan air dan gula merah, masukkan bawang putih cabai rawit yang telah dihaluskan, tambahkan garam dan cuka, masak hingga mendidih, lalu saring, sisihkan.
3. Hidangkan empek-empek dengan kuah cuka dan irisan timun sesuai selera.

Untuk = 20 buah ( 1 buah = 110 kalori)