Wednesday, 10 February 2016

Web Dengan JSP

Ini Koding Untuk Web Berbasis JSP Simpan Di D:\XAMPP\TOMCAT\WEBAPPS\nama_folder\index.jsp

<html>
<head>
<title>Input Biodata</title>
<style type="text/css">
#button1{
padding-left:20px;
text-align:left;
}
#button2{
padding-right:20px;
text-align:right;
}

#kepala{
font-family:algerian,snap itc;
font-size:25px;
height:50px;
}
#kaki{
height:30px;
}
#tabel1{
background-color:dodgerblue;
width:410px;
padding:10px;
box-shadow:black 0px 0px 4px 1px;
border-radius:20px 0px 20px 0px;
}
#tabel2{
background-color:dodgerblue;
padding:10px;
box-shadow:black 0px 0px 4px 1px;
border-radius:20px 0px 20px 0px;
}
#tabel_isi{
background-color:black;
color:white;
width:400px;
height:200px;
padding:5px;
}
</style>
</head>
<body bgcolor="cornflowerblue">
<br />
<form action="index.jsp" method="get">
<table id="tabel1" align="center">
<tr id="kepala">
<th colspan="2" id="kepala">Biodata Siswa</th>
</tr>
<tr>
<td colspan="2">
<table align="center" id="tabel_isi" border="0">
<tr>
<td id="kolom1">NIS</td>
<td>: <input type="text" name="nis" size="10" required="1" /></td>
</tr>
<tr>
<td id="kolom1">NAMA</td>
<td>: <input type="text" name="nama" size="10" required="1" /></td>
</tr>
<tr>
<td id="kolom1">ALAMAT</td>
<td>: <input type="text" name="alamat" size="10" required="1" /></td>
</tr>
<tr>
<td id="kolom1">NO. TELP</td>
<td>: <input type="text" name="no_telp" size="10" required="1" /></td>
</tr>
<tr>
<td id="kolom1">HOBI</td>
<td>: <input type="text" name="hobi" size="10" required="1" /></td>
</tr>
</table>
</td>
</tr>
<tr id="kaki">
<td id="button1">
<input type="submit" value="proses" />
</td>
<td id="button1">
<input type="reset" value="clear" />
</td>
</tr>
</table>
<br />
<table id="tabel2" align="center">
<%
String nis = request.getParameter("nis");
String nama = request.getParameter("nama");
String alamat = request.getParameter("alamat");
String no_telp = request.getParameter("no_telp");
String hobi = request.getParameter("hobi");
%>
<tr bgcolor="black" style="color:white;">
<th width="30">NO</th>
<th width="50">NIS</th>
<th width="150">NAMA</th>
<th width="200">ALAMAT</th>
<th width="120">NO. TELP</th>
<th width="100">HOBI</th>
</tr>
<tr>
<td>1</td>
<td><% out.println(nis);%></td>
<td><% out.println(nama);%></td>
<td><% out.println(alamat);%></td>
<td><% out.println(no_telp);%></td>
<td><% out.println(hobi);%></td>
</tr>
</table>
</form>
</body>
</html>

Bisa Di Copas
Jangan Lupa Komen

Posted by at 1 comment:

Wednesday, 20 January 2016

Peranan Pers Dalam Masyarakat Demokrasi

Hai, Disini Saya Akan Mengulas Sedikit Tentang Peranan Pers Yang Ada Di Indonesia. Ini Adalah Tugas Yang Di Berikan Oleh Guru Saya Yang Akan Saya Publikasikan , Semoga Berkenan Untuk Teman-Teman Sekalian Membacanya . Check It Out

Pengertian :
Ada Beberapa Pengertian Dari Pers Ini Yaitu
  • Menurut KBBI, Pers Adalah
Posted by at No comments:

Friday, 20 June 2014

cara membuat program set wallpaper

 
Membuat Program Set Wallpaper dengan vb.net 2008


Hai Sob , kali ini saya akan membahas tentang bagaimana cara membuat program set wallpaper .
1.       Pertama-tama , buka terlebih dahulu microsoft visual basic (Di sini saya menggunakan Microsoft Visual Basic 2008/VB.NET)
2.       Lalu klik creat project => pilih windows form application => berinama suka-suka => enter
3.       Setelah itu , tambahkan :
-          2 buah button
-          1 buah picturebox
-          1 buah combobox
-          1 buah openfiledialog
Lalu atus posisinya sesuka hati
4.       Atur properties sebagai berikut :
Button1
Name : caributton

