SENIN, 30 JUNI 2014

Kegiatan untuk hari ini yaitu menghadiri acara PIDATO DIES NATALIS ke-35 dengan judul "PERAN GENERASI MUDA DI ERA INFORMASI UNTUK MEMBANGUN INDONESIA YANG DIHORMATI", oleh KRMT. ROY SURYO NOTODIPROJO

Hari ini Acara Dies Natalis STMIK AKAKOM yang ke-35 dihadiri oleh MENPORA RI, Bapak ROY SURYO NOTODIPROJO, beserta dengan jajarannya. Kami merasa senang karena bisa menghadiri acara tersebut dan mendengar langsung pidato dari Beliau.

Acara yang berlangsung dari pukul 09.00-11.30 membuat antusias dari semua peserta yang menghadiri acara tersebut, tidak hanya dari mahasiswa dan mahasiswi saja, tetapi dari para dosen pun banyak yang mengikuti acara tersebut.

Pidato yang di sampaikan oleh Bapak Roy Suryo berisikan tentang Kreativitas Generasi Baru Anak-anak Indonesia. Apabila bangsa Indonesia ingin di hormati kembali seperti dulu kala, maka hal yang perlu di tekankan agar bangsa Indonesia kembali di hormati ialah dengan memperhatikan kreativitas anak-anak bangsa Indonesia.

Dengan berkembangnya kreativitas tersebut, maka bangsa Indonesia bisa ikut berkancah di dunia Internasional dan derajat bangsa Indonesia bisa kembali pulih seperti sedia kala. Itulah inti pidato dari Bapak Roy Suryo pada acara tadi. Kami mengikuti acara tersebut sampai selesai. Sempat terlintas di benak kami bahwa kami ingin berfoto bersama beliau sebagai kenang-kenangan, tapi sayang, beliau terburu-buru pergi karena mungkin ada acara lain yang lebih penting.

Setelah acara selesai, kami kembali ke ruangan tempat biasa kami prakerin. Sampai disana, pembimbing menjelaskan bahwa kami kedatangan 2 siswa baru dari SMK yang berada di Jepara yang juga prakerin di STMIK AKAKOM. Lalu kami berkenalan dengan mereka.

Itu lah sepenggal acara kegiatan hari ini. Terimakasih.

Read More

Cara Membuat Search Engine Dengan PHP

Cara Membuat Search Engine Dengan PHP

Cara Membuat Pencarian Data Dengan PHP... ?  atau kebanyakan orang mengetahui dengan kata kunci Cara Membuat Search Engine Dengan PHP... ? ...

Bagaimana ya caranya ... ? 

Fasilitas Search / Pencarian data merupakan faktor yang cukup penting di dalam membuat sebuah aplikasi-aplikasi, apalagi untuk website hampir tidak pernah ketinggalan Search Engine nya.. Ya ini di maksudkan agar user lebih mudah dalam mengakses isi seluruh situs.. dan tentunya website anda akan lebih SEO Friendly...

Berikut Cara Untuk Membuat Pencarian Data Dengan PHP : 

contoh disini, saya membuat database dengan nama "pencarian" dan membuat  table dalam database dengan nama "siswa"
berikut tabelnnya  :

Data pada gambar di atas merupakan data yang ada di dalam database, Nah untuk membuat Pencarian Data Dengan PHP sangatlah mudah.. berikut ini script :

view plainprint?

1.  <strong>PENCARIAN:</strong>  

2.    

3.  <form action="<?$_SERVER['PHP_SELF']?>" method="post" name="pencarian" id="pencarian">  

4.    <input type="text" name="search" id="search">  

5.    <input type="submit" name="submit" id="submit" value="CARI">  

6.  </form>  

7.    

8.  <?php  

9.  // konfigurasi  

10. $db_host = "localhost";  // nama host  

11. $db_user = "root";  // username mysql  

12. $db_pass = ""; //password isi sesuai seting server Anda.  

13. $db_name = "pencarian";  // karena nama database yang kita buat adalah pencarian  

14.   

15. // koneksi ke database  

16. $link = mysql_pconnect ($db_host, $db_user, $db_pass) or die ("Ga bisa connect");  

17. mysql_select_db ($db_name) or die ("Ga bisa select database");  

18.   

19. // menampilkan data  

20.   

