ยินดีต้อนรับแขกผู้มาเยือน กรุณา เข้าสู่ระบบ หรือ ลงทะเบียน
ส่งอีเมล์ยืนยันการใช้งาน?
 
Please Login!

แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - sornram9254.com

หน้า: [1] 2 3 ... 23
1
General Programming / How to : compile c with Notepad++
« เมื่อ: 17 ตุลาคม 2012, 01:15:16 »

Full Detail : http://www.youtube.com/watch?v=HqRxD8yHIWU
ประยุกต์กับภาษาอื่นก็ได้ครับ :)

ปล. ใครอย่ามาดราม่าให้ไล่ไปใช้ ide แทนนะ -.-*

2
คำว่าแม่ มีความหมาย ใครก็รู้
แม่เลี้ยงดู ตั้งแต่เล็ก จนเติบใหญ่
รักแม่ ที่สุด ในดวงใจ
มิให้ใคร พรากรัก ไปจากกัน
:)

รักแม่กันให้มากๆนะครับ รักท่านทุกวัน ไม่ใช่แค่วันแม่เท่านั้นนะครับ ^_^


3
โฮสติ้ง และ เซิร์ฟเวอร์ / .
« เมื่อ: 29 เมษายน 2012, 04:52:41 »
.

4
3D & Video Graphic / Re: [sony vegas] สอบถามการทำ text effect ครับ
« เมื่อ: 27 เมษายน 2012, 15:08:53 »
ผมอยากทำแบบนี้อ่ะครับ แต่ตอนเปลี่ยนอักษร smootๆ แบบค่อยๆโผล่ นะครับ ^^
จำเป็นต้องใช้ FlashPlayer

5
3D & Video Graphic / [sony vegas] สอบถามการทำ text effect ครับ
« เมื่อ: 27 เมษายน 2012, 06:51:46 »
 [sony vegas]
ผมจะทำ text effect แบบว่า
มีอีกษรอยู่ 3 ตัว    ABC
แล้วจะให้มันขยายออกมา(เปลี่ยนรูปร่างข้อความ)เป็น Aminal Bird Cat ยังไงอ่ะครับ  ?
ปล. เรียกไม่ถูก - -"

6
General Programming / [perl] Download video from Socialcam
« เมื่อ: 22 เมษายน 2012, 17:36:53 »
[perl] Download video from Socialcam
หัดเขียนครับ ผิดพลาดขออภัย ^^"
โค๊ด: [Select]
#!/usr/bin/perl
#########################################################################
# ░░░░░░░░░░░░▄▄░░░░░░░░░░░░░░ Copyright (c) 2012 by sornram9254.com
# ░░░░░░░░░░░█░░█░░░░░░░░░░░░░
# ░░░░░░░░░░░█░░█░░░░░░░░░░░░░ This software is open source,
# ░░░░░░░░░░█░░░█░░░░░░░░░░░░░ licensed under the GNU/GPL,v3.0
# ░░░░░░░░░█░░░░█░░░░░░░░░░░░░
# ██████▄▄█░░░░░██████▄░░░░░░░ Basically,
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ this means that you're allowed to modify and
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ distribute this software.
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ However, if you distribute modified versions,
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ you MUST also distribute the source code.
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░
# ▓▓▓▓▓▓█████░░░░░░░░░██░░░░░░ See http://www.gnu.org/licenses/gpl.html
# █████▀░░░░▀▀████████░░░░░░░░ for the full license.
#########################################################################
#example : ~$perl socialcam http://socialcam.com/v/z8hnY0ZJ?autostart=true#_=_
use LWP::Simple;
$ua = LWP::UserAgent->new();
chomp($file=shift);
$contents = $ua->get($file);
$found = $contents->content;
if($found =~ m/<source src=\'(.*?)\'/g){
    `wget $1`;
}

7
ขออนุญาตนำมาแชร์นะคร้าบ น้องๆเค้าสวยน่ารักกันจังเลย เนียนนีเว่อร์

Credit : Dek-D & FB ของน้องๆ

1. ยิป (เคยเรียนยอแซฟอุปถัมภ์ )


-1


-2


-3 แอ๊บแอ้เอาชุดนักเรียนหญิงมาใส่ น่ารักโฮกกก


-4 น้องยิป พี่ปอย


-5


-6


-7


