Mari Belajar Bahasa Pemrograman

SMK TI Airlangga Samarinda: Download Poster CAMPION - 10 SMK TI Airlangga

Membuat Aplikasi Pembelian Tanpa DataBase

Hay teman bertemu lagi dengan saya muhammad reza padillah kali ini saya akan memposting tutorial tentang VB Untuk web nya minggu depan aja ya.. ini ni yang akan kita buat nantinya

Nah Sekarang Ayo kita eksekusi yang pertama buka dulu Microsof Visual Studio Kalian atau Microsoft visual basic

1. Desain Seperti Gambar Diatas DiBedakan juga boleh

Pilihan Nya Tersedia Di Toolbox pojok kiri atas

2. masukkan kode nya yang pertama

Public Class Form1

Dim a As String

Sub Tampil()

With lvbarang

.Columns.Add("No", 20, HorizontalAlignment.Left)

.Columns.Add("Kode Barang", 85, HorizontalAlignment.Left)

.Columns.Add("Nama Barang", 85, HorizontalAlignment.Left)

.Columns.Add("Harga", 70, HorizontalAlignment.Left)

.Columns.Add("Jumlah", 70, HorizontalAlignment.Left)

.Columns.Add("Total", 70, HorizontalAlignment.Left)

.View = View.Details

.GridLines = True

.FullRowSelect = True

End With

End Sub

Sub KodeBarang()

Cbkode.items.add("MR01")

Cbkode.items.add("KR01")

Cbkode.items.add("LD01")

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

Process.Start("www.facebook.com/Muhammad.reza.padillah")

End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

Process.Start("www.twitter.com/_Pemula_")

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call Tampil()

Call KodeBarang()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim lst As New ListViewItem

With lst

.Text = txtno.Text

.SubItems.Add(Cbkode.text)

.SubItems.Add(txtnamabarang.Text)

.SubItems.Add(txtharga.Text)

.SubItems.Add(txtjumlah.Text)

.SubItems.Add(txttotal.Text)

End With

lvbarang.Items.Add(lst)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

txtno.Text = ""

txtnamabarang.Text = ""

txtjumlah.Text = ""

txtharga.Text = ""

txttotal.Text = ""

End Sub

Private Sub CbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbKode.SelectedIndexChanged

If CbKode.Text = "MR01" Then

txtnamabarang.Text = "MotherBoard PC"

txtharga.Text = 300000

ElseIf CbKode.Text = "KR01" Then

txtnamabarang.Text = "Keyboard"

txtharga.Text = 45000

ElseIf CbKode.Text = "LD01" Then

txtnamabarang.Text = "LCD"

txtharga.Text = 120000

End If

End Sub

Private Sub txtjumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtjumlah.KeyPress

If e.KeyChar = Chr(13) Then

txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

Button1.Focus()

End If

End Sub

Private Sub btnhitungtotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitungtotal.Click

Dim Total As Double = 0

Dim TempNode As ListViewItem

Dim TempDbl As Double

For Each TempNode In lvbarang.Items

If Double.TryParse(TempNode.SubItems.Item(5).Text, TempDbl) Then

Total += TempDbl

End If

txtjumlahkeseluruhan.Text = (Total)

End Sub

End Class

Hay teman bertemu lagi dengan saya muhammad reza padillah kali ini saya akan memposting tutorial tentang VB Untuk web nya minggu depan aja ya.. ini ni yang akan kita buat nantinya

Nah Sekarang Ayo kita eksekusi yang pertama buka dulu Microsof Visual Studio Kalian atau Microsoft visual basic

1. Desain Seperti Gambar Diatas DiBedakan juga boleh

Pilihan Nya Tersedia Di Toolbox pojok kiri atas

2. masukkan kode nya yang pertama

Public Class Form1

Dim a As String

Sub Tampil()

With lvbarang

.Columns.Add("No", 20, HorizontalAlignment.Left)

.Columns.Add("Kode Barang", 85, HorizontalAlignment.Left)

