8 Cara jitu cepat Move On dari Mantan

8 Cara jitu cepat Move On dari Mantan

8 Cara jitu cepat Move On dari Mantan

Setelah mengakhiri hubungan,
move on adalah hal yang tentu
diinginkan oleh semua orang.
Namun faktanya, move on lebih
mudah dikatakan daripada
dilakukan. Banyak orang yang tak
berhasil move on dan masih
terjebak di masa lalunya.
Namun jangan khawatir, beberapa
cara ini akan membantu untuk
move on dan melupakan sang
mantan, seperti dilansir oleh[
Shine! (24/07)./quote]

1. Tetap sibuk
Bisa jadi Anda memiliki terlalu
banyak waktu luang yang
digunakan untuk melamun, atau
mengenang hal-hal yang dijalani
bersama sang mantan. Untuk
menghindari hal ini sebaiknya
Anda membuat diri tetap sibuk
hingga tak punya waktu untuk
memikirkannya. Lakukan hal-hal
yang Anda sukai, mulai dari hobi,
pekerjaan, melakukan kegiatan
sukarela, atau mengambil khusus
yang sudah lama Anda inginkan.
2. Jangan Kepo
Masih sering melihat profil
jejaring sosialnya, atau status-
statusnya di timeline? Hentikan
hal ini. Bagaimana Anda bisa move
on kalau terus-terusan melihat
apa yang dia lakukan dan dia
berada di mana. Jauhkan diri anda
dari mereka, baik di jejaring sosial
maupun di dunia nyata.
3. Waktu berkabung
Susah move on bisa dialami jika
Anda tak melampiaskan perasaan
dengan benar. Kemungkinan Anda
masih menyimpan dendam,
kemarahan, perasaan sedih, atau
hal lainnya sehingga tak bisa move
on. Beri diri Anda waktu untuk
marah, menangis, menyesal, atau
hal lainnya. Namun pastikan
setelah air mata Anda berhenti,
Anda harus maju dan tak lagi
menengok ke belakang.
4. Kelilingi diri dengan orang
terdekat
Kapan terakhir kali Anda memeluk
orang tua, atau melakukan curhat
panjang serta bersenang-senang
dengan sahabat? Lihat, meski Anda
sedang sendiri, masih ada orang-
orang yang sangat menyayangi
Anda. Jangan lupakan itu. Di
masa-masa seperti ini sangat baik
untuk berada di sekeliling mereka.
Orang-orang yang Anda sayangi
akan mengingatkan kembali bahwa
Anda berharga dan mereka bisa
melihat sisi positif dari diri Anda.
5. Matikan televisi dan radio
Melihat film-film romantis atau
mendengarkan lagu romantis bisa
membuat perasaan Anda semakin
kacau dan terus teringat pada
mantan. Jika ingin menonton atau
mendengarkan sesuatu, pilihlah
lagu yang membuat Anda kembali
bersemangat atau film lucu yang
bisa membuat Anda tertawa dan
terinspirasi.
6. Hindari tempat-tempat
kenangan
Ya, setiap pasangan pasti memiliki
tempat-tempat kenangan mereka.
Untuk bisa move on, sebaiknya
hindari tempat-tempat itu untuk
sementara. Ini perlu selama
proses penyembuhan diri Anda
agar Anda bisa cepat move on.
7. Belajar
Jangan biarkan patah hati Anda sia-
sia. Pengalaman semacam ini bisa
membuat Anda merenung dan
belajar untuk menjadi orang yang
lebih baik. pengalaman ini juga
memberi pelajaran mengenai
bagaimana menjalin hubungan
dengan orang yang lebih baik
tentunya.
8. Ini akan berakhir

Dan tips terakhir adalah mengingat
bahwa patah hati ini tak akan
bertahan seumur hidup Anda. Ini
akan berakhir, dan Anda pasti akan
mengalami hal yang lebih baik
setelah ini. Ingat juga bahwa
Anda layak mendapatkan yang
lebih baik. Ini akan memberikan
harapan dan semangat untuk
move on dan mulai menyongsong
masa depan.
Itulah beberapa cara yang bisa
Anda lakukan agar cepat move on
dari hubungan yang kandas dan
bisa melupakan sang mantan.
Ingat bahwa Anda masih memiliki
masa depan yang cerah dan
panjang. Hubungan yang kandas
bisa menjadi pengalaman yang
berarti bagi Anda.

Mempelajari VB.NET

Mempelajari VB.NET

Query Autonumber VB.Net

Autonumber merupakan sebuah program yang dibuat untuk membantu user menyusun dengan rapih suatu data menggunakan sistem per nomor.


