Require :Label = 2TextBox = 2Command Button = 2Form = 2Baik Kita Mulai Pelajaran Hari iniCopas Coding Di bawah ini'Tunggu dan Nantikan Artikel Selanjutnya dari 100 Artikel.blogspot.comPrivate Sub Command1_Click()If Text1 = "100" And Text2 = "artikel" Then 'id Dan PasswordnyaForm2.ShowUnload MeElseMsgBox "Password Anda Salah", vbCritical, "Wrong" 'Jika Salah Akan Keluar Tulisan iniText1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()MsgBox "Terima...

Kang Rois - 19.42

Baca Selengkapnya

Ilmu fisika adalah ilmu yang mempelajari gejala alam yang tidak hidup serta interaksi dalam lingkup ruang dan waktu. Dalam bahasa Yunani, ilmu ini disebut dengan physikos yang artinya alamiah.Orang yang mempelajari ilmu fisika adalah mengamati perilaku dan sifat materi dalam bidang yang beragam, mulai dari partikel submikroskopis yang membentuk segala materi (fisika partikel) hingga perilaku materi alam semesta sebagai satu kesatuan kosmos....

Kang Rois - 09.58

Baca Selengkapnya

 Require : Command Button = 1Image = 1Textbox = 1Combo Box = 2Coding nyaPrivate Sub Combo1_Click()Form1.Caption = "IM3 Code Voucher - " & (Combo1.Text)End SubPrivate Sub Command1_Click()Combo2.Visible = FalseCombo1.Visible = TrueCombo1.SetFocusEnd SubAtau Biar Lebih Jelasnya Download Projectnya Download Now...

Kang Rois - 09.16

Baca Selengkapnya

 Saya melihat banyak comment di blog blog lain , "Gimana cara Chatbox Shoutmix berada di kiri blog ?" itu comment yang saya sering lihat, maka dari itu saya akan share cara memasang Chatbox berada di kanan maupun di kiri.Langsung aja ya ke langkah langkahnya..Script kotak chating tersembunyi ini mempunyai 2 macam yang pertama script kotak chating tersembunyi di kiri dan yang kedua di kanan.Left Hidden Chatbox <style>#hcl {position:fixed;top:100px;left:0px;z-index:+1000;}*...

Kang Rois - 04.41

Baca Selengkapnya

 Copy Paste Code Di Bawah ini Ke Dalam Coding Visual Basic 6Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_NCLBUTTONDOWN = &HA1Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ByVal hwnd As Long, _ByVal nIndex As Long) As LongPrivate...

Kang Rois - 01.13

Baca Selengkapnya

 Washington – Misi Gravity Probe-B (GP-B) milik Lembaga Administrasi Antariksa Amerika Serikat (NASA) membuktikan kebenaran teori relativitas umum Albert Einstein. Teori relativitas yang dicetuskan Einstein pada 1916 menyatakan benda bermassa akan membengkokkan dimensi ruang -waktu. Akibat pembengkokkan ini, cahaya yang melintas di sekitar benda tampak seolah-olah berbelok dari lintasan lurus.Efek pembelokkan cahaya ini telah dikonfirmasi...

Kang Rois - 00.32

Baca Selengkapnya

Pengantar: Siapa yang tidak kenal formula Einstein E = m c2 atau paradoks si kembar yang mendapati saudara kembarnya sudah jauh lebih tua setelah ia melakukan perjalanan dengan kecepatan mendekati kecepatan cahaya? Namun tidak semua orang tahu kalau "keajaiban" tersebut hanyalah bagian kecil dari teori relativitas Einstein, serta bagaimana sebenarnya Einstein mendapatkan teori relativitas tersebut. Pada tanggal 14 Desember 1922 Albert...

Kang Rois - 00.15

Baca Selengkapnya

1. Kimberley Hole – Afrika SelatanLubang Besar Kimberley berada di Afrika Selatan dan lubang ini mencapai kedalaman 1.097 meter dan garis tengah lubang ini adalah 463 meter. Lubang ini adalah yang terbesar yang pernah digali manusia di atas bumi ini. Dari tahun 1866 hingga 1914 (ditutup pemerintah) sebanyak 50.000 penambang telah menggali lubang ini dan menghasilkan lebih dari 3 ton berlian. Jumlah tanah yang terbuang oleh penambangan diperkirakan...

Kang Rois - 10.01

Baca Selengkapnya

