PENGUMUMAN

Pengumuman : AFRINDO Pindah ke Vbactions.blogspot.com Click Disini Jika Ingin Pindah Ke Vbactions

Read more

Cara menghilangkan widget attribution blogger

Kali ini Tutorial Blogger Cara menghilangkan widget attribution blogger ,

Pertama masuk pada "Design" Lalu "Edit HTML"

Masukkan code css dibawah ini diatas code ]]>

#Attribution1 {
height:0px;
visibility:hidden;
display:none
}


Tinggal SAVE deh.


Gampang bukan ? Tapi sebaiknya jangan dihilangkan kita harus menghargai om Blogger

Read more

Jasa pembuataan forum mybb

Opening Jasa Pembuataan Forum MyBB

Daftar Paket :

1. Paket 1 :
Instal + Bonus 4 Pulgin Pilihan anda sendiri semua default
(Theme,dll)
Harga : Rp.100.000,-

2. Paket 2 :
Instal + Bonus 6 Pulgin + Bonus Instal Theme Pilihan anda
Harga : Rp.250.000,-

3. Paket 3 :
Instal + Bonus 6 Pulgin + Bonus instal 2 Theme Pilihan anda
Harga : Rp.350.000,-

4 Paket 4 :
Instal + Bonus 8 Pulgin + Bonus Instal 1 Theme + Manage
Harga : Rp.450.000,-

5 Paket 5 :
Terima jadi sesuai dengan selera anda Asal jangan berlebihan
Harga : Rp.800.000,-

Daftar paket diatas SUDAH termaksud dengan webhosting dan Domain
(Hanya paket 1 yang tidak saya berikan domain/Memakai domain FREE)

Untuk Contact Person :

Melalui Rekening BCA

No Rek : 3351354494

A/N : CHORIYAH

Voucher Game

[-] Gamscool :

Paket 1 : 100.000
Paket 2 : 200.000
Paket 3 : Can not
Paket 4 : Can not
Paket 5 : Can not

Untuk tepatnya silahkan hubungi saya melalui facebook Disini
Nomer HP saya : 083898331124

Kurang meriah ? Berikan konsultasi kepada saya

Read more

Tutorial membuat game snake VB6

Game Snake hmmm ,, mungkin ada yang bingung ya dengan cara pembuataan game tersebut menggunakan visual basic 6.0 ? saya punya nih cara tepat membuat game tersebut tapi agak rumit jadi tolong di pahami Dengan mendalam

1. Buat sebuah form dengan 1 buah picture box dengan nama Picture1. 1
Ubah Property Width menjadi 4335, Height menjadi 3855, Backcolor menjadi H00FFFFFF&. ( Sebenernya sih seterah )

Deklarasi utamanya adalah sebagai :

Const WarnaGrid = vbBlack
Const WarnaKepala = vbWhite
Const warnaTubuh = vbGreen
Const warnaMakanan = vbRed
Const warnaGaris = vbWhite
Private Declare Function GetTickCount Lib "kernel32" ()
As Long
Private Type Part
X As Integer
Y As Integer
End Type
Dim Part() As Part
Dim Level As Long
Dim vX As Integer, vY As Integer
Dim i As Integer
Dim CS As Single
Dim FX As Integer, FY As Integer
Dim X As Integer, Y As Integer
Dim bRunning As Boolean, died As Boolean

2. Inisialisasi dan event-event yang dicegat, pada saat game kali pertama dijalankan:

Private Sub Form_Load()
Randomize
Picture1.BackColor = warnaGaris
Picture1.ScaleMode = 3 'pixels
CS = 20

X = Int(Picture1.ScaleWidth / CS)

Y = = Int(Picture1.ScaleHeight / CS)

3. Subrutin lain yang dibutuhkan adalah:

Picture1.AutoRedraw = True
Picture1.ScaleWidth = X * CS
Picture1.ScaleHeight = Y * CS
Me.WindowState = 2
Me.Show
DrawGrid Picture1, CS
died = False
'set up the game
ReDim Part(0)
Part(0).X = 0
Part(0).Y = 0
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
bRunning = True
Level = 1
Form1.Caption = "Score: " & UBound(Part) & " Level : "
& Level
MainLoop
End Sub
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift
As Integer)
Select Case KeyCode
Case vbKeyRight
vX = 1: vY = 0
Case vbKeyLeft
vX = -1: vY = 0
Case vbKeyUp
vX = 0: vY = -1
Case vbKeyDown
vX = 0: vY = 1
End Select
End Sub
Private Sub Picture1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then bRunning = False
If KeyAscii = Asc("p") Then MsgBox "Pause"