.Columns.Add("Nama Barang", 85, HorizontalAlignment.Left)

.Columns.Add("Harga", 70, HorizontalAlignment.Left)

.Columns.Add("Jumlah", 70, HorizontalAlignment.Left)

.Columns.Add("Total", 70, HorizontalAlignment.Left)

.View = View.Details

.GridLines = True

.FullRowSelect = True

End With

End Sub

Sub KodeBarang()

Cbkode.items.add("MR01")

Cbkode.items.add("KR01")

Cbkode.items.add("LD01")

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

Process.Start("www.facebook.com/Muhammad.reza.padillah")

End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

Process.Start("www.twitter.com/_Pemula_")

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call Tampil()

Call KodeBarang()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim lst As New ListViewItem

With lst

.Text = txtno.Text

.SubItems.Add(Cbkode.text)

.SubItems.Add(txtnamabarang.Text)

.SubItems.Add(txtharga.Text)

.SubItems.Add(txtjumlah.Text)

.SubItems.Add(txttotal.Text)

End With

lvbarang.Items.Add(lst)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

txtno.Text = ""

txtnamabarang.Text = ""

txtjumlah.Text = ""

txtharga.Text = ""

txttotal.Text = ""

End Sub

Private Sub CbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbKode.SelectedIndexChanged

If CbKode.Text = "MR01" Then

txtnamabarang.Text = "MotherBoard PC"

txtharga.Text = 300000

ElseIf CbKode.Text = "KR01" Then

txtnamabarang.Text = "Keyboard"

txtharga.Text = 45000

ElseIf CbKode.Text = "LD01" Then

txtnamabarang.Text = "LCD"

txtharga.Text = 120000

End If

End Sub

Private Sub txtjumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtjumlah.KeyPress

If e.KeyChar = Chr(13) Then

txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

Button1.Focus()

End If

End Sub

Private Sub btnhitungtotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitungtotal.Click

Dim Total As Double = 0

Dim TempNode As ListViewItem

Dim TempDbl As Double

For Each TempNode In lvbarang.Items

If Double.TryParse(TempNode.SubItems.Item(5).Text, TempDbl) Then

Total += TempDbl

End If

txtjumlahkeseluruhan.Text = (Total)

End Sub

End Class

MemBuat Kerangka Website Sederhana Dengan Tag HTML 5 & CSS 3

Assalamuallaikum wr.wb Teman,, Hallo kali ini saya MRP Akan Memberikan Tutorial Sederhana tentang WEBSITE menggunakan tag-tag HTML 5 ,,, oke kita langsung saja ke TKP :D heheehe..

Langkah yang pertama : buat struktur html nya dan kasih link css nya disini saya Mengkasih kn nama nya ( hampa.css )

<html>
<head>
<title></title>
<link rel="stylesheet" type="text/css" href="hampa.css">
</head>
<body>

</body>
</html>

Langkah ke-2 : kita akan membuat header Ketikkan kodenya di dalam body

<html>
<head>
<title></title>
<link rel="stylesheet" type="text/css" href="hampa.css">
</head>
<body>
<header>
<p> <a href="">MRP </a></p>
<div id= gambar>
<a href="" title="Facebook"><img src="facebook.png"></a><br>
<a href="" title="Twitter"><img src="twitter.png"></a><br>
<a href="" title="Rss"><img src="rss.png"></a><br>
</div>
</header>
</body>
</html>

nahh di situ <header> </header> termasuk dalam HTML 5 ,, okee lalu kita ketik CSS nya

header{
background-color: #0000A0;
width: 100%;
height: 100px;
}

p a{
color: #0B39F4;
font-size: 90px;
text-decoration: none;
}

p a:hover{
color: #000080;
text-decoration: none;
}

body{
margin: 0;
padding: 0;
}

langkah ke- 3: kita akan membuat content dan sidebar ;

