ที่จะทำก็คือจะดึงภาพโปสเตอร์ของหนังจากเวบเช่น
http://www.majorcineplex.com/movie_all.php
มารวมกันทำเป็นรูปโปสเตอร์อันใหม่โดยอาศัยMathematicaดูครับ (ครับ...จริงๆก็แค่ ก๊อปภาพแล้วไปแปะในโปรแกรมอย่าง Paint ก็ได้ครับ
ง่ายกว่าด้วยไม่ต้องเขียน code ให้ปวดหัว hahaha
)
อันนี้เป็นตัวอย่าง Mathematica ที่เขียนขึ้นครับ
webpage = StringSplit[Import["
http://www.majorcineplex.com/movie_all.php", "Source"]];
movieurl = Select[webpage, StringLength[ #] >= 5 && StringMatchQ[ #, "src" ~~ ___ ~~ "cropImage" ~~ __] &];
importPoster[movieurl_] := Module[{url},
url = "
http://www.majorcineplex.com/" <> StringDrop[movieurl, 5];
Import[url]
];
movie10 = importPoster[ #] & /@ movieurl[[1 ;; 15]];
imagegrid =ImageAssemble[Partition[movie10, 5] /. x_Image :> ImagePad[ImagePad[ImageResize[x, {512, 755}], 3, White], 20, Black]];
ImageResize[ImagePad[imagegrid, 150, Black], {800, 600}]
ใครเบื่อๆก็ลองเล่นดูครับ
บทเรียน