End Sub
Sub MainLoop()
Do While bRunning = True
Update
Draw
WAIT (160 - Level * 10)
Loop
Unload Me
End Sub
Sub Update()
'menggerakkan tubuh
For i = UBound(Part) To 1 Step -1
Part(i).X = Part(i - 1).X
Part(i).Y = Part(i - 1).Y
Next i
'kepala
Part(0).X = Part(0).X + vX
Part(0).Y = Part(0).Y + vY
'menabrak pinggiran
If Part(0).X <>= X Or Part(0).Y <>= Y Then
died = True
End If
'menabrak diri sendiri
For i = 1 To UBound(Part)
If Part(i).X = Part(0).X And Part(i).Y = Part(0).Y Then
died = True
End If
Next i
'makan
If Part(0).X = FX And Part(0).Y = FY Then
ReDim Preserve Part(UBound(Part) + 1)
Part(UBound(Part)).X = -CS
Part(UBound(Part)).Y = -CS
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
If UBound(Part) Mod 20 = 0 Then Level = Level + 1
Form1.Caption = "Parts: " & UBound(Part) & " Level
: " & Level
End If
If died = True Then NewGame
End Sub
Sub Draw()
Rectangle 0, 0, X * CS, Y * CS, WarnaGrid
For i = 1 To UBound(Part)
Rectangle Part(i).X * CS, Part(i).Y * CS, Part(i).X
* CS + CS, Part(i).Y * CS + CS, warnaTubuh
Next i
Rectangle Part(0).X * CS, Part(0).Y * CS, Part(0).X
* CS + CS, Part(0).Y * CS + CS, WarnaKepala
Rectangle FX * CS, FY * CS, FX * CS + CS, FY * CS +
CS, warnaMakanan
DrawGrid Picture1, CS
End Sub
Sub Rectangle(X1 As Integer, Y1 As Integer, X2 As
Integer, Y2 As Integer, color As Long)
Picture1.Line (X1, Y1)-(X2, Y2), color, BF
End Sub
Sub NewGame()
died = False
ReDim Part(0)
Part(0).X = 0
Part(0).Y = 0
vX = 0
vY = 0
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
End Sub
Sub DrawGrid(Pic As Control, CS As Single)
Dim i As Integer, Across As Single, Up As Single
Across = Pic.ScaleWidth / CS
Up = Pic.ScaleHeight / CS
For i = 0 To Across
Pic.ForeColor = warnaGaris
Pic.Line (i * CS, 0)-(i * CS, Up * CS)
Next
For i = 0 To Up
Pic.ForeColor = warnaGaris
Pic.Line (0, i * CS)-(Across * CS, i * CS)
Next i
End Sub
Sub WAIT(Tim As Integer)
Dim LastWait As Long
LastWait = GetTickCount
Do While Tim >
GetTickCount - LastWait
DoEvents
Loop
End Sub

4. Simpan, dan jalankan program. Tampilan yang didapatkan adalah sebagai berikut :

Read more

SETTINGAN APN MODEM SMARTFREN

 Hmmm ,,, Dalam posting saya kali ini membahas mengenai SETTINGAN APN MODEM SMARTFREN 
Gimana sih cara setting apn modem smartfren ? bagi yang tidak tahu mungkin sangat berguna bagi kalian , jadi yuk kita simak posting saya kali ini

Default setting smartfreen kurang lebih seperti ini : 

Default :
Number : #777
username : smart
pass : smart

Mungkin kalian memakai setting seperti diatas ? sedikit info bagi yang banyak memakai settingan seperti diatas makin lama makin lemot koneksinya :D
nah ini ada settingan alternatifnya biar koneksi makin maknyus n makin ngebut..eit tapi sebelum ntu pake helm dulu ntar takut ditilang pak polisi kalo ngebut ngebut.. Mau settingan modem itu cepat ? sebaiknya anda setting seperti ini :

Number : *98#
username : wap
pass : wap

username: wap, password: wap, dial-number : *31*11111#
username: cdma, password: cdma, dial-number : *31*11111#
username: smart,password: smart,dial-number : *31*11111#
username: wap, password: wap, dial-number : #777
username: cdma, password: cdma, dial-number : #777
username: smart,password: smart,dial-number : #777

Cukup sampai disini :D lanjut ke posting berikutnya

Read more

Tutorial Membuat Deteksi IP Sederhana With Video

Tutorial Membuat Deteksi IP Sederhana With Video , Bagi kalian yang belum mengerti cara membuat Deteksi IP sederhana menggunakan VB6 Langsung aja lihat video dibawah ini :

Untuk Code :

Dim a As Integer

Private Sub Command1_Click()
For a = 1 To 30000
ProgressBar1.Value = a
Next a
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format _
(Now, "HH:MM:SS - dd mmmm yyyy")
Label2.Caption = "Nama Komputer : " _
& Winsock1.LocalHostName
Label3.Caption = "IP Komputer : " & _
Winsock1.LocalIP
Label4.Caption = "Port : " _
& Winsock1.LocalPort
End Sub

Read more

Tutorial Membuat Browser Sederhana With VIDEO

Oke bagi yang belum mengerti silahkan dilihat :




Semoga Bermanfaat

Read more

Jasa pembuataan blog

Posting kali ini tentang Jasa Pembuatan Blog mungkin kalian yang tidak begitu paham akan cara membuat blog dan menghiasnya , saya menawarkan jasa pembuatan blog dan modifikasi blog :

