본문 바로가기
Life Stories/Wacky Board

프로그래밍 소스코드 업로드 테스트

by [방울] 2014. 2. 18.
Module Language
    Public Enum Language
        Not_Select = 0
        KR_ko
        EN_us
    End Enum

    Public Function SetLang(ByVal ConvString As String, Optional Lang As Byte = Language.Not_Select) As String
        Dim Temp As String = vbNullString

        If Lang = Language.Not_Select Then
            Lang = LangREG()
        Else
            SaveSetting("BDP", "BIP", "Lang", Lang)
        End If

        Select Case Lang
            Case Language.KR_ko
                Temp = ConvString

            Case Language.EN_us
                Temp = EN_US(ConvString)
        End Select
        Return Temp
    End Function


    Private Function EN_us(ByVal ConvString As String) As String
        Dim T As String = ConvString

        Select Case ConvString
            Case "방울통합패키지"
                T = "Bell Integration Package"

                '   BC_Installer
            Case "방울크래프트 설치기"
                T = "BellCraft Installer"
            Case "자세히 보기"
                T = "Read more"
            Case "간단히 보기"
                T = "Simply view"
            Case " 다운로드 시작... "
                T = " Starting download... "
            Case "완료"
                T = "Complete"
            Case "실패"
                T = "Fail"
            Case "압축풀기 시작... "
                T = "Start extracting... "
            Case "방울크래프트 모드파일 제거중... "
                T = "Bell Craft mod of removing files... "
            Case "방울크래프트 모드팩 다운로드중... "
                T = "Bell Craft mod pack download in... "
            Case "방울크래프트 설정파일 다운로드중... "
                T = "Bell Craft download the configuration file in... "
            Case "방울크래프트 설치가 정상적으로 완료되었습니다. (소요시간 : "
                T = "Bell Craft installation is completed successfully. (Duration : "
            Case "5초 후 런처로 이동합니다."
                T = "5 seconds to go to the launcher."
            Case "분)"
                T = "Minutes)"
            Case "제거중... "
                T = "Removing... "

                'BC_Launcher
            Case "방울크래프트 런처"
                T = "Bell Craft Launcher"
            Case "닉네임 :"
                T = "NickName :"
            Case "자바 경로 :"
                T = "Java Path :"
            Case "메인 메모리 할당 -"
                T = "Main memory allocation"
            Case "M, 보조 메모리 -"
                T = "M, Secondary memory -"
            Case "방울크래프트 접속!"
                T = "BellCraft Play!"
            Case "찾기"
                T = "Search"
            Case "방울크래프트 설치기"
                T = "Bell Craft Installer"
            Case "32비트 자바는 메인메모리 1024M, 보조메모리 256M 이상 할당하실 수 없습니다."
                T = "32bit Java is the main memory 1024M, 256M or secondary memory can not be allocated."
            Case "메모리 할당량이 잘못되었습니다."
                T = "Memory allocation is invalid."
            Case "윈도우스용 자바 설치파일을 다운로드 하시겠습니까?"
                T = "Do you want to download the installation files for Windows Java?"
            Case "현재 시스템 종류를 탐색하지 못했습니다." & vbCrLf & "자바 설치페이지로 이동하시겠습니까?"
                T = "The current system could not navigate kinds." & vbCrLf & "Do you want to go to the Java installation page?"
            Case "방울크래프트 실행중에는 종료하실 수 없습니다."
                T = "Bell Craft cannot be terminated during the execution."
            Case "방울크래프트 실행중에는 클라이언트 설치를 하실 수 없습니다."
                T = "Bell Craft during the client installation can not be run."
            Case "자동로그인 해제가 완료되었습니다."
                T = "Disable automatic login is complete."
            Case "회원님은 자동로그인을 사용중이지 않습니다."
                T = "You use the automatic login is not."
            Case "방울크래프트 강제종료"
                T = "Bell Craft kill"
            Case "방울크래프트 전체설치를 하시려면 '예' 버튼을," & vbCrLf & "방울크래프트를 업데이트하시려면 '아니오' 버튼을," & vbCrLf & "취소하시려면 '취소' 버튼을 선택 해 주세요."
                T = "Bell Craft full installation click on the 'Yes' button," & vbCrLf & "Bell Craft to update your 'No' button," & vbCrLf & "cancel click on the 'Cancel' button to select it."
            Case "죄송합니다." & "이 기능은 추후 도입될 예정입니다."
                T = "I'm sorry." & "This is going to be introduced in the future."
            Case "방울크래프트가 실행중입니다."
                T = "Bell Craft is running"
            Case "방울크래프트가 실행중이지 않습니다."
                T = "Bell Craft is not running"
            Case "방울크래프트가 설치되어있지 않습니다."
                T = "Bell Craft is not installed."
            Case "방울크래프트가 정상적으로 설치되어 있습니다."
                T = "Bell Craft is properly installed."
            Case "BDP폴더 경로 :"
                T = "BDP Folder Localtion :"
            Case "서버 선택"
                T = "Select Server"

                'BIP_Info
            Case "BIP 소개"
                T = "BIP Introduction"

                'BIP_Loader
            Case "비 정상적인 접근입니다."
                T = "Non-normal approach."

                'BIP_Login_BP
            Case "BIP 로그인"
                T = "BIP Login"
            Case "방울패키지 가입유무를 확인하기 위해 네이버 로그인이 필요합니다."
                T = "Sign up to determine whether Bell Package Naver login."
            Case "아이디 :"
                T = "ID :"
            Case "비밀번호 :"
                T = "Password :"
            Case "로그인"
                T = "Login"
            Case "아이디 저장"
                T = "Save ID"
            Case "비밀번호 저장"
                T = "Save Password"
            Case "자동 로그인"
                T = "Auto Login"
            Case "로그인실패" & vbCrLf & "회원님은 OTP를 사용중입니다." & vbCrLf & "정상적인 로그인을 하시려면 OTP를 해제하신 후 재 로그인 시도해주십시요."
                T = "Login Failed" & vbCrLf & "Your use of the OTP." & vbCrLf & "Log in to your normal OTP Please try to login again after release."
            Case "로그인실패" & vbNewLine & "네트워크 환경 혹은 아이디와 비밀번호를 확인해주세요."
                T = "Login Failed" & vbCrLf & "Check the network environment, or username and password please."
            Case "방울패키지 카페에 가입되어있지 않습니다."
                T = "You will need to join the Bell Package cafe."
            Case "카페내 닉네임이 정상적으로 불러와지지 않았습니다." & vbNewLine & "정상적인 닉네임으로 수정하시거나, 재 로그인 시도해보시기 바랍니다."
                T = "Cafe with my nickname was not properly loaded." & vbCrLf & "Normal edit your nickname, please try re-login."
            Case "[방울패키지] '"
                T = "[BellPackage] Hello, '"
            Case "님 안녕하세요."
                T = "'s"
            Case "[방울개발자패키지] '"
                T = "[BellDeveloperPackage] Hello, '"
            Case "오늘도 좋은하루되세요~"
                T = "Have a nice day~"
            Case "회원 확인을 위해 네이버 로그인이 필요합니다."
                T = "Members need to login to confirm Naver."
            Case "개발중인 기능입니다." & vbCrLf & "추후 업데이트를 기대해주세요!"
                T = "This function is under development." & vbCrLf & "Please look forward to future updates!"
            Case "회원 인증방법"
                T = "Membership Authentication Methods"
            Case "방울패키지 (네이버카페)"
                T = "Bell Package (Naver Cafe)"
            Case "방울패키지 국제 커뮤니티 (구글+ 커뮤니티)"
                T = "Bell Package International Community (Google+ Community)"
            Case "자동로그인은 보안이 매우 취약하므로, 공공장소(PC방 등)에서 사용시, 개인정보가 유출될 수 있습니다."
                T = "Security is extremely vulnerable to auto-login, and public places (PC room, etc.) is used, personal information can be stolen."
            Case "카페회원 확인을 위해 네이버 로그인이 필요합니다."
                T = "Group members are required to sign to confirm Naver."

                'BIP_Main
            Case "BIP 메인"
                T = "BIP Main"
            Case "도구"
                T = "Tools"
            Case "라이센스"
                T = "LICENSE"
            Case "BIP 소개"
                T = "BIP Introduction"
            Case "환경설정"
                T = "Preferences"
            Case "언어"
                T = "Language"
            Case "BIP 항상 위"
                T = "BIP Top Most"
            Case "파일을 불러오는중, 예상치 못한 오류가 발생하였습니다."
                T = "File is loaded in oncoming, expected error."


                'BIP_Preferences
            Case "BIP 환경설정"
                T = "BIP Preferences"
            Case "사용안함"
                T = "Off"
            Case "사용함"
                T = "On"
            Case "자동 로그인 해제"
                T = "Disable automatic login"
            Case "초기설정"
                T = "Initial Setup"
            Case "정말로 모든 설정을 초기화 하시겠습니까?"
                T = "Are you sure you want to reset all settings to default really?"
            Case "모든 설정이 초기화되었습니다." & vbCrLf & "BIP를 재 실행합니다."
                T = "All settings are initialized." & vbCrLf & "Re-run the BIP."

                'BIP_First
            Case "BIP에 오신것을 환영합니다!"
                T = "Welcome to the BIP!"
            Case "언어 설정 :"
                T = "Language Setting :"
            Case "완료!"
                T = "Complete!"

                'BIP_Updater
            Case "BIP 업데이터"
                T = "BIP Updater"
        End Select

        Return T
    End Function
End Module


댓글