<html>
<head>
<title></title>
<link rel="stylesheet" type="text/css" href="hampa.css">
</head>
<body>
<header>
<p> <a href="">MRP </a></p>
<div id= gambar>
<a href="" title="Facebook"><img src="facebook.png"></a><br>
<a href="" title="Twitter"><img src="twitter.png"></a><br>
<a href="" title="Rss"><img src="rss.png"></a><br>
</div>
</header>
<div class="container">
<section class="sidebar">

</section>
</div>

nah di situ <div class="container"> </div> termasuk dalam HTML 5 dan juga <section class="sidebar">

</section> juga termasuk dalam HTML 5

oke sekarang kita masukkan CSS nya ;

.container{

width: 90%;

height: 80%;

background-color: #8080C0;

margin: 0 auto;

}

.sidebar{

background-color: #000;

margin: 0 auto;

width: 20%;

height: 100%;

float: left;

}

langkah 4 : kita akan membuat Footer

<html>

<head>

</head>

<body>

</div>

</header>

</section>

</div>

</body>

</html>

nah disitu <footer> <footer> termasuk dalam HTML 5 oke dan sekarang kita masukkan css nya

footer{

margin: 0 auto;

background-color: #0000A0;

width: 100%;

height: 30%;

}

nah maka akan menjadi seperti ini ;

Assalamuallaikum wr.wb Teman,, Hallo kali ini saya MRP Akan Memberikan Tutorial Sederhana tentang WEBSITE menggunakan tag-tag HTML 5 ,,, oke kita langsung saja ke TKP :D heheehe..

</section> juga termasuk dalam HTML 5

oke sekarang kita masukkan CSS nya ;

.container{

width: 90%;

height: 80%;

background-color: #8080C0;

margin: 0 auto;

}

.sidebar{

background-color: #000;

margin: 0 auto;

width: 20%;

height: 100%;

float: left;

}

langkah 4 : kita akan membuat Footer

<html>

<head>

</head>

<body>

</div>

</header>

</section>

</div>

</body>

</html>

nah disitu <footer> <footer> termasuk dalam HTML 5 oke dan sekarang kita masukkan css nya

footer{

margin: 0 auto;

background-color: #0000A0;

width: 100%;

height: 30%;

}

nah maka akan menjadi seperti ini ;

Membuat Contoh "Pendaftaran" Di Dreamweaver CS 3

Nah itu Dia teman Contoh gambarnya, sebelumnya Asslamualaikum wr.wb Dulu :)

Bagi Teman - Teman Yang Masih Bingung menggunakan Dreamweaver Bisa latihan Dengan Membuat Sperti ini :

