Category: Pengaturcaraan

PHPMeetup 2011: Framework Shootout

Komuniti PHP.net.my dengan kerjasama MIMOS sekali lagi menganjurkan PHP Meetup. Perjumpaan kali ini akan berkisar mengenai framework yang ada di komuniti sumber terbuka.

Tentatif :
8.30 – Pendaftaran
9.00 – Ucapan alu-aluan dari Founder Php.net.my
– Ucapan alu-aluan dari Mimos Berhad
– CakePHP
10.25 – Breakfast
10.55 – Most Wanted Programmers
– Django
– DooPHP
1.10 – Lunch
2.15 – ZendFramework
– CodeIgniter
– Ruby On Rails
– PHP Hyppo
5.05 – Tea Break and Chats

– Presenters:
1. Zend Framework (TerasAmpuh)
2. CakePHP (Bazet)
3. PHPHyppo (hymns)
4. Code Igniter (aizuddinmanap.com)
5. dooPHP – Leng Sheng Hong (darkredz)
– Guest Languages:
6. Django – framework untuk Python (Doubt).
7. Ruby on Rails (Azrad)
– Non-framework topic
8. Become the Most Wanted Programmer in the Market (Lee Johnson – 40Square)

Bahasa pengantar adalah mengikut presenter.

masuk adalah percuma. keluar pun sama. 🙂

Breakfast, Lunch dan makan petang disediakan. First come first makan basis.

Penaja Bersama :
AIST – http://www.aist.com.my/
PRIMUSCORE – http://www.primuscore.com/
EXPERIAN HITWISE – http://www.hitwise.com/
JMOBI – http://www.i-mobe.com/

Yang datang akan dapat MUG PERCUMA selagi stok masih ada.

Semoga segalanya dipermudahkan olehNYA.

FB: http://www.facebook.com/event.php?eid=147833501942196

Facebook

Currently…

+ ICMS
+ Sistem eLatihan
+ Sistem eQA
+ Web JMK

Coming…
+ Task management
+ Sistem tempahan borang klinikal
+ Sistem tempahan bilik mesyuarat

Input warna2

Saja buat time boring !!

menu channel {
  Input Warna
  .Aktifkan:.enable #kaler
  .Diaktifkan:.disable #kaler
}
#kaler on
ON *:INPUT:*: {
  if ($left($1,1) == $chr(47) || $ctrlenter) { return }
  else {
    var %a 1 , %b 2 , %c
    var %d $replace($1-,$chr(32),$chr(135)) , %e 1 , %b $r(2,14)
    while (%a < $calc($len(%d) + 1)) {
      if (%b > 15) %b = 2
      %c = $+(%c,$chr(3),%b,$mid(%d,%a,1))
      .inc %a | .inc %b
    }
    msg $active $replace(%c,$chr(135),$chr(32)) | halt
  }
}
#kaler end

Simple MP3 Player

Usage: Taip /addmp3 utk masukkan senarai lagu. Script akan auto info (/ame) selepas 60s connect ke server

alias uw {
var %a = 1
while (%a <= $numtok($1-,32)) { var %b = $gettok($1-,%a,32) var %c = %c $+($upper($left(%b,1))) $+ $mid(%b,2) var %a $calc(%a +1) } return %c } alias addmp3 { var %mp3.dir $sdir="Set MP3 Dir" if (!%mp3.dir) { return } var %mp3.num $findfile(%mp3.dir, *.mp3, 0), %mp3.loop 1 :mp3_loop if (%mp3.loop <= %mp3.num) { .write mp3.txt $findfile(%mp3.dir,*.mp3,%mp3.loop) inc %mp3.loop goto mp3_loop } } alias mp3info { var %lagu = $qt($read(mp3.txt)) .splay -cwmp %lagu ame sedang mendengar lagu $uw($replace($lower($remove($nopath(%lagu),.mp3)),_,$chr(32))) [ $+ $duration($calc($sound(%lagu).length / 1000)) $+ / $+ $round($calc($file(%lagu) / 1000000),2) $+ mb $+ / $+ $sound(%lagu).bitrate $+ kbps] .timermp3info 1 $calc($sound(%lagu).length / 1000 + 60) mp3info } ON *:CONNECT: { .timer 1 60 mp3info } [/sourcecode]

Auto Voice

Okey… Remote ni.. akan autovoice user setelah dia msg channel sekurang-kurangnya 7 baris dalam tempoh 15 saat.

ON @*:TEXT:*:#: { 
  if ($nick isreg $chan) { 
    .inc -u15 %voice. [ $+ [ $cid ] $+ [ $chan ] $+ [ $nick ] ] 1 
    if (%voice. [ $+ [ $cid ] $+ [ $chan ] $+ [ $nick ] ] > 6) { 
      mode $chan +v $nick | halt
    } 
  } 
}

Nick Completor

Okey, utk tidak menghampakan bro Zek, ni remote nick completor yg pakcu pakai… Feel free to edit it 😉

alias ncomp {
  var %color = $+($base($r(2,14),10,10,2))
  return $+($left($nick($1,$2).pnick,1),,%color,$left($2,1),,$mid($2,2,-1),,%color,$right($2,1),,$chr(44)) $3-
}
ON *:INPUT:*: {
  if ($left($1,1) == $chr(47) || $ctrlenter || $inpaste) { return }
  else {
    if ($chr(35) isin $active && c !isin $gettok($chan($active).mode,1,32)) {
      if ($1 ison $active) {
        msg $target $ncomp($active,$1,$2-) | halt
      }
      else {
        msg $target $1- | halt 
      }
    }
    else { 
      msg $target $1- | halt 
    }
  }
}