- Today
- Total
내 머릿속 데이터베이스
내 리퍼러순위 5위안에 든 놈들을 대상으로 삼아 원래 있던 블로그 배너 디자인을 그대로 하여 최소형 미니 배너들을 만들어보았다. 혹시나 해서 필요하신분이 있을까하여 공개한다. 추가로 필요한게 있다면 요구하면 해줄지도 ㅎㅎ;;
Daisy님(http://daisy.pe.kr/)이 만든 스킨을 이용하여 Aki-yoon(http://yoonpower.net/)님이 수정을 했는데 너무 이뻐서 +ㅁ+ Aki-yoon님이 꾸민 레이아웃이라던가.. 컬러를 그대로 따와서 꾸몄다... 몰론 Aki-yoon님 블로그에 그렇게 하겠다고 글을 남겨두긴 했으나.. 기분나쁘다고 하시면 바로 쓱싹 바꿔버릴생각이다. 내가 스킨을 결정하는 조건은, 가로 폭을 얼마나 넓힐 수 있는가다. 프로그래밍 코드와 사진들이 보통 올라오는 편이구.. 그놈의 좁아터진 미니홈피에 질려서 가로폭이 넓어야 한다. (뭐 그렇다고 너무 넓을 필요는...a;;;; ) 더구나 요새는 1024해상도가 아닌 더 높은 아주아주아주아주~ 고 해상도의 유저들이 많아서; (싸x 미니홈피는 그런 ..
전 스킨도 정말 맘에 들었는데 ; 태그 페이지를 눌렀을때 깨지는 그런 모습을 보여서.. (몰론 내 실수일꺼다.. ㅎㅎ) 막 스킨 수정하다 으아아악!!!!!! 하고 걍 새로 뒤집어버렸다 ㅎㅎㅎ;; daisy님 스킨을 고치고 있는데 빡시다 ㅎㅎ; (스킨에 좋은 기능이 많구나 라고 생각중.. ㅋㅋ) http://yoonpower.net/ 님의 스킨을 따라 만들고 있는데.. 휴.. 시간이 오래걸린다 ^^; 현재 80% 진행중..
생년월일을 입력하면 오늘까지 몇일이 되었는지 체크하는 함수이다. Function DayofAge(ByVal birthy As Integer, ByVal birthm As Integer, ByVal birthd As Integer) As Integer Dim str_temp As String Dim dte_day As Date str_temp = Str(birthy) & "-" & Str(birthm) & "-" & Str(birthd) dte_day = str_temp DayofAge = Date - dte_day End Function
오래전에 짠 소스라 각각의 mode가 무엇을 나타내는지 잊어버렸다 ^^; 뭐 흔히 쓰는 순서.. 그 차례대로 모드를 부여했으니.. 다시 알아내긴 쉬울듯.. Function BioRhythm(ByVal Mode As Integer, _ ByVal Year As Integer, _ ByVal Month As Integer, _ ByVal Day As Integer) Const PI As Double = 3.141592654 Dim i As Integer Select Case Mode Case 0: i = 23 Case 1: i = 28 Case 2: i = 33 Default: i = 1 End Select BioRhythm = Sin((DayofAge(Year, Month, Day) / i) * 2 * P..