KODING(CODE/KODE) MEMBUAT PROGRAM BLOK SITUS VB6.0

UNTUK TEXTAREA
++++++++++++++++++++++++++++++++++++++++
Private Sub Text1_GotFocus ()     
Text1.SelStart = 0           
Text1.SelLength = Len(Text1.text)
End Sub                 
++++++++++++++++++++++++++++++++++++++++


UNTUK BUTTON TAMBAH
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Command1_Click ()                   
Dim i As Integer                       
i = FreeFile                           
Open ("C:\Windows\System32\Drivers\etc\hosts") For Append As #i   
Print #i, "127.0.0.1 "; Text1.text               
Text1 = ""                           
Text.Setfocus                           
Close #i                           
End Sub                               
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


UNTUK BUTTON SEGARKAN
+++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Command_Click ()           
shell ("ipconfig /flushdns"), vbNormalFocus   
End Sub                       
+++++++++++++++++++++++++++++++++++++++++++++++++


UNTUK BUTTON LIHAT
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Command3_Click ()                       
shell ("notepad c:\windows\system32\drivers\etc\hosts"), vbNormalFocus   
End Sub                                   
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


UNTUK BUTTON BERSIHKAN
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Command4_Click ()                     
Dim i As Integer                          
i =  FreeFile                              
Open ("c:\windows\system32\drivers\etc\hosts") For Output As #i       
Print #i, Text1.text                           
Close #i                               
End Sub                               
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


UNTUK BUTTON BANTUAN
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Command5_Click ()                       
Shell ("explorer c:\windows\system32\drivers\etc"), vbNormalFocus  
End Sub                                   
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Teenage Bulyying | Bully remaja

Bullying Remaja

    Bullying termasuk perilaku yang fokus pada membuat orang lain merasa tidak mampu, atau fokus pada meremehkan orang lain. Bullying termasuk pelecehan, kekerasan fisik, ucapan berulang kali merendahkan dan upaya untuk mengucilkan orang lain. Bullying aktif, dan dilakukan dengan maksud membawa orang lain ke bawah. Adalah penting untuk menyadari bahwa ada berbagai jenis bullying:
Bullying fisik: Ini adalah bentuk yang paling jelas dari bullying. Dalam jenis bullying, penghasut mencoba untuk mendominasi secara fisik remaja lain. Hal ini biasanya termasuk menendang, memukul dan kegiatan berbahaya secara fisik lainnya, dirancang untuk menanamkan rasa takut dalam satu diganggu, dan mungkin memaksa dia untuk melakukan sesuatu.
    Bullying Verbal: Ketika seseorang secara lisan pengganggu lain, ia menggunakan bahasa merendahkan untuk meruntuhkan citra diri orang lain. Pengganggu yang menggunakan teknik verbal yang berlebihan menggoda orang lain, mengatakan meremehkan hal-hal dan menggunakan banyak sarkasme dengan maksud untuk menyakiti perasaan orang lain atau mempermalukan remaja lain di depan orang lain.
    Emosional: Ini bahkan lebih halus dari intimidasi verbal. Intimidasi remaja yang mencakup metode emosional bertujuan mendapatkan orang lain untuk merasa terisolasi, sendirian dan mungkin bahkan depresi prompt. Jenis bullying dirancang untuk membuat orang lain untuk mengucilkan orang yang sedang diintimidasi.
    Cyber ​​Bullying: intimidasi Elektronik menjadi masalah yang sangat nyata bagi remaja. Jenis bullying menggunakan pesan instan, pesan teks ponsel dan jaringan sosial online untuk mempermalukan dan mempermalukan orang lain. Hal ini dapat sangat menghancurkan orang-orang yang diganggu, karena mereka bahkan tidak dapat menemukan tempat yang aman di dunia maya.
Ada sejumlah efek yang datang dengan intimidasi remaja. Pertama-tama, ada masalah fisik yang jelas dan cedera yang dapat hasil dari intimidasi fisik. Namun, emosional, verbal dan cyber bullying sangat dapat mempengaruhi remaja juga. Kegiatan ini dapat menyebabkan depresi (dan bahkan bunuh diri), penggunaan narkoba dan pembangunan sosial terhambat. Ini adalah masalah yang dapat mempengaruhi seseorang juga menjadi dewasa.
Masalah lain dapat bahwa pembalasan. Dalam beberapa kasus, remaja diganggu memiliki fantasi kekerasan menyerang penyiksa mereka. Ada kasus di mana remaja ini menjadi kekerasan, menyalakan teman sekelas mereka untuk membalas dendam. Ini bisa menjadi penyebab patah hati dan kesulitan.

 

 Sumber http://www.bullyingstatistic.org/content/teenage-bullying.html

Anieq Nisrina Shofwan