cara mengembalikan data yang hilang dari flashdisk

1. Masukkan Flashdisk yang bermasalah.

2. Hapus shortcut yang ada (flashdisk akan tampak kosong)

3. Buka "Start" Windows, ketik "CMD" (tanpa petik) pada kotak teks "Search programs and files" lalu enter, atau bisa melalui : "Start", "All Programs", "Accessories", pilih "Command Prompt".

Pilih "Start" dan ketikkan CMD pada kotak teks

 atau

Pilih "Start", "All Programs", "Accessories", "Command Prompt"

4. Selanjutnya akan muncul jendela seperti gambar dibawah ini.

Tampilan "Command Prompt"

5. Lalu masuk pada direktory tempat flashdisk tersebut berada dengan memasukkan huruf drive-nya, sebagai contoh misal drive flashdisk-nya di G, maka ketikkan "G:" (tanpa petik) lalu enter. Lihat contoh pada gambar.

Ketikkan huruf drive tempat flashdisk berada

6. Selanjutnya ketikkan "attrib -s -h *.* /s /d" (tanpa petik serta perhatikan spasinya) lalu enter.

Ketikkan "attrib -s -h *.* /s /d" (tanpa petik) lalu enter.

7. Setelah semua langkah diatas dilakukan, sekarang saatnya melihat hasilnya. Buka "Windows Explorer" lalu lihat isi dari flashdisk tadi, file dan folder telah muncul kembali seperti sedia kala.

Di balik senyuman seorang perempuan,
mereka menyimpan kesedihan yang amat dalam...

apa lagi Ketika disakitin dengan PRIA....
didepannya ajah dia tertawa-tawa, tersenyum..
tapi dibalik semuanya dia menyimpan luka yang sangat dalam





rien

apa yang kamu fikir kan belum tentu itu benar...
jangan pernah kamu memikirkan yang tidak-tidak...
apa lagi yang tidak kamu ketahui sendiri...

so...
jangan suka berfikir buruk ke orang lain
sebelum kamuu tau apa yang sebenarnya terjadi..

:)

Quiz no 1 Latihan Listview Perhitungan Penjualan Barang

