Popular Post

Popular Posts

Recent post

Archive for Juni 2016





Sebelum kita membuat tampilan di atas adapun langka - langka yang sangat panjang di bawah ini, semoga anda sabar untuk membuat program ini.......... langsung saja saya mulai bagaimana cara membuantnya :

1. di saind terlebih dahulu seperti gambar di atas
2. dable klik di button masukkan data, lalu masukkan scrib di bawah ini
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        N = N + 1
        Data(N) = CDbl(TextBox2.Text)
        Banyak = CDbl(TextBox1.Text)
        If N <= Banyak Then
            Listbox.Items.Add("Data Angka Ke-" & "" & N & " =" & " " & TextBox2.Text)
        ElseIf N > Banyak Then
            TextBox2.Text = ""
            N = Banyak
            MsgBox("Data Yang Dimasukkan Sudah Melewati Batas!!")
        End If
        TextBox2.Text = ""
        TextBox2.Focus()
    End Sub

3. dable klik di buttonAscending masukkan scrib ini

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim i, j As Integer
        For i = 1 To N
            For j = i + 1 To N
                If Data(i) < Data(j) Then
                    temp = Data(i)
                    Data(i) = Data(j)
                    Data(j) = temp
                End If
            Next j
        Next i
        Listbox.Items.Add("===========================================")
        Listbox.Items.Add("Hasil Urutan Data Dari Terbesar Ke Terkecil")
        For i = 1 To N
            Listbox.Items.Add(Data(i))
        Next i
        Listbox.Items.Add("===========================================")
    End Sub

4. Duble klik di buttonDescending dan masukkan scrib di bawah ini

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim i, j As Integer
        For i = 1 To N
            For j = i + 1 To N
                If Data(i) > Data(j) Then
                    temp = Data(i)
                    Data(i) = Data(j)
                    Data(j) = temp
                End If
            Next j
        Next i
        Listbox.Items.Add("===========================================")
        Listbox.Items.Add("Hasil Urutan Data Dari Terkecil Ke Terbesar")
        For i = 1 To N
            Listbox.Items.Add(Data(i))
        Next i
        Listbox.Items.Add("===========================================")
    End Sub

5. untuk mencari nilai max maka harus masukkan scrib di bawah ini

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim i As Integer
        Max = Data(1)
        For i = 1 To N
            If Data(i) > Max Then Max = Data(i)
        Next i
        Listbox.Items.Add("===========================================")
        Listbox.Items.Add("Nilai Yang Terbesar Adalah = " & Max)
        Listbox.Items.Add("===========================================")
    End Sub

6. sedangkan untuk nilai min

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim i As Integer
        Min = Data(1)
        For i = 1 To N
            If Data(i) < Min Then Min = Data(i)
        Next i
        Listbox.Items.Add("===========================================")
        Listbox.Items.Add("Nilai Yang Terkecil Adalah = " & Min)
        Listbox.Items.Add("===========================================")
    End Sub

7. klu yang ini untuk mencari letak X sebagi berikut

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim i As Integer
        Dim x As Integer
        x = CDbl(TextBox3.Text)
        i = 1
        While (i < N) And (Data(i) <> x)
            i = i + 1
        End While
        While (i > N) And (Data(i) <> x)
            i = i + 1
        End While
        If Data(i) = x Then
            posisi = i
            Listbox.Items.Add("======================================")
            Listbox.Items.Add("Terletak Pada Posisi Data Angka Ke-" & posisi)
            Listbox.Items.Add("======================================")
        Else
            posisi = 0
            Listbox.Items.Add("======================================")
            Listbox.Items.Add("Ups..Maaf, Data Tidak Ditemukan!!")
            Listbox.Items.Add("======================================")
        End If
    End Sub
End Class

8. jika sudah selesai selanjutnya run program tersebut





mungkin hanya itu yang dapat saya jelaskan jika ada kekurangan maklumi saja karena saya masih newbie ...... heheheh see you bye... :-D

 

   

Di Posting ini akan dibahas tentang cara hard reset Samsung Galaxy Pocket GT S5300, oke langsung saja ikutin langkah berikut untuk mereset gadget anda, perlu diketahui juga cara di bawah hanya untuk gadget Samsung Galaxy Pocket GT S5300. Caranya simple atau mudah yaitu sebagai berikut :

Langkah 1:
Handphone harus dalam keadaan mati, tekan tombol Volume up (+), tombol Home (berada di bawah tengah) dan Tombol Power secara bersamaan.
Langkah 2:
Tetap tekan ke 3 tombol tersebut secara bersamaan sampai muncul Logo Samsung, baru lepaskan. Kalau belum berhasil bisa diulang kembali ke langkah 1.
Langkah 3:
Pilih  menu Rocovery Mode, untuk masuk dalam mode perbaikan  


Langkah 4:
Pilih "wipe data / factory reset" Cara memilih menu ini dengan menekan tombol volume up (+) dan Volume down (-), lalu Tekan tombol "Home" untuk konfirmasi. Perlu diketahui dalam mode ini layar sentuh tidak akan berfungsi.
 Langkah 5:

Pilih "Yes - delete all user data" Seperti di tunjukan gambar di bawah, tunggu beberapa saat system sedang mereset. Layar akan menuju menu utama apabila sudah selesai.
Langkah 6:
Pilih "reboot system now" , dalam beberapa menit Handphone akan Booting ulang secara normal  



Demikian cara hard reset Samsung galaxy Pocket GT S5300, Semoga cara di atas dapat membantu masalah anda dengan Cara Hard Reset Samsung Galaxy Pocket GT S5300.

Cara di atas juga bisa berguna untuk wipe data atau mau mengosongkan data sekaligus setingan ke setting pabrikan lagi. Semoga bermanfaat...... :)

 

- Copyright © Computers Chip - Devil Survivor 2 - Powered by Blogger - Designed by Johanes Djogan -