1. Template memilih sesuai keinginan anda. anda bisa memberikan contoh templatenya atau bisa memilih sendiri di situs-situs penyedia template yg saya rekomendasikan.
2.Blog bisa kami buat untuk berbisnis online/ blog pribadi(blog promosi product / jasa Cyber dll) sesuai keinginan anada
3. Widget : status YM, recent post, buku tamu, counter pengunjung, recent coment dll, silahkan request
4. Dapat bantuan dari saya MAX 18 posting halaman ( untuk selanjutya update sendiri ya )
5. Mungkin ada yang kurang dari jasa pembuatan blog ini ? anda bisa langsung menyarankan kepada saya , saya akan saya usahakan.
6. Mendapatkan Free Ebook cara pengelolahan blog dari saya .

Pembayaran :

Harga : Rp.100.000,-
Modifikasi : Rp.80.000,-
Buat Blog Saja : Rp.40.000,-
Tambah Domain : harga di atas + Rp.75.000,- (sesuai harga pasar Domain)

Pembayaran bisa hubungi saya Via Facebook : Click Here

Pembayaran bisa Melalui Rekening BCA ( Bank Central Asia )

No.Rek : 3351354494
Atas nama : CHORIYAH

No HP : 083898331124

Read more

Tutorial Membuat Browser Sederhana

emang otak gak mau berhenti berfikir hari - hari ini , padahal udah ngantuk mata udah beler
karena gak mau merem matanya buka komputer aja deh, sewaktu buka mozila firefox kepikiran deh cara membuat browser kaya gini menggunakan VB6
Susah gak ya sewaktu saya cari ternyata gak ada/gak nemu intinya gitu , cuma ada yang simple aja tapi sangat berguna bagi orang kreatif kaya aku , wahahahah aku ingin berbagi sama kalian semua yuk kita mulai tutorialnya .

1. Buka VB6 << Coba pakai yang intable jangan yang portable .
2. Kita akan membuat components baru , caranya Klik Project > Components > Dan cari "Microsoft Internet Controls", checklist dan klik “Apply” lalu “Close.”
3 . klik icon yang telah di add pada tools window dan buat kotak kira2 sebesar yang diinginkan (Ini akan menjadi dasar web browser anda, usahakan jangan terlalu kecil agar dapat menaruh button2).
4. Buat “textbox” , ini akan menjadi URL bar kalian.
5. Buat 4 tombol command yang akan menjadi tombol Go, Back, Forward, dan tombol Refresh.

Name :
Go : cmdgo
Back :cmdBack
Forward : cmdforward
Refresh : Cmdrefresh

6. Masukan code ini ke form1 .

Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub

Private Sub Cmdforward_Click()
WebBrowser1.GoForward
End Sub

Private Sub cmdgo_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub

7. Coba jalankan programnya biar lebih mudah tekan F5 pada keyboard.

Semoga Berhasil

Read more

Buat Form Password menggunakan Visual Basic 6.0

lagi enak - enak siul dipatidur keinget sama tutorial yang satu ini Cara simple membuat password di VB6 wahahhaha pasti deh banyak yang nyari yuk langsung kita ketutorialnya

1. Buka program VB 6, pilih standart EXE
2. Masukkan 2 buah form dimana Form1 untuk form password dan Form2 sebagai form programnya sehingga program kita di Form2 tidak dapat dibuka kalau tidak mengetahui Password yang ada di Form1.

Ubah Caption Form1 = Login dan Form2 = Program
3. Masukkan 1 buah TextBox dan 1 buah CommandButton di Form1 (Login) dan atur seperti di bawah ini:

Properties :
a. TextBox (PasswordChar = * dan Text = “kosongkan”)
b. CommandButton (Caption = OK)

Kode Form1 :

Private Sub Command1_Click()
If Text1.Text = "Agoy" Then
Form2.Show
Text1.Enabled = False
Command1.Enabled = False
Else
MsgBox "Password salah tolong diulangi "
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Note/Catatan : Password yang digunakan dalam contoh ini adalah “Agoy” tanpa tanda petik. Anda dapat menggantinya dengan kata apa saja sesuai selera anda.


4. Untuk Form2 terserah anda mau gunakan untuk program apa saja intinya di sini kalau program ini dibuka maka yang pertama kali terbuka adalah Form1(Login), jika password yang dimasukkan benar maka Form2 akan tampil. Jika Password yang dimasukkan salah maka akan muncul pesan “Password salah tolong diulangi”

5. Ok sampai di sini proses pembuatan form password sederhana kita selesai.


Cuap - Cuap Dulu ah :


Sebenarnya di VB 6 masih sangat banyak cara membuat membuat Password login yang lebih rumit dan lebih kompleks baik dengan menggunakan nomor seri harddisk sehingga setiap komputer mempunyai password yang berbeda-beda maupun dengan cara-cara yang lain.
Tujuan postingan ini sebenarnya untuk para pemula (seperti saya ini) dan teman –teman lain yang mungkin belum tahu..……he ..he ..he………………
Terima kasih bagi anda yang mau berbagi dengan aku di blog ini dan selamat mencoba bagi yang ingin mencoba……sukses ya…..

Read more