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...

TEKA - TEKI Albert Einsein

TEKA TEKI Albert Einstein :

Tidak ada Trik pada Teka Teki ini. Hanya MURNI LOGIKA ...

Ada 5 Buah rumah yang memiliki warna berbeda-beda, di setiap rumah tinggal 1 orang pria berkebangsaan tertentu. Masing-masing menuyukai jenis minuman tertentu, masing2 menghisap rokok dengan merek tertentu, masing2 memelihara jenis binatang tertentu.

Tidak ada satu orangpun diantara mereka yang berkebangsaan sama, menyukai minuman sama, menghisap rokok yang sama ataupun memelihara binatang yang sama.

Pertanyaanya: SIapakan diantara mereka ber 5 yang MEMELIHARA binatang ikan ???

Petunjuk :

1. Orang inggris tinggal di dalam rumah berwarna merah

2. Orang swedia memelihara anjing

3. Orang denmark senang minum Teh

4. Rumah berwarna hijau terletak tepat disebelah kiri rumah berwarna putih

5. Penghuni rumah berwarna hijau senang minum kopi

6. Orang yang merokok PallMall memelihara burung

7. Penhuni rumah yang terletak di tengah-tengah senang minum susu

8. Penghuni rumah berwarna kuning merokok dunhill

9. Orang norwegia tinggal di rumah pertama

10. Orang yang merokok marlboro tinggal disebelah orang yang memelihara kucing

11. Orang yang merokok winfield senang minum bir

12. Orang yang memelihara kuda tinggal disebelah orang yang merokok dunhill

13. Disebelah rumah berwarna biru tinggal orang norwegia

14. Orang jerman merokok Rothmans

15. Orang yang merokok marlboro tinggal disebelah orang yang meminum air





Albert Einstein menciptakan Teka-Teki ini seabad yang lalu. Ia mengatakan 98% percent penduduk dunia TIDAK AKAN BISA menjawab pertanyaan ini. 

Apakah anda termasuk yang 2% itu ??? Selengkapnya...

Game MixMaster

Ternyata tidak hanya Lunia Online saja yang akan dibawa KingSlaim Soft ke Indonesia. Kabarnya setelah Lunia Online, KingSlaim Soft akan merilis MixMaster Online di Indonesia. Berikut ini preview dari MixMaster Online.

Game yang akan dirilis berikutnya oleh PT. Kingslaim Soft setelah Lunia Online adalah MixMaster Online. Konsep semi 3D masih terasa kental di game ini, namun dengan tidak mengesampingkan unsur petualangan disertai animasi yang unik. Game ini rencananya akan dipublikasikan di Indonesia oleh PT. KingSlaim Soft berdasarkan lisensi dari developerAurora Games (Korea).

ini Webny : Webnya

untuk registrasi :Registrasi

kalau ingin download nie linknya : Download 

<span class="fullpost">

System Requirement

Untuk bisa memainkan Mix Master, spesifikasi komputer yang diperlukan adalah sebagai berikut :

OS	Windows XP/Vista/7
CPU	Pentium IV 1,5 GHz or higher
RAM	256 Mb or higher
VGA	GeForce FX5000, Radeon 6000 or higher

INI CHAR KU

Selengkapnya...

Tips n Trik cara membuat Blog menjadi KEREN

1>>>Teks Mengikuti Crusor I

Ini Posting Buat Yang Belum tau ja ..
Menuju TKP

Login Jangan Lupa
Masuk ke Rancangan >> Element Halaman
Tambah Gedget >> HTML/JavaScript
Masukin Code Berikut :

<script language="javascript">


// ENTER TEXT BELOW. CAN *NOT* INCLUDE NORMAL HTML CODE.
var text='N=U=L=A ElieT';//ganti message-nya

var delay=40; // SPEED OF TRAIL
var Xoff=0; // PIXEL COUNT FROM THE LEFT OF THE CURSOR (- VALUES GO TO LEFT)
var Yoff=-15; // PIXEL COUNT FROM THE TOP OF THE CURSOR (- VALUES GO UP)
var txtw=20; // AMOUNT OF PIXEL SPACE EACH CHARACTER OCCUPIES
var beghtml='<font color="#FF0000"><b>'; // OPTIONAL HTML CODE THAT EFFECTS WHOLE TEXT STRING SUCH AS FONT COLOR, SIZE, ETC.
var endhtml='</b></font>'; // END HTML CODE. MOSTLY USED IF ABOVE SETTING IS USED.

