Hack Gp Mixmaster

Click Here or Click Herehack gp 2011 100% work Selengkapnya...

Calculator NE

nah yang satu ini adalah aplikasi untuk menghitung luas,keliling lingkaran dan persegi panjang
jika anda ingin membuatnya ikuti langkah berikut
1. Buatlah 2 form
2. untuk form 1
3.  Buat 5 label ( form 1)
-label 1 diganti jari - jari
-label 2 diganti luas
-label 3 diganti keliling
-label 4 diganti www.nugrohosentoso.blogspot.com (tulisan yg brwarna merah boleh di ganti)
-label 5 diganti NulaElieT (tulisan warna merah boleh di ganti)
4. Buat 3 text
5. Buat 3 command buttom (cmd)
-cmd1 di ganti luas persegi
-cmd2 di ganti reset
-cmd3 di ganti hasil
6. Buat 2 timer (timer 1 intervalnya 20 dan timer 2 intervalnya 50)
untuk form 1 masukan code ini

Dim blue, green, red As Integer
Const phi As Double = 22 / 7
Dim hasil As Double

Private Sub About_Click(Index As Integer)
MsgBox "calculator menghitung luas,keliling lingkaran dan persegi", vbInformation
MsgBox "By : Nugroho Sentoso (www.nugrohosentoso.blogspot)", vbInformation

End Sub

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
End Sub




Private Sub Command3_Click()
hasil = phi * (Text1.Text * Text1.Text)
Text2.Text = hasil
hasil = 2 * phi * (Text1.Text)
Text3.Text = hasil

End Sub



Private Sub Exit_Click(Index As Integer)
MsgBox " TerimaKasih Anda telah mengunakan Aplikasi ini", vbInformation
End
End Sub

Private Sub Timer1_Timer()
Label4.Left = Label4.Left - 25
If Label4.Left <= -Label4.Left Then
Label4.Left = NulaEliet.Width
End If
End Sub

Private Sub Timer2_Timer()

If blue <= 255 Then
    blue = blue + 50
Else
    blue = 0
    green = green + 50
End If

If green >= 255 Then
    green = 0
    red = red + 50
End If

If red >= 255 Then
    red = 0
End If
Label1.ForeColor = Int(RGB(red, green, blue))
Label1.Refresh
Label2.ForeColor = Int(RGB(red, green, blue))
Label2.Refresh
Label3.ForeColor = Int(RGB(red, green, blue))
Label3.Refresh
Label4.ForeColor = Int(RGB(red, green, blue))
Label4.Refresh
Label5.ForeColor = Int(RGB(red, green, blue))
Label5.Refresh
End Sub


untuk form 2 sama seperti form 1 cuma ada yang berbeda source codenya

1. buat 5 label
-label 1 captionnya diganti sisi1
-label 2 captionnya diganti sisi2
-label 3 captionnya diganti hasil
-label 4 captionnya diganti www.nugrohosentoso.blogspot.com (tulisan warna merah boleh di ganti)
-label 5 captionnya diganti NulaElieT (tulisan warna merah boleh di ganti)
2. 3 text
-text1 kosongkan saja captionnya
-text2 kosongkan saja captionnya
-text3 kosongkan saja captionnya
3. buat 3 command buttom (cmd)
-cmd1 captionnya diganti reset
-cmd2 captionnya diganti luas
-cmd3 captionnya diganti keliling
4. buat 2 timer (interval timer1 diganti 50 dan timer2 diganti 20)
nah sekarang tinggal masukan source code ini "sudah di rancang belum programnya "


Dim blue, green, red As Integer

Private Sub Command1_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
End Sub

Private Sub Command2_Click()
hasilluas = Val(Text1.Text) * Val(Text2.Text)
Text3.Text = hasilluas
End Sub

Private Sub Command3_Click()
hasilkeliling = 2 * Val((Text1.Text) + Val(Text2.Text))
Text3.Text = hasilkeliling
End Sub



Private Sub Timer1_Timer()
If blue <= 255 Then
    blue = blue + 50
Else
    blue = 0
    green = green + 50
End If

If green >= 255 Then
    green = 0
    red = red + 50
End If

If red >= 255 Then
    red = 0
End If
Label1.ForeColor = Int(RGB(red, green, blue))
Label1.Refresh
label2.ForeColor = Int(RGB(red, green, blue))
label2.Refresh
label3.ForeColor = Int(RGB(red, green, blue))
label3.Refresh
Label4.ForeColor = Int(RGB(red, green, blue))
Label4.Refresh
Label5.ForeColor = Int(RGB(red, green, blue))
Label5.Refresh
End Sub


Private Sub Timer2_Timer()
label3.Left = label3.Left - 15
    If label3.Left <= -label3.Left Then
        label3.Left = Form2.Width
    End If
End Sub

ni gambarnya 

kalau mau download file source codenya 

Download

kalau mau download setup nya 

Download

jangan lupa klo bisa likein ya.... by : nugroho sentoso

Selengkapnya...

CalculatorNE