Copas Code Di Bawa Ini Dan masukan ke Dalam VB6 andaDim counterPrivate Sub Form_Load()counter = 1End SubPrivate Sub Timer1_Timer()counter = counter + 1Me.ProgressBar1.Value = counterMe.Label2.Caption = counter & "%"If counter = 100 ThenMsgBox "Animasi Loading Berjalan Sudah 100%", vbInformation, "Info"Form2.ShowForm1.Hide   Me.Timer1.Enabled = FalseEnd IfEnd SubAtau Project Download Now...

Kang Rois - 09.48

Baca Selengkapnya

Teori Albert Einstein Tentang 4 Dimensi Dan 5 Dimensi4 Dimensi sering dipake Einstein untuk menjelaskan teori relativitas yaitu Spesial Relativitas dan Relativitas Umum. Dalam Teori Einstein 4D identik dengan istilah ruang 3+1 atau bahasa manusianya 4D adalah garis diagonal. untuk jelasnya lihat gambar ini :4 Dimensi terbentuk jika 3 dimensi bergerak mecahkan dirinya atau dengan istilah lainnya adalah membiaskan diri atau memelarkan diri....

Kang Rois - 03.11

Baca Selengkapnya

Membuat Kamus Sederhana VB6 Dengan Database,Hasil Dari Pelajaran Sekolah Tgl 9 April 2012Dan Langsung Saja Ke TEKAPELangsung Saja Download Project nya Karna program ini tidak ada CodingnyaDownload ...

Kang Rois - 01.56

Baca Selengkapnya

 Cari menu Layout - Edit HTML di Dashboard blog anda.Back up Template template anda sebelum mengubah HTML untuk menjaga agar template bisa dikembalikan jika ada kesalahan! Klik Download Full Template.Jangan lupa centang (tandai) "Expand Widget Templates".Carilah kode </head>Tambahkan kode dibawah ini persis sebelum </head> <style> #related-posts { float : left; width : 540px; margin-top:20px; margin-left : 5px; margin-bottom:20px;...

Kang Rois - 01.32

Baca Selengkapnya

Copas Code Di Bawah ini Ke Dalam Visual BasicPrivate Sub cmdToSpeech_Click()Set objtexttospeech = CreateObject("SAPI.spvoice")objtexttospeech.speak Text1.TextEnd SubAtau Project Jadi Download Now...

Kang Rois - 00.46

Baca Selengkapnya

Copas Code Di bawha ini Ke Dalam Visual BasicPrivate Sub cmdbrowser_Click()dialog.ShowOpenList1.AddItem (dialog.FileName)End SubPrivate Sub cmdpause_Click()Me.WindowsMediaPlayer1.Controls.pauseEnd SubPrivate Sub cmdplay_Click()Me.WindowsMediaPlayer1.Controls.playEnd SubPrivate Sub cmdstop_Click()Me.WindowsMediaPlayer1.Controls.stopEnd SubPrivate Sub Command1_Click()List1.ClearEnd SubPrivate Sub List1_DblClick()Me.WindowsMediaPlayer1.URL = (List1.Text)End...

Kang Rois - 08.54

Baca Selengkapnya

Copas Code Di Bawah Ini Ke Dalam Visual BasicPrivate Sub Text1_Change()Dim i, jmlA, jmlB As IntegerDim a, b As StringDim nItem As IntegerDim aItem As VariantDim sTeks As StringIf Text1.Text = "" ThenText1.SetFocusExit SubEnd If'Tampilkan Jumlah Kataa = Text1.TextjmlA = 1For i = 1 To Len(Trim$(a))If Asc(Mid(a, i, 1)) = 13 Or Asc(Mid(a, i, 1)) = 32 Then jmlA = jmlA + 1Next iLabel6 = jmlALabel9 = jmlA'Tampilkan Jumlah KarakterLabel4 = Len(Text1)Label10...

Kang Rois - 08.22

Baca Selengkapnya

 Yok Kita Buka Artikel Kita1. Copas Code Di bawah ini Ke Dalam NotepadDim msg, sapimsg = InputBox ( "Apa yang Anda ingin saya katakan?", "Hacker-Newbie Bicara")Set sapi = CreateObject ( "sapi.spvoice")sapi.Speak msg2. Save As Dengan Format Bicara.vbs3. Coba Di BUka Berkas yang barusan di bi...

Kang Rois - 19.18

Baca Selengkapnya