- 8พอใส่ชุดนักเรียนชายแล้วน้องยิปเหมือนเด็กผู้หญิงที่ปลอมตัวมาเป็นนักเรียนชายในการ์ตูนญี่ปุ่น 55+


2 แพทตี้ (เรียนม.สยาม)
-1


-2


-3


-4


-5


-6


-7


3. มิ้นนี่(เรียนยอแซฟอุปถัมภ์)
-1


-2


-3


-4


-5


-6


4.ปิ๊ง (เรียนม.กรุงเทพ)
-1


-2
http://www.pantip.com/cafe/woman/topic/Q11980390/Q11980390-24.jpg

-3


-4


-5


-6


5.ลี (เรียนเทพศิรินทร์)
-1

-2


-3


-4


-5


-6


ที่มา : http://www.pantip.com/cafe/woman/topic/Q11980390/Q11980390.html

8
General Programming / [Perl] IP Information : GUI
« เมื่อ: 16 เมษายน 2012, 01:51:58 »
SS :


หัดเขียนอีกเช่นเคยครับ ยังมึนๆอยู่ while ซ้อน while - -" เขียนได้เท่านี้แหละครับ ถ้าใครมีวิธีทำให้เร็วหรือดีกว่านี้กบอกหน่อยนะครับ ^^"