Calculator ini sangat sederhana, jika anda ingin mencobanya... sebagai berikut :
1. buatlah 5 lable
    - lable 1 > Captionnya diganti menjadi Angka 1
    - lable 2 > Captionnya diganti menjadi Angka 2
    - label 3 > Captionnya diganti menjadi Hasil
    - label 4 > Captionnya diganti menjadi www.nugrohosentoso.blogspot.com (tulisan warna merah bisa anda ganti sesuka hati anda )
    - lable 5 > Captionnya diganti menjadi NulaElieT (tulisan warna merah bisa anda ganti sesuka hati anda )
2. buatlah 3 textbox
3. buatlah 5 commandbutton
     - commandbutton 1 > Namenya diganti cmdbagi, Captionnya diganti menjadi   " / "
     - commandbutton 2 > Namenya diganti cmdkali, Captionnya diganti menjadi    " x "
     - commandbutton 3 > Namenya diganti cmdkurang, Captionnya diganti menjadi   " - "
     - commandbutton 4 > Namenya diganti cmdtambah, Captionnya diganti menjadi   " + "
     - commandbutton 5 > Namenya diganti cmdreset, Captionnya diganti menjadi Reset
4. 1 Timer (jangan lupa interval diganti menjadi 50 )
Terakhir copy coding tersebut

Dim Red, Green, Blue As Integer

Private Sub cmdbagi_Click()
hasilbagi = Val(Text1.Text) / Val(Text2.Text)
Text3.Text = hasilbagi
End Sub

Private Sub cmdExit_Click(Index As Integer)
End

End Sub

Private Sub cmdkali_Click()
hasilkali = Val(Text1.Text) * Val(Text2.Text)
Text3.Text = hasilkali
End Sub
Private Sub cmdkurang_Click()
hasilkurang = Val(Text1.Text) - Val(Text2.Text)
Text3.Text = hasilkurang
End Sub
Private Sub cmdtambah_Click()
hasiltambah = Val(Text1.Text) + Val(Text2.Text)
Text3.Text = hasiltambah
End Sub
Private Sub Command1_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
End Sub




Private Sub Image1_Click()

End Sub

Private Sub Timer1_Timer()
If Blue <= 255 Then
    Blue = Blue + 50
Else
    Blue = 0
    Green = Green + 50
End If

If Green >= 255 Then
    Green = 0
    Red = Red + 50
End If

If Red >= 255 Then
    Red = 0
End If
Label5.ForeColor = Int(RGB(Red, Green, Blue))
Label5.Refresh
Label4.ForeColor = Int(RGB(Red, Green, Blue))
Label4.Refresh
End Sub

kalau mau download buat di instal
Download Disini
trus kalau mau contohnya download Disini

Jangan Lupa Koment ya...
o ia lupa gambarnya
nie contohnya

Selengkapnya...

NMP(NulaElieTMediaPlayer)

sekarang saya akan memberi tahu bagai mana membuat aplikasi yang mirip atau hampirsama dengan WMP (WindowsMediaPlayer),
pertama yang harus di butuhkan
1.Command 1
2.CommonDialog
3.Lable (jika anda ingin menambahkan jam)
4.Timer
5.dan WMP ( caranya lihat di bawah ini)

nah untuk mencari WMP, Buka Program VB >Project>Components atau jalan pintasnya CTRL + T
trus kamu pilih Control > cari dibawah tulisan Microsoft ADO Data Control 6.0,Microsoft Common Dialog Control,dan Windows media player kamu beri centang. Selanjutnya apply dan ok ( seperti gambar berikut).nah jika sudah copy sourcecodenya dibawah ini
<span class="fullpost">

Private Sub about_Click(Index As Integer)
MsgBox "AMP(AplikasiMediaPlayer)", vbInformation
End Sub

Private Sub cmdPlaylist_Click()
Form2.Show
End Sub

Private Sub Command1_Click()
CommonDialog1.Filter = "*.wav*.mp3"
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
Private Function KeepTwoDigit(Num As Integer)
    If (Num < 10) Then
        KeepTwoDigit = "0" & Num
    Else
        KeepTwoDigit = Num
    End If
End Function

Private Sub Exit_Click(Index As Integer)
End
End Sub

Private Sub Pembuat_Click(Index As Integer)
MsgBox "by : Nugroho (Manuk) masih Belajar (newbie)", vbInformation
End Sub

Private Sub Timer1_Timer()
    Label1.Caption = KeepTwoDigit(Hour(Now)) & ":" & KeepTwoDigit(Minute(Now)) & ":" & KeepTwoDigit(Second(Now))
End Sub


Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)

End Sub

ini karya saya sendiri tapi saya masih bingung untuk membuat playlistnya..
jika ingin downoad klik dibawah ini:

Download Disini

Download Disini ( Versi kke-2 "maaf kalau ada yang aneh, saya masih belajar ")
yang ini bisa buat diinstal
Download Disini

tambahan jika ingin file menjadikan .exe lihat dibawah ini yang digaris bawahi warna biru untuk mengubah file menjadi .exe Jng Lupa DIKOMENT OK ^_^

Selengkapnya...