<html>
<head>
<title>Pendaftaran</title>
</head>
<body bgcolor="#CCCCCC">
<form action="" method="post" enctype="multipart/form-data"
name="form1" id="form1">
<fieldset>
<legend> Formulir Pendaftaran Siswa RPL Smk Ti Airlangga </legend>
<table width="100%" height="564" border="0"
cellpadding="5" cellspacing="0">
<tr>
<td width="26%">Nama</td>
<td width="1%">:</td>
<td width="73%"><input type="text" name="nama"
id="nama" ></td>
</tr>
<tr>
<td width="26%">Kelas</td>
<td width="1%">:</td>
<td width="73%"><select name="Kelas">
<option value="1">X RPL</option>
<option value="30">XI RPL</option>
<option value="30">XII RPL</option>
</select> <label>Angkatan :
<select name="angkatan" id="select">
<option value="2004">2004</option>
<option value="2005">2005</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
<option value="2010">2010</option>
<option value="2011">2011</option>
<option value="2012">2012</option>
<option value="2013">2013</option>
</select>
</label> </td>
</tr>
<tr>
<td>Masukkan Foto Anda</td>
<td>:</td>
<td><input type="file" name="foto" id="foto" /></td>
</tr>
<tr>
<td>Jenis Kelamin</td>
<td>:</td>
<td><input type="radio" name="radio" id="jk"
value="Pria" >
Pria
<input type="radio" name="radio" id="jk"
value="Wanita" >
Wanita</td>
</tr>
<tr>
<td>Tanggal Lahir</td>
<td>:</td>
<td>
<select name="tgl">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
</select>
-
<select name="bln">
<option value="1">01</option>
<option value="2">02</option>
<option value="3">03</option>
<option value="4">04</option>
<option value="6">05</option>
<option value="7">06</option>
<option value="8">07</option>
<option value="9">08</option>
<option value="10">09</option>
<option value="11">10</option>
<option value="12">11</option>
<option value="12">12</option>
</select>
-
<select name="thn">
<option value="1980">1980</option>
<option value="1981">1981</option>
<option value="1982">1982</option>
<option value="1983">1983</option>
<option value="1984">1984</option>
<option value="1985">1985</option>
<option value="1986">1986</option>
<option value="1987">1987</option>
<option value="1988">1988</option>
<option value="1989">1989</option>
<option value="1990">1990</option>
<option value="1991">1991</option>
<option value="1992">1992</option>
<option value="1993">1993</option>
<option value="1994">1994</option>
<option value="1995">1995</option>
<option value="1996">1996</option>
<option value="1997">1997</option>
<option value="1998">1998</option>
<option value="1999">1999</option>
<option value="2000">2000</option>
<option value="2001">2001</option>
<option value="2002">2002</option>
<option value="2003">2003</option>
<option value="2004">2004</option>
<option value="2005">2005</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
<option value="2010">2010</option>
<option value="2011">2011</option>
<option value="2012">2012</option>
<option value="2013">2013</option>
</select></td>
</tr>
<tr>
<td>Hobi</td>
<td>:</td>
<td><input type="checkbox" name="hobi" id="hobi" >
Futsal
<input type="checkbox" name="hobi2" id="hobi2" >
Bulu Tangkis
<input type="checkbox" name="hobi3" id="hobi3" >
Basket
<input type="checkbox" name="hobi3" id="hobi3" >
Dan Lain-Lain </td>
</tr>

<tr>
<td height="105">Apa Yang Telah Kamu Kuasai Setelah Masuk Di Jurusan Rekayasa Perangkat Lunak !!!</td>
<td>:</td>
<td><label>
<input type="checkbox" name="checkbox" id="checkbox" />
Bahasa Pemrograman C++
<input type="checkbox" name="checkbox5" id="checkbox5" />
Dreamweaver<br />
<input type="checkbox" name="checkbox2" id="checkbox2" />
Bahasa Pemrograman Java
<input type="checkbox" name="checkbox6" id="checkbox6" />
Visual Studio 2008/2010<br />
<input type="checkbox" name="checkbox3" id="checkbox3" />
Bahasa Pemrograman PHP & SQL
<input type="checkbox" name="checkbox7" id="checkbox7" />
Dan Lain - Lain<br />
<input type="checkbox" name="checkbox4" id="checkbox4" />
Bahasa Pemrograman HTML & CSS</label></td>
</tr>
<tr>
<td height="105">Tuliskan Keterengan Tentang Anda</td>
<td>:</td>
<td><textarea name="alamat" id="alamat" cols="45"
rows="5"></textarea></td>
</tr>

<tr>
<td> </td>
<td> </td>
<td><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0','name','Masuk !!!','width','125','height','31','id','Masuk !!!','title','Masuk !!!','src','button2','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','bgcolor','#CCCCCC','movie','button2' ); //end AC code
</script>
<noscript>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" name="Masuk !!!" width="125" height="31" id="Masuk !!!" title="Masuk !!!">
<param name="BGCOLOR" value="#CCCCCC" />
<param name="movie" value="button2.swf" />
<param name="quality" value="high" />
<embed src="button2.swf" width="125" height="31" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" name="Masuk !!!" bgcolor="#CCCCCC" ></embed>
</object>
</noscript></td>
</tr>
</table>
</fieldset>
</form>
</body>
</html>