21. if ((isset($_POST['submit'])) AND ($_POST['search'] <> "")) {  

22.   $search = $_POST['search'];  

23.   $sql = mysql_query("SELECT * FROM siswa WHERE nama LIKE '%$search%' ") or die(mysql_error());  

24.   //menampilkan jumlah hasil pencarian  

25.   $jumlah = mysql_num_rows($sql);   

26.   if ($jumlah > 0) {  

27.     echo '<p>Ada '.$jumlah.' data yang sesuai.</p>';  

28.      

29.         while ($res=mysql_fetch_array($sql)) {  

30.         $nomor++; echo $nomor.'. ';  

31.         echo $res[nama].'  

32. ';  

33.       }  

34.   }  

35.   else {  

36.    // menampilkan pesan zero data  

37.     echo 'Maaf, hasil pencarian tidak ditemukan.';  

38.   }  

39. }   

40. else { echo 'Masukkan dulu kata kuncinya';}  

41. ?>  

Script di atas, merupakan Script Pencarian Data Denan PHP , anda tinggal mengcopy script nya ke dalam text editor anda, dan simpan dengan nama apa saja.

Dan Hasilnya adalah :

Demikian lah artikel "Cara Membuat Search Engine Dengan PHP" atau "Cara Membuat Pencarian Data Dengan PHP" semoga artikel ini Bermanfaat....

Read more: http://www.ebsof.com/2013/03/cara-membuat-search-engine-dengan-php.html#ixzz2r1RP9tfi

Read More

TUTORIAL CARA MEMBUAT KALKULATOR SEDERHANA PADA VISUAL BASIC 2010

TUTORIAL CARA MEMBUAT KALKULATOR SEDERHANA PADA VISUAL BASIC 2010

24NOV

Visual Basic 2010 biasa digunakan para programmer untuk membuat suatu aplikasi yang dapat memudahkan untuk memecahkan suatu masalah. Dan kali ini kami akan membahas cara-cara membuat kalkulator sederhana dengan menggunakan Visual Basic 2010.

1.       Buka VB 2010 >> New Project >> Windows Forms Application >> OK.

2.      Buat desain seperti gambar dengan memasukkan komponen dari toolbox ke dalam form design.

3. Ubah nama komponen yang telah dibuat dari bagian properties (di kotak yang ada di pinggir kanan)

Toolbox component	Nama
Button 1	1
Button 2	2
Button 3	3
Button 4	4
Button 5	5
Button 6	6
Button 7	7
Button 8	8
Button 9	9
Button 10	0
Button 11	.
Button 12	+
Button 13	-
Button 14	*
Button 15	/
Button 16	C
Button 17	SIN
Button 18	COS
Button 19	TAN
Button 20	^
Button 21	=
Button 22	ON
Button 23	OFF
Button 24	Akar
Button 25	Keluar
Button 26	+/-
Button 27	1/x
Button 28	%
TextBox1
Label 1	19

4. Klik 2 kali pada form, lalu masukkan listing code untuk masing-masing komponen, yaitu komponen Button, TextBox dan button. Berikut listing kodenya:

o    Form1 :

 Public Class Form1

Dim Angka, Hasil As Double

Const phi As Double = 22 / 7

Dim Rumus As String

o    Button1 :

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

If TextBox1.Text = “” Then

TextBox1.Text = “1″

Else

TextBox1.Text = TextBox1.Text & “1″

End If

End Sub

o    Button 2

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

If TextBox1.Text = “” Then

TextBox1.Text = “2″

Else

TextBox1.Text = TextBox1.Text & “2″

End If

End Sub

o    Button 3

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

If TextBox1.Text = “” Then

TextBox1.Text = “3″

Else

TextBox1.Text = TextBox1.Text & “3″

End If

End Sub

o    Button 4

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

If TextBox1.Text = “” Then

TextBox1.Text = “4″

Else

TextBox1.Text = TextBox1.Text & “4″

End If

End Sub

o    Button 5

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

If TextBox1.Text = “” Then

TextBox1.Text = “5″

Else

TextBox1.Text = TextBox1.Text & “5″

End If

End Sub

o    Button 6

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

If TextBox1.Text = “” Then

TextBox1.Text = “6″

Else

TextBox1.Text = TextBox1.Text & “6″

End If

End Sub

o    Button 7

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

If TextBox1.Text = “” Then

TextBox1.Text = “7″

Else

TextBox1.Text = TextBox1.Text & “7″

End If

End Sub

o    Button 8

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

If TextBox1.Text = “” Then

TextBox1.Text = “8″

Else

TextBox1.Text = TextBox1.Text & “8″

End If

End Sub

o    Button 9

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

If TextBox1.Text = “” Then

TextBox1.Text = “9″