//********** NO NEED TO EDIT BELOW HERE **********\\

ns4 = (navigator.appName.indexOf("Netscape")>=0 && document.layers)? true : false;
ie4 = (document.all && !document.getElementById)? true : false;
ie5 = (document.all && document.getElementById)? true : false;
ns6 = (document.getElementById && navigator.appName.indexOf("Netscape")>=0 )? true: false;
var txtA=new Array();
text=text.split('');
var x1=0;
var y1=-100;
var t='';

for(i=1;i<=text.length;i++){
t+=(ns4)? '<layer left="0" top="-100" width="'+txtw+'" name="txt'+i+'" height="1">' : '<div id="txt'+i+'" style="position:absolute; top:-100px; left:0px; height:1px; width:'+txtw+'; visibility:visible;">';
t+=beghtml+text[i-1]+endhtml;
t+=(ns4)? '</layer>' : '</div>';
}
document.write(t);

function moveid(id,x,y){
if(ns4)id.moveTo(x,y);
else{
id.style.left=x+'px';
id.style.top=y+'px';
}}

function animate(evt){
x1=Xoff+((ie4||ie5)?event.clientX+document.body.scrollLeft:evt.pageX);
y1=Yoff+((ie4||ie5)?event.clientY+document.body.scrollTop:evt.pageY);
}

function getidleft(id){
if(ns4)return id.left;
else return parseInt(id.style.left);
}

function getidtop(id){
if(ns4)return id.top;
else return parseInt(id.style.top);
}

function getwindowwidth(){
if(ie4||ie5)return document.body.clientWidth+document.body.scrollLeft;
else return window.innerWidth+pageXOffset;
}

function movetxts(){
for(i=text.length;i>1;i=i-1){
if(getidleft(txtA[i-1])+txtw*2>=getwindowwidth()){
moveid(txtA[i-1],0,-100);
moveid(txtA[i],0,-100);
}else moveid(txtA[i], getidleft(txtA[i-1])+txtw, getidtop(txtA[i-1]));
}
moveid(txtA[1],x1,y1);
}

window.onload=function(){
for(i=1;i<=text.length;i++)txtA[i]=(ns4)?document.layers['txt'+i]:(ie4)?document.all['txt'+i]:document.getElementById('txt'+i);
if(ns4)document.captureEvents(Event.MOUSEMOVE);
document.onmousemove=animate;
setInterval('movetxts()',delay);
}

</script>

Ganti Teks Yang bewarna Merah Dengan nama anda atau yang laen ...


Last > Klik Simpan ..
:D

Don't Forget To Comment oke....

2>>>Membuat Judul Address Bar Menjadi Keren I

Artikle kali ini saya membahas bagaimana cara membuat judul addressbar menjadi tambah keren seperti yang pernah saya bahas waktu itu (Membuat judul addres bar tambah keren),
triks kali ini hampir sama dengan yang dulu itu tapi hanya beda bentuknya doang.tidak usah panjang lebar lagsung aja . . 
langkah yang pertama anda harus login terlebih dahulu pastinya

2. masuk ke tata leta (layout) >> edit HTML
3. cari code <head> kalo udah ketemu copy code berikut dan letakan di atasnya biar lebih mudah (CTRL + F)tulis <head>

