Sabtu, 13 Agustus 2011
Senin, 08 Agustus 2011
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
Sabtu, 06 Agustus 2011
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
jika ingin downoad klik dibawah ini:
yang ini bisa buat diinstal
Download Disini
Selengkapnya...
Jumat, 29 Juli 2011
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...
Selasa, 19 Juli 2011
Game MixMaster

System Requirement
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 |
Minggu, 17 Juli 2011
Tips n Trik cara membuat Blog menjadi KEREN
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
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 . .
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
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
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/javascriptsimpan perubahan dan lihat hasilnya
Kumpulan Sms Lucu
A. ku titipkan
S. alam buat
S. emilir
A. ngin dan
L. antunan asma
A. llah yang
M. asihmelekat pada
U. matnya
A. ndai
L. angit mendengar
A. ku
I. ngin
K. irimkan
U. capan
M. et malem..
Gondigong,, gondigong,, gondigong,,
Walaupun kmu hNya baCa dalaM Hati,
tanpa kmu sadar,
kmu telah meMbaCa mAntra PemAng6iL POCONG..!!
Skrang POCONG itu ada di deKet kmu,,,
hihihihihiii….!!
kenapa cowo perlu beristri 3 ..?
karna,,
kalo beristri satu : isONE,,
kalo beristri dua : isTWO,
nah kalo tiga baru pas jadinya : isTERI..
hehe.. iya ga??
Kau pandangi aq penuh nafsu,,
Lalu kau gerayangi aq semaumu,,
Kadang kau mendesah di telingaku,, dengan desahan ciri khasmu,,
Kau tunggu aq hingga terlelap,,
Untuk memasukkan Anu’mu,,
Uuuhh,
PLAKK…!!
Dasar NYAMUK Sialan,
Mati gak lu,,!!!
Ciuman”sayang” di.. kening!,Ciuman “kasih” di.. Bi2 r..,
Ciuman “nafsu” di.. Da2..,
Ciuman pling “panas” di…. di…. di…. di…”STRIKA” He,he puanaszz…!!!!!
Mau sms gratis? unlimited, ga kluar 1 sen pun
dan modal cm tampang memelas doank,
pake fren dan tinggal bilang fren..fren.. bagi sms donk hehehheh..
ANGKAT TANGAN! INI PERAMPOKAN! Yg GANTENG ksblah kanan, Yg CANTIK ksblah kiri, Yg JELEK di tengah! KAMU! Ya.. KAMU! jgn pura2 bca SMS.. Ayo org JELEK ktengah!
Pasien RSJ menyelamatkan tmnnya yg tenggelam. Km berjasa, kt dokter. Tp syg tmnmu mati gantung diri. Lalu si pasien berkata.. Saya yg gantung dok, biar cepet kering.
Anak monyet bertanya: “EMAK, KNPA SICH MUKA QTA KOK JELEK BGT…?”
mak monyet menjawab : “BERSYUKURLAH NAK, MUKA QTA TAK SEJELEK YG BACA TULISAN INI”
Selengkapnya...
Sabtu, 16 Juli 2011
Final Destination
Final Destination 1( MAAF LINK TIDAK TERSEDIA)
Final Destination 2
Film (http://www.indowebster.com/final_destination_2.html)
subtitle (http://www.4shared.com/file/155094472/fd723f81/Final_Destination_2.html)
Final Destination 3
Film (http://www.indowebster.com/Final_Destination_3DVDRip.html)
Subtitle (http://www.4shared.com/file/145398021/1eedff2a/Final_destination_3_2006.html)
Final Destination 4
Film (http://www.indowebster.com/TheFinalDestinationBDRipXviDiMBT.html)
Subtitle (http://www.ziddu.com/download/14706085/2457898.rar.html)
Selengkapnya...
PSX (PS1 di komputer )
bagi yang suka game ps 1 Download
tpi nie pake PSX (ISO)
Mau Maen PS X DI PC gampang....
kl mw request2 aja tar gw cariin gamenya
Recommended system configuration :
Pentium II 500 or faster
256 MB of RAM
A fast DirectX or Opengl compatible graphic card, e.g. the NVidia GeForce 2
Fast CD-ROM with good access times
Windows 2000 or XP
DirectX 8
<span class="fullpost">
Important : Dual Shock Usb Stick PS Rp 60k 2 stick
Pertama2 gw kasih emulator N bios N plugin dulu..
Ni Download EmuLator
Dowload
Bios
Dowload
Nb : download ke folder BIOS Di EPsxe
Plugin
For Video:
Download
Download
Download
Nb : ke 3 nya harus di download karena tidak semua game bisa masuk dalam 1 plug in
untuk sound N Cd room pake standard aja Kl mw nyari si Bisa,,
Download
Ni contoh Untuk video:
Default plugin: Pete Opengl v.176 (If you have modern graphic card you can use Pete Opengl 2, it should be better for you) This is for Pal games, for NTSC ones you must put 63 frames.
Oiya misalnya game kecepetan pake settingan enable Fps terus Diisi 50-60 pilih Ex : 53
Kl ada yang ga bisa make tanya aja
Game menyusul ni game bentuknya iso jd mesti di extract dulu oc2 kl ga baca read menya aja..
Req Boleh Tapi sebelum gw jawab jgn ada yang request lagi coz ga enak tar liatnya THx ok2
PENTING DIBACA YA.... SELAMAT MENCOBA
Selengkapnya...