Public Class Form1

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

        If Asc(e.KeyChar) = 13 Then
            THarga.Text = Val(Harga.Text) * Val(jumlahbeli.Text)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()

        kbarang.Items.Add("TS001")
        kbarang.Items.Add("TS002")
        kbarang.Items.Add("VG001")
        kbarang.Items.Add("VG002")
    End Sub

    Private Sub kbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kbarang.SelectedIndexChanged
        Dim X As String
        Dim y As String

        X = Microsoft.VisualBasic.Left(kbarang.Text, 2)
        y = Microsoft.VisualBasic.Right(kbarang.Text, 3)
        Select Case X
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG" : Merk.Text = "V-GEN"
        End Select
        Select Case y
            Case "001" : Nbarang.Text = "Flashdisk 4GB"
            Case "002" : Nbarang.Text = "Flashdisk 2GB"
        End Select

        If X = "TS" And y = "001" Then
            Harga.Text = 105000
        ElseIf X = "TS" And y = "002" Then
            Harga.Text = 75000
        ElseIf X = "VG" And y = "001" Then
            Harga.Text = 50000
        ElseIf X = "VG" And y = "002" Then
            Harga.Text = 80000

        End If

    End Sub


    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        nomor.Text = ""
        kbarang.Text = ""
        Nbarang.Text = ""
        Merk.Text = ""
        jumlahbeli.Text = ""
        Harga.Text = ""
    End Sub

    Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click
        lv.Items.Clear()
    End Sub

    Private Sub nomor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor.TextChanged

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

    Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistview.Click
        isitabel()
        nomor.Text = ""
        kbarang.Text = ""
        Nbarang.Text = ""
        Merk.Text = ""
        jumlahbeli.Text = ""
        Harga.Text = ""

    End Sub

    Sub BuatTabel()
        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nomor.Text
        lst.SubItems.Add(kbarang.Text)
        lst.SubItems.Add(Nbarang.Text)
        lst.SubItems.Add(Merk.Text)
        lst.SubItems.Add(jumlahbeli.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(THarga.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub THarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles THarga.TextChanged
        THarga.Text = (Harga.Text) * (jumlahbeli.Text)
    End Sub
End Class

Tugas Pemograman Visual

 Tugas Belajar Bahasa Pemograman

Ini adalah hasil output program nya

dan ini adalah coding program nya :

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12111001")
        NPM.Items.Add("12111002")
        NPM.Items.Add("13110737")

        KodeDosen.Items.Add("300")
        KodeDosen.Items.Add("301")
        KodeDosen.Items.Add("302")

        KodeMatakuliah.Items.Add("A11")
        KodeMatakuliah.Items.Add("A12")
        KodeMatakuliah.Items.Add("A13")

        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
            NilaiTugas.Items.Add(i)
            NilaiUTS.Items.Add(i)
            NilaiUAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12111001"
                Nama.Text = "Bayu Walanda"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik informatika"
            Case "12111002"
                Nama.Text = "Candro S"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem informasi"
            Case "13110737"
                Nama.Text = "Sherin Dhini"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case Else
                Nama.Text = "_"
        End Select
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "300"
                NamaDosen.Text = "Abdul sani sembiring M.kom"
            Case "301"
                NamaDosen.Text = "Sinar sinurat ST, Mkom"
            Case "302"
                NamaDosen.Text = "Mesran S.kom, M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If

        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If

        If Jenjang.Text = "1" Then
            Jenjang.Text = "Diploma 1"
        ElseIf Jenjang.Text = "3" Then
            Jenjang.Text = "Diploma 3"
        ElseIf Jenjang.Text = "4" Then
            Jenjang.Text = "Strata 1"
        End If

        If Jurusan.Text = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf Jurusan.Text = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf Jurusan.Text = "03" Then
            Jurusan.Text = "Teknik komputer"
        ElseIf Jurusan.Text = "04" Then
            Jurusan.Text = "Akuntansi"
        End If
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "A11"
                NamaMatakuliah.Text = "Sistem operasi"
            Case "A12"
                NamaMatakuliah.Text = "Struktur Data"
            Case "A13"
                NamaMatakuliah.Text = "Programan visual"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub
End Class

Sumber : Pak Mesran S.Kom, M.Kom
Belajar Bahasa Pemograman

cara mengembalikan data yang hilang karena virus

Ada beberapa cara yang bisa anda gunakan jika ingin Mengembalikan data flasdisk anda yang hilang, anda bisa gunakan bantuan smadav  atau dengan menggunakan cara manual. Nah, berikut ini langkah-langkah mudah mengembalikan data flasdisk yang hilang anda dengan cara manual (untuk semua OS, Yang penting inti langkah-langkahnya sama).

1. Jika anda menggunakan windows 7, coba anda cari menu Organize yang terletak pada sudut kiri atas windows explorer anda.

2. Klik, dan pilih menu Folder and Search Option.

3. Akan muncul tampilan Folder option, kemudian anda klik Tab View, hilang kan centang pada 3 pilihan

- Hide empty drives in the computer folder

- Hide Extensions for known file types

- Hide protected operating system files (recommended) untuk pilihan ini akan ada warning dari windows. tekan yes saja. Setelah itu pilih Show hidden files and Folders

4. Masuk ke Flasdisk anda, coba cek data milik anda apakah ada disana. Biasanya kalau data yang hilang karena virus, maka file atau folder anda akan terlihat buram-buram.

5. Langkah kelima ini merupakan langkah penting untuk mengembalikan data pada flasdisk anda.

- Tekan Win + R, untuk memunculkan kotak dialog run

- Ketik CMD pada kotak dialog run, kemudian enter untuk menampilkan comand prompt

- Sebelumnya, anda cari lokasi flasdisk anda Apakah drive letter nya di I ? di H ? atau di G ? nah, jika misalnya posisi flasdisk anda pada drive letter H, maka ketikan "H:" (tanpa tanda kutip) lalu enter.

- Kemudian masukan attribut "attrib -r -a -s -h *.* /s /d /l " (tanpa tanda kutip) lalu kemudian enter.

6. Jika file yang hilang itu banyak, maka akan membutuhkan loading beberapa menit. Jika sudah selesai dan file anda sudah kembali silahkan tutup comand prompt, kemudian kembalikan settingan pada langkah 3 seperti semula. Jika tidak anda kembalikan, maka akan banyak sekali file system yang aneh, khawatirnya nanti tanpa sengaja anda kemudian mendelet file tersebut.

Aplikasi BBM untuk android di samsung galaxy young

Aplikasi BBM for Android yang sempat gagal hadir di Google Play Store pada bulan lalu akhirnya menampakkan diri di toko aplikasi milik Google ini. Yupz, BlackBerry telah secara resmi merelease kembali aplikasi BBM untuk Android dan iPhone kemarin tanggal 22 Oktober 2013 dan untuk pengguna Android dan iPhone dapat mengunduh dan mulai menggunakannya melalui Google Play dan Apple App Store.

Seperti berita sebelumnya khususnya untuk aplikasi BBM di Android ini hanya dapat digunakan pada ponsel android dengan versi 4.0 ke atas (ICS dan Jelly Bean). Tetapi ternyata walaupun sudah secara resmi hadir di Google Play namun aplikasi BBM untuk Android ini tidak bisa dengan mudah kita download dan instal di ponsel android ICS maupun Jelly Bean kita.

Saya mengalami sendiri betapa susahnya kemarin ketika mau mencoba download aplikasi BBM untuk android via Google Play, padahal ponsel android yang saya pakai sudah menggunakan OS Android Jelly Bean. Download via bbm.com pun hasilnya sama saja, “This app is incompatible with all of your device”.

Instal bbm for android di Samsung Galaxy Young GT S6310

Setelah nanya kesana-kemari akhirnya ketemu juga dengan link download aplikasi BBM untuk Android buat yang ponselnya terdeteksi “Incompatible” padahal sudah jelas-jelas pakai ICS/ Jelly Bean. Dan ternyata bukan saya saja yang mengalami masalah ini, mungkin anda juga salah satunya.

  

Link download aplikasi BBM untuk android ini saya dapatkan dari situs androidmania.net, file .apk tersebut saya download dan install di ponsel Samsung Galaxy Y GT-S6310 tanpa ada masalah dan akhirnya saya langsung bisa mencoba menggunakan aplikasinya tanpa harus menunggu lama.

Kalau anda juga mengalami kesulitan seperti saya ketika ingin download dan menginstal aplikasi BBM di Android ini maka anda bisa mengunjungi androidmania.net di link berikut untuk mengunduh filenya lalu diinstal di ponsel android ICS atau Jelly Bean anda, ukuran file instalasi ini kurang lebih 12, 7 MB. Cara instalnya pun juga mudah, buka file instalasi hasil unduhan yang berekstensi .apk tadi lalu klik instal dan ikuti petunjuk yang ada. Kalau sudah memiliki PIN kita dapat memilih “Sign In” untuk memulai menggunakan aplikasi BBM di android, tapi jika belum punya silahkan pilih “Create a BlackBerry ID”, masukkan alamat email yang valid dan ikuti petunjuk selanjutnya hingga selesai.

Untuk diketahui setelah saya menginstal file .apk tadi di ponsel Samsung Galaxy Y GT-S6310 aplikasi BBM untuk android ini bisa langsung saya gunakan dan tidak ada masalah sama sekali ketika saya coba untuk chatting dengan beberapa teman.