<script type="text/javascript">
//<![CDATA[
function tb9_makeArray(n){
this.length = n;
return this.length;
}
tb9_messages = new tb9_makeArray(1);
tb9_messages[0] = "++ [[> Dhedy - Blog <]] ++ [[> SMK <]] ++ [[> Muhammadiyah 01 <]] ++";
tb9_rptType = 'infinite';
tb9_rptNbr = 5;
tb9_speed = 100;
tb9_delay = 2000;
var tb9_counter=1;
var tb9_currMsg=0;
var tb9_timerID = null
var tb9_bannerRunning = false
var tb9_state = ""
tb9_clearState()
function tb9_stopBanner() {
if (tb9_bannerRunning)
clearTimeout(tb9_timerID)
tb9_timerRunning = false
}
function tb9_startBanner() {
tb9_stopBanner()
tb9_showBanner()
}
function tb9_clearState() {
tb9_state = ""
for (var i = 0; i < tb9_messages[tb9_currMsg].length; ++i) {
tb9_state += "0"
}
}
function tb9_showBanner() {
if (tb9_getString()) {
tb9_currMsg++
if (tb9_messages.length <= tb9_currMsg) {
if ((tb9_rptType == 'finite') && (tb9_counter==tb9_rptNbr)){
tb9_stopBanner();
return;
}
tb9_counter++;
tb9_currMsg=0;
}
tb9_clearState()
tb9_timerID = setTimeout("tb9_showBanner()", tb9_delay)
}
else {
var tb9_str = ""
for (var j = 0; j < tb9_state.length; ++j) {
tb9_str += (tb9_state.charAt(j) == "1") ? tb9_messages[tb9_currMsg].charAt(j) : "____"
}
document.title = tb9_str
tb9_timerID = setTimeout("tb9_showBanner()", tb9_speed)
}
}
function tb9_getString() {
var full = true
for (var j = 0; j < tb9_state.length; ++j) {
if (tb9_state.charAt(j) == 0)
full = false
}
if (full) return true
while (1) {
var num = tb9_getRandom(tb9_messages[tb9_currMsg].length)
if (tb9_state.charAt(num) == "0")
break
}
tb9_state = tb9_state.substring(0, num) + "1" + tb9_state.substring(num + 1, tb9_state.length)
return false
}
function tb9_getRandom(max) {
var now = new Date()
var num = now.getTime() * now.getSeconds() * Math.random()
return num % max
}
tb9_startBanner()

//]]>
</script>

4. simpan, lihat hasilnya . . 

don't forget to  CommENt Oke...

3>>>Membuat Text Menjadi Pelangi Pada Blog

nah triks kali ini cukup keren buat mempercantik blog anda penasaran gi mana sih efek linknya nah loe bisa mendekatkan mause pada judul posting saya, lihat kan judulnya jadi warna-warni.
membuatnya cukup mudah ya, langkah pertama

1. login terlebih dahulu
2. masuk ke tata letak(layout)>> edit HTML
3. beri tanda centang pada Expand Template Widget
4. cari code <body>
5. copy code berikut dan letakkan setelah code <body> supaya lebih mudah mencarinya tekan (CTRL + F)

<script src='http://www.dhedyfaste.xp3.biz/script/rainbowlink.js'
type='text/javascript'>
</script>

6. simpan template . lihat hasilnya .. iih. . woww

4>>>Membuat Salam Pembuka pada Blog

mungkin anda pernah melihat sebuah blog yang menampilkan salam sapaan, trik kali ini ada hubungannya dengan triks yang Membuat pesan konfirmasi
penasaran mau tau cara membuatnya, langsung aja
petama loginterlebih dahulu
2. masuk ke tata letak(layout) >> Element halaman
3. tambah gedget >> html/java script
4. copy code berikut dan pastekan kedalamnya

<script type='text/javascript'>
var name = prompt("Welcome!! Nama anda siapa", "Nama Anda ");
alert("salam kenal ya "+name)
alert("selamat browsing di blog saya, semoga berkenan!")
</script>

5. text yang berwarna merah bisa anda ganti dengan text yang anda inginkan
6.simpan 
7.lihatlah hasilnya, selesai

5>>>Membuat Efek Salju pada Blog

hiasilah blog anda dengan Memberikan efek salju pada blog, wah cold(dingin)
Dengan membuat salju pada blog anda, mungkin juga orang senang melihat blog 
anda dan anda pun mempunyai banyak pengunjung
penasaran bagaimana cara membuatnya:
pertamlogin terlebih dahulu
kedua masuk ke tata letak (layout) >> Element Halamant
ketiga tambah gedget >> html/java Script
keempat copy code berikut:

<script type='text/javascript' src='http://dhedyfaste.xp3.biz/script/snow.js'></script>

letakkan codenya di dalam html/javascript
simpan perubahan dan lihat hasilnya

Selengkapnya...