Bisa Di Copy ya Itu Codenya
\Semoga Bermanfaat/

Forum Tanya Bertanya Seputar Web design & Design Grafis

Assalamualaikum Wr.Wb Teman ..

Saya Kali ini Akan Memberitahukan Salahsatu Blog Bermanfaat , Forums Website Ini pun Baru-baru saja dibuat dan anggotanya pun masih sedikit,, ayo gabung untuk saling bebrbagi :v

Gabung Disini Dan Klik Pendaftaran nya Ok....

Project Yang Diharapkan ( Amin ! )

Assalumalaikum Wr.Wb teman. Saya Sekarang Ini Lagi MeNgerjakan Project Sendiri Tapi Iseng - iseng aja, Soalnya Saya Senang Sekali Kalau Dirumah Itu Ngoprek-ngoprek hehehe :v
ini Dia Gamabarnya :

Yang Itu Kode nya Belum Saya Masukkan Jadi kalau teman-teman Yang Udah Paham Sekali VB.net

Silahkan Di Coment Ya Kasih Kritik Ke Saya Atau Kasih Bantuan Dan Bisa Juga Kita Mention-mentionan Di twitter Follow aja @_Pemula_ Bisa Juga Hub Saya di : 081347776520, Mohon Bantuannya Ya teman

Yang bantu Saya , Saya Editkan Fotonya : FREE & FREE Instal OS Win8 :v

Assalumalaikum Wr.Wb teman. Saya Sekarang Ini Lagi MeNgerjakan Project Sendiri Tapi Iseng - iseng aja, Soalnya Saya Senang Sekali Kalau Dirumah Itu Ngoprek-ngoprek hehehe :v
ini Dia Gamabarnya :

Yang Itu Kode nya Belum Saya Masukkan Jadi kalau teman-teman Yang Udah Paham Sekali VB.net

Silahkan Di Coment Ya Kasih Kritik Ke Saya Atau Kasih Bantuan Dan Bisa Juga Kita Mention-mentionan Di twitter Follow aja @_Pemula_ Bisa Juga Hub Saya di : 081347776520, Mohon Bantuannya Ya teman

Yang bantu Saya , Saya Editkan Fotonya : FREE & FREE Instal OS Win8 :v

Belajar HTML 5 & CSS 3

Assalaumallaikum Wr.Wb Teman Saya Kali ini Akan Memberitahukan Situus-situs Bermanfaat Untuk Belajar Web Develoment.. Disimak Dan Di kunjungi Ya Blog Nya....

Lihat Disini !!!

Assalaumallaikum Wr.Wb Teman Saya Kali ini Akan Memberitahukan Situus-situs Bermanfaat Untuk Belajar Web Develoment.. Disimak Dan Di kunjungi Ya Blog Nya....

Lihat Disini !!!

C++ Non Skuensial

Assalamualaikum wr.wb teman Saya kali ini memposting Code C++ Yang Sering Disebut
Non Skuensi :
berikut Contoh Kode Nya , Silahkan Di Copy Dan di praktekan :
#include <iostream.h>
main() {
cout<<"BIODATA ; \nNama : Muhammad Reza Padillah \nKelas : X \nJurusan : Rekayasa Perangkat Lunak \nAlamat : Jln. Slamet Riady Gg : 5" ;
}

Download Adobe Iillusator Cs6

Assalamualaikum Teman ada Yang Suka Desain, Hmmm Saya juga Termasuk Orang Yang Suka Desain,, Dan Untuk Mendukung Prose mendesain kita juga memerlukan Sebuah Software,,
Dan Software Itu Bisa berupa Photoshop , CorelDraw, Illusator,,
Dan Kali Ini Saya Akan Memberikan Link Download Adobe illusator Cs6

