Postingan

-
Gambar
 CODING GAME ROKET MENGGUNAKAN  VISUSAL BASIC 6 CODE : Public XHOR As Integer Public XVER As Integer Public XPESAWAT As Integer Private Sub Form_Activate() XHOR = 4700 XVER = 6000 XPESAWAT = 0 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyRight Then ROKET.Height = 600 ROKET.Width = 800 ROKET.Picture = LoadPicture(App.Path & "\RKANAN.JPG")  ROKET.Left = XHOR  XHOR = XHOR + 50 End If If KeyCode = vbKeyLeft Then ROKET.Height = 600 ROKET.Width = 800 ROKET.Picture = LoadPicture(App.Path & "\RKIRI.JPG")  ROKET.Left = XHOR  XHOR = XHOR - 50 End If If KeyCode = vbKeyUp Then ROKET.Height = 800 ROKET.Width = 600  ROKET.Picture = LoadPicture(App.Path & "\ROKET.JPG")  ROKET.Top = XVER  XVER = XVER - 50  End If   If KeyCode = vbKeyDown Then ROKET.Height = 800 ROKET.Width = 600  ROKET.Picture = LoadPicture(App.Path & "\RBAWAH.JPG")  ROKET.Top = XVER  XVER = XVER + 50  ...
Posting Komentar
Baca selengkapnya
-
Gambar
 CARA MEMBUAT FORM JENIS KERUSAKAN MENGGUNAKAN VISUAL BASIC 6 1. Buka/Buat file database DBMOTOR.MDB 2. Buat struktur table, simpan dengan nama JENIS      3. Tutup program MS Access 4. Double klik file PRMOTOR.VBP untuk membuka project PRMOTOR 5. Klik menu Project => Add Form => Open untuk menambah form baru 6. Klik menu File => Save Form1 7. Ketik nama form JENIS, klik tombol Save 8. Klik propertie Name, ketik JENIS 9. Buat desain form Jenis Kerusakan 10. Ketik kode program di bawah ini   Private Sub CMDHAPUS_Click() TBJENIS.Recordset.MoveFirst TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'" If TBJENIS.Recordset.EOF Then  X = MsgBox("NOMOR JENIS " & XNOJENIS.Text & " TIDAK ADA !", vbOKOnly)  Else   X = MsgBox("DATA NOMOR JENIS " & XNOJENIS.Text & " MAU DIHAPUS !", vbYesNo)   If X = vbYes Then TBJENIS.Recordset.Delete  End If  XNOJENIS.Text = ""  XJENIS.Text = "...
Posting Komentar
Baca selengkapnya
-
Gambar
 CARA MEMBUAT FORM MACAM KERUSAKAN MENGGUNAKAN VISUAL BASIC 6        
Posting Komentar
Baca selengkapnya

3 KASUS KEJAHATAN CYBERLINK Terpopuler yang pernah terjadi

-
Gambar
 3 KASUS KEJAHATAN CYBERLINK       Melihat kasus cyber crime yang terus terjadi, perusahaan dirasa perlu untuk selalu memprioritaskan sistem keamanan pada aplikasi atau website yang mereka kembangkan. Para hacker akan selalu mencari celah keamanan dan mengeksploitasinya untuk mencari keuntungan.
Posting Komentar
Baca selengkapnya

MODUS KEJAHATAN PENCURIAN DATA PRIBADI DAN CARA MENGHINDARINYA

-
Gambar
  MODUS KEJAHATAN DAN CARA MENGHINDARINYA       Indonesiabaik.id    -   Tahukah SohIB bahwa sepanjang 2019 di Jabodetabek, terjadi 2.300 kasus Social Engineering yang berujung pada kasus penipuan online! Nah, menyikapi terjadinya pembobolan rekening bank serta data pribadi melalui modus SIM swap, Kemenkominfo dan BRTI memiliki kewajiban untuk mengedukasi dan mengajak penyedia operator, bank, dan masyarakat untuk lebih waspada. Tujuannya untuk meminimalisir terjadinya kasus pencurian dan pembobolan serupa di kemudian hari.
Posting Komentar
Baca selengkapnya

One Piece Episode 965 Subtitle Indonesia

-
Gambar
One Piece episode 965 subtitle Indonesia Sinopsis : Gol D. Roger dikenal sebagai “Raja Bajak Laut,” terkuat dan paling terkenal yang telah berlayar di Grand Line. Penangkapan dan kematian Roger oleh Pemerintah Dunia membawa perubahan di seluruh dunia. Kata-kata terakhirnya sebelum kematiannya mengungkapkan keberadaan harta terbesar di dunia, yaitu One Piece.
Posting Komentar
Baca selengkapnya

BLACK CLOVER EPS 167 Sub indonesia

-
Gambar
 BLACK CLOVER EPS 167 Sub indonesia  Sinopsis : Asta dan Yuno ditinggalkan bersama di gereja yang sama dan sejak itu tak terpisahkan. Sebagai anak-anak mereka berjanji akan saling bersaing untuk melihat siapa yang akan menjadi Kaisar Magus berikutnya. Namun, saat mereka tumbuh dewasa, beberapa perbedaan di antara keduanya menjadi jelas.
Posting Komentar
Baca selengkapnya