Text : Search
Button2
Name : Aturbutton

Text : Set
Combobox1
Name : StyleCBox
Picturebox1
Name : Pic_View
5.  Klik kanan pada form lalu pilih view code
6.  Hapus semua kode dan paste-kan kode berikut :
Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports Microsoft.Win32
Imports System.StackOverflowException
PublicClass Wallpaper
Const SPI_SETDESKWALLPAPER AsInteger = 20
Const SPIF_UPDATEINIFILE AsInteger = &H1&
Const SPIF_SENDWININICHANGE AsInteger = &H2&

<DllImport("user32")> _
PublicSharedFunction SystemParametersInfo(ByVal uAction AsInteger, _
ByVal uParam AsInteger, ByVal lpvParam AsString, ByVal fuWinIni AsInteger) AsInteger
EndFunction

PublicEnum Style AsInteger
        Tiled
        Centered
        Stretched
EndEnum

PublicSub SetWallpaper(ByVal path AsString, ByVal selectedStyle As Style)
Dim key As RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True)

SelectCase selectedStyle
Case Style.Stretched
                key.SetValue("WallpaperStyle", "2")
                key.SetValue("TileWallpaper", "0")

Case Style.Centered
                key.SetValue("WallpaperStyle", "1")
                key.SetValue("TileWallpaper", "0")

Case Style.Tiled
                key.SetValue("WallpaperStyle", "1")
                key.SetValue("TileWallpaper", "1")
EndSelect

        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, path, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
EndSub
Dim Nama_File AsString

PrivateSub Wallpaper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
'    OpenFileDialog1.ShowDialog()
'    OpenFileDialog1.Filter = "JPG|*.jpg|Bitmap|*.bmp"
'    OpenFileDialog1.InitialDirectory = "%SystemRoot%"
        styleCBox.DataSource = System.Enum.GetNames(GetType(Wallpaper.Style))

EndSub

PrivateSub cariButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cariButton.Click
If DialogResult.OK = OpenFileDialog1.ShowDialog() Then
            Nama_File = OpenFileDialog1.FileName
            Pic_View.Image = New Bitmap(Nama_File)
EndIf

EndSub

PrivateSub AturButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AturButton.Click
Dim w As Wallpaper = New Wallpaper()
        w.SetWallpaper(Nama_File, CType(System.Enum.Parse(GetType(Wallpaper.Style), styleCBox.Text), Wallpaper.Style))
        SetWallpaper(Nama_File, CType(System.Enum.Parse(GetType(Wallpaper.Style), styleCBox.Text), Wallpaper.Style))
EndSub
EndClass
 Untuk Lebih Jelas Lihat Video Di Bawah ini

7.  Setelah itu , di run dengan menekan tombol F5
8.  Ini hasilnya

9.       Selamat mencoba ..
10.   Happy coding !!!
Posted by at No comments:

Saturday, 7 December 2013

Kenangan Bersama Guru Tercinta

Ini persembahan dari kami yaitu kelas X RPL 1 SMKN 1 Ciomas untuk guru produktif kami tercinta 

IBU SISTA SOPIANA

mungkin hadiah yang kami berikan sangant sangat tak sebanding dengan semuuua yang telah ibu berikan dan curahkan kepada kami.

walaupun ibu pergi alias tak mengajar kami lagi tapi samp[ai kapanpun ibu tetap guru kami 
thank you teacher  



































semoga kebersamaan kita ga termakan waktu ya sob.... : D

Posted by at No comments:

Tuesday, 12 November 2013

lirik merindukanmu - dmasiv

Lirik Merindukanmu - D'Masiv



Saat aku tertawa diatas semuaSaat aku menangisi kesedihanku
Aku ingin engkau selalu ada
Aku ingin engkau aku kenal

Reff :
Selama aku masih bisa bernafas
Masih sanggup berjalan ku kan slalu memujamu
Meski ‘ku tak tahu lagi engkau ada dimana
Dengarkanlah aku ku merindukanmu

Saat aku mencoba merubah segalanya
Saat aku meratapi kekalahanku
Aku ingin engkau selalu ada
Aku ingin engkau aku kenal

Posted by at No comments:
Subscribe to: Comments (Atom)