Ini dia satu lagi program Adobe terupdate yaitu Adobe Illustrator CS 6. Adobe Illustrator CS 6 mempunyai fitur dan GUI yang lebih keren dari adobe versi sebelumnya. Selain itu, peningkatan kompabilitas terhadap sistem 64 bit semakin menambah mantap software Adobe Illustrator CS 6 ini sob. Adobe Illustrator CS 6 juga mendukung GPU boost yaitu suatu fitur yang memanfaatkan GPU atau VGA untuk mempercepat rendering atau grafis.

Fitur-Fitur :

Fitur-fitur Adobe Illustrator CS 6:

1. Tools drawing yang sangat banyak

2. Penggunaan strokes yang mudah dan bagus

3. Menciptakan gambar perspektiv

4. Transparansi gradien

5. Tipografi tingkat lanjutan

6. Support 32 bit dan 64 bit

Spesikasi :

System requirements:

Intel® Pentium® 4 or AMD Athlon® 64 processor
Microsoft® Windows® XP with Service Pack 3 or Windows 7 with Service Pack 1
1GB of RAM (3GB recommended) for 32 bit; 2GB of RAM (8GB recommended) for 64 bit
2GB of available hard-disk space for installation; additional free space required during installation (cannot install on removable flash storage devices)
1024×768 display (1280×800 recommended) with 16-bit video card
DVD-ROM drive compatible with dual-layer DVDs
Some features in Adobe® Bridge rely on a DirectX 9–capable graphics card with at least 64MB of VRAM

Download Software Nya

DISINI...

Fitur-Fitur :

Fitur-fitur Adobe Illustrator CS 6:

1. Tools drawing yang sangat banyak

2. Penggunaan strokes yang mudah dan bagus

3. Menciptakan gambar perspektiv

4. Transparansi gradien

5. Tipografi tingkat lanjutan

6. Support 32 bit dan 64 bit

Spesikasi :

System requirements:

Intel® Pentium® 4 or AMD Athlon® 64 processor
Microsoft® Windows® XP with Service Pack 3 or Windows 7 with Service Pack 1
1GB of RAM (3GB recommended) for 32 bit; 2GB of RAM (8GB recommended) for 64 bit
2GB of available hard-disk space for installation; additional free space required during installation (cannot install on removable flash storage devices)
1024×768 display (1280×800 recommended) with 16-bit video card
DVD-ROM drive compatible with dual-layer DVDs
Some features in Adobe® Bridge rely on a DirectX 9–capable graphics card with at least 64MB of VRAM

Download Software Nya

DISINI...

Membuat kalkulator Sderhana Versi ( M.R.P )

Assalamuaikum wr.wb Teman,,
Ssaya Beberapa Hari ini disuruh Guru Saya muhammadyani.com Untuk Membuat Kalkulator Sederhana , Dan Tampilanya pun juga Disuruh Bebas,, Berikut kalkulator Sderhana Saya Yang Udah Saya Buat.
1. Form 1

Berikut Ada Lah Code-code Nya :

Public Class Tugas

Private Property DataTableClearEventArgs As Boolean

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form2.Show()

End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

Process.Start("https://smkti.net")

End Sub

Private Sub rbtn1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn1.CheckedChanged

Label7.Text = "+"

txthasil.Text = Val(txt1.Text) + Val(txt2.Text)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Close()

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn2.CheckedChanged

Label7.Text = "-"

txthasil.Text = Val(txt1.Text) - Val(txt2.Text)

End Sub

Private Sub rbtn3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn3.CheckedChanged

Label7.Text = "x"

txthasil.Text = Val(txt1.Text) * Val(txt2.Text)

End Sub

Private Sub rbtn4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn4.CheckedChanged

Label7.Text = "/"

txthasil.Text = Val(txt1.Text) / Val(txt2.Text)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Refreshing.Show()

End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

txt1.Clear()

txt2.Clear()

txthasil.Clear()

End Sub

Private Sub Tugas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

MsgBox("WELCOME ( Tekan Ok Untuk Lanjut :v )")

End Sub

2. Form 3 ( About Me ) :

Berikut Code-Code Nya :

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Close()

End Sub

Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked

Process.Start("https://facebook.com/Muhammad.reza.padillah")

End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

Process.Start("https://twitter.com/_pemula_")

End Sub

End Class

3. Form Refreshing :

Berikut Adalah Code-codenya :

Public Class Refreshing

Private Sub Button1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter

If Button1.Top > 150 Then

Button1.Top = 50

ElseIf Button1.Top <= 150 Then

Button1.Top = 300

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Close()

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

End Class

Walaikumsallam Wr.Wb Semoga Postingan Saya kali Ini Bermanfaat Bagi Teman Semua yang Ingin Menyoba Vb.Net Dengan Membuat Aplikasi Sederhana ...

...\Sekian Dan terima Kasih/...

Berikut Ada Lah Code-code Nya :

Public Class Tugas

Private Property DataTableClearEventArgs As Boolean

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form2.Show()

End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

Process.Start("https://smkti.net")

End Sub

Private Sub rbtn1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn1.CheckedChanged

Label7.Text = "+"

txthasil.Text = Val(txt1.Text) + Val(txt2.Text)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Close()

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn2.CheckedChanged

Label7.Text = "-"

txthasil.Text = Val(txt1.Text) - Val(txt2.Text)

End Sub

Private Sub rbtn3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn3.CheckedChanged

Label7.Text = "x"

txthasil.Text = Val(txt1.Text) * Val(txt2.Text)

End Sub

Private Sub rbtn4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn4.CheckedChanged

Label7.Text = "/"

txthasil.Text = Val(txt1.Text) / Val(txt2.Text)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Refreshing.Show()

End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

txt1.Clear()

txt2.Clear()

txthasil.Clear()

End Sub

Private Sub Tugas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

MsgBox("WELCOME ( Tekan Ok Untuk Lanjut :v )")

End Sub

2. Form 3 ( About Me ) :

Berikut Code-Code Nya :

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Close()

End Sub

Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked

Process.Start("https://facebook.com/Muhammad.reza.padillah")

End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

Process.Start("https://twitter.com/_pemula_")

End Sub

End Class

3. Form Refreshing :

Berikut Adalah Code-codenya :

Public Class Refreshing

Private Sub Button1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter

If Button1.Top > 150 Then

Button1.Top = 50

ElseIf Button1.Top <= 150 Then

Button1.Top = 300

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Close()

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

End Class

Walaikumsallam Wr.Wb Semoga Postingan Saya kali Ini Bermanfaat Bagi Teman Semua yang Ingin Menyoba Vb.Net Dengan Membuat Aplikasi Sederhana ...

...\Sekian Dan terima Kasih/...

Mari Belajar Bahasa Pemrograman

Pages

SMK TI Airlangga Samarinda: Download Poster CAMPION - 10 SMK TI Airlangga

Membuat Aplikasi Pembelian Tanpa DataBase

MemBuat Kerangka Website Sederhana Dengan Tag HTML 5 & CSS 3

Membuat Contoh "Pendaftaran" Di Dreamweaver CS 3

Forum Tanya Bertanya Seputar Web design & Design Grafis

Project Yang Diharapkan ( Amin ! )

Belajar HTML 5 & CSS 3

C++ Non Skuensial

Download Adobe Iillusator Cs6

Membuat kalkulator Sderhana Versi ( M.R.P )

Shopping Cart

Labels

Blog Archive

Connect

Labels

Subscribe Via Email (Do Not Edit Here!)

Ewy!

Facebook

Popular Posts

Labels

Labels

Labels

Labels

Mari Belajar Bahasa Pemrograman

Square Banner

Flex Slider (Do Not Edit Here!)

Flickr

(Tab Widget 2)

(Tab Widget 4)

Poll

Popular Posts

About Me

Followers

(Tab Widget 3)

Pages

Shopping Cart

Labels

Blog Archive

Connect

Labels

Subscribe Via Email (Do Not Edit Here!)

Ewy!

Facebook

Popular Posts

Labels

Labels

Labels

Labels