IT & 서버 & Programming

import  os import  pygame ################################################################################################### # 기본 초기화 (반드시 해야 하는 것들) pygame.init()  # 초기화 # 화면 크기 설정 screen_width =  640   # 가로 크기 screen_height =  480   # 세로 크기 screen = pygame.display.set_mode((screen_width, screen_height)) # 화면 타이틀 설정 pygame.display.set_caption( "PengSu PengSu" )  # 게임 이름 # FPS clock = pygame.time.Clock() ################################################################################################### # 1. 사용자 게임 초기화 (배경 화면, 게임 이미지, 좌표, 속도, 폰트 등) current_path = os.path.dirname( __file__ )  # 현재 파일의 위치 반환 image_path = os.path.join(current_path,  "images" )  # images 폴더 위치 반환 # 배경 만들기 background = pygame.image.load(os.path.join(image_path,  "background.png" ))  # 스테이지 만들기 stage = pygame.image.load(os.path.join(image_path,  "stage.png" ))  stage_size = stage.get_rect().size stage_height = stage_size[ 1 ]  # 스테이지의 높이 위에 캐릭터를 두기 위해 사용(Height) # 캐릭터 만

' each module has a intuitive and understnding name so I have not comment on each module ' 각 모듈이 직관적인 이름으로 되어 있어서 이해가 쉬울거에요 ' 변수 선언  Option Explicit Dim sFolder As String       'sFolder --> the folder of images Dim file_name As String Dim pic_name As String Dim img As Picture Dim X As Object    'X is a FileObject Dim XNC As Object Dim number_of_files As Integer Const loc_data As Integer = 20  ' data loc is cells(1, 20) Const no_of_column As Integer = 6 Const loc_data_copy As Integer = 23  ' data loc is cells (1, 20) Dim file_arr As Variant Dim file_name_in_cells_arr As Variant ' 이미지 삽입 프로세스 ' 각 모듈을 불러오는 역할 Public Sub image_insert_process()     Application.ScreenUpdating = False               Call folder_Picking     ' 폴더 선택     Call count_files_number   ' 파일수 체크     Call list_files    ' 파일 리스트 업          Call sortDataWithoutHeader  ' 파일 소트     Call store_files_into_array     ' 파일을 어레이에 넣기     Call putting_file_Names       '