โค๊ด: [Select]
#!/usr//bin/perl
#########################################################################
# ░░░░░░░░░░░░▄▄░░░░░░░░░░░░░░ Copyright (c) 2012 by sornram9254.com
# ░░░░░░░░░░░█░░█░░░░░░░░░░░░░
# ░░░░░░░░░░░█░░█░░░░░░░░░░░░░ This software is open source,
# ░░░░░░░░░░█░░░█░░░░░░░░░░░░░ licensed under the GNU/GPL,v3.0
# ░░░░░░░░░█░░░░█░░░░░░░░░░░░░
# ██████▄▄█░░░░░██████▄░░░░░░░ Basically,
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ this means that you're allowed to modify and
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ distribute this software.
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ However, if you distribute modified versions,
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ you MUST also distribute the source code.
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░
# ▓▓▓▓▓▓█████░░░░░░░░░██░░░░░░ See http://www.gnu.org/licenses/gpl.html
# █████▀░░░░▀▀████████░░░░░░░░ for the full license.
#########################################################################
use Tk;
use LWP::Simple;
$mw = new MainWindow; $mw->title("Perl GUI :)"); $mw->geometry('200x70');
$mw->Label(-text => "IP Information")->pack;
$mw->Button(-text => "Check", -command => \&get_ip )->pack(-ipadx => 40,-ipady => 5);
sub get_ip {
my $ua = LWP::UserAgent->new();
my $contents = $ua->get('http://www.melissadata.com/lookups/iplocation.asp');
my $found = $contents->content;
while( $found =~ m/<span style=\"font-size:12px;\">Your IP Address: (.*?)<\/span>/g ) {
$ip=$1;
print "IP : $1 \n";
$mw = new MainWindow; $mw->geometry('400x200'); $mw->title("Check IP : Result");
my $frm_name = $mw -> Frame() -> pack(); #New Frame
my $ent = $frm_name -> Entry(-text => "IP => $1") -> pack (-ipadx => 100,-ipady => 5);
#------------------------------------------------------------------------------------------------------------------------------------------
my $content = $ua->get('http://www.melissadata.com/lookups/iplocation.asp?ipaddress='.$ip)->content;
my ($isp) = ($content =~ m/<td class=\'columresult\'>ISP<\/td><td align=\'left\'><b>(.*?)&nbsp;<\/b>/g);
print "ISP : $1 \n";
my ($city) = ($content =~ m/City<\/td><td align=\'left\'><b>(.*?)<\/b>/g);
print "City : $1 \n";
my ($state) = ($content =~ m/State or Region<\/td><td align=\'left\'><b>(.*?)<\/b>/g);
print "State or Region : $1 \n";
my ($country) = ($content =~ m/Country<\/td><td align=\'left\'><b>(.*?)<\/b>/g);
print "Country : $1 \n";
my ($la1,$la2) = ($content =~ m/Latitude & Longitude<\/td><td align=\'left\'><b>(.*?)&nbsp;&nbsp;(.*?)<\/b>/g);
print "Latitude : $1 .::.::. Longitude : $2 \n";
my $ent = $frm_name -> Entry(-text => "ISP => $isp") -> pack (-ipadx => 100,-ipady => 5);
my $ent = $frm_name -> Entry(-text => "City => $city") -> pack (-ipadx => 100,-ipady => 5);
my $ent = $frm_name -> Entry(-text => "State or Region => $state") -> pack (-ipadx => 100,-ipady => 5);
my $ent = $frm_name -> Entry(-text => "Country => $country") -> pack (-ipadx => 100,-ipady => 5);
my $ent = $frm_name -> Entry(-text => "Latitude => $la1 .::. Longitude => $la2") -> pack (-ipadx => 100,-ipady => 5);
#------------------------------------------------------------------------------------------------------------------------------------------
}
}
MainLoop;

ปล. ขอบคุณ PongZ มากๆครับที่แก้ไขโค้ดให้ ^^
ที่มา : http://www.sornram9254.com/blog/perl-ip-information-gui

9
General Programming / [Perl] Encode & Decode MD5 : GUI
« เมื่อ: 14 เมษายน 2012, 23:26:38 »
เป็นโปรแกรม Perl ตัวแรกนะครับที่ผมเขียนเป็นแบบ GUI ถ้าผิดพลาดประการใดก็ขออภัยด้วยครับ (-/\-)
ปล. ด้านล่างไม่ใช่รูปของโปรแกรมนี้นะครับ ส่วนของโปรแกรมนี้มีแค่ En&De md5 แค่นั้น 55 ^^"

โค๊ด: [Select]
#!/usr/bin/perl -w
#########################################################################
# ░░░░░░░░░░░░▄▄░░░░░░░░░░░░░░ Copyright (c) 2012 by sornram9254.com
# ░░░░░░░░░░░█░░█░░░░░░░░░░░░░
# ░░░░░░░░░░░█░░█░░░░░░░░░░░░░ This software is open source,
# ░░░░░░░░░░█░░░█░░░░░░░░░░░░░ licensed under the GNU/GPL,v3.0
# ░░░░░░░░░█░░░░█░░░░░░░░░░░░░
# ██████▄▄█░░░░░██████▄░░░░░░░ Basically,
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ this means that you're allowed to modify and
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ distribute this software.
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ However, if you distribute modified versions,
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░ you MUST also distribute the source code.
# ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░░░
# ▓▓▓▓▓▓█████░░░░░░░░░██░░░░░░ See http://www.gnu.org/licenses/gpl.html
# █████▀░░░░▀▀████████░░░░░░░░ for the full license.
#########################################################################
use Tk;
use LWP;
use Digest::MD5 qw(md5_hex);
$mw = new MainWindow; $mw->geometry('300x150'); $mw->title("Perl GUI");

########## Encode MD5 ##########
$mw->Label(-text => "Encode MD5")->pack;
$mw -> Entry(-textvariable => \$put_en_md5) -> pack;
$mw->Button(-text => "Gen", -command => \&en_md5 )->pack;

sub en_md5 {
my $md5_hash = $put_en_md5;
my $md5_generated = md5_hex($md5_hash);
print "Encode MD5 : Result => $md5_generated\n";
########## Create New Form ##########
$mw = new MainWindow; $mw->geometry('350x70'); $mw->title("Encode MD5 : Result");
$mw->Label(-text => "$put_en_md5")->pack;
my $frm_name = $mw -> Frame() -> pack(); #New Frame
my $ent = $frm_name -> Entry(-text => $md5_generated) -> pack (-ipadx => 60,-ipady => 5);
}
########## Decode MD5 ##########
$mw->Label(-text => "Decode MD5")->pack;
$mw -> Entry(-textvariable => \$put_de_md5) -> pack;
$mw->Button(-text => "Gen", -command => \&de_md5 )->pack;

sub de_md5 {
my $md5 = $put_de_md5;
$lwp = LWP::UserAgent->new;
$lwa = $lwp->get('http://md5.rednoize.com/?p&s=md5&q='.$md5);
$hash = $lwa->content;
print "Decode MD5 : Result => $hash\n";
########## Create New Form ##########
$mw = new MainWindow; $mw->geometry('350x70'); $mw->title("Decode MD5 : Result");
$mw->Label(-text => "$put_de_md5")->pack;
my $frm_name = $mw -> Frame() -> pack(); #New Frame
my $ent = $frm_name -> Entry(-text => $hash) -> pack (-ipadx => 60,-ipady => 5);
}
MainLoop;

ที่มา : http://www.sornram9254.com/blog/perl-encode-decode-md5-gui

10
จากโพส อีโมติคอน&ซิมโบล [Emoticons&symbols] Facebook และ New Smiley Code Facebook 2012  นอกจาก emo ที่ทาง facebook เราก็สามารถทำ emo ขึ้นมาเองได้ง่ายๆ โดยใช้ รูปแบบ
[[...]]
โดยที่เราแทนที่ … ด้วย ID รูปภาพ , ID & Username  Profile , ID & Username Fanpage
ตัวอย่าง Profile
[[1492029601]]
[[sornram9254]]
โค้ดแบบแรก เป็นการใช้ ID Profile ในการทำ โดยหาได้จากลิงค์โปรไฟล์ของเราเอง  http://www.facebook.com/profile.php?id=1492029601
แบบที่สอง เราสามารถใช้ Username ของเราทำได้เลย :D
ตัวอย่าง Fanpage & Picture Album
[[238375259517644]]
[[tc.ayuttech]]
แบบแรกเป็นการใช้หมายเลข ID Photo ในการทำ ซึ่งเราสามารถหาได้จาก URL ของรูปภาพ ซึ่งตัวเลยจะอยู่ชุดแรกของ URL (ตามรูปที่คลุมดำไว้)
http://www.facebook.com/photo.php?fbid=238375259517644&set=a.238375256184311.59019.238375056184331&type=1
แบบที่สอง เราสามารถใช้ Username Fanpage ทำได้เลย :D

>>See Full Article<<

11
เคยไหมครับที่อยากจะติดตามคนที่เราสนใจ คนที่เราติดตาม (หรือแม้คนที่เราแอบรัก 55) ว่าวันๆเขาโพสอะไรบ้าง อัพเดท status อะไร อัพรูปอะไรบ้าง
ความจริง Fn นี้ก็มีมานานแล้ว ผมก็ใช้มานานแล้วด้วย :D แต่เพิ่งเอามาเขียนลง Blog 55
ตอนนี้ Facebook ก็ได้มี Fn ไว้ให้ใช้งานแล้วครับ นั้นก็คือ “close friends” ขั้นตอนการทำก็ง่ายๆตามนี้ครับ
เข้าไปที่ Profile ที่เราต้องการทำ Close Friends แล้วชี้ที่ปุ่ม Friend

คลิกที่เมนู Close Friends

ก็จะได้แบบนี้ครับ

เมื่อคนที่เราทำ Close Friends โพสอะไร มันก็จะมี Notifily แจ้งเตือนให้เราครับ

>>See Full Article<<

12
โซเชียลเน็ตเวิร์ค / New Smiley Code Facebook 2012
« เมื่อ: 06 เมษายน 2012, 23:51:47 »
Adore [[f9.adore]]
Angry [[f9.angry]]
Bowl [[f9.bowl]]
Cake [[f9.cake]]
Clap [[f9.clap]]
>>More...<<

13

ท่านชอบ Facebook Timeline แบบใหม่หรือไม่ ? (ตอบแล้วช่วย comment ด้วยนะครับว่าเพราะเหตุใดถึง ชอบ,ไม่ชอบ,เฉยๆ)
http://www.facebook.com/questions/2715107685528/

14
คลับรักสุขภาพ / Re: ช่วยที
« เมื่อ: 13 ตุลาคม 2011, 02:18:45 »
ใครเคยเป็นแบบเราบ้างเรานอนไม่หลับมากหลายคืน
กินยานอนหลับก็หลับแค่2-3ชัวโมงเอง แต่กินยานอนหลับ3เม็ดเลยนะ ทำไงดี
ช่วยทีนอนไม่หลับหน้าตานีดูไม่ได้เลยอ่ะ :b9: :b9: |n8:|

ผมก็เป็นครับ เครียดเรื่องเรียน เรื่องทำงาน เรื่องน้ำท่วมอีก ไม่ได้นอนมาสองวันและ TT"
บางทีอาจเกิดจากความเครียดก็ได้มั้งครับ  :)

15
ฝากไลค์แฟนเพจเหล่านี้ด้วยนะครับทุกท่าน  ความจริงมีเยอะกว่านี้ แต่เอาแค่นี้ก่อน เกรงใจครับ


อ้างถึง

แฟนเพจของเว็บผมครับ >> http://www.sornram9254.com , http://www.sornram9254.com/blog




อ้างถึง

คำคมเด็ดๆ กลอนความรัก เรื่องไร้สาระ




อ้างถึง

เรื่องราวนิสัยแบบต่างๆของคนกรุ๊ป B




อ้างถึง

ข้อคิด กำลังใจ มีให้กันเสมอ




อ้างถึง

วิทยาลัยเทคนิคพระนครศรีอยุธยา




อ้างถึง

ข่าวสาร opensource , linux , ubuntu การปรับแต่งต่างๆ




อ้างถึง

มันใจ! คนไทยอยากเห็นเด็ก "อาชีวะ" เลิกตีกัน




อ้างถึง

แผนกช่างเทคนิคคอมพิวเตอร์ วิทยาลัยเทคนิคพระนครศรีอยุธยา


[/td][/tr][/table]

16
General Programming / Re: ขอ VDO สอน Matlab Th-Eng ก็ได้ค่ะ
« เมื่อ: 07 กันยายน 2011, 05:54:15 »
ใช่ครับ ใน YT เยอะแยะไป

ปล. ผมเอาแบบอีบุ๊คมาฝากครับ อิอิ
http://www.mediafire.com/?d34bx2268yot6i8

17
Example in Python
อ้างถึง
#python2.6 <
from math import log
 
def getDigit(num, base, digit_num):
    # pulls the selected digit
    return (num // base ** digit_num) % base 
 
def makeBlanks(size):
    # create a list of empty lists to hold the split by digit
    return [ [] for i in range(size) ] 
 
def split(a_list, base, digit_num):
    buckets = makeBlanks(base)
    for num in a_list:
        # append the number to the list selected by the digit
        buckets[getDigit(num, base, digit_num)].append(num) 
    return buckets
 
# concatenate the lists back in order for the next step
def merge(a_list):
    new_list = []
    for sublist in a_list:
       new_list.extend(sublist)
    return new_list
 
def maxAbs(a_list):
    # largest abs value element of a list
    return max(abs(num) for num in a_list) 
 
def radixSort(a_list, base):
    # there are as many passes as there are digits in the longest number
    passes = int(log(maxAbs(a_list), base) + 1)
    new_list = list(a_list)
    for digit_num in range(passes):
        new_list = merge(split(new_list, base, digit_num))
    return new_list
โค๊ด: [Select]
http://en.wikipedia.org/wiki/Radix_sort

ถ้าไม่ถูกใจก็หาใหม่เลยครับ
http://www.google.co.th/search?hl=th&q=radix+sort+c%2B%2B
 [$2$] [$2$] [$2$]

18
ชื่อกระทู้พาให้คิดไปไกล  :P

คิดอารายหว่าา  *0*

ปล. แอบดันเนียนๆ  : )

19
ถาม - ตอบ ปัญหาไอที / Re: เน็ตช้าเป็นเพราะ....
« เมื่อ: 05 กันยายน 2011, 23:52:12 »
อิอิอิ  ไม่เกี่ยวหรอกค่ะ เพราะถึงแม้เวปนั้นจะมี มหีแฟลช  ก็ไม่มีผลต่อซีพียูหรอค่ะ.  เพราะโดยบราวเซอร์ปกติ(เล่นเวปต้องผ่านบราวเวอร์)..มันรองรับพวกนี้..ในอาการปกติอยู่แล้วค่ะ
อย่าลืมเรื่องภาษาต่างๆที่ใช้ในการเขียนเวป มันต้องซัพพอร์ท และรองรับกับบราวเซอร์ ;) ;)

 |n3:| |n3:| |n3:|

ตกใจคำตอบ!!
 :a4:

20
อ้างถึง
  [$3$] [$3$] [$3$]


 [{-23-}] อยู่ด้านล่าง  [$35$]
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v
v















ปล. แถม  :P
อ้างถึง
    Top Ten Antivirus 2012
    BitDefender Antivirus 2012
    McAfee Antivirus 2012
    Kaspersky Antivirus 2012
    ESET Antivirus 2012
    Norton Antivirus 2012
    F-Secure Antivirus 2012
    Vipre Antivirus 2012
    TrendMicro Antivirus 2012
    ZoneAlarm Antivirus 2012
    Panda Antivirus 2012
 ;) ;) ;)

หน้า: [1] 2 3 ... 23