Untuk kodingannya bisa di coppast di bawah ini, nanti saya akan memberi penjelasan dari setiap kodingannya.

    Public Function autonumber() As String
        Dim cmmd As OleDbCommand
        Dim dreader As OleDbDataReader
        Dim strTemp As String
        Dim nilaiauto As String
        Dim sql As String

        sql = "SELECT * FROM Pelanggan ORDER BY IdPelanggan DESC"
        cmmd = New OleDbCommand(sql, cnn)
        dreader = cmmd.ExecuteReader
        If dreader.HasRows = True Then
            dreader.Read()
            strTemp = Mid(dreader.Item("IdPelanggan"), 3, 10)
            nilaiauto = Val(strTemp) + 1
            autonumber = "IP" & Mid("0000000000", 1, 10 - nilaiauto.Length) & nilaiauto
        Else
            autonumber = "IP0000000001"
        End If
        dreader.Dispose()
        Return autonumber
    End Function

Penjelasan:

    Public Function autonumber() As String

    End Function
Penjelasan: supaya kita dapat mengakses function autonumber dimana saja dan kapan saja, dan kita dapat mengembalikan sebuah nilai (return value)

Dim cmmd As OleDbCommand
      Dim dreader As OleDbDataReader
      Dim strTemp As String
      Dim nilaiauto As String
      Dim sql As String
Penjelasan: kita sedang mendeklarasikan beberapa variable, seperti variable cmmd untuk melakukan eksekusi atau perintah. Variabel dreader untuk membaca data dari sebuah database yang terkoneksi ke dalam program. Variabel strTemp, nilaiauto, dan sql untuk mengolah data bertipe ‘teks’.

      sql = "SELECT * FROM Pelanggan ORDER BY IdPelanggan DESC"
Penjelasan: fungsi variabel sql untuk menampung query sql dimana kita melihat/mencari/memanggil/mengambil data di tabel Pelanggan berdasarkan IdPelanggan secara berurutan dari yang terbesar hingga yang terkecil (Z-A, 9-0).

     cmmd = New OleDbCommand(sql, cnn)
      dreader = cmmd.ExecuteReader
Penjelasan: fungsi cmmd sebagai instantiated object dari constructor class oledbCommand dengan parameter (Sintax SQL yang aktif, Connection yang aktif). Dan execute SQL sintak dengan perintah ExecuteReader (hanya menampung data dari hasil SQL ).

     If dreader.HasRows = True Then
            dreader.Read()
            strTemp = Mid(dreader.Item("IdPelanggan"), 3, 10)
            nilaiauto = Val(strTemp) + 1
            autonumber = "IP" & Mid("0000000000", 1, 10 - nilaiauto.Length) & nilaiauto
        Else
            autonumber = "IP0000000001"
        End If
Penjelasan: Kalau data dalam dReader hasil ekseskusi ada datanya, maka lakukan perintah dibawah. Membaca dreader. assignment variable strTemp dengan field IdPelanggan, mulai kolom ke 3 sebanyak 10 karakter. convert strTemp menjadi bentuk angka lalu hasilnya tambahkan 1. Kemudian assign hasilnya ke variable nilaiAuto. Nilaiauto.Length adalah berapa digit yang dimiliki oleh nilai auto. Misal angka 8, berarti lengthnya 1. Angka 10 berarti length nya 2, angka 102 lengthtnya 3. Mid(“000000000”,1,10, nilaiauto) artinya ambil jumlaha digit dari kolom ke 1, sampai karakter ke 10 dikurangi jumlah digit dari nilaiauto.length)

Hasilnya didepan ditampahkan “IP” dan dibelakangnya ditambahkan NilaiAutonya. (misalnya 1, 6, atau 11, atau 120).
kalau data dreader masih kosong maka, assign autonumber menjadi nilai dibawah (IP0000000001)..

     dreader.Dispose()
      Return autonumber
Penjelasan: fungsi dari variabel dreader akan di tutup, dan mengembalikan data ke query dari autonumber. Sepertinya ini mirip dengan looping.

Ya.. Mungkin sampai disini dulu, mohon maaf jika ada hal yang kurang jelas atau salah karena saya juga masih belajar, saya hanya tidak ingin ilmu yang saya miliki sia-sia begitu saja tanpa di amalkan. Kritik dan Saran anda sangat berguna bagi saya. Terima Kasih!
Ouh iya, satu lagi anda bisa memvariasikan query atau code diatas sesuka anda, jika Logika anda sudah jalan jangan hanya terpaku pada query yang saya berikan. Jangan sampai Sarjana Komputer (S.Kom) menjadi Sarjana Copy Paste (S.cp) hehehe :P