Else

TextBox1.Text = TextBox1.Text & “9″

End If

End Sub

o    Button 10

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

If TextBox1.Text = “” Then

TextBox1.Text = “0″

Else

TextBox1.Text = TextBox1.Text & “0″

End If

End Sub

o    Button 11

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

If TextBox1.Text = “” Then

TextBox1.Text = “.”

Else

TextBox1.Text = TextBox1.Text & “.”

End If

End Sub

o    Button 12

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

If Angka = Nothing Then

Angka = Val(TextBox1.Text)

Else

Angka = Angka + Val(TextBox1.Text)

End If

Rumus = “+”

TextBox1.Text = Nothing

End Sub

o    Button 13

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

If Angka = Nothing Then

Angka = Val(TextBox1.Text)

Else

Angka = Angka – Val(TextBox1.Text)

End If

Rumus = “-”

TextBox1.Text = Nothing

End Sub

o    Button 14

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

If Angka = Nothing Then

Angka = Val(TextBox1.Text)

Else

Angka = Angka * Val(TextBox1.Text)

End If

Rumus = “*”

TextBox1.Text = Nothing

End Sub

o    Button 15

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

If Angka = Nothing Then

Angka = Val(TextBox1.Text)

Else

Angka = Angka / Val(TextBox1.Text)

End If

Rumus = “/”

TextBox1.Text = Nothing

End Sub

o    Button 16

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

TextBox1.Text = Nothing

Angka = Nothing

Hasil = Nothing

Rumus = Nothing

End Sub

o    Button 17

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

TextBox1.Text = Math.Sin(TextBox1.Text * (phi / 180))

End Sub

o    Button 18

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

TextBox1.Text = Math.Cos(TextBox1.Text * (phi / 180))

End Sub

o    Button 19

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

TextBox1.Text = Math.Tan(TextBox1.Text * (phi / 180))

End Sub

o    Button 20

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

If Angka = Nothing Then

Angka = Val(TextBox1.Text)

Else

Angka = Angka ^ Val(TextBox1.Text)

End If

Rumus = “^”

TextBox1.Text = Nothing

End Sub

o    Button 21

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click

If Rumus = “+” Then

TextBox1.Text = Angka + Val(TextBox1.Text)

ElseIf Rumus = “-” Then

TextBox1.Text = Angka – Val(TextBox1.Text)

ElseIf Rumus = “*” Then

TextBox1.Text = Angka * Val(TextBox1.Text)

ElseIf Rumus = “/” Then

TextBox1.Text = Angka / Val(TextBox1.Text)

ElseIf Rumus = “^” Then

TextBox1.Text = Angka ^ Val(TextBox1.Text)

End If

End Sub

o    Button 22

Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click

TextBox1.Enabled = True

Button1.Enabled = True

Button2.Enabled = True

Button3.Enabled = True

Button4.Enabled = True

Button5.Enabled = True

Button6.Enabled = True

Button7.Enabled = True

Button8.Enabled = True

Button9.Enabled = True

Button10.Enabled = True

Button11.Enabled = True

Button12.Enabled = True

Button13.Enabled = True

Button14.Enabled = True

Button15.Enabled = True

Button16.Enabled = True

Button17.Enabled = True

Button18.Enabled = True

Button19.Enabled = True

Button20.Enabled = True

Button21.Enabled = True

Button22.Enabled = True

Button23.Enabled = True

Button24.Enabled = True

End Sub

o    Button 23

      Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click

TextBox1.Enabled = False

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

Button10.Enabled = False

Button11.Enabled = False

Button12.Enabled = False

Button13.Enabled = False

Button14.Enabled = False

Button15.Enabled = False

Button16.Enabled = False

Button17.Enabled = False

Button18.Enabled = False

Button19.Enabled = False

Button20.Enabled = False

Button21.Enabled = False

Button23.Enabled = False

Button24.Enabled = False

End Sub

o    Button 24

   Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click

TextBox1.Text = Math.Sqrt(TextBox1.Text)

End Sub

o    Button 25

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

If MsgBox(“Keluar dulu ya”) Then

Close()

End If

End Sub

o    Button 26

  Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click

TextBox1.Text = -1 * (TextBox1.Text)

End Sub

o    Button 27

  Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click

TextBox1.Text = 1 / (TextBox1.Text)

End Sub

o    Button 28

  Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click

TextBox1.Text = (TextBox1.Text) / 100

End Sub

End Class

5. Berikut ini adalah bentuk akhir dari kalkulator sederhana yang telah dibuat:

Read More