'Media Player in virtual form ' Developer: Juyoung Lee ' Program Name: JuyoungLee_StockWar ' Version: 1.0 Option Explicit On Option Strict On 'Imports WMPLib 'For bgm. Project>Add Refernece > Windows Media Player 1.0 C:\WINDOWS\system32\wmp.dll Public Class frmMain 'Dim Player As WindowsMediaPlayer = New WindowsMediaPlayer ' Background Music Value Dim UserName As String = frmLogin.strName.ToString Public lang As String = frmLogin.lang.ToString 'Bring value 'lang' from LoginForm Dim TimerCount As Integer = 0 'Dim MaxMinSetZero As Integer = 0 'This is for initialization (or resetting) Max and Min. For initialization every 7 days, I need to set the two kinds values 'Max' and 'Min' to 0. Public CheaterCount As Integer = 0 'shows 'Cheater' in level label if it reachs the set number. Dim rand As New Random Public SalaryCount As Integer = 0 'Salary Counter. Public intSalary As Integer = 500 'Player receives set money every months. Public intTax As Decimal = 0.035 'MandA Messages for translations Dim MandAMessage, MandAMessageTitle As String Public MyWallet As Decimal = 10000 'Set start money Dim BuyPrice1, SellPrice1, BuyPrice1U, SellPrice1U, BuyPrice2, SellPrice2, BuyPrice2U, SellPrice2U, BuyPrice3, SellPrice3, BuyPrice3U, SellPrice3U, BuyPrice4, SellPrice4, BuyPrice4U, SellPrice4U, BuyPrice5, SellPrice5, BuyPrice5U, SellPrice5U, BuyPrice6, SellPrice6, BuyPrice6U, SellPrice6U, BuyPrice7, SellPrice7, BuyPrice7U, SellPrice7U, BuyPrice8, SellPrice8, BuyPrice8U, SellPrice8U, BuyPrice9, SellPrice9, BuyPrice9U, SellPrice9U, BuyPrice10, SellPrice10, BuyPrice10U, SellPrice10U, BuyPrice11, SellPrice11, BuyPrice11U, SellPrice11U, BuyPrice12, SellPrice12, BuyPrice12U, SellPrice12U, BuyPrice13, SellPrice13, BuyPrice13U, SellPrice13U, BuyPrice14, SellPrice14, BuyPrice14U, SellPrice14U, BuyPrice15, SellPrice15, BuyPrice15U, SellPrice15U, BuyPrice16, SellPrice16, BuyPrice16U, SellPrice16U, BuyPrice17, SellPrice17, BuyPrice17U, SellPrice17U, BuyPrice18, SellPrice18, BuyPrice18U, SellPrice18U, BuyPrice19, SellPrice19, BuyPrice19U, SellPrice19U, BuyPrice20, SellPrice20, BuyPrice20U, SellPrice20U As Decimal Dim Max1, Min1, Max2, Min2, Max3, Min3, Max4, Min4, Max5, Min5, Max6, Min6, Max7, Min7, Max8, Min8, Max9, Min9, Max10, Min10, Max11, Min11, Max12, Min12, Max13, Min13, Max14, Min14, Max15, Min15, Max16, Min16, Max17, Min17, Max18, Min18, Max19, Min19, Max20, Min20 As Decimal 'Set quotas for individual companies Dim Quota1, Quota2, Quota3, Quota4, Quota5, Quota6, Quota7, Quota8, Quota9, Quota10, Quota11, Quota12, Quota13, Quota14, Quota15, Quota16, Quota17, Quota18, Quota19, Quota20 As Decimal 'Currently having shares Dim Holding1 As Integer = 0 Dim Holding2 As Integer = 0 Dim Holding3 As Integer = 0 Dim Holding4 As Integer = 0 Dim Holding5 As Integer = 0 Dim Holding6 As Integer = 0 Dim Holding7 As Integer = 0 Dim Holding8 As Integer = 0 Dim Holding9 As Integer = 0 Dim Holding10 As Integer = 0 Dim Holding11 As Integer = 0 Dim Holding12 As Integer = 0 Dim Holding13 As Integer = 0 Dim Holding14 As Integer = 0 Dim Holding15 As Integer = 0 Dim Holding16 As Integer = 0 Dim Holding17 As Integer = 0 Dim Holding18 As Integer = 0 Dim Holding19 As Integer = 0 Dim Holding20 As Integer = 0 'Changeswitch=true is first number of price and '=false' is second number of the price. 'I put the result from '=true' into Buyprice1 and result from '=false' into Buyprice1U. 'So I compare two prices to determine how much the price has beeen changed. Dim ChangeSwitch As Boolean = True 'Start and Pause Counter. If this value is False, Stop when PicStartPause is clicked. If True, Start. Dim PicTimeCounter As Boolean = False 'Cheat Event values Public SamsungAppleSue As Integer = 0 Public TsunamiJapan As Integer = 0 Public FastfoodBoom As Integer = 0 Public InfoAgeEffect As Integer = 0 Public MeetAlien As Integer = 0 'Event Sub Sub SamsungAppleSueEvent_U() If SamsungAppleSue > 0 Then BuyPrice1U = CDec(ChangePrice_Huge(CDec(BuyPrice1U)).ToString("n2")) * CDec(1 - (0.015 * SamsungAppleSue)) '0.15% decrease ' "* SamsungAppleSue" can calculate numbers of used times of cheat and have effects. BuyPrice13U = CDec(ChangePrice_Huge(CDec(BuyPrice13U)).ToString("n2")) * CDec(1 - (0.015 * SamsungAppleSue)) End If End Sub Sub SamsungAppleSueEvent() If SamsungAppleSue > 0 Then BuyPrice1 = CDec(ChangePrice_Huge(CDec(BuyPrice1)).ToString("n2")) * CDec(1 - (0.015 * SamsungAppleSue)) BuyPrice13 = CDec(ChangePrice_Huge(CDec(BuyPrice13)).ToString("n2")) * CDec(1 - (0.015 * SamsungAppleSue)) End If End Sub Sub TsunamiJapanEvent_U() If TsunamiJapan > 0 Then BuyPrice5U = CDec(ChangePrice_Large(CDec(BuyPrice5U)).ToString("n2")) * CDec(1 - (0.02 * TsunamiJapan)) 'decrease 2n% End If End Sub Sub TsunamiJapanEvent() If TsunamiJapan > 0 Then BuyPrice5 = CDec(ChangePrice_Large(CDec(BuyPrice5)).ToString("n2")) * CDec(1 - (0.02 * TsunamiJapan)) End If End Sub Sub FastfoodBoomEvent_U() If FastfoodBoom > 0 Then BuyPrice3U = CDec(ChangePrice_Small(CDec(BuyPrice3U)).ToString("n2")) * CDec(1 + (0.015 * FastfoodBoom)) BuyPrice20U = CDec(ChangePrice_Medium(CDec(BuyPrice20U)).ToString("n2")) * CDec(1 + (0.015 * FastfoodBoom)) End If End Sub Sub FastfoodBoomEvent() If FastfoodBoom > 0 Then BuyPrice3 = CDec(ChangePrice_Small(CDec(BuyPrice3)).ToString("n2")) * CDec(1 + (0.015 * FastfoodBoom)) BuyPrice20 = CDec(ChangePrice_Medium(CDec(BuyPrice20)).ToString("n2")) * CDec(1 + (0.015 * FastfoodBoom)) End If End Sub Sub InfoAgeEffectEvent_U() If InfoAgeEffect > 0 Then BuyPrice1U = CDec(ChangePrice_Huge(CDec(BuyPrice1U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice2U = CDec(ChangePrice_Medium(CDec(BuyPrice2U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice6U = CDec(ChangePrice_Tiny(CDec(BuyPrice6U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice8U = CDec(ChangePrice_Huge(CDec(BuyPrice8U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice12U = CDec(ChangePrice_Large(CDec(BuyPrice12U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice13U = CDec(ChangePrice_Huge(CDec(BuyPrice13U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice14U = CDec(ChangePrice_Large(CDec(BuyPrice14U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice15U = CDec(ChangePrice_Tiny(CDec(BuyPrice15U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice16U = CDec(ChangePrice_Large(CDec(BuyPrice16U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice17U = CDec(ChangePrice_Medium(CDec(BuyPrice17U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice19U = CDec(ChangePrice_Small(CDec(BuyPrice19U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) End If End Sub Sub InfoAgeEffectEvent() If InfoAgeEffect > 0 Then BuyPrice1 = CDec(ChangePrice_Huge(CDec(BuyPrice1)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice2 = CDec(ChangePrice_Medium(CDec(BuyPrice2)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice6 = CDec(ChangePrice_Tiny(CDec(BuyPrice6)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice8 = CDec(ChangePrice_Huge(CDec(BuyPrice8)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice12 = CDec(ChangePrice_Large(CDec(BuyPrice12)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice13 = CDec(ChangePrice_Huge(CDec(BuyPrice13)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice14 = CDec(ChangePrice_Large(CDec(BuyPrice14)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice15 = CDec(ChangePrice_Tiny(CDec(BuyPrice15)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice16 = CDec(ChangePrice_Large(CDec(BuyPrice16)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice17 = CDec(ChangePrice_Medium(CDec(BuyPrice17)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) BuyPrice19 = CDec(ChangePrice_Small(CDec(BuyPrice19)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect)) End If End Sub Sub MeetAlienEvent_U() If MeetAlien > 0 Then BuyPrice11U = CDec(ChangePrice_Tiny(CDec(BuyPrice11U)).ToString("n2")) * CDec(1 + (0.015 * MeetAlien)) End If End Sub Sub MeetAlienEvent() If MeetAlien > 0 Then BuyPrice11 = CDec(ChangePrice_Tiny(CDec(BuyPrice11)).ToString("n2")) * CDec(1 + (0.015 * MeetAlien)) End If End Sub Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'Set names of companies lblCompany1.Text = "Apple" lblCompany2.Text = "IBM" lblCompany3.Text = "Coca-Cola" lblCompany4.Text = "Novatis" lblCompany5.Text = "Toyota Motor" lblCompany6.Text = "Facebook" lblCompany7.Text = "JP Morgan" lblCompany8.Text = "Microsoft" lblCompany9.Text = "Wells Fargo" lblCompany10.Text = "Nestle" lblCompany11.Text = "SpaceX" lblCompany12.Text = "Google" lblCompany13.Text = "Samsung" lblCompany14.Text = "AT＆T" lblCompany15.Text = "Oracle" lblCompany16.Text = "Amazon.com" lblCompany17.Text = "Comcast" lblCompany18.Text = "Wal-Mart Stores" lblCompany19.Text = "Verizon" lblCompany20.Text = "McDonald's" 'Translate start labels texts. lang ="ENG" Not Needed because it's already set in design as "Wednesday". If lang = "ENG" Then 'menuSettingsLanguageEnglish.Checked = True ElseIf lang = "KOR" Then 'menuSettingsLanguageKorean.Checked = True lblMonths.Text = "수요일" menuFile.Text = "파일" menuFileLoad.Text = "불러오기" menuFileSave.Text = "저장하기" menuFileExit.Text = "나가기" menuSettings.Text = "설정" menuSettingsCheat.Text = "치트" 'menuSettingsLanguage.Text = "언어" menuTools.Text = "도구" menuToolsCalculator.Text = "계산기" menuHelp.Text = "도움말" menuHelpRules.Text = "게임 규칙" 'Translate texts on buttons btnBuy1.Text = "매입" btnBuy2.Text = "매입" btnBuy3.Text = "매입" btnBuy4.Text = "매입" btnBuy5.Text = "매입" btnBuy6.Text = "매입" btnBuy7.Text = "매입" btnBuy8.Text = "매입" btnBuy9.Text = "매입" btnBuy10.Text = "매입" btnBuy11.Text = "매입" btnBuy12.Text = "매입" btnBuy13.Text = "매입" btnBuy14.Text = "매입" btnBuy15.Text = "매입" btnBuy16.Text = "매입" btnBuy17.Text = "매입" btnBuy18.Text = "매입" btnBuy19.Text = "매입" btnBuy20.Text = "매입" btnSell1.Text = "매도" btnSell2.Text = "매도" btnSell3.Text = "매도" btnSell4.Text = "매도" btnSell5.Text = "매도" btnSell6.Text = "매도" btnSell7.Text = "매도" btnSell8.Text = "매도" btnSell9.Text = "매도" btnSell10.Text = "매도" btnSell11.Text = "매도" btnSell12.Text = "매도" btnSell13.Text = "매도" btnSell14.Text = "매도" btnSell15.Text = "매도" btnSell16.Text = "매도" btnSell17.Text = "매도" btnSell18.Text = "매도" btnSell19.Text = "매도" btnSell20.Text = "매도" End If ' Textbox style of mywalllet lblMoney.Text = CDec(MyWallet.ToString("n2")).ToString("C") If lang = "KOR" Then lblMoney.Text = CStr(CDec(MyWallet.ToString("n2")).ToString("￦##,##.00K")) End If ' Textboxes style of quotas for compnies txtQuota1.Text = CStr(Quota1.ToString("p")) txtQuota2.Text = CStr(Quota2.ToString("p")) txtQuota3.Text = CStr(Quota3.ToString("p")) txtQuota4.Text = CStr(Quota4.ToString("p")) txtQuota5.Text = CStr(Quota5.ToString("p")) txtQuota6.Text = CStr(Quota6.ToString("p")) txtQuota7.Text = CStr(Quota7.ToString("p")) txtQuota8.Text = CStr(Quota8.ToString("p")) txtQuota9.Text = CStr(Quota9.ToString("p")) txtQuota10.Text = CStr(Quota10.ToString("p")) txtQuota11.Text = CStr(Quota11.ToString("p")) txtQuota12.Text = CStr(Quota12.ToString("p")) txtQuota13.Text = CStr(Quota13.ToString("p")) txtQuota14.Text = CStr(Quota14.ToString("p")) txtQuota15.Text = CStr(Quota15.ToString("p")) txtQuota16.Text = CStr(Quota16.ToString("p")) txtQuota17.Text = CStr(Quota17.ToString("p")) txtQuota18.Text = CStr(Quota18.ToString("p")) txtQuota19.Text = CStr(Quota19.ToString("p")) txtQuota20.Text = CStr(Quota20.ToString("p")) '' Textboxes style of holding 'txtHolding1.Text = Holding1.ToString("#,#") 'txtHolding2.Text = Holding2.ToString("#,#") 'Set Beginning stock prices and display them 'NOTE HERE! The value of start price for buying is BuyPrice1U, Not BuyPrice1. BuyPrice1U = CDec(ChangePrice_Huge(CDec(BuyPrice1U)).ToString("n2")) BuyPrice2U = CDec(ChangePrice_Medium(CDec(BuyPrice2U)).ToString("n2")) BuyPrice3U = CDec(ChangePrice_Small(CDec(BuyPrice3U)).ToString("n2")) BuyPrice4U = CDec(ChangePrice_Small(CDec(BuyPrice4U)).ToString("n2")) BuyPrice5U = CDec(ChangePrice_Large(CDec(BuyPrice5U)).ToString("n2")) BuyPrice6U = CDec(ChangePrice_Tiny(CDec(BuyPrice6U)).ToString("n2")) BuyPrice7U = CDec(ChangePrice_Medium(CDec(BuyPrice7U)).ToString("n2")) BuyPrice8U = CDec(ChangePrice_Huge(CDec(BuyPrice8U)).ToString("n2")) BuyPrice9U = CDec(ChangePrice_Medium(CDec(BuyPrice9U)).ToString("n2")) BuyPrice10U = CDec(ChangePrice_Huge(CDec(BuyPrice10U)).ToString("n2")) BuyPrice11U = CDec(ChangePrice_Tiny(CDec(BuyPrice11U)).ToString("n2")) BuyPrice12U = CDec(ChangePrice_Large(CDec(BuyPrice12U)).ToString("n2")) BuyPrice13U = CDec(ChangePrice_Huge(CDec(BuyPrice13U)).ToString("n2")) BuyPrice14U = CDec(ChangePrice_Large(CDec(BuyPrice14U)).ToString("n2")) BuyPrice15U = CDec(ChangePrice_Tiny(CDec(BuyPrice15U)).ToString("n2")) BuyPrice16U = CDec(ChangePrice_Large(CDec(BuyPrice16U)).ToString("n2")) BuyPrice17U = CDec(ChangePrice_Medium(CDec(BuyPrice17U)).ToString("n2")) BuyPrice18U = CDec(ChangePrice_Large(CDec(BuyPrice18U)).ToString("n2")) BuyPrice19U = CDec(ChangePrice_Small(CDec(BuyPrice19U)).ToString("n2")) BuyPrice20U = CDec(ChangePrice_Medium(CDec(BuyPrice20U)).ToString("n2")) SamsungAppleSueEvent_U() TsunamiJapanEvent_U() FastfoodBoomEvent_U() InfoAgeEffectEvent_U() MeetAlienEvent_U() 'The Buyprice values are for preventing that mywallet goes negative number. If you don't understand, Try make these values as comments and then open the game, so you can buy too much shares to buy with your money. BuyPrice1 = BuyPrice1U BuyPrice2 = BuyPrice2U BuyPrice3 = BuyPrice3U BuyPrice4 = BuyPrice4U BuyPrice5 = BuyPrice5U BuyPrice6 = BuyPrice6U BuyPrice7 = BuyPrice7U BuyPrice8 = BuyPrice8U BuyPrice9 = BuyPrice9U BuyPrice10 = BuyPrice10U BuyPrice11 = BuyPrice11U BuyPrice12 = BuyPrice12U BuyPrice13 = BuyPrice13U BuyPrice14 = BuyPrice14U BuyPrice15 = BuyPrice15U BuyPrice16 = BuyPrice16U BuyPrice17 = BuyPrice17U BuyPrice18 = BuyPrice18U BuyPrice19 = BuyPrice19U BuyPrice20 = BuyPrice20U 'Set start Max and Min stock prices of the week and Display them Max1 = BuyPrice1U Min1 = BuyPrice1U Max2 = BuyPrice2U Min2 = BuyPrice2U Max3 = BuyPrice3U Min3 = BuyPrice3U Max4 = BuyPrice4U Min4 = BuyPrice4U Max5 = BuyPrice5U Min5 = BuyPrice5U Max6 = BuyPrice6U Min6 = BuyPrice6U Max7 = BuyPrice7U Min7 = BuyPrice7U Max8 = BuyPrice8U Min8 = BuyPrice8U Max9 = BuyPrice9U Min9 = BuyPrice9U Max10 = BuyPrice10U Min10 = BuyPrice10U Max11 = BuyPrice11U Min11 = BuyPrice11U Max12 = BuyPrice12U Min12 = BuyPrice12U Max13 = BuyPrice13U Min13 = BuyPrice13U Max14 = BuyPrice14U Min14 = BuyPrice14U Max15 = BuyPrice15U Min15 = BuyPrice15U Max16 = BuyPrice16U Min16 = BuyPrice16U Max17 = BuyPrice17U Min17 = BuyPrice17U Max18 = BuyPrice18U Min18 = BuyPrice18U Max19 = BuyPrice19U Min19 = BuyPrice19U Max20 = BuyPrice20U Min20 = BuyPrice20U txtWeekMax1.Text = CStr(Max1.ToString("C")) txtWeekMin1.Text = CStr(Min1.ToString("C")) txtWeekMax2.Text = CStr(Max2.ToString("C")) txtWeekMin2.Text = CStr(Min2.ToString("C")) txtWeekMax3.Text = CStr(Max3.ToString("C")) txtWeekMin3.Text = CStr(Min3.ToString("C")) txtWeekMax4.Text = CStr(Max4.ToString("C")) txtWeekMin4.Text = CStr(Min4.ToString("C")) txtWeekMax5.Text = CStr(Max5.ToString("C")) txtWeekMin5.Text = CStr(Min5.ToString("C")) txtWeekMax6.Text = CStr(Max6.ToString("C")) txtWeekMin6.Text = CStr(Min6.ToString("C")) txtWeekMax7.Text = CStr(Max7.ToString("C")) txtWeekMin7.Text = CStr(Min7.ToString("C")) txtWeekMax8.Text = CStr(Max8.ToString("C")) txtWeekMin8.Text = CStr(Min8.ToString("C")) txtWeekMax9.Text = CStr(Max9.ToString("C")) txtWeekMin9.Text = CStr(Min9.ToString("C")) txtWeekMax10.Text = CStr(Max10.ToString("C")) txtWeekMin10.Text = CStr(Min10.ToString("C")) txtWeekMax11.Text = CStr(Max11.ToString("C")) txtWeekMin11.Text = CStr(Min11.ToString("C")) txtWeekMax12.Text = CStr(Max12.ToString("C")) txtWeekMin12.Text = CStr(Min12.ToString("C")) txtWeekMax13.Text = CStr(Max13.ToString("C")) txtWeekMin13.Text = CStr(Min13.ToString("C")) txtWeekMax14.Text = CStr(Max14.ToString("C")) txtWeekMin14.Text = CStr(Min14.ToString("C")) txtWeekMax15.Text = CStr(Max15.ToString("C")) txtWeekMin15.Text = CStr(Min15.ToString("C")) txtWeekMax16.Text = CStr(Max16.ToString("C")) txtWeekMin16.Text = CStr(Min16.ToString("C")) txtWeekMax17.Text = CStr(Max17.ToString("C")) txtWeekMin17.Text = CStr(Min17.ToString("C")) txtWeekMax18.Text = CStr(Max18.ToString("C")) txtWeekMin18.Text = CStr(Min18.ToString("C")) txtWeekMax19.Text = CStr(Max19.ToString("C")) txtWeekMin19.Text = CStr(Min19.ToString("C")) txtWeekMax20.Text = CStr(Max20.ToString("C")) txtWeekMin20.Text = CStr(Min20.ToString("C")) If lang = "KOR" Then txtWeekMax1.Text = CStr(CDec(Max1.ToString("n2")).ToString("￦##.##K")) txtWeekMin1.Text = CStr(CDec(Min1.ToString("n2")).ToString("￦##.##K")) txtWeekMax2.Text = CStr(CDec(Max2.ToString("n2")).ToString("￦##.##K")) txtWeekMin2.Text = CStr(CDec(Min2.ToString("n2")).ToString("￦##.##K")) txtWeekMax3.Text = CStr(CDec(Max3.ToString("n2")).ToString("￦##.##K")) txtWeekMin3.Text = CStr(CDec(Min3.ToString("n2")).ToString("￦##.##K")) txtWeekMax4.Text = CStr(CDec(Max4.ToString("n2")).ToString("￦##.##K")) txtWeekMin4.Text = CStr(CDec(Min4.ToString("n2")).ToString("￦##.##K")) txtWeekMax5.Text = CStr(CDec(Max5.ToString("n2")).ToString("￦##.##K")) txtWeekMin5.Text = CStr(CDec(Min5.ToString("n2")).ToString("￦##.##K")) txtWeekMax6.Text = CStr(CDec(Max6.ToString("n2")).ToString("￦##.##K")) txtWeekMin6.Text = CStr(CDec(Min6.ToString("n2")).ToString("￦##.##K")) txtWeekMax7.Text = CStr(CDec(Max7.ToString("n2")).ToString("￦##.##K")) txtWeekMin7.Text = CStr(CDec(Min7.ToString("n2")).ToString("￦##.##K")) txtWeekMax8.Text = CStr(CDec(Max8.ToString("n2")).ToString("￦##.##K")) txtWeekMin8.Text = CStr(CDec(Min8.ToString("n2")).ToString("￦##.##K")) txtWeekMax9.Text = CStr(CDec(Max9.ToString("n2")).ToString("￦##.##K")) txtWeekMin9.Text = CStr(CDec(Min9.ToString("n2")).ToString("￦##.##K")) txtWeekMax10.Text = CStr(CDec(Max10.ToString("n2")).ToString("￦##.##K")) txtWeekMin10.Text = CStr(CDec(Min10.ToString("n2")).ToString("￦##.##K")) txtWeekMax11.Text = CStr(CDec(Max11.ToString("n2")).ToString("￦##.##K")) txtWeekMin11.Text = CStr(CDec(Min11.ToString("n2")).ToString("￦##.##K")) txtWeekMax12.Text = CStr(CDec(Max12.ToString("n2")).ToString("￦##.##K")) txtWeekMin12.Text = CStr(CDec(Min12.ToString("n2")).ToString("￦##.##K")) txtWeekMax13.Text = CStr(CDec(Max13.ToString("n2")).ToString("￦##.##K")) txtWeekMin13.Text = CStr(CDec(Min13.ToString("n2")).ToString("￦##.##K")) txtWeekMax14.Text = CStr(CDec(Max14.ToString("n2")).ToString("￦##.##K")) txtWeekMin14.Text = CStr(CDec(Min14.ToString("n2")).ToString("￦##.##K")) txtWeekMax15.Text = CStr(CDec(Max15.ToString("n2")).ToString("￦##.##K")) txtWeekMin15.Text = CStr(CDec(Min15.ToString("n2")).ToString("￦##.##K")) txtWeekMax16.Text = CStr(CDec(Max16.ToString("n2")).ToString("￦##.##K")) txtWeekMin16.Text = CStr(CDec(Min16.ToString("n2")).ToString("￦##.##K")) txtWeekMax17.Text = CStr(CDec(Max17.ToString("n2")).ToString("￦##.##K")) txtWeekMin17.Text = CStr(CDec(Min17.ToString("n2")).ToString("￦##.##K")) txtWeekMax18.Text = CStr(CDec(Max18.ToString("n2")).ToString("￦##.##K")) txtWeekMin18.Text = CStr(CDec(Min18.ToString("n2")).ToString("￦##.##K")) txtWeekMax19.Text = CStr(CDec(Max19.ToString("n2")).ToString("￦##.##K")) txtWeekMin19.Text = CStr(CDec(Min19.ToString("n2")).ToString("￦##.##K")) txtWeekMax20.Text = CStr(CDec(Max20.ToString("n2")).ToString("￦##.##K")) txtWeekMin20.Text = CStr(CDec(Min20.ToString("n2")).ToString("￦##.##K")) End If SellPrice1U = CDec((BuyPrice1U - (BuyPrice1U * intTax)).ToString("n2")) '0.045 is tax in selling action. SellPrice2U = CDec((BuyPrice2U - (BuyPrice2U * intTax)).ToString("n2")) SellPrice3U = CDec((BuyPrice3U - (BuyPrice3U * intTax)).ToString("n2")) SellPrice4U = CDec((BuyPrice4U - (BuyPrice4U * intTax)).ToString("n2")) SellPrice5U = CDec((BuyPrice5U - (BuyPrice5U * intTax)).ToString("n2")) SellPrice6U = CDec((BuyPrice6U - (BuyPrice6U * intTax)).ToString("n2")) SellPrice7U = CDec((BuyPrice7U - (BuyPrice7U * intTax)).ToString("n2")) SellPrice8U = CDec((BuyPrice8U - (BuyPrice8U * intTax)).ToString("n2")) SellPrice9U = CDec((BuyPrice9U - (BuyPrice9U * intTax)).ToString("n2")) SellPrice10U = CDec((BuyPrice10U - (BuyPrice10U * intTax)).ToString("n2")) SellPrice11U = CDec((BuyPrice11U - (BuyPrice11U * intTax)).ToString("n2")) SellPrice12U = CDec((BuyPrice12U - (BuyPrice12U * intTax)).ToString("n2")) SellPrice13U = CDec((BuyPrice13U - (BuyPrice13U * intTax)).ToString("n2")) SellPrice14U = CDec((BuyPrice14U - (BuyPrice14U * intTax)).ToString("n2")) SellPrice15U = CDec((BuyPrice15U - (BuyPrice15U * intTax)).ToString("n2")) SellPrice16U = CDec((BuyPrice16U - (BuyPrice16U * intTax)).ToString("n2")) SellPrice17U = CDec((BuyPrice17U - (BuyPrice17U * intTax)).ToString("n2")) SellPrice18U = CDec((BuyPrice18U - (BuyPrice18U * intTax)).ToString("n2")) SellPrice19U = CDec((BuyPrice19U - (BuyPrice19U * intTax)).ToString("n2")) SellPrice20U = CDec((BuyPrice20U - (BuyPrice20U * intTax)).ToString("n2")) txtBuyPrice1.Text = BuyPrice1U.ToString("C") txtSellPrice1.Text = SellPrice1U.ToString("C") txtBuyPrice2.Text = BuyPrice2U.ToString("C") txtSellPrice2.Text = SellPrice2U.ToString("C") txtBuyPrice3.Text = BuyPrice3U.ToString("C") txtSellPrice3.Text = SellPrice3U.ToString("C") txtBuyPrice4.Text = BuyPrice4U.ToString("C") txtSellPrice4.Text = SellPrice4U.ToString("C") txtBuyPrice5.Text = BuyPrice5U.ToString("C") txtSellPrice5.Text = SellPrice5U.ToString("C") txtBuyPrice6.Text = BuyPrice6U.ToString("C") txtSellPrice6.Text = SellPrice6U.ToString("C") txtBuyPrice7.Text = BuyPrice7U.ToString("C") txtSellPrice7.Text = SellPrice7U.ToString("C") txtBuyPrice8.Text = BuyPrice8U.ToString("C") txtSellPrice8.Text = SellPrice8U.ToString("C") txtBuyPrice9.Text = BuyPrice9U.ToString("C") txtSellPrice9.Text = SellPrice9U.ToString("C") txtBuyPrice10.Text = BuyPrice10U.ToString("C") txtSellPrice10.Text = SellPrice10U.ToString("C") txtBuyPrice11.Text = BuyPrice11U.ToString("C") txtSellPrice11.Text = SellPrice11U.ToString("C") txtBuyPrice12.Text = BuyPrice12U.ToString("C") txtSellPrice12.Text = SellPrice12U.ToString("C") txtBuyPrice13.Text = BuyPrice13U.ToString("C") txtSellPrice13.Text = SellPrice13U.ToString("C") txtBuyPrice14.Text = BuyPrice14U.ToString("C") txtSellPrice14.Text = SellPrice14U.ToString("C") txtBuyPrice15.Text = BuyPrice15U.ToString("C") txtSellPrice15.Text = SellPrice15U.ToString("C") txtBuyPrice16.Text = BuyPrice16U.ToString("C") txtSellPrice16.Text = SellPrice16U.ToString("C") txtBuyPrice17.Text = BuyPrice17U.ToString("C") txtSellPrice17.Text = SellPrice17U.ToString("C") txtBuyPrice18.Text = BuyPrice18U.ToString("C") txtSellPrice18.Text = SellPrice18U.ToString("C") txtBuyPrice19.Text = BuyPrice19U.ToString("C") txtSellPrice19.Text = SellPrice19U.ToString("C") txtBuyPrice20.Text = BuyPrice20U.ToString("C") txtSellPrice20.Text = SellPrice20U.ToString("C") If lang = "KOR" Then txtBuyPrice1.Text = CDec(BuyPrice1U.ToString("n2")).ToString("￦##.##K") txtSellPrice1.Text = CDec(SellPrice1U.ToString("n2")).ToString("￦##.##K") txtBuyPrice2.Text = CDec(BuyPrice2U.ToString("n2")).ToString("￦##.##K") txtSellPrice2.Text = CDec(SellPrice2U.ToString("n2")).ToString("￦##.##K") txtBuyPrice3.Text = CDec(BuyPrice3U.ToString("n2")).ToString("￦##.##K") txtSellPrice3.Text = CDec(SellPrice3U.ToString("n2")).ToString("￦##.##K") txtBuyPrice4.Text = CDec(BuyPrice4U.ToString("n2")).ToString("￦##.##K") txtSellPrice4.Text = CDec(SellPrice4U.ToString("n2")).ToString("￦##.##K") txtBuyPrice5.Text = CDec(BuyPrice5U.ToString("n2")).ToString("￦##.##K") txtSellPrice5.Text = CDec(SellPrice5U.ToString("n2")).ToString("￦##.##K") txtBuyPrice6.Text = CDec(BuyPrice6U.ToString("n2")).ToString("￦##.##K") txtSellPrice6.Text = CDec(SellPrice6U.ToString("n2")).ToString("￦##.##K") txtBuyPrice7.Text = CDec(BuyPrice7U.ToString("n2")).ToString("￦##.##K") txtSellPrice7.Text = CDec(SellPrice7U.ToString("n2")).ToString("￦##.##K") txtBuyPrice8.Text = CDec(BuyPrice8U.ToString("n2")).ToString("￦##.##K") txtSellPrice8.Text = CDec(SellPrice8U.ToString("n2")).ToString("￦##.##K") txtBuyPrice9.Text = CDec(BuyPrice9U.ToString("n2")).ToString("￦##.##K") txtSellPrice9.Text = CDec(SellPrice9U.ToString("n2")).ToString("￦##.##K") txtBuyPrice10.Text = CDec(BuyPrice10U.ToString("n2")).ToString("￦##.##K") txtSellPrice10.Text = CDec(SellPrice10U.ToString("n2")).ToString("￦##.##K") txtBuyPrice11.Text = CDec(BuyPrice11U.ToString("n2")).ToString("￦##.##K") txtSellPrice11.Text = CDec(SellPrice11U.ToString("n2")).ToString("￦##.##K") txtBuyPrice12.Text = CDec(BuyPrice12U.ToString("n2")).ToString("￦##.##K") txtSellPrice12.Text = CDec(SellPrice12U.ToString("n2")).ToString("￦##.##K") txtBuyPrice13.Text = CDec(BuyPrice13U.ToString("n2")).ToString("￦##.##K") txtSellPrice13.Text = CDec(SellPrice13U.ToString("n2")).ToString("￦##.##K") txtBuyPrice14.Text = CDec(BuyPrice14U.ToString("n2")).ToString("￦##.##K") txtSellPrice14.Text = CDec(SellPrice14U.ToString("n2")).ToString("￦##.##K") txtBuyPrice15.Text = CDec(BuyPrice15U.ToString("n2")).ToString("￦##.##K") txtSellPrice15.Text = CDec(SellPrice15U.ToString("n2")).ToString("￦##.##K") txtBuyPrice16.Text = CDec(BuyPrice16U.ToString("n2")).ToString("￦##.##K") txtSellPrice16.Text = CDec(SellPrice16U.ToString("n2")).ToString("￦##.##K") txtBuyPrice17.Text = CDec(BuyPrice17U.ToString("n2")).ToString("￦##.##K") txtSellPrice17.Text = CDec(SellPrice17U.ToString("n2")).ToString("￦##.##K") txtBuyPrice18.Text = CDec(BuyPrice18U.ToString("n2")).ToString("￦##.##K") txtSellPrice18.Text = CDec(SellPrice18U.ToString("n2")).ToString("￦##.##K") txtBuyPrice19.Text = CDec(BuyPrice19U.ToString("n2")).ToString("￦##.##K") txtSellPrice19.Text = CDec(SellPrice19U.ToString("n2")).ToString("￦##.##K") txtBuyPrice20.Text = CDec(BuyPrice20U.ToString("n2")).ToString("￦##.##K") txtSellPrice20.Text = CDec(SellPrice20U.ToString("n2")).ToString("￦##.##K") End If End Sub Sub BuySellEnabledFalse() btnBuy1.Enabled = False btnBuy2.Enabled = False btnBuy3.Enabled = False btnBuy4.Enabled = False btnBuy5.Enabled = False btnBuy6.Enabled = False btnBuy7.Enabled = False btnBuy8.Enabled = False btnBuy9.Enabled = False btnBuy10.Enabled = False btnBuy11.Enabled = False btnBuy12.Enabled = False btnBuy13.Enabled = False btnBuy14.Enabled = False btnBuy15.Enabled = False btnBuy16.Enabled = False btnBuy17.Enabled = False btnBuy18.Enabled = False btnBuy19.Enabled = False btnBuy20.Enabled = False btnSell1.Enabled = False btnSell2.Enabled = False btnSell3.Enabled = False btnSell4.Enabled = False btnSell5.Enabled = False btnSell6.Enabled = False btnSell7.Enabled = False btnSell8.Enabled = False btnSell9.Enabled = False btnSell10.Enabled = False btnSell11.Enabled = False btnSell12.Enabled = False btnSell13.Enabled = False btnSell14.Enabled = False btnSell15.Enabled = False btnSell16.Enabled = False btnSell17.Enabled = False btnSell18.Enabled = False btnSell19.Enabled = False btnSell20.Enabled = False End Sub Sub BuySellEnabledTrue() btnBuy1.Enabled = True btnBuy2.Enabled = True btnBuy3.Enabled = True btnBuy4.Enabled = True btnBuy5.Enabled = True btnBuy6.Enabled = True btnBuy7.Enabled = True btnBuy8.Enabled = True btnBuy9.Enabled = True btnBuy10.Enabled = True btnBuy11.Enabled = True btnBuy12.Enabled = True btnBuy13.Enabled = True btnBuy14.Enabled = True btnBuy15.Enabled = True btnBuy16.Enabled = True btnBuy17.Enabled = True btnBuy18.Enabled = True btnBuy19.Enabled = True btnBuy20.Enabled = True btnSell1.Enabled = True btnSell2.Enabled = True btnSell3.Enabled = True btnSell4.Enabled = True btnSell5.Enabled = True btnSell6.Enabled = True btnSell7.Enabled = True btnSell8.Enabled = True btnSell9.Enabled = True btnSell10.Enabled = True btnSell11.Enabled = True btnSell12.Enabled = True btnSell13.Enabled = True btnSell14.Enabled = True btnSell15.Enabled = True btnSell16.Enabled = True btnSell17.Enabled = True btnSell18.Enabled = True btnSell19.Enabled = True btnSell20.Enabled = True End Sub Private Sub TimerCalender_Tick(sender As Object, e As EventArgs) Handles TimerCalender.Tick ' lblCalender.Text = DateAdd("m", 6, lblCalender.Text) ' lblCalender.Text = DateAdd("h", 1, lblCalender.Text) 'lblCalender.Text = DateAdd("n", 1, lblCalender.Text) ' Here (s, 72, lblCalender.text)'s 36 is proportional to the timer TimerStockPriceChanges' interval 262200 lblCalender.Text = CStr(DateAdd("s", 72, lblCalender.Text)) 'Event 1 If lblCalender.Text = "3/28/2014" Then If lang = "ENG" Then MsgBox(lblCalender.Text & vbLf & "Stock War project has been started! (Event Bonus: +10 bucks)", , "Stock War Notification") MyWallet = MyWallet + 10 lblMoney.Text = MyWallet.ToString("C") ElseIf lang = "KOR" Then MsgBox(lblCalender.Text & vbLf & "오늘은 주식 전쟁 개발이 시작된 날입니다. (이벤트 보너스: +1만원)", , "주식 전쟁 알림") MyWallet = MyWallet + 10 lblMoney.Text = MyWallet.ToString("￦##,##.##K") End If 'Event 2 ElseIf lblCalender.Text = "4/2/2014" Then If lang = "ENG" Then MsgBox(lblCalender.Text & vbLf & "Hooray~ it is birthday of Stock War! (Event Bonus: +10 bucks)", , "Stock War Notification") MyWallet = MyWallet + 10 lblMoney.Text = MyWallet.ToString("C") ElseIf lang = "KOR" Then MsgBox(lblCalender.Text & vbLf & "오늘은 주식 전쟁 개발이 완료된 날입니다. (이벤트 보너스: +1만원)", , "주식 전쟁 알림") MyWallet = MyWallet + 10 lblMoney.Text = MyWallet.ToString("￦##,##.##K") End If End If 'Time and Calender Setting TimerCount = TimerCount + 1 'Default Value: +1 NOTE HERE! Change the number here for changing time speed of game If TimerCount = 1200 Then 'Default Value: 1200. 50 is 1 hr in lblCalender.text. A day is 24hr so 50*24=1200 is an hr in game. 'Player recieves monthly salary SalaryCount = SalaryCount + 1 If SalaryCount = 31 Then MyWallet = MyWallet + intSalary If lang = "ENG" Then MsgBox("You have received monthly salary $" & intSalary & ".", vbInformation, "Stock War Salary") lblMoney.Text = MyWallet.ToString("C") ElseIf lang = "KOR" Then MsgBox("이번달 월급으로 ￦" & intSalary & ",000원을 받았습니다.", vbInformation, "주식 전쟁 월급") lblMoney.Text = MyWallet.ToString("￦##,##.##") End If 'Reset salary value SalaryCount = 0 End If 'Change Months If lang = "ENG" Then If lblMonths.Text = "Monday" Then lblMonths.Text = "Tuesday" ElseIf lblMonths.Text = "Tuesday" Then lblMonths.Text = "Wednesday" ElseIf lblMonths.Text = "Wednesday" Then lblMonths.Text = "Thursday" ElseIf lblMonths.Text = "Thursday" Then lblMonths.Text = "Friday" ElseIf lblMonths.Text = "Friday" Then lblMonths.Text = "Saturday" ElseIf lblMonths.Text = "Saturday" Then lblMonths.Text = "Sunday" ElseIf lblMonths.Text = "Sunday" Then lblMonths.Text = "Monday" End If ElseIf lang = "KOR" Then If lblMonths.Text = "월요일" Then lblMonths.Text = "화요일" ElseIf lblMonths.Text = "화요일" Then lblMonths.Text = "수요일" ElseIf lblMonths.Text = "수요일" Then lblMonths.Text = "목요일" ElseIf lblMonths.Text = "목요일" Then lblMonths.Text = "금요일" ElseIf lblMonths.Text = "금요일" Then lblMonths.Text = "토요일" ElseIf lblMonths.Text = "토요일" Then lblMonths.Text = "일요일" ElseIf lblMonths.Text = "일요일" Then lblMonths.Text = "월요일" End If End If 'Ban buying action on every Sunday and Saturday If lblMonths.Text = "Sunday" Or lblMonths.Text = "Saturday" Or lblMonths.Text = "일요일" Or lblMonths.Text = "토요일" Then BuySellEnabledFalse() If lang = "ENG" Then lblStatus.Text = "Closed" ElseIf lang = "KOR" Then lblStatus.Text = "폐장중" End If lblStatus.ForeColor = Color.DeepPink PicStatus.BackgroundImage = PicClosed.BackgroundImage Else 'if lblMonths.text = Monday~Friday BuySellEnabledTrue() If txtHolding1.TextAlign = HorizontalAlignment.Center Then ' This means status is 'M&A' btnBuy1.Enabled = False btnSell1.Enabled = False ElseIf txtHolding2.TextAlign = HorizontalAlignment.Center Then btnBuy2.Enabled = False btnSell2.Enabled = False ElseIf txtHolding3.TextAlign = HorizontalAlignment.Center Then btnBuy3.Enabled = False btnSell3.Enabled = False ElseIf txtHolding4.TextAlign = HorizontalAlignment.Center Then btnBuy4.Enabled = False btnSell4.Enabled = False ElseIf txtHolding5.TextAlign = HorizontalAlignment.Center Then btnBuy5.Enabled = False btnSell5.Enabled = False ElseIf txtHolding6.TextAlign = HorizontalAlignment.Center Then btnBuy6.Enabled = False btnSell6.Enabled = False ElseIf txtHolding7.TextAlign = HorizontalAlignment.Center Then btnBuy7.Enabled = False btnSell7.Enabled = False ElseIf txtHolding8.TextAlign = HorizontalAlignment.Center Then btnBuy8.Enabled = False btnSell8.Enabled = False ElseIf txtHolding9.TextAlign = HorizontalAlignment.Center Then btnBuy9.Enabled = False btnSell9.Enabled = False ElseIf txtHolding10.TextAlign = HorizontalAlignment.Center Then btnBuy10.Enabled = False btnSell10.Enabled = False ElseIf txtHolding11.TextAlign = HorizontalAlignment.Center Then btnBuy11.Enabled = False btnSell11.Enabled = False ElseIf txtHolding12.TextAlign = HorizontalAlignment.Center Then btnBuy12.Enabled = False btnSell12.Enabled = False ElseIf txtHolding13.TextAlign = HorizontalAlignment.Center Then btnBuy13.Enabled = False btnSell13.Enabled = False ElseIf txtHolding14.TextAlign = HorizontalAlignment.Center Then btnBuy14.Enabled = False btnSell14.Enabled = False ElseIf txtHolding15.TextAlign = HorizontalAlignment.Center Then btnBuy15.Enabled = False btnSell15.Enabled = False ElseIf txtHolding16.TextAlign = HorizontalAlignment.Center Then btnBuy16.Enabled = False btnSell16.Enabled = False ElseIf txtHolding17.TextAlign = HorizontalAlignment.Center Then btnBuy17.Enabled = False btnSell17.Enabled = False ElseIf txtHolding18.TextAlign = HorizontalAlignment.Center Then btnBuy18.Enabled = False btnSell18.Enabled = False ElseIf txtHolding19.TextAlign = HorizontalAlignment.Center Then btnBuy19.Enabled = False btnSell19.Enabled = False ElseIf txtHolding20.TextAlign = HorizontalAlignment.Center Then btnBuy20.Enabled = False btnSell20.Enabled = False End If If lang = "ENG" Then lblStatus.Text = "Open" ElseIf lang = "KOR" Then lblStatus.Text = "개장중" End If lblStatus.ForeColor = Color.DarkTurquoise PicStatus.BackgroundImage = PicOpen.BackgroundImage End If 'LOOK AT HERE! a global value which was declared at the top ChangeSwitch becomes False, not True which is beginning value. If ChangeSwitch = False Then ChangeSwitch = True Else ChangeSwitch = False End If 'Change stock prices randomly, Show them and their graphical changes with imageboxes. 'Prevent share prices change on every Saturday and Sunday If lblMonths.Text = "Monday" Or lblMonths.Text = "Tuesday" Or lblMonths.Text = "Wednesday" Or lblMonths.Text = "Thursday" Or lblMonths.Text = "Friday" Or lblMonths.Text = "월요일" Or lblMonths.Text = "화요일" Or lblMonths.Text = "수요일" Or lblMonths.Text = "목요일" Or lblMonths.Text = "금요일" Then If ChangeSwitch = False Then 'Changes of stock prices BuyPrice1 = CDec(ChangePrice_Huge(CDec(BuyPrice1)).ToString("n2")) BuyPrice2 = CDec(ChangePrice_Medium(CDec(BuyPrice2)).ToString("n2")) BuyPrice3 = CDec(ChangePrice_Small(CDec(BuyPrice3)).ToString("n2")) BuyPrice4 = CDec(ChangePrice_Small(CDec(BuyPrice4)).ToString("n2")) BuyPrice5 = CDec(ChangePrice_Large(CDec(BuyPrice5)).ToString("n2")) BuyPrice6 = CDec(ChangePrice_Tiny(CDec(BuyPrice6)).ToString("n2")) BuyPrice7 = CDec(ChangePrice_Medium(CDec(BuyPrice7)).ToString("n2")) BuyPrice8 = CDec(ChangePrice_Huge(CDec(BuyPrice8)).ToString("n2")) BuyPrice9 = CDec(ChangePrice_Medium(CDec(BuyPrice9)).ToString("n2")) BuyPrice10 = CDec(ChangePrice_Huge(CDec(BuyPrice10)).ToString("n2")) BuyPrice11 = CDec(ChangePrice_Tiny(CDec(BuyPrice11)).ToString("n2")) BuyPrice12 = CDec(ChangePrice_Large(CDec(BuyPrice12)).ToString("n2")) BuyPrice13 = CDec(ChangePrice_Huge(CDec(BuyPrice13)).ToString("n2")) BuyPrice14 = CDec(ChangePrice_Large(CDec(BuyPrice14)).ToString("n2")) BuyPrice15 = CDec(ChangePrice_Tiny(CDec(BuyPrice15)).ToString("n2")) BuyPrice16 = CDec(ChangePrice_Large(CDec(BuyPrice16)).ToString("n2")) BuyPrice17 = CDec(ChangePrice_Medium(CDec(BuyPrice17)).ToString("n2")) BuyPrice18 = CDec(ChangePrice_Large(CDec(BuyPrice18)).ToString("n2")) BuyPrice19 = CDec(ChangePrice_Small(CDec(BuyPrice19)).ToString("n2")) BuyPrice20 = CDec(ChangePrice_Medium(CDec(BuyPrice20)).ToString("n2")) SamsungAppleSueEvent() TsunamiJapanEvent() FastfoodBoomEvent() InfoAgeEffectEvent() MeetAlienEvent() SellPrice1 = CDec((BuyPrice1 - (BuyPrice1 * intTax)).ToString("n2")) '0.045 is tax in selling action. SellPrice2 = CDec((BuyPrice2 - (BuyPrice2 * intTax)).ToString("n2")) SellPrice3 = CDec((BuyPrice3 - (BuyPrice3 * intTax)).ToString("n2")) SellPrice4 = CDec((BuyPrice4 - (BuyPrice4 * intTax)).ToString("n2")) SellPrice5 = CDec((BuyPrice5 - (BuyPrice5 * intTax)).ToString("n2")) SellPrice6 = CDec((BuyPrice6 - (BuyPrice6 * intTax)).ToString("n2")) SellPrice7 = CDec((BuyPrice7 - (BuyPrice7 * intTax)).ToString("n2")) SellPrice8 = CDec((BuyPrice8 - (BuyPrice8 * intTax)).ToString("n2")) SellPrice9 = CDec((BuyPrice9 - (BuyPrice9 * intTax)).ToString("n2")) SellPrice10 = CDec((BuyPrice10 - (BuyPrice10 * intTax)).ToString("n2")) SellPrice11 = CDec((BuyPrice11 - (BuyPrice11 * intTax)).ToString("n2")) SellPrice12 = CDec((BuyPrice12 - (BuyPrice12 * intTax)).ToString("n2")) SellPrice13 = CDec((BuyPrice13 - (BuyPrice13 * intTax)).ToString("n2")) SellPrice14 = CDec((BuyPrice14 - (BuyPrice14 * intTax)).ToString("n2")) SellPrice15 = CDec((BuyPrice15 - (BuyPrice15 * intTax)).ToString("n2")) SellPrice16 = CDec((BuyPrice16 - (BuyPrice16 * intTax)).ToString("n2")) SellPrice17 = CDec((BuyPrice17 - (BuyPrice17 * intTax)).ToString("n2")) SellPrice18 = CDec((BuyPrice18 - (BuyPrice18 * intTax)).ToString("n2")) SellPrice19 = CDec((BuyPrice19 - (BuyPrice19 * intTax)).ToString("n2")) SellPrice20 = CDec((BuyPrice20 - (BuyPrice20 * intTax)).ToString("n2")) 'Display the share prices If lang = "ENG" Then txtBuyPrice1.Text = BuyPrice1.ToString("C") txtSellPrice1.Text = SellPrice1.ToString("C") txtBuyPrice2.Text = BuyPrice2.ToString("C") txtSellPrice2.Text = SellPrice2.ToString("C") txtBuyPrice3.Text = BuyPrice3.ToString("C") txtSellPrice3.Text = SellPrice3.ToString("C") txtBuyPrice4.Text = BuyPrice4.ToString("C") txtSellPrice4.Text = SellPrice4.ToString("C") txtBuyPrice5.Text = BuyPrice5.ToString("C") txtSellPrice5.Text = SellPrice5.ToString("C") txtBuyPrice6.Text = BuyPrice6.ToString("C") txtSellPrice6.Text = SellPrice6.ToString("C") txtBuyPrice7.Text = BuyPrice7.ToString("C") txtSellPrice7.Text = SellPrice7.ToString("C") txtBuyPrice8.Text = BuyPrice8.ToString("C") txtSellPrice8.Text = SellPrice8.ToString("C") txtBuyPrice9.Text = BuyPrice9.ToString("C") txtSellPrice9.Text = SellPrice9.ToString("C") txtBuyPrice10.Text = BuyPrice10.ToString("C") txtSellPrice10.Text = SellPrice10.ToString("C") txtBuyPrice11.Text = BuyPrice11.ToString("C") txtSellPrice11.Text = SellPrice11.ToString("C") txtBuyPrice12.Text = BuyPrice12.ToString("C") txtSellPrice12.Text = SellPrice12.ToString("C") txtBuyPrice13.Text = BuyPrice13.ToString("C") txtSellPrice13.Text = SellPrice13.ToString("C") txtBuyPrice14.Text = BuyPrice14.ToString("C") txtSellPrice14.Text = SellPrice14.ToString("C") txtBuyPrice15.Text = BuyPrice15.ToString("C") txtSellPrice15.Text = SellPrice15.ToString("C") txtBuyPrice16.Text = BuyPrice16.ToString("C") txtSellPrice16.Text = SellPrice16.ToString("C") txtBuyPrice17.Text = BuyPrice17.ToString("C") txtSellPrice17.Text = SellPrice17.ToString("C") txtBuyPrice18.Text = BuyPrice18.ToString("C") txtSellPrice18.Text = SellPrice18.ToString("C") txtBuyPrice19.Text = BuyPrice19.ToString("C") txtSellPrice19.Text = SellPrice19.ToString("C") txtBuyPrice20.Text = BuyPrice20.ToString("C") txtSellPrice20.Text = SellPrice20.ToString("C") ElseIf lang = "KOR" Then txtBuyPrice1.Text = CDec(BuyPrice1.ToString("C")).ToString("￦##.##K") txtSellPrice1.Text = CDec(SellPrice1.ToString("C")).ToString("￦##.##K") txtBuyPrice2.Text = CDec(BuyPrice2.ToString("C")).ToString("￦##.##K") txtSellPrice2.Text = CDec(SellPrice2.ToString("C")).ToString("￦##.##K") txtBuyPrice3.Text = CDec(BuyPrice3.ToString("C")).ToString("￦##.##K") txtSellPrice3.Text = CDec(SellPrice3.ToString("C")).ToString("￦##.##K") txtBuyPrice4.Text = CDec(BuyPrice4.ToString("C")).ToString("￦##.##K") txtSellPrice4.Text = CDec(SellPrice4.ToString("C")).ToString("￦##.##K") txtBuyPrice5.Text = CDec(BuyPrice5.ToString("C")).ToString("￦##.##K") txtSellPrice5.Text = CDec(SellPrice5.ToString("C")).ToString("￦##.##K") txtBuyPrice6.Text = CDec(BuyPrice6.ToString("C")).ToString("￦##.##K") txtSellPrice6.Text = CDec(SellPrice6.ToString("C")).ToString("￦##.##K") txtBuyPrice7.Text = CDec(BuyPrice7.ToString("C")).ToString("￦##.##K") txtSellPrice7.Text = CDec(SellPrice7.ToString("C")).ToString("￦##.##K") txtBuyPrice8.Text = CDec(BuyPrice8.ToString("C")).ToString("￦##.##K") txtSellPrice8.Text = CDec(SellPrice8.ToString("C")).ToString("￦##.##K") txtBuyPrice9.Text = CDec(BuyPrice9.ToString("C")).ToString("￦##.##K") txtSellPrice9.Text = CDec(SellPrice9.ToString("C")).ToString("￦##.##K") txtBuyPrice10.Text = CDec(BuyPrice10.ToString("C")).ToString("￦##.##K") txtSellPrice10.Text = CDec(SellPrice10.ToString("C")).ToString("￦##.##K") txtBuyPrice11.Text = CDec(BuyPrice11.ToString("C")).ToString("￦##.##K") txtSellPrice11.Text = CDec(SellPrice11.ToString("C")).ToString("￦##.##K") txtBuyPrice12.Text = CDec(BuyPrice12.ToString("C")).ToString("￦##.##K") txtSellPrice12.Text = CDec(SellPrice12.ToString("C")).ToString("￦##.##K") txtBuyPrice13.Text = CDec(BuyPrice13.ToString("C")).ToString("￦##.##K") txtSellPrice13.Text = CDec(SellPrice13.ToString("C")).ToString("￦##.##K") txtBuyPrice14.Text = CDec(BuyPrice14.ToString("C")).ToString("￦##.##K") txtSellPrice14.Text = CDec(SellPrice14.ToString("C")).ToString("￦##.##K") txtBuyPrice15.Text = CDec(BuyPrice15.ToString("C")).ToString("￦##.##K") txtSellPrice15.Text = CDec(SellPrice15.ToString("C")).ToString("￦##.##K") txtBuyPrice16.Text = CDec(BuyPrice16.ToString("C")).ToString("￦##.##K") txtSellPrice16.Text = CDec(SellPrice16.ToString("C")).ToString("￦##.##K") txtBuyPrice17.Text = CDec(BuyPrice17.ToString("C")).ToString("￦##.##K") txtSellPrice17.Text = CDec(SellPrice17.ToString("C")).ToString("￦##.##K") txtBuyPrice18.Text = CDec(BuyPrice18.ToString("C")).ToString("￦##.##K") txtSellPrice18.Text = CDec(SellPrice18.ToString("C")).ToString("￦##.##K") txtBuyPrice19.Text = CDec(BuyPrice19.ToString("C")).ToString("￦##.##K") txtSellPrice19.Text = CDec(SellPrice19.ToString("C")).ToString("￦##.##K") txtBuyPrice20.Text = CDec(BuyPrice20.ToString("C")).ToString("￦##.##K") txtSellPrice20.Text = CDec(SellPrice20.ToString("n2")).ToString("￦##.##K") End If 'Display points that show how much prices has been changed txtChange1.Text = CDec(CStr(BuyPrice1 - BuyPrice1U)).ToString("n2") txtChange2.Text = CDec(CStr(BuyPrice2 - BuyPrice2U)).ToString("n2") txtChange3.Text = CDec(CStr(BuyPrice3 - BuyPrice3U)).ToString("n2") txtChange4.Text = CDec(CStr(BuyPrice4 - BuyPrice4U)).ToString("n2") txtChange5.Text = CDec(CStr(BuyPrice5 - BuyPrice5U)).ToString("n2") txtChange6.Text = CDec(CStr(BuyPrice6 - BuyPrice6U)).ToString("n2") txtChange7.Text = CDec(CStr(BuyPrice7 - BuyPrice7U)).ToString("n2") txtChange8.Text = CDec(CStr(BuyPrice8 - BuyPrice8U)).ToString("n2") txtChange9.Text = CDec(CStr(BuyPrice9 - BuyPrice9U)).ToString("n2") txtChange10.Text = CDec(CStr(BuyPrice10 - BuyPrice10U)).ToString("n2") txtChange11.Text = CDec(CStr(BuyPrice11 - BuyPrice11U)).ToString("n2") txtChange12.Text = CDec(CStr(BuyPrice12 - BuyPrice12U)).ToString("n2") txtChange13.Text = CDec(CStr(BuyPrice13 - BuyPrice13U)).ToString("n2") txtChange14.Text = CDec(CStr(BuyPrice14 - BuyPrice14U)).ToString("n2") txtChange15.Text = CDec(CStr(BuyPrice15 - BuyPrice15U)).ToString("n2") txtChange16.Text = CDec(CStr(BuyPrice16 - BuyPrice16U)).ToString("n2") txtChange17.Text = CDec(CStr(BuyPrice17 - BuyPrice17U)).ToString("n2") txtChange18.Text = CDec(CStr(BuyPrice18 - BuyPrice18U)).ToString("n2") txtChange19.Text = CDec(CStr(BuyPrice19 - BuyPrice19U)).ToString("n2") txtChange20.Text = CDec(CStr(BuyPrice20 - BuyPrice20U)).ToString("n2") 'Check current price is max(of the week) or min(of the week) or nothing. If BuyPrice1 > Max1 Then Max1 = BuyPrice1 ElseIf BuyPrice1 < Min1 Then Min1 = BuyPrice1 End If If BuyPrice2 > Max2 Then Max2 = BuyPrice2 ElseIf BuyPrice2 < Min2 Then Min2 = BuyPrice2 End If If BuyPrice3 > Max3 Then Max3 = BuyPrice3 ElseIf BuyPrice3 < Min3 Then Min3 = BuyPrice3 End If If BuyPrice4 > Max4 Then Max4 = BuyPrice4 ElseIf BuyPrice4 < Min4 Then Min4 = BuyPrice4 End If If BuyPrice5 > Max5 Then Max5 = BuyPrice5 ElseIf BuyPrice5 < Min5 Then Min5 = BuyPrice5 End If If BuyPrice6 > Max6 Then Max6 = BuyPrice6 ElseIf BuyPrice6 < Min6 Then Min6 = BuyPrice6 End If If BuyPrice7 > Max7 Then Max7 = BuyPrice7 ElseIf BuyPrice7 < Min7 Then Min7 = BuyPrice7 End If If BuyPrice8 > Max8 Then Max8 = BuyPrice8 ElseIf BuyPrice8 < Min8 Then Min8 = BuyPrice8 End If If BuyPrice9 > Max9 Then Max9 = BuyPrice9 ElseIf BuyPrice9 < Min9 Then Min9 = BuyPrice9 End If If BuyPrice10 > Max10 Then Max10 = BuyPrice10 ElseIf BuyPrice10 < Min10 Then Min10 = BuyPrice10 End If If BuyPrice11 > Max11 Then Max11 = BuyPrice11 ElseIf BuyPrice1 < Min1 Then Min11 = BuyPrice11 End If If BuyPrice12 > Max12 Then Max12 = BuyPrice12 ElseIf BuyPrice12 < Min12 Then Min12 = BuyPrice12 End If If BuyPrice13 > Max13 Then Max13 = BuyPrice13 ElseIf BuyPrice13 < Min13 Then Min13 = BuyPrice13 End If If BuyPrice14 > Max14 Then Max14 = BuyPrice14 ElseIf BuyPrice14 < Min14 Then Min14 = BuyPrice14 End If If BuyPrice15 > Max15 Then Max15 = BuyPrice15 ElseIf BuyPrice15 < Min15 Then Min15 = BuyPrice15 End If If BuyPrice16 > Max16 Then Max16 = BuyPrice16 ElseIf BuyPrice16 < Min16 Then Min16 = BuyPrice16 End If If BuyPrice17 > Max17 Then Max17 = BuyPrice17 ElseIf BuyPrice17 < Min17 Then Min17 = BuyPrice17 End If If BuyPrice18 > Max18 Then Max18 = BuyPrice18 ElseIf BuyPrice18 < Min18 Then Min18 = BuyPrice18 End If If BuyPrice19 > Max19 Then Max19 = BuyPrice19 ElseIf BuyPrice19 < Min19 Then Min19 = BuyPrice19 End If If BuyPrice20 > Max20 Then Max20 = BuyPrice20 ElseIf BuyPrice20 < Min20 Then Min20 = BuyPrice20 End If ElseIf ChangeSwitch = True Then BuyPrice1U = CDec(ChangePrice_Huge(CDec(BuyPrice1U)).ToString("n2")) BuyPrice2U = CDec(ChangePrice_Medium(CDec(BuyPrice2U)).ToString("n2")) BuyPrice3U = CDec(ChangePrice_Small(CDec(BuyPrice3U)).ToString("n2")) BuyPrice4U = CDec(ChangePrice_Small(CDec(BuyPrice4U)).ToString("n2")) BuyPrice5U = CDec(ChangePrice_Large(CDec(BuyPrice5U)).ToString("n2")) BuyPrice6U = CDec(ChangePrice_Tiny(CDec(BuyPrice6U)).ToString("n2")) BuyPrice7U = CDec(ChangePrice_Medium(CDec(BuyPrice7U)).ToString("n2")) BuyPrice8U = CDec(ChangePrice_Huge(CDec(BuyPrice8U)).ToString("n2")) BuyPrice9U = CDec(ChangePrice_Medium(CDec(BuyPrice9U)).ToString("n2")) BuyPrice10U = CDec(ChangePrice_Huge(CDec(BuyPrice10U)).ToString("n2")) BuyPrice11U = CDec(ChangePrice_Tiny(CDec(BuyPrice11U)).ToString("n2")) BuyPrice12U = CDec(ChangePrice_Large(CDec(BuyPrice12U)).ToString("n2")) BuyPrice13U = CDec(ChangePrice_Huge(CDec(BuyPrice13U)).ToString("n2")) BuyPrice14U = CDec(ChangePrice_Large(CDec(BuyPrice14U)).ToString("n2")) BuyPrice15U = CDec(ChangePrice_Tiny(CDec(BuyPrice15U)).ToString("n2")) BuyPrice16U = CDec(ChangePrice_Large(CDec(BuyPrice16U)).ToString("n2")) BuyPrice17U = CDec(ChangePrice_Medium(CDec(BuyPrice17U)).ToString("n2")) BuyPrice18U = CDec(ChangePrice_Large(CDec(BuyPrice18U)).ToString("n2")) BuyPrice19U = CDec(ChangePrice_Small(CDec(BuyPrice19U)).ToString("n2")) BuyPrice20U = CDec(ChangePrice_Medium(CDec(BuyPrice20U)).ToString("n2")) SamsungAppleSueEvent_U() TsunamiJapanEvent_U() FastfoodBoomEvent_U() InfoAgeEffectEvent_U() MeetAlienEvent_U() SellPrice1U = CDec((BuyPrice1U - (BuyPrice1U * intTax)).ToString("n2")) SellPrice2U = CDec((BuyPrice2U - (BuyPrice2U * intTax)).ToString("n2")) SellPrice3U = CDec((BuyPrice3U - (BuyPrice3U * intTax)).ToString("n2")) SellPrice4U = CDec((BuyPrice4U - (BuyPrice4U * intTax)).ToString("n2")) SellPrice5U = CDec((BuyPrice5U - (BuyPrice5U * intTax)).ToString("n2")) SellPrice6U = CDec((BuyPrice6U - (BuyPrice6U * intTax)).ToString("n2")) SellPrice7U = CDec((BuyPrice7U - (BuyPrice7U * intTax)).ToString("n2")) SellPrice8U = CDec((BuyPrice8U - (BuyPrice8U * intTax)).ToString("n2")) SellPrice9U = CDec((BuyPrice9U - (BuyPrice9U * intTax)).ToString("n2")) SellPrice10U = CDec((BuyPrice10U - (BuyPrice10U * intTax)).ToString("n2")) SellPrice11U = CDec((BuyPrice11U - (BuyPrice11U * intTax)).ToString("n2")) SellPrice12U = CDec((BuyPrice12U - (BuyPrice12U * intTax)).ToString("n2")) SellPrice13U = CDec((BuyPrice13U - (BuyPrice13U * intTax)).ToString("n2")) SellPrice14U = CDec((BuyPrice14U - (BuyPrice14U * intTax)).ToString("n2")) SellPrice15U = CDec((BuyPrice15U - (BuyPrice15U * intTax)).ToString("n2")) SellPrice16U = CDec((BuyPrice16U - (BuyPrice16U * intTax)).ToString("n2")) SellPrice17U = CDec((BuyPrice17U - (BuyPrice17U * intTax)).ToString("n2")) SellPrice18U = CDec((BuyPrice18U - (BuyPrice18U * intTax)).ToString("n2")) SellPrice19U = CDec((BuyPrice19U - (BuyPrice19U * intTax)).ToString("n2")) SellPrice20U = CDec((BuyPrice20U - (BuyPrice20U * intTax)).ToString("n2")) If lang = "ENG" Then txtBuyPrice1.Text = BuyPrice1U.ToString("C") txtSellPrice1.Text = SellPrice1U.ToString("C") txtBuyPrice2.Text = BuyPrice2U.ToString("C") txtSellPrice2.Text = SellPrice2U.ToString("C") txtBuyPrice3.Text = BuyPrice3U.ToString("C") txtSellPrice3.Text = SellPrice3U.ToString("C") txtBuyPrice4.Text = BuyPrice4U.ToString("C") txtSellPrice4.Text = SellPrice4U.ToString("C") txtBuyPrice5.Text = BuyPrice5U.ToString("C") txtSellPrice5.Text = SellPrice5U.ToString("C") txtBuyPrice6.Text = BuyPrice6U.ToString("C") txtSellPrice6.Text = SellPrice6U.ToString("C") txtBuyPrice7.Text = BuyPrice7U.ToString("C") txtSellPrice7.Text = SellPrice7U.ToString("C") txtBuyPrice8.Text = BuyPrice8U.ToString("C") txtSellPrice8.Text = SellPrice8U.ToString("C") txtBuyPrice9.Text = BuyPrice9U.ToString("C") txtSellPrice9.Text = SellPrice9U.ToString("C") txtBuyPrice10.Text = BuyPrice10U.ToString("C") txtSellPrice10.Text = SellPrice10U.ToString("C") txtBuyPrice11.Text = BuyPrice11U.ToString("C") txtSellPrice11.Text = SellPrice11U.ToString("C") txtBuyPrice12.Text = BuyPrice12U.ToString("C") txtSellPrice12.Text = SellPrice12U.ToString("C") txtBuyPrice13.Text = BuyPrice13U.ToString("C") txtSellPrice13.Text = SellPrice13U.ToString("C") txtBuyPrice14.Text = BuyPrice14U.ToString("C") txtSellPrice14.Text = SellPrice14U.ToString("C") txtBuyPrice15.Text = BuyPrice15U.ToString("C") txtSellPrice15.Text = SellPrice15U.ToString("C") txtBuyPrice16.Text = BuyPrice16U.ToString("C") txtSellPrice16.Text = SellPrice16U.ToString("C") txtBuyPrice17.Text = BuyPrice17U.ToString("C") txtSellPrice17.Text = SellPrice17U.ToString("C") txtBuyPrice18.Text = BuyPrice18U.ToString("C") txtSellPrice18.Text = SellPrice18U.ToString("C") txtBuyPrice19.Text = BuyPrice19U.ToString("C") txtSellPrice19.Text = SellPrice19U.ToString("C") txtBuyPrice20.Text = BuyPrice20U.ToString("C") txtSellPrice20.Text = SellPrice20U.ToString("C") ElseIf lang = "KOR" Then txtBuyPrice1.Text = BuyPrice1U.ToString("￦##.##K") txtSellPrice1.Text = SellPrice1U.ToString("￦##.##K") txtBuyPrice2.Text = BuyPrice2U.ToString("￦##.##K") txtSellPrice2.Text = SellPrice2U.ToString("￦##.##K") txtBuyPrice3.Text = BuyPrice3U.ToString("￦##.##K") txtSellPrice3.Text = SellPrice3U.ToString("￦##.##K") txtBuyPrice4.Text = BuyPrice4U.ToString("￦##.##K") txtSellPrice4.Text = SellPrice4U.ToString("￦##.##K") txtBuyPrice5.Text = BuyPrice5U.ToString("￦##.##K") txtSellPrice5.Text = SellPrice5U.ToString("￦##.##K") txtBuyPrice6.Text = BuyPrice6U.ToString("￦##.##K") txtSellPrice6.Text = SellPrice6U.ToString("￦##.##K") txtBuyPrice7.Text = BuyPrice7U.ToString("￦##.##K") txtSellPrice7.Text = SellPrice7U.ToString("￦##.##K") txtBuyPrice8.Text = BuyPrice8U.ToString("￦##.##K") txtSellPrice8.Text = SellPrice8U.ToString("￦##.##K") txtBuyPrice9.Text = BuyPrice9U.ToString("￦##.##K") txtSellPrice9.Text = SellPrice9U.ToString("￦##.##K") txtBuyPrice10.Text = BuyPrice10U.ToString("￦##.##K") txtSellPrice10.Text = SellPrice10U.ToString("￦##.##K") txtBuyPrice11.Text = BuyPrice11U.ToString("￦##.##K") txtSellPrice11.Text = SellPrice11U.ToString("￦##.##K") txtBuyPrice12.Text = BuyPrice12U.ToString("￦##.##K") txtSellPrice12.Text = SellPrice12U.ToString("￦##.##K") txtBuyPrice13.Text = BuyPrice13U.ToString("￦##.##K") txtSellPrice13.Text = SellPrice13U.ToString("￦##.##K") txtBuyPrice14.Text = BuyPrice14U.ToString("￦##.##K") txtSellPrice14.Text = SellPrice14U.ToString("￦##.##K") txtBuyPrice15.Text = BuyPrice15U.ToString("￦##.##K") txtSellPrice15.Text = SellPrice15U.ToString("￦##.##K") txtBuyPrice16.Text = BuyPrice16U.ToString("￦##.##K") txtSellPrice16.Text = SellPrice16U.ToString("￦##.##K") txtBuyPrice17.Text = BuyPrice17U.ToString("￦##.##K") txtSellPrice17.Text = SellPrice17U.ToString("￦##.##K") txtBuyPrice18.Text = BuyPrice18U.ToString("￦##.##K") txtSellPrice18.Text = SellPrice18U.ToString("￦##.##K") txtBuyPrice19.Text = BuyPrice19U.ToString("￦##.##K") txtSellPrice19.Text = SellPrice19U.ToString("￦##.##K") txtBuyPrice20.Text = BuyPrice20U.ToString("￦##.##K") txtSellPrice20.Text = SellPrice20U.ToString("￦##.##K") End If txtChange1.Text = CDec(CStr(BuyPrice1U - BuyPrice1)).ToString("n2") txtChange2.Text = CDec(CStr(BuyPrice2U - BuyPrice2)).ToString("n2") txtChange3.Text = CDec(CStr(BuyPrice3U - BuyPrice3)).ToString("n2") txtChange4.Text = CDec(CStr(BuyPrice4U - BuyPrice4)).ToString("n2") txtChange5.Text = CDec(CStr(BuyPrice5U - BuyPrice5)).ToString("n2") txtChange6.Text = CDec(CStr(BuyPrice6U - BuyPrice6)).ToString("n2") txtChange7.Text = CDec(CStr(BuyPrice7U - BuyPrice7)).ToString("n2") txtChange8.Text = CDec(CStr(BuyPrice8U - BuyPrice8)).ToString("n2") txtChange9.Text = CDec(CStr(BuyPrice9U - BuyPrice9)).ToString("n2") txtChange10.Text = CDec(CStr(BuyPrice10U - BuyPrice10)).ToString("n2") txtChange11.Text = CDec(CStr(BuyPrice11U - BuyPrice11)).ToString("n2") txtChange12.Text = CDec(CStr(BuyPrice12U - BuyPrice12)).ToString("n2") txtChange13.Text = CDec(CStr(BuyPrice13U - BuyPrice13)).ToString("n2") txtChange14.Text = CDec(CStr(BuyPrice14U - BuyPrice14)).ToString("n2") txtChange15.Text = CDec(CStr(BuyPrice15U - BuyPrice15)).ToString("n2") txtChange16.Text = CDec(CStr(BuyPrice16U - BuyPrice16)).ToString("n2") txtChange17.Text = CDec(CStr(BuyPrice17U - BuyPrice17)).ToString("n2") txtChange18.Text = CDec(CStr(BuyPrice18U - BuyPrice18)).ToString("n2") txtChange19.Text = CDec(CStr(BuyPrice19U - BuyPrice19)).ToString("n2") txtChange20.Text = CDec(CStr(BuyPrice20U - BuyPrice20)).ToString("n2") If BuyPrice1U > Max1 Then Max1 = BuyPrice1U ElseIf BuyPrice1U < Min1 Then Min1 = BuyPrice1U End If If BuyPrice2U > Max2 Then Max2 = BuyPrice2U ElseIf BuyPrice2U < Min2 Then Min2 = BuyPrice2U End If If BuyPrice3U > Max3 Then Max3 = BuyPrice3U ElseIf BuyPrice3U < Min3 Then Min3 = BuyPrice3U End If If BuyPrice4U > Max4 Then Max4 = BuyPrice4U ElseIf BuyPrice4U < Min4 Then Min4 = BuyPrice4U End If If BuyPrice5U > Max5 Then Max5 = BuyPrice5U ElseIf BuyPrice5U < Min5 Then Min5 = BuyPrice5U End If If BuyPrice6U > Max6 Then Max6 = BuyPrice6U ElseIf BuyPrice6U < Min6 Then Min6 = BuyPrice6U End If If BuyPrice7U > Max7 Then Max7 = BuyPrice7U ElseIf BuyPrice7U < Min7 Then Min7 = BuyPrice7U End If If BuyPrice8U > Max8 Then Max8 = BuyPrice8U ElseIf BuyPrice8U < Min8 Then Min8 = BuyPrice8U End If If BuyPrice9U > Max9 Then Max9 = BuyPrice9U ElseIf BuyPrice9U < Min9 Then Min9 = BuyPrice9U End If If BuyPrice10U > Max10 Then Max10 = BuyPrice10U ElseIf BuyPrice10U < Min10 Then Min10 = BuyPrice10U End If If BuyPrice11U > Max11 Then Max11 = BuyPrice11U ElseIf BuyPrice11U < Min11 Then Min11 = BuyPrice11U End If If BuyPrice12U > Max12 Then Max12 = BuyPrice12U ElseIf BuyPrice12U < Min12 Then Min12 = BuyPrice12U End If If BuyPrice13U > Max13 Then Max13 = BuyPrice13U ElseIf BuyPrice13U < Min13 Then Min13 = BuyPrice13U End If If BuyPrice14U > Max14 Then Max14 = BuyPrice14U ElseIf BuyPrice14U < Min14 Then Min14 = BuyPrice14U End If If BuyPrice15U > Max15 Then Max15 = BuyPrice15U ElseIf BuyPrice15U < Min15 Then Min15 = BuyPrice15U End If If BuyPrice16U > Max16 Then Max16 = BuyPrice16U ElseIf BuyPrice16U < Min16 Then Min16 = BuyPrice16U End If If BuyPrice17U > Max17 Then Max17 = BuyPrice17U ElseIf BuyPrice17U < Min17 Then Min17 = BuyPrice17U End If If BuyPrice18U > Max18 Then Max18 = BuyPrice18U ElseIf BuyPrice18U < Min18 Then Min18 = BuyPrice18U End If If BuyPrice19U > Max19 Then Max19 = BuyPrice19U ElseIf BuyPrice19U < Min19 Then Min19 = BuyPrice19U End If If BuyPrice20U > Max20 Then Max20 = BuyPrice20U ElseIf BuyPrice20U < Min20 Then Min20 = BuyPrice20U End If End If Else 'else if lblmonths = Sunday or lblmonths = Saturday PictureBox1.BackgroundImage = PicUnchanged.BackgroundImage PictureBox2.BackgroundImage = PicUnchanged.BackgroundImage PictureBox3.BackgroundImage = PicUnchanged.BackgroundImage PictureBox4.BackgroundImage = PicUnchanged.BackgroundImage PictureBox5.BackgroundImage = PicUnchanged.BackgroundImage PictureBox6.BackgroundImage = PicUnchanged.BackgroundImage PictureBox7.BackgroundImage = PicUnchanged.BackgroundImage PictureBox8.BackgroundImage = PicUnchanged.BackgroundImage PictureBox9.BackgroundImage = PicUnchanged.BackgroundImage PictureBox10.BackgroundImage = PicUnchanged.BackgroundImage PictureBox11.BackgroundImage = PicUnchanged.BackgroundImage PictureBox12.BackgroundImage = PicUnchanged.BackgroundImage PictureBox13.BackgroundImage = PicUnchanged.BackgroundImage PictureBox14.BackgroundImage = PicUnchanged.BackgroundImage PictureBox15.BackgroundImage = PicUnchanged.BackgroundImage PictureBox16.BackgroundImage = PicUnchanged.BackgroundImage PictureBox17.BackgroundImage = PicUnchanged.BackgroundImage PictureBox18.BackgroundImage = PicUnchanged.BackgroundImage PictureBox19.BackgroundImage = PicUnchanged.BackgroundImage PictureBox20.BackgroundImage = PicUnchanged.BackgroundImage txtChange1.Text = "0" txtChange2.Text = "0" txtChange3.Text = "0" txtChange4.Text = "0" txtChange5.Text = "0" txtChange6.Text = "0" txtChange7.Text = "0" txtChange8.Text = "0" txtChange9.Text = "0" txtChange10.Text = "0" txtChange11.Text = "0" txtChange12.Text = "0" txtChange13.Text = "0" txtChange14.Text = "0" txtChange15.Text = "0" txtChange16.Text = "0" txtChange17.Text = "0" txtChange18.Text = "0" txtChange19.Text = "0" txtChange20.Text = "0" End If 'Show graphical changes with imageboxes and Change Change1.text Color If CDec(txtChange1.Text) > 0 Then txtChange1.ForeColor = Color.Red PictureBox1.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange1.Text) < 0 Then txtChange1.ForeColor = Color.Blue PictureBox1.BackgroundImage = PicDecrease.BackgroundImage Else txtChange1.ForeColor = Color.Black PictureBox1.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange2.Text) > 0 Then txtChange2.ForeColor = Color.Red PictureBox2.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange2.Text) < 0 Then txtChange2.ForeColor = Color.Blue PictureBox2.BackgroundImage = PicDecrease.BackgroundImage Else txtChange2.ForeColor = Color.Black PictureBox2.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange3.Text) > 0 Then txtChange3.ForeColor = Color.Red PictureBox3.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange3.Text) < 0 Then txtChange3.ForeColor = Color.Blue PictureBox3.BackgroundImage = PicDecrease.BackgroundImage Else txtChange3.ForeColor = Color.Black PictureBox3.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange4.Text) > 0 Then txtChange4.ForeColor = Color.Red PictureBox4.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange4.Text) < 0 Then txtChange4.ForeColor = Color.Blue PictureBox4.BackgroundImage = PicDecrease.BackgroundImage Else txtChange4.ForeColor = Color.Black PictureBox4.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange5.Text) > 0 Then txtChange5.ForeColor = Color.Red PictureBox5.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange5.Text) < 0 Then txtChange5.ForeColor = Color.Blue PictureBox5.BackgroundImage = PicDecrease.BackgroundImage Else txtChange5.ForeColor = Color.Black PictureBox5.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange6.Text) > 0 Then txtChange6.ForeColor = Color.Red PictureBox6.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange6.Text) < 0 Then txtChange6.ForeColor = Color.Blue PictureBox6.BackgroundImage = PicDecrease.BackgroundImage Else txtChange6.ForeColor = Color.Black PictureBox6.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange7.Text) > 0 Then txtChange7.ForeColor = Color.Red PictureBox7.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange7.Text) < 0 Then txtChange7.ForeColor = Color.Blue PictureBox7.BackgroundImage = PicDecrease.BackgroundImage Else txtChange7.ForeColor = Color.Black PictureBox7.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange8.Text) > 0 Then txtChange8.ForeColor = Color.Red PictureBox8.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange8.Text) < 0 Then txtChange8.ForeColor = Color.Blue PictureBox8.BackgroundImage = PicDecrease.BackgroundImage Else txtChange8.ForeColor = Color.Black PictureBox8.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange9.Text) > 0 Then txtChange9.ForeColor = Color.Red PictureBox9.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange9.Text) < 0 Then txtChange9.ForeColor = Color.Blue PictureBox9.BackgroundImage = PicDecrease.BackgroundImage Else txtChange9.ForeColor = Color.Black PictureBox9.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange10.Text) > 0 Then txtChange10.ForeColor = Color.Red PictureBox10.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange10.Text) < 0 Then txtChange10.ForeColor = Color.Blue PictureBox10.BackgroundImage = PicDecrease.BackgroundImage Else txtChange10.ForeColor = Color.Black PictureBox10.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange11.Text) > 0 Then txtChange11.ForeColor = Color.Red PictureBox11.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange11.Text) < 0 Then txtChange11.ForeColor = Color.Blue PictureBox11.BackgroundImage = PicDecrease.BackgroundImage Else txtChange11.ForeColor = Color.Black PictureBox11.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange12.Text) > 0 Then txtChange12.ForeColor = Color.Red PictureBox12.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange12.Text) < 0 Then txtChange12.ForeColor = Color.Blue PictureBox12.BackgroundImage = PicDecrease.BackgroundImage Else txtChange12.ForeColor = Color.Black PictureBox12.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange13.Text) > 0 Then txtChange13.ForeColor = Color.Red PictureBox13.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange13.Text) < 0 Then txtChange13.ForeColor = Color.Blue PictureBox13.BackgroundImage = PicDecrease.BackgroundImage Else txtChange13.ForeColor = Color.Black PictureBox13.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange14.Text) > 0 Then txtChange14.ForeColor = Color.Red PictureBox14.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange14.Text) < 0 Then txtChange14.ForeColor = Color.Blue PictureBox14.BackgroundImage = PicDecrease.BackgroundImage Else txtChange14.ForeColor = Color.Black PictureBox14.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange15.Text) > 0 Then txtChange15.ForeColor = Color.Red PictureBox15.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange15.Text) < 0 Then txtChange15.ForeColor = Color.Blue PictureBox15.BackgroundImage = PicDecrease.BackgroundImage Else txtChange15.ForeColor = Color.Black PictureBox15.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange16.Text) > 0 Then txtChange16.ForeColor = Color.Red PictureBox16.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange16.Text) < 0 Then txtChange16.ForeColor = Color.Blue PictureBox16.BackgroundImage = PicDecrease.BackgroundImage Else txtChange16.ForeColor = Color.Black PictureBox16.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange17.Text) > 0 Then txtChange17.ForeColor = Color.Red PictureBox17.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange17.Text) < 0 Then txtChange17.ForeColor = Color.Blue PictureBox17.BackgroundImage = PicDecrease.BackgroundImage Else txtChange17.ForeColor = Color.Black PictureBox17.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange18.Text) > 0 Then txtChange18.ForeColor = Color.Red PictureBox18.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange18.Text) < 0 Then txtChange18.ForeColor = Color.Blue PictureBox18.BackgroundImage = PicDecrease.BackgroundImage Else txtChange18.ForeColor = Color.Black PictureBox18.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange19.Text) > 0 Then txtChange19.ForeColor = Color.Red PictureBox19.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange19.Text) < 0 Then txtChange19.ForeColor = Color.Blue PictureBox19.BackgroundImage = PicDecrease.BackgroundImage Else txtChange19.ForeColor = Color.Black PictureBox19.BackgroundImage = PicUnchanged.BackgroundImage End If If CDec(txtChange20.Text) > 0 Then txtChange20.ForeColor = Color.Red PictureBox20.BackgroundImage = PicIncrease.BackgroundImage ElseIf CDec(txtChange20.Text) < 0 Then txtChange20.ForeColor = Color.Blue PictureBox20.BackgroundImage = PicDecrease.BackgroundImage Else txtChange20.ForeColor = Color.Black PictureBox20.BackgroundImage = PicUnchanged.BackgroundImage End If 'After determining increase/unchanged/decrease, If lang = "KOR" And lblMonths.Text = "월요일" Or lblMonths.Text = "화요일" Or lblMonths.Text = "수요일" Or lblMonths.Text = "목요일" Or lblMonths.Text = "금요일" Then txtChange1.Text &= "K" txtChange2.Text &= "K" txtChange3.Text &= "K" txtChange4.Text &= "K" txtChange5.Text &= "K" txtChange6.Text &= "K" txtChange7.Text &= "K" txtChange8.Text &= "K" txtChange9.Text &= "K" txtChange10.Text &= "K" txtChange11.Text &= "K" txtChange12.Text &= "K" txtChange13.Text &= "K" txtChange14.Text &= "K" txtChange15.Text &= "K" txtChange16.Text &= "K" txtChange17.Text &= "K" txtChange18.Text &= "K" txtChange19.Text &= "K" txtChange20.Text &= "K" End If 'Reset Max and Min value every week If lblMonths.Text = "Sunday" Or lblMonths.Text = "일요일" Then If ChangeSwitch = False Then Min1 = BuyPrice1 Max1 = Min1 Min2 = BuyPrice2 Max2 = Min2 Min3 = BuyPrice3 Max3 = Min3 Min4 = BuyPrice4 Max4 = Min4 Min5 = BuyPrice5 Max5 = Min5 Min6 = BuyPrice6 Max6 = Min6 Min7 = BuyPrice7 Max7 = Min7 Min8 = BuyPrice8 Max8 = Min8 Min9 = BuyPrice9 Max9 = Min9 Min10 = BuyPrice10 Max10 = Min10 Min11 = BuyPrice11 Max11 = Min11 Min12 = BuyPrice12 Max12 = Min12 Min13 = BuyPrice13 Max13 = Min13 Min14 = BuyPrice14 Max14 = Min14 Min15 = BuyPrice15 Max15 = Min15 Min16 = BuyPrice16 Max16 = Min16 Min17 = BuyPrice17 Max17 = Min17 Min18 = BuyPrice18 Max18 = Min18 Min19 = BuyPrice19 Max19 = Min19 Min20 = BuyPrice20 Max20 = Min20 ElseIf ChangeSwitch = True Then Min1 = BuyPrice1U Max1 = Min1 Min2 = BuyPrice2U Max2 = Min2 Min3 = BuyPrice3U Max3 = Min3 Min4 = BuyPrice4U Max4 = Min4 Min5 = BuyPrice5U Max5 = Min5 Min6 = BuyPrice6U Max6 = Min6 Min7 = BuyPrice7U Max7 = Min7 Min8 = BuyPrice8U Max8 = Min8 Min9 = BuyPrice9U Max9 = Min9 Min10 = BuyPrice10U Max10 = Min10 Min11 = BuyPrice11U Max11 = Min11 Min12 = BuyPrice12U Max12 = Min12 Min13 = BuyPrice13U Max13 = Min13 Min14 = BuyPrice14U Max14 = Min14 Min15 = BuyPrice15U Max15 = Min15 Min16 = BuyPrice16U Max16 = Min16 Min17 = BuyPrice17U Max17 = Min17 Min18 = BuyPrice18U Max18 = Min18 Min19 = BuyPrice19U Max19 = Min19 Min20 = BuyPrice20U Max20 = Min20 End If 'Close stock market on every Sunday and Saturday 'txtBuyPrice1.Text = "Closed" 'txtBuyPrice2.Text = "Closed" 'txtBuyPrice3.Text = "Closed" 'txtBuyPrice4.Text = "Closed" 'txtBuyPrice5.Text = "Closed" 'txtSellPrice1.Text = "Closed" 'txtSellPrice2.Text = "Closed" 'txtSellPrice3.Text = "Closed" 'txtSellPrice4.Text = "Closed" 'txtSellPrice5.Text = "Closed" End If 'Display Max and Min If lang = "ENG" Then txtWeekMax1.Text = CStr(Max1.ToString("C")) txtWeekMin1.Text = CStr(Min1.ToString("C")) txtWeekMax2.Text = CStr(Max2.ToString("C")) txtWeekMin2.Text = CStr(Min2.ToString("C")) txtWeekMax3.Text = CStr(Max3.ToString("C")) txtWeekMin3.Text = CStr(Min3.ToString("C")) txtWeekMax4.Text = CStr(Max4.ToString("C")) txtWeekMin4.Text = CStr(Min4.ToString("C")) txtWeekMax5.Text = CStr(Max5.ToString("C")) txtWeekMin5.Text = CStr(Min5.ToString("C")) txtWeekMax6.Text = CStr(Max6.ToString("C")) txtWeekMin6.Text = CStr(Min6.ToString("C")) txtWeekMax7.Text = CStr(Max7.ToString("C")) txtWeekMin7.Text = CStr(Min7.ToString("C")) txtWeekMax8.Text = CStr(Max8.ToString("C")) txtWeekMin8.Text = CStr(Min8.ToString("C")) txtWeekMax9.Text = CStr(Max9.ToString("C")) txtWeekMin9.Text = CStr(Min9.ToString("C")) txtWeekMax10.Text = CStr(Max10.ToString("C")) txtWeekMin10.Text = CStr(Min10.ToString("C")) txtWeekMax11.Text = CStr(Max11.ToString("C")) txtWeekMin11.Text = CStr(Min11.ToString("C")) txtWeekMax12.Text = CStr(Max12.ToString("C")) txtWeekMin12.Text = CStr(Min12.ToString("C")) txtWeekMax13.Text = CStr(Max13.ToString("C")) txtWeekMin13.Text = CStr(Min13.ToString("C")) txtWeekMax14.Text = CStr(Max14.ToString("C")) txtWeekMin14.Text = CStr(Min14.ToString("C")) txtWeekMax15.Text = CStr(Max15.ToString("C")) txtWeekMin15.Text = CStr(Min15.ToString("C")) txtWeekMax16.Text = CStr(Max16.ToString("C")) txtWeekMin16.Text = CStr(Min16.ToString("C")) txtWeekMax17.Text = CStr(Max17.ToString("C")) txtWeekMin17.Text = CStr(Min17.ToString("C")) txtWeekMax18.Text = CStr(Max18.ToString("C")) txtWeekMin18.Text = CStr(Min18.ToString("C")) txtWeekMax19.Text = CStr(Max19.ToString("C")) txtWeekMin19.Text = CStr(Min19.ToString("C")) txtWeekMax20.Text = CStr(Max20.ToString("C")) txtWeekMin20.Text = CStr(Min20.ToString("C")) ElseIf lang = "KOR" Then txtWeekMax1.Text = CDec(Max1.ToString("C")).ToString("￦##.##K") txtWeekMin1.Text = CDec(Min1.ToString("C")).ToString("￦##.##K") txtWeekMax2.Text = CDec(Max2.ToString("C")).ToString("￦##.##K") txtWeekMin2.Text = CDec(Min2.ToString("C")).ToString("￦##.##K") txtWeekMax3.Text = CDec(Max3.ToString("C")).ToString("￦##.##K") txtWeekMin3.Text = CDec(Min3.ToString("C")).ToString("￦##.##K") txtWeekMax4.Text = CDec(Max4.ToString("C")).ToString("￦##.##K") txtWeekMin4.Text = CDec(Min4.ToString("C")).ToString("￦##.##K") txtWeekMax5.Text = CDec(Max5.ToString("C")).ToString("￦##.##K") txtWeekMin5.Text = CDec(Min5.ToString("C")).ToString("￦##.##K") txtWeekMax6.Text = CDec(Max6.ToString("C")).ToString("￦##.##K") txtWeekMin6.Text = CDec(Min6.ToString("C")).ToString("￦##.##K") txtWeekMax7.Text = CDec(Max7.ToString("C")).ToString("￦##.##K") txtWeekMin7.Text = CDec(Min7.ToString("C")).ToString("￦##.##K") txtWeekMax8.Text = CDec(Max8.ToString("C")).ToString("￦##.##K") txtWeekMin8.Text = CDec(Min8.ToString("C")).ToString("￦##.##K") txtWeekMax9.Text = CDec(Max9.ToString("C")).ToString("￦##.##K") txtWeekMin9.Text = CDec(Min9.ToString("C")).ToString("￦##.##K") txtWeekMax10.Text = CDec(Max10.ToString("C")).ToString("￦##.##K") txtWeekMin10.Text = CDec(Min10.ToString("C")).ToString("￦##.##K") txtWeekMax11.Text = CDec(Max11.ToString("C")).ToString("￦##.##K") txtWeekMin11.Text = CDec(Min11.ToString("C")).ToString("￦##.##K") txtWeekMax12.Text = CDec(Max12.ToString("C")).ToString("￦##.##K") txtWeekMin12.Text = CDec(Min12.ToString("C")).ToString("￦##.##K") txtWeekMax13.Text = CDec(Max13.ToString("C")).ToString("￦##.##K") txtWeekMin13.Text = CDec(Min13.ToString("C")).ToString("￦##.##K") txtWeekMax14.Text = CDec(Max14.ToString("C")).ToString("￦##.##K") txtWeekMin14.Text = CDec(Min14.ToString("C")).ToString("￦##.##K") txtWeekMax15.Text = CDec(Max15.ToString("C")).ToString("￦##.##K") txtWeekMin15.Text = CDec(Min15.ToString("C")).ToString("￦##.##K") txtWeekMax16.Text = CDec(Max16.ToString("C")).ToString("￦##.##K") txtWeekMin16.Text = CDec(Min16.ToString("C")).ToString("￦##.##K") txtWeekMax17.Text = CDec(Max17.ToString("C")).ToString("￦##.##K") txtWeekMin17.Text = CDec(Min17.ToString("C")).ToString("￦##.##K") txtWeekMax18.Text = CDec(Max18.ToString("C")).ToString("￦##.##K") txtWeekMin18.Text = CDec(Min18.ToString("C")).ToString("￦##.##K") txtWeekMax19.Text = CDec(Max19.ToString("C")).ToString("￦##.##K") txtWeekMin19.Text = CDec(Min19.ToString("C")).ToString("￦##.##K") txtWeekMax20.Text = CDec(Max20.ToString("C")).ToString("￦##.##K") txtWeekMin20.Text = CDec(Min20.ToString("C")).ToString("￦##.##K") End If TimerCount = 0 'Set TimerCount value 0 End If End Sub 'LOOK AT HERE!!!!! HERE IS THE PART FOR Deciding Prices!! Calculate stock prices randomly Private Function ChangePrice_Tiny(ByRef intSize As Double) As Decimal 'CDbl(CDbl((rand.Next(10) + 71) - CDbl(Rnd())).ToString("n2")) 'About the function one line above, Amplitude of Change depends on the number inside Next() Return CDec(CDec((rand.Next(10) + 91) * 0.9 - CDec(Rnd() * 4))) End Function Private Function ChangePrice_Small(ByRef intSize As Double) As Decimal Return CDec(CDec((rand.Next(36) + 401) * 1.3 - CDec(Rnd() * 5))) End Function Private Function ChangePrice_Medium(ByRef intSize As Double) As Decimal Return CDec(CDec((rand.Next(54) + 590) * 1.6 - CDec(Rnd() * 6))) End Function Private Function ChangePrice_Large(ByRef intSize As Double) As Decimal Return CDec(CDec((rand.Next(126) + 1401) * 1.7 - CDec(Rnd() * 7))) End Function Private Function ChangePrice_Huge(ByRef intSize As Double) As Decimal Return CDec(CDec((rand.Next(181) + 1999) * 1.9 - CDec(Rnd() * 8))) End Function 'After buying actions, update lblMoney which shows mywallet value. Sub BuylblMoneyUpdate() If lang = "ENG" Then lblMoney.Text = CStr(MyWallet.ToString("C")) ElseIf lang = "KOR" Then lblMoney.Text = CDec(MyWallet.ToString("C")).ToString("￦##,##.##K") End If End Sub 'MandA1~20 Messages in different languages for the Msgbox Sub MandAMessageLang() If lang = "ENG" Then MandAMessage = "Would you like to acquire this company? (You may not be able to change answer.)" MandAMessageTitle = "Stock War - M&A Confirmation" ElseIf lang = "KOR" Then MandAMessage = "해당 기업을 인수 및 합병 하시겠습니까? (답변을 바꾸지 못할 수 있습니다.)" MandAMessageTitle = "주식 전쟁 - 인수합병 확인" End If End Sub Sub MoneyNotEnough() If lang = "ENG" Then MsgBox("Money Not Enough", vbCritical, "Stock War Notification") ElseIf lang = "KOR" Then MsgBox("돈이 부족합니다.", vbCritical, "주식 전쟁 알림") End If End Sub Sub WalletUpdate() If lang = "ENG" Then lblMoney.Text = CStr(MyWallet.ToString("C")) ElseIf lang = "KOR" Then lblMoney.Text = CStr(MyWallet.ToString("￦##,##.##K")) End If End Sub Sub HoldingShareNotEnough() If lang = "ENG" Then MsgBox("Holding Share Not Enough", vbCritical, "Stock War Notification") ElseIf lang = "KOR" Then MsgBox("보유 주식 수가 부족합니다.", vbCritical, "주식 전쟁 알림") End If End Sub Sub MandA1() If Holding1 >= 299985 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy1.BackColor = SystemColors.Control btnSell1.BackColor = SystemColors.Control btnBuy1.Enabled = False btnSell1.Enabled = False txtBuyPrice1.Enabled = False txtSellPrice1.Enabled = False txtHolding1.Enabled = False txtQuota1.Enabled = False NumericUpDown1.Enabled = False NumericUpDown1.Value = 1 txtHolding1.TextAlign = HorizontalAlignment.Center txtQuota1.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding1.Text = "M&A" txtQuota1.Text = "M&A" ElseIf lang = "KOR" Then txtHolding1.Text = "인수합병" txtQuota1.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy1_Click(sender As Object, e As EventArgs) Handles btnBuy1.Click If MyWallet >= BuyPrice1 * NumericUpDown1.Value Or MyWallet >= BuyPrice1U * NumericUpDown1.Value Then If ChangeSwitch = False Then 'Substract the value of price from Mywallet MyWallet = MyWallet - (BuyPrice1 * NumericUpDown1.Value) Else MyWallet = MyWallet - (BuyPrice1U * NumericUpDown1.Value) End If 'Display undated updated mywallet in the textbox BuylblMoneyUpdate() 'Increase Property as much as buying Holding1 += CInt(NumericUpDown1.Value) 'Display updated property in the textbox txtHolding1.Text = CStr((Holding1).ToString("#,#")) 'Increase Quota 'in the function just below, 100000 of '(Quota1 + Property1) / 100000)' is the total quota of Company1 Quota1 = CDec(Holding1 / 300000) txtQuota1.Text = CStr((Quota1).ToString("p")) Else MoneyNotEnough() End If MandA1() End Sub Private Sub btnSell1_Click(sender As Object, e As EventArgs) Handles btnSell1.Click If Holding1 >= NumericUpDown1.Value Then 'Add money to mywallet If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice1 * NumericUpDown1.Value) Else MyWallet = MyWallet + (SellPrice1U * NumericUpDown1.Value) End If 'Display undated updated mywallet in the textbox WalletUpdate() 'Decrease Property as much as buying Holding1 -= CInt(NumericUpDown1.Value) 'Display updated property in the textbox If Holding1 = 0 Then 'Display 0 instead of empty place txtHolding1.Text = "0" Else txtHolding1.Text = CStr((Holding1).ToString("#,#")) End If 'Decrease Quota Quota1 = CDec(Holding1 / 300000) txtQuota1.Text = CStr((Quota1).ToString("p")) Else HoldingShareNotEnough() End If MandA1() End Sub Sub MandA2() If Holding2 > 229988 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy2.BackColor = SystemColors.Control btnSell2.BackColor = SystemColors.Control btnBuy2.Enabled = False btnSell2.Enabled = False txtBuyPrice2.Enabled = False txtSellPrice2.Enabled = False txtHolding2.Enabled = False txtQuota2.Enabled = False NumericUpDown2.Enabled = False NumericUpDown2.Value = 1 txtHolding2.TextAlign = HorizontalAlignment.Center txtQuota2.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding2.Text = "M&A" txtQuota2.Text = "M&A" ElseIf lang = "KOR" Then txtHolding2.Text = "인수합병" txtQuota2.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy2_Click(sender As Object, e As EventArgs) Handles btnBuy2.Click If MyWallet >= BuyPrice2 * CInt(NumericUpDown2.Value) Or MyWallet >= BuyPrice2U * CInt(NumericUpDown2.Value) Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice2 * NumericUpDown2.Value) Else MyWallet = MyWallet - (BuyPrice2U * NumericUpDown2.Value) End If BuylblMoneyUpdate() Holding2 += CInt(NumericUpDown2.Value) txtHolding2.Text = CStr((Holding2).ToString("#,#")) Quota2 = CDec(Holding2 / 230000) 'the value that 230000 - the number(that becomes 0.01% Quota) = .. as a result, Sub MandA2 must have 229988 txtQuota2.Text = CStr((Quota2).ToString("p")) Else MoneyNotEnough() End If MandA2() End Sub Private Sub btnSell2_Click(sender As Object, e As EventArgs) Handles btnSell2.Click If Holding2 >= NumericUpDown2.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice2 * NumericUpDown2.Value) Else MyWallet = MyWallet + (SellPrice2U * NumericUpDown2.Value) End If WalletUpdate() Holding2 -= CInt(NumericUpDown2.Value) If Holding2 = 0 Then 'Display 0 instead of empty place txtHolding2.Text = "0" Else txtHolding2.Text = CStr((Holding2).ToString("#,#")) End If Quota2 = CDec(Holding2 / 230000) txtQuota2.Text = CStr((Quota2).ToString("p")) Else HoldingShareNotEnough() End If MandA2() End Sub Sub MandA3() If Holding3 >= 179991 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy3.BackColor = SystemColors.Control btnSell3.BackColor = SystemColors.Control btnBuy3.Enabled = False btnSell3.Enabled = False txtBuyPrice3.Enabled = False txtSellPrice3.Enabled = False txtHolding3.Enabled = False txtQuota3.Enabled = False NumericUpDown3.Enabled = False NumericUpDown3.Value = 1 txtHolding3.TextAlign = HorizontalAlignment.Center txtQuota3.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding3.Text = "M&A" txtQuota3.Text = "M&A" ElseIf lang = "KOR" Then txtHolding3.Text = "인수합병" txtQuota3.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy3_Click(sender As Object, e As EventArgs) Handles btnBuy3.Click If MyWallet >= BuyPrice3 * NumericUpDown3.Value Or MyWallet >= BuyPrice3U * NumericUpDown3.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice3 * NumericUpDown3.Value) Else MyWallet = MyWallet - (BuyPrice3U * NumericUpDown3.Value) End If BuylblMoneyUpdate() Holding3 += CInt(NumericUpDown3.Value) txtHolding3.Text = CStr((Holding3).ToString("#,#")) Quota3 = CDec(Holding3 / 180000) txtQuota3.Text = CStr((Quota3).ToString("p")) Else MoneyNotEnough() End If MandA3() End Sub Private Sub btnSell3_Click(sender As Object, e As EventArgs) Handles btnSell3.Click If Holding3 >= NumericUpDown3.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice3 * NumericUpDown3.Value) Else MyWallet = MyWallet + (SellPrice3U * NumericUpDown3.Value) End If WalletUpdate() Holding3 -= CInt(NumericUpDown3.Value) If Holding3 = 0 Then 'Display 0 instead of empty place txtHolding3.Text = "0" Else txtHolding3.Text = CStr((Holding3).ToString("#,#")) End If Quota3 = CDec(Holding3 / 180000) txtQuota3.Text = CStr((Quota3).ToString("p")) Else HoldingShareNotEnough() End If MandA3() End Sub Sub MandA4() If Holding4 >= 179991 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy4.BackColor = SystemColors.Control btnSell4.BackColor = SystemColors.Control btnBuy4.Enabled = False btnSell4.Enabled = False txtBuyPrice4.Enabled = False txtSellPrice4.Enabled = False txtHolding4.Enabled = False txtQuota4.Enabled = False NumericUpDown4.Enabled = False NumericUpDown4.Value = 1 txtHolding4.TextAlign = HorizontalAlignment.Center txtQuota4.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding4.Text = "M&A" txtQuota4.Text = "M&A" ElseIf lang = "KOR" Then txtHolding4.Text = "인수합병" txtQuota4.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy4_Click(sender As Object, e As EventArgs) Handles btnBuy4.Click If MyWallet >= BuyPrice4 * NumericUpDown4.Value Or MyWallet >= BuyPrice4U * NumericUpDown4.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice4 * NumericUpDown4.Value) Else MyWallet = MyWallet - (BuyPrice4U * NumericUpDown4.Value) End If BuylblMoneyUpdate() Holding4 += CInt(NumericUpDown4.Value) txtHolding4.Text = CStr((Holding4).ToString("#,#")) Quota4 = CDec(Holding4 / 180000) txtQuota4.Text = CStr((Quota4).ToString("p")) Else MoneyNotEnough() End If MandA4() End Sub Private Sub btnSell4_Click(sender As Object, e As EventArgs) Handles btnSell4.Click If Holding4 >= NumericUpDown4.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice4 * NumericUpDown4.Value) Else MyWallet = MyWallet + (SellPrice4U * NumericUpDown4.Value) End If WalletUpdate() Holding4 -= CInt(NumericUpDown4.Value) If Holding4 = 0 Then 'Display 0 instead of empty place txtHolding4.Text = "0" Else txtHolding4.Text = CStr((Holding4).ToString("#,#")) End If Quota4 = CDec(Holding4 / 180000) txtQuota4.Text = CStr((Quota4).ToString("p")) Else HoldingShareNotEnough() End If MandA4() End Sub Sub MandA5() If Holding5 > 259987 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy5.BackColor = SystemColors.Control btnSell5.BackColor = SystemColors.Control btnBuy5.Enabled = False btnSell5.Enabled = False txtBuyPrice5.Enabled = False txtSellPrice5.Enabled = False txtHolding5.Enabled = False txtQuota5.Enabled = False NumericUpDown5.Enabled = False NumericUpDown5.Value = 1 txtHolding5.TextAlign = HorizontalAlignment.Center txtQuota5.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding5.Text = "M&A" txtQuota5.Text = "M&A" ElseIf lang = "KOR" Then txtHolding5.Text = "인수합병" txtQuota5.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy5_Click(sender As Object, e As EventArgs) Handles btnBuy5.Click If MyWallet >= BuyPrice5 * NumericUpDown5.Value Or MyWallet >= BuyPrice5U * NumericUpDown5.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice5 * NumericUpDown5.Value) Else MyWallet = MyWallet - (BuyPrice5U * NumericUpDown5.Value) End If BuylblMoneyUpdate() Holding5 += CInt(NumericUpDown5.Value) txtHolding5.Text = CStr((Holding5).ToString("#,#")) Quota5 = CDec(Holding5 / 260000) txtQuota5.Text = CStr((Quota5).ToString("p")) Else MoneyNotEnough() End If MandA5() End Sub Private Sub btnSell5_Click(sender As Object, e As EventArgs) Handles btnSell5.Click If Holding5 >= NumericUpDown5.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice5 * NumericUpDown5.Value) Else MyWallet = MyWallet + (SellPrice5U * NumericUpDown5.Value) End If WalletUpdate() Holding5 -= CInt(NumericUpDown5.Value) If Holding5 = 0 Then 'Display 0 instead of empty place txtHolding5.Text = "0" Else txtHolding5.Text = CStr((Holding5).ToString("#,#")) End If Quota5 = CDec(Holding5 / 260000) txtQuota5.Text = CStr((Quota5).ToString("p")) Else HoldingShareNotEnough() End If MandA5() End Sub Sub MandA6() If Holding6 > 99994 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy6.BackColor = SystemColors.Control btnSell6.BackColor = SystemColors.Control btnBuy6.Enabled = False btnSell6.Enabled = False txtBuyPrice6.Enabled = False txtSellPrice6.Enabled = False txtHolding6.Enabled = False txtQuota6.Enabled = False NumericUpDown6.Enabled = False NumericUpDown6.Value = 1 txtHolding6.TextAlign = HorizontalAlignment.Center txtQuota6.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding6.Text = "M&A" txtQuota6.Text = "M&A" ElseIf lang = "KOR" Then txtHolding6.Text = "인수합병" txtQuota6.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy6_Click(sender As Object, e As EventArgs) Handles btnBuy6.Click If MyWallet >= BuyPrice6 * NumericUpDown6.Value Or MyWallet >= BuyPrice6U * NumericUpDown6.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice6 * NumericUpDown6.Value) Else MyWallet = MyWallet - (BuyPrice6U * NumericUpDown6.Value) End If BuylblMoneyUpdate() Holding6 += CInt(NumericUpDown6.Value) txtHolding6.Text = CStr((Holding6).ToString("#,#")) Quota6 = CDec(Holding6 / 100000) txtQuota6.Text = CStr((Quota6).ToString("p")) Else MoneyNotEnough() End If MandA6() End Sub Private Sub btnSell6_Click(sender As Object, e As EventArgs) Handles btnSell6.Click If Holding6 >= NumericUpDown6.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice6 * NumericUpDown6.Value) Else MyWallet = MyWallet + (SellPrice6U * NumericUpDown6.Value) End If WalletUpdate() Holding6 -= CInt(NumericUpDown6.Value) If Holding6 = 0 Then 'Display 0 instead of empty place txtHolding6.Text = "0" Else txtHolding6.Text = CStr((Holding6).ToString("#,#")) End If Quota6 = CDec(Holding6 / 100000) txtQuota6.Text = CStr((Quota6).ToString("p")) Else HoldingShareNotEnough() End If MandA6() End Sub Sub MandA7() If Holding7 >= 229988 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy7.BackColor = SystemColors.Control btnSell7.BackColor = SystemColors.Control btnBuy7.Enabled = False btnSell7.Enabled = False txtBuyPrice7.Enabled = False txtSellPrice7.Enabled = False txtHolding7.Enabled = False txtQuota7.Enabled = False NumericUpDown7.Enabled = False NumericUpDown7.Value = 1 txtHolding7.TextAlign = HorizontalAlignment.Center txtQuota7.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding7.Text = "M&A" txtQuota7.Text = "M&A" ElseIf lang = "KOR" Then txtHolding7.Text = "인수합병" txtQuota7.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy7_Click(sender As Object, e As EventArgs) Handles btnBuy7.Click If MyWallet >= BuyPrice7 * NumericUpDown7.Value Or MyWallet >= BuyPrice7U * NumericUpDown7.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice7 * NumericUpDown7.Value) Else MyWallet = MyWallet - (BuyPrice7U * NumericUpDown7.Value) End If BuylblMoneyUpdate() Holding7 += CInt(NumericUpDown7.Value) txtHolding7.Text = CStr((Holding7).ToString("#,#")) Quota7 = CDec(Holding7 / 230000) txtQuota7.Text = CStr((Quota7).ToString("p")) Else MoneyNotEnough() End If MandA7() End Sub Private Sub btnSell7_Click(sender As Object, e As EventArgs) Handles btnSell7.Click If Holding7 >= NumericUpDown7.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice7 * NumericUpDown7.Value) Else MyWallet = MyWallet + (SellPrice7U * NumericUpDown7.Value) End If WalletUpdate() Holding7 -= CInt(NumericUpDown7.Value) If Holding7 = 0 Then 'Display 0 instead of empty place txtHolding7.Text = "0" Else txtHolding7.Text = CStr((Holding7).ToString("#,#")) End If Quota7 = CDec(Holding7 / 230000) txtQuota7.Text = CStr((Quota7).ToString("p")) Else HoldingShareNotEnough() End If MandA7() End Sub Sub MandA8() If Holding8 >= 299985 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy8.BackColor = SystemColors.Control btnSell8.BackColor = SystemColors.Control btnBuy8.Enabled = False btnSell8.Enabled = False txtBuyPrice8.Enabled = False txtSellPrice8.Enabled = False txtHolding8.Enabled = False txtQuota8.Enabled = False NumericUpDown8.Enabled = False NumericUpDown8.Value = 1 txtHolding8.TextAlign = HorizontalAlignment.Center txtQuota8.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding8.Text = "M&A" txtQuota8.Text = "M&A" ElseIf lang = "KOR" Then txtHolding8.Text = "인수합병" txtQuota8.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy8_Click(sender As Object, e As EventArgs) Handles btnBuy8.Click If MyWallet >= BuyPrice8 * NumericUpDown8.Value Or MyWallet >= BuyPrice8U * NumericUpDown8.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice8 * NumericUpDown8.Value) Else MyWallet = MyWallet - (BuyPrice8U * NumericUpDown8.Value) End If BuylblMoneyUpdate() Holding8 += CInt(NumericUpDown8.Value) txtHolding8.Text = CStr((Holding8).ToString("#,#")) Quota8 = CDec(Holding8 / 300000) txtQuota8.Text = CStr((Quota8).ToString("p")) Else MoneyNotEnough() End If MandA8() End Sub Private Sub btnSell8_Click(sender As Object, e As EventArgs) Handles btnSell8.Click If Holding8 >= NumericUpDown8.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice8 * NumericUpDown8.Value) Else MyWallet = MyWallet + (SellPrice8U * NumericUpDown8.Value) End If WalletUpdate() Holding8 -= CInt(NumericUpDown8.Value) If Holding8 = 0 Then 'Display 0 instead of empty place txtHolding8.Text = "0" Else txtHolding8.Text = CStr((Holding8).ToString("#,#")) End If Quota8 = CDec(Holding8 / 300000) txtQuota8.Text = CStr((Quota8).ToString("p")) Else HoldingShareNotEnough() End If MandA8() End Sub Sub MandA9() If Holding9 >= 229988 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy9.BackColor = SystemColors.Control btnSell9.BackColor = SystemColors.Control btnBuy9.Enabled = False btnSell9.Enabled = False txtBuyPrice9.Enabled = False txtSellPrice9.Enabled = False txtHolding9.Enabled = False txtQuota9.Enabled = False NumericUpDown9.Enabled = False NumericUpDown9.Value = 1 txtHolding9.TextAlign = HorizontalAlignment.Center txtQuota9.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding9.Text = "M&A" txtQuota9.Text = "M&A" ElseIf lang = "KOR" Then txtHolding9.Text = "인수합병" txtQuota9.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy9_Click(sender As Object, e As EventArgs) Handles btnBuy9.Click If MyWallet >= BuyPrice9 * NumericUpDown9.Value Or MyWallet >= BuyPrice9U * NumericUpDown9.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice9 * NumericUpDown9.Value) Else MyWallet = MyWallet - (BuyPrice9U * NumericUpDown9.Value) End If BuylblMoneyUpdate() Holding9 += CInt(NumericUpDown9.Value) txtHolding9.Text = CStr((Holding9).ToString("#,#")) Quota9 = CDec(Holding9 / 230000) txtQuota9.Text = CStr((Quota9).ToString("p")) Else MoneyNotEnough() End If MandA9() End Sub Private Sub btnSell9_Click(sender As Object, e As EventArgs) Handles btnSell9.Click If Holding9 >= NumericUpDown9.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice9 * NumericUpDown9.Value) Else MyWallet = MyWallet + (SellPrice9U * NumericUpDown9.Value) End If WalletUpdate() Holding9 -= CInt(NumericUpDown9.Value) If Holding9 = 0 Then 'Display 0 instead of empty place txtHolding9.Text = "0" Else txtHolding9.Text = CStr((Holding9).ToString("#,#")) End If Quota9 = CDec(Holding9 / 230000) txtQuota9.Text = CStr((Quota9).ToString("p")) Else HoldingShareNotEnough() End If MandA9() End Sub Sub MandA10() If Holding10 >= 299985 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy10.BackColor = SystemColors.Control btnSell10.BackColor = SystemColors.Control btnBuy10.Enabled = False btnSell10.Enabled = False txtBuyPrice10.Enabled = False txtSellPrice10.Enabled = False txtHolding10.Enabled = False txtQuota10.Enabled = False NumericUpDown10.Enabled = False NumericUpDown10.Value = 1 txtHolding10.TextAlign = HorizontalAlignment.Center txtQuota10.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding10.Text = "M&A" txtQuota10.Text = "M&A" ElseIf lang = "KOR" Then txtHolding10.Text = "인수합병" txtQuota10.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy10_Click(sender As Object, e As EventArgs) Handles btnBuy10.Click If MyWallet >= BuyPrice10 * NumericUpDown10.Value Or MyWallet >= BuyPrice10U * NumericUpDown10.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice10 * NumericUpDown10.Value) Else MyWallet = MyWallet - (BuyPrice10U * NumericUpDown10.Value) End If BuylblMoneyUpdate() Holding10 += CInt(NumericUpDown10.Value) txtHolding10.Text = CStr((Holding10).ToString("#,#")) Quota10 = CDec(Holding10 / 300000) txtQuota10.Text = CStr((Quota10).ToString("p")) Else MoneyNotEnough() End If MandA10() End Sub Private Sub btnSell10_Click(sender As Object, e As EventArgs) Handles btnSell10.Click If Holding10 >= NumericUpDown10.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice10 * NumericUpDown10.Value) Else MyWallet = MyWallet + (SellPrice10U * NumericUpDown10.Value) End If WalletUpdate() Holding10 -= CInt(NumericUpDown10.Value) If Holding10 = 0 Then 'Display 0 instead of empty place txtHolding10.Text = "0" Else txtHolding10.Text = CStr((Holding10).ToString("#,#")) End If Quota10 = CDec(Holding10 / 300000) txtQuota10.Text = CStr((Quota10).ToString("p")) Else HoldingShareNotEnough() End If MandA10() End Sub Sub MandA11() If Holding11 > 99994 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy11.BackColor = SystemColors.Control btnSell11.BackColor = SystemColors.Control btnBuy11.Enabled = False btnSell11.Enabled = False txtBuyPrice11.Enabled = False txtSellPrice11.Enabled = False txtHolding11.Enabled = False txtQuota11.Enabled = False NumericUpDown11.Enabled = False NumericUpDown11.Value = 1 txtHolding11.TextAlign = HorizontalAlignment.Center txtQuota11.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding11.Text = "M&A" txtQuota11.Text = "M&A" ElseIf lang = "KOR" Then txtHolding11.Text = "인수합병" txtQuota11.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy11_Click(sender As Object, e As EventArgs) Handles btnBuy11.Click If MyWallet >= BuyPrice11 * NumericUpDown11.Value Or MyWallet >= BuyPrice11U * NumericUpDown11.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice11 * NumericUpDown11.Value) Else MyWallet = MyWallet - (BuyPrice11U * NumericUpDown11.Value) End If BuylblMoneyUpdate() Holding11 += CInt(NumericUpDown11.Value) txtHolding11.Text = CStr((Holding11).ToString("#,#")) Quota11 = CDec(Holding11 / 100000) txtQuota11.Text = CStr((Quota11).ToString("p")) Else MoneyNotEnough() End If MandA11() End Sub Private Sub btnSell11_Click(sender As Object, e As EventArgs) Handles btnSell11.Click If Holding11 >= NumericUpDown11.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice11 * NumericUpDown11.Value) Else MyWallet = MyWallet + (SellPrice11U * NumericUpDown11.Value) End If WalletUpdate() Holding11 -= CInt(NumericUpDown11.Value) If Holding11 = 0 Then 'Display 0 instead of empty place txtHolding11.Text = "0" Else txtHolding11.Text = CStr((Holding11).ToString("#,#")) End If Quota11 = CDec(Holding11 / 100000) txtQuota11.Text = CStr((Quota11).ToString("p")) Else HoldingShareNotEnough() End If MandA11() End Sub Sub MandA12() If Holding12 > 259987 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy12.BackColor = SystemColors.Control btnSell12.BackColor = SystemColors.Control btnBuy12.Enabled = False btnSell12.Enabled = False txtBuyPrice12.Enabled = False txtSellPrice12.Enabled = False txtHolding12.Enabled = False txtQuota12.Enabled = False NumericUpDown12.Enabled = False NumericUpDown12.Value = 1 txtHolding12.TextAlign = HorizontalAlignment.Center txtQuota12.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding12.Text = "M&A" txtQuota12.Text = "M&A" ElseIf lang = "KOR" Then txtHolding12.Text = "인수합병" txtQuota12.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy12_Click(sender As Object, e As EventArgs) Handles btnBuy12.Click If MyWallet >= BuyPrice12 * NumericUpDown12.Value Or MyWallet >= BuyPrice12U * NumericUpDown12.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice12 * NumericUpDown12.Value) Else MyWallet = MyWallet - (BuyPrice12U * NumericUpDown12.Value) End If BuylblMoneyUpdate() Holding12 += CInt(NumericUpDown12.Value) txtHolding12.Text = CStr((Holding12).ToString("#,#")) Quota12 = CDec(Holding12 / 260000) txtQuota12.Text = CStr((Quota12).ToString("p")) Else MoneyNotEnough() End If MandA12() End Sub Private Sub btnSell12_Click(sender As Object, e As EventArgs) Handles btnSell12.Click If Holding12 >= NumericUpDown12.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice12 * NumericUpDown12.Value) Else MyWallet = MyWallet + (SellPrice12U * NumericUpDown12.Value) End If WalletUpdate() Holding12 -= CInt(NumericUpDown12.Value) If Holding12 = 0 Then 'Display 0 instead of empty place txtHolding12.Text = "0" Else txtHolding12.Text = CStr((Holding12).ToString("#,#")) End If Quota12 = CDec(Holding12 / 260000) txtQuota12.Text = CStr((Quota12).ToString("p")) Else HoldingShareNotEnough() End If MandA12() End Sub Sub MandA13() If Holding13 >= 299985 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy13.BackColor = SystemColors.Control btnSell13.BackColor = SystemColors.Control btnBuy13.Enabled = False btnSell13.Enabled = False txtBuyPrice13.Enabled = False txtSellPrice13.Enabled = False txtHolding13.Enabled = False txtQuota13.Enabled = False NumericUpDown13.Enabled = False NumericUpDown13.Value = 1 txtHolding13.TextAlign = HorizontalAlignment.Center txtQuota13.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding13.Text = "M&A" txtQuota13.Text = "M&A" ElseIf lang = "KOR" Then txtHolding13.Text = "인수합병" txtQuota13.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy13_Click(sender As Object, e As EventArgs) Handles btnBuy13.Click If MyWallet >= BuyPrice13 * NumericUpDown13.Value Or MyWallet >= BuyPrice13U * NumericUpDown13.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice13 * NumericUpDown13.Value) Else MyWallet = MyWallet - (BuyPrice13U * NumericUpDown13.Value) End If lblMoney.Text = CStr(MyWallet.ToString("C")) Holding13 += CInt(NumericUpDown13.Value) txtHolding13.Text = CStr((Holding13).ToString("#,#")) Quota13 = CDec(Holding13 / 300000) txtQuota13.Text = CStr((Quota13).ToString("p")) Else MoneyNotEnough() End If MandA13() End Sub Private Sub btnSell13_Click(sender As Object, e As EventArgs) Handles btnSell13.Click If Holding13 >= NumericUpDown13.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice13 * NumericUpDown13.Value) Else MyWallet = MyWallet + (SellPrice13U * NumericUpDown13.Value) End If BuylblMoneyUpdate() WalletUpdate() Holding13 -= CInt(NumericUpDown13.Value) If Holding13 = 0 Then 'Display 0 instead of empty place txtHolding13.Text = "0" Else txtHolding13.Text = CStr((Holding13).ToString("#,#")) End If Quota13 = CDec(Holding13 / 300000) txtQuota13.Text = CStr((Quota13).ToString("p")) Else HoldingShareNotEnough() End If MandA13() End Sub Sub MandA14() If Holding14 > 259987 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy14.BackColor = SystemColors.Control btnSell14.BackColor = SystemColors.Control btnBuy14.Enabled = False btnSell14.Enabled = False txtBuyPrice14.Enabled = False txtSellPrice14.Enabled = False txtHolding14.Enabled = False txtQuota14.Enabled = False NumericUpDown14.Enabled = False NumericUpDown14.Value = 1 txtHolding14.TextAlign = HorizontalAlignment.Center txtQuota14.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding14.Text = "M&A" txtQuota14.Text = "M&A" ElseIf lang = "KOR" Then txtHolding14.Text = "인수합병" txtQuota14.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy14_Click(sender As Object, e As EventArgs) Handles btnBuy14.Click If MyWallet >= BuyPrice14 * NumericUpDown14.Value Or MyWallet >= BuyPrice14U * NumericUpDown14.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice14 * NumericUpDown14.Value) Else MyWallet = MyWallet - (BuyPrice14U * NumericUpDown14.Value) End If BuylblMoneyUpdate() Holding14 += CInt(NumericUpDown14.Value) txtHolding14.Text = CStr((Holding14).ToString("#,#")) Quota14 = CDec(Holding14 / 260000) txtQuota14.Text = CStr((Quota14).ToString("p")) Else MoneyNotEnough() End If MandA14() End Sub Private Sub btnSell14_Click(sender As Object, e As EventArgs) Handles btnSell14.Click If Holding14 >= NumericUpDown14.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice14 * NumericUpDown14.Value) Else MyWallet = MyWallet + (SellPrice14U * NumericUpDown14.Value) End If WalletUpdate() Holding14 -= CInt(NumericUpDown14.Value) If Holding14 = 0 Then 'Display 0 instead of empty place txtHolding14.Text = "0" Else txtHolding14.Text = CStr((Holding14).ToString("#,#")) End If Quota14 = CDec(Holding14 / 260000) txtQuota14.Text = CStr((Quota14).ToString("p")) Else HoldingShareNotEnough() End If MandA14() End Sub Sub MandA15() If Holding15 > 99994 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy15.BackColor = SystemColors.Control btnSell15.BackColor = SystemColors.Control btnBuy15.Enabled = False btnSell15.Enabled = False txtBuyPrice15.Enabled = False txtSellPrice15.Enabled = False txtHolding15.Enabled = False txtQuota15.Enabled = False NumericUpDown15.Enabled = False NumericUpDown15.Value = 1 txtHolding15.TextAlign = HorizontalAlignment.Center txtQuota15.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding15.Text = "M&A" txtQuota15.Text = "M&A" ElseIf lang = "KOR" Then txtHolding15.Text = "인수합병" txtQuota15.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy15_Click(sender As Object, e As EventArgs) Handles btnBuy15.Click If MyWallet >= BuyPrice15 * NumericUpDown15.Value Or MyWallet >= BuyPrice15U * NumericUpDown15.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice15 * NumericUpDown15.Value) Else MyWallet = MyWallet - (BuyPrice15U * NumericUpDown15.Value) End If BuylblMoneyUpdate() Holding15 += CInt(NumericUpDown15.Value) txtHolding15.Text = CStr((Holding15).ToString("#,#")) Quota15 = CDec(Holding15 / 100000) txtQuota15.Text = CStr((Quota15).ToString("p")) Else MoneyNotEnough() End If MandA15() End Sub Private Sub btnSell15_Click(sender As Object, e As EventArgs) Handles btnSell15.Click If Holding15 >= NumericUpDown15.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice15 * NumericUpDown15.Value) Else MyWallet = MyWallet + (SellPrice15U * NumericUpDown15.Value) End If WalletUpdate() Holding15 -= CInt(NumericUpDown15.Value) If Holding15 = 0 Then 'Display 0 instead of empty place txtHolding15.Text = "0" Else txtHolding15.Text = CStr((Holding15).ToString("#,#")) End If Quota15 = CDec(Holding15 / 100000) txtQuota15.Text = CStr((Quota15).ToString("p")) Else HoldingShareNotEnough() End If MandA15() End Sub Sub MandA16() If Holding16 > 259987 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy16.BackColor = SystemColors.Control btnSell16.BackColor = SystemColors.Control btnBuy16.Enabled = False btnSell16.Enabled = False txtBuyPrice16.Enabled = False txtSellPrice16.Enabled = False txtHolding16.Enabled = False txtQuota16.Enabled = False NumericUpDown16.Enabled = False NumericUpDown16.Value = 1 txtHolding16.TextAlign = HorizontalAlignment.Center txtQuota16.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding16.Text = "M&A" txtQuota16.Text = "M&A" ElseIf lang = "KOR" Then txtHolding16.Text = "인수합병" txtQuota16.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy16_Click(sender As Object, e As EventArgs) Handles btnBuy16.Click If MyWallet >= BuyPrice16 * NumericUpDown16.Value Or MyWallet >= BuyPrice16U * NumericUpDown16.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice16 * NumericUpDown16.Value) Else MyWallet = MyWallet - (BuyPrice16U * NumericUpDown16.Value) End If BuylblMoneyUpdate() Holding16 += CInt(NumericUpDown16.Value) txtHolding16.Text = CStr((Holding16).ToString("#,#")) Quota16 = CDec(Holding16 / 260000) txtQuota16.Text = CStr((Quota16).ToString("p")) Else MoneyNotEnough() End If MandA16() End Sub Private Sub btnSell16_Click(sender As Object, e As EventArgs) Handles btnSell16.Click If Holding16 >= NumericUpDown16.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice16 * NumericUpDown16.Value) Else MyWallet = MyWallet + (SellPrice16U * NumericUpDown16.Value) End If WalletUpdate() Holding16 -= CInt(NumericUpDown16.Value) If Holding16 = 0 Then 'Display 0 instead of empty place txtHolding16.Text = "0" Else txtHolding16.Text = CStr((Holding16).ToString("#,#")) End If Quota16 = CDec(Holding16 / 260000) txtQuota16.Text = CStr((Quota16).ToString("p")) Else HoldingShareNotEnough() End If MandA16() End Sub Sub MandA17() If Holding17 >= 229988 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy17.BackColor = SystemColors.Control btnSell17.BackColor = SystemColors.Control btnBuy17.Enabled = False btnSell17.Enabled = False txtBuyPrice17.Enabled = False txtSellPrice17.Enabled = False txtHolding17.Enabled = False txtQuota17.Enabled = False NumericUpDown17.Enabled = False NumericUpDown17.Value = 1 txtHolding17.TextAlign = HorizontalAlignment.Center txtQuota17.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding17.Text = "M&A" txtQuota17.Text = "M&A" ElseIf lang = "KOR" Then txtHolding17.Text = "인수합병" txtQuota17.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy17_Click(sender As Object, e As EventArgs) Handles btnBuy17.Click If MyWallet >= BuyPrice17 * NumericUpDown17.Value Or MyWallet >= BuyPrice17U * NumericUpDown17.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice17 * NumericUpDown17.Value) Else MyWallet = MyWallet - (BuyPrice17U * NumericUpDown17.Value) End If BuylblMoneyUpdate() Holding17 += CInt(NumericUpDown17.Value) txtHolding17.Text = CStr((Holding17).ToString("#,#")) Quota17 = CDec(Holding17 / 230000) txtQuota17.Text = CStr((Quota17).ToString("p")) Else MoneyNotEnough() End If MandA17() End Sub Private Sub btnSell17_Click(sender As Object, e As EventArgs) Handles btnSell17.Click If Holding17 >= NumericUpDown17.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice17 * NumericUpDown17.Value) Else MyWallet = MyWallet + (SellPrice17U * NumericUpDown17.Value) End If WalletUpdate() Holding17 -= CInt(NumericUpDown17.Value) If Holding17 = 0 Then 'Display 0 instead of empty place txtHolding17.Text = "0" Else txtHolding17.Text = CStr((Holding17).ToString("#,#")) End If Quota17 = CDec(Holding17 / 230000) txtQuota17.Text = CStr((Quota17).ToString("p")) Else HoldingShareNotEnough() End If MandA17() End Sub Sub MandA18() If Holding18 > 259987 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy18.BackColor = SystemColors.Control btnSell18.BackColor = SystemColors.Control btnBuy18.Enabled = False btnSell18.Enabled = False txtBuyPrice18.Enabled = False txtSellPrice18.Enabled = False txtHolding18.Enabled = False txtQuota18.Enabled = False NumericUpDown18.Enabled = False NumericUpDown18.Value = 1 txtHolding18.TextAlign = HorizontalAlignment.Center txtQuota18.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding18.Text = "M&A" txtQuota18.Text = "M&A" ElseIf lang = "KOR" Then txtHolding18.Text = "인수합병" txtQuota18.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy18_Click(sender As Object, e As EventArgs) Handles btnBuy18.Click If MyWallet >= BuyPrice18 * NumericUpDown18.Value Or MyWallet >= BuyPrice18U * NumericUpDown18.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice18 * NumericUpDown18.Value) Else MyWallet = MyWallet - (BuyPrice18U * NumericUpDown18.Value) End If BuylblMoneyUpdate() Holding18 += CInt(NumericUpDown18.Value) txtHolding18.Text = CStr((Holding18).ToString("#,#")) Quota18 = CDec(Holding18 / 260000) txtQuota18.Text = CStr((Quota18).ToString("p")) Else MoneyNotEnough() End If MandA18() End Sub Private Sub btnSell18_Click(sender As Object, e As EventArgs) Handles btnSell18.Click If Holding18 >= NumericUpDown18.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice18 * NumericUpDown18.Value) Else MyWallet = MyWallet + (SellPrice18U * NumericUpDown18.Value) End If WalletUpdate() Holding18 -= CInt(NumericUpDown18.Value) If Holding18 = 0 Then 'Display 0 instead of empty place txtHolding18.Text = "0" Else txtHolding18.Text = CStr((Holding18).ToString("#,#")) End If Quota18 = CDec(Holding18 / 260000) txtQuota18.Text = CStr((Quota18).ToString("p")) Else HoldingShareNotEnough() End If MandA18() End Sub Sub MandA19() If Holding19 >= 179991 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy19.BackColor = SystemColors.Control btnSell19.BackColor = SystemColors.Control btnBuy19.Enabled = False btnSell19.Enabled = False txtBuyPrice19.Enabled = False txtSellPrice19.Enabled = False txtHolding19.Enabled = False txtQuota19.Enabled = False NumericUpDown19.Enabled = False NumericUpDown19.Value = 1 txtHolding19.TextAlign = HorizontalAlignment.Center txtQuota19.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding19.Text = "M&A" txtQuota19.Text = "M&A" ElseIf lang = "KOR" Then txtHolding19.Text = "인수합병" txtQuota19.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy19_Click(sender As Object, e As EventArgs) Handles btnBuy19.Click If MyWallet >= BuyPrice19 * NumericUpDown19.Value Or MyWallet >= BuyPrice19U * NumericUpDown19.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice19 * NumericUpDown19.Value) Else MyWallet = MyWallet - (BuyPrice19U * NumericUpDown19.Value) End If BuylblMoneyUpdate() Holding19 += CInt(NumericUpDown19.Value) txtHolding19.Text = CStr((Holding19).ToString("#,#")) Quota19 = CDec(Holding19 / 180000) txtQuota19.Text = CStr((Quota19).ToString("p")) Else MoneyNotEnough() End If MandA19() End Sub Private Sub btnSell19_Click(sender As Object, e As EventArgs) Handles btnSell19.Click If Holding19 >= NumericUpDown19.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice19 * NumericUpDown19.Value) Else MyWallet = MyWallet + (SellPrice19U * NumericUpDown19.Value) End If WalletUpdate() Holding19 -= CInt(NumericUpDown19.Value) If Holding19 = 0 Then 'Display 0 instead of empty place txtHolding19.Text = "0" Else txtHolding19.Text = CStr((Holding19).ToString("#,#")) End If Quota19 = CDec(Holding19 / 180000) txtQuota19.Text = CStr((Quota19).ToString("p")) Else HoldingShareNotEnough() End If MandA19() End Sub Sub MandA20() If Holding20 >= 229988 Then MandAMessageLang() If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then btnBuy20.BackColor = SystemColors.Control btnSell20.BackColor = SystemColors.Control btnBuy20.Enabled = False btnSell20.Enabled = False txtBuyPrice20.Enabled = False txtSellPrice20.Enabled = False txtHolding20.Enabled = False txtQuota20.Enabled = False NumericUpDown20.Enabled = False NumericUpDown20.Value = 1 txtHolding20.TextAlign = HorizontalAlignment.Center txtQuota20.TextAlign = HorizontalAlignment.Center If lang = "ENG" Then txtHolding20.Text = "M&A" txtQuota20.Text = "M&A" ElseIf lang = "KOR" Then txtHolding20.Text = "인수합병" txtQuota20.Text = "인수합병" End If End If End If End Sub Private Sub btnBuy20_Click(sender As Object, e As EventArgs) Handles btnBuy20.Click If MyWallet >= BuyPrice20 * NumericUpDown20.Value Or MyWallet >= BuyPrice20U * NumericUpDown20.Value Then If ChangeSwitch = False Then MyWallet = MyWallet - (BuyPrice20 * NumericUpDown20.Value) Else MyWallet = MyWallet - (BuyPrice20U * NumericUpDown20.Value) End If BuylblMoneyUpdate() Holding20 += CInt(NumericUpDown20.Value) txtHolding20.Text = CStr((Holding20).ToString("#,#")) Quota20 = CDec(Holding20 / 230000) txtQuota20.Text = CStr((Quota20).ToString("p")) Else MoneyNotEnough() End If MandA20() End Sub Private Sub btnSell20_Click(sender As Object, e As EventArgs) Handles btnSell20.Click If Holding20 >= NumericUpDown20.Value Then If ChangeSwitch = False Then MyWallet = MyWallet + (SellPrice20 * NumericUpDown20.Value) Else MyWallet = MyWallet + (SellPrice20U * NumericUpDown20.Value) End If WalletUpdate() Holding20 -= CInt(NumericUpDown20.Value) If Holding20 = 0 Then 'Display 0 instead of empty place txtHolding20.Text = "0" Else txtHolding20.Text = CStr((Holding20).ToString("#,#")) End If Quota20 = CDec(Holding20 / 230000) txtQuota20.Text = CStr((Quota20).ToString("p")) Else HoldingShareNotEnough() End If MandA20() End Sub '############################################################################################ Private Sub TimerLevelUpdater_Tick(sender As Object, e As EventArgs) Handles TimerLevelUpdater.Tick ' Show strName, Public variable from FormLogin and level If CheaterCount >= 10 Then If lang = "ENG" Then lblUser.Text = "Cheater. " & UserName ElseIf lang = "KOR" Then lblUser.Text = "사기꾼. " & UserName End If ElseIf MyWallet < 3000 Then If lang = "ENG" Then lblUser.Text = "Beginner. " & UserName ElseIf lang = "KOR" Then lblUser.Text = "시민. " & UserName End If 'PicLevel.BackgroundImage = PicLevelNone.BackgroundImage ElseIf MyWallet < 9000 Then If lang = "ENG" Then lblUser.Text = "Novice investor. " & UserName ElseIf lang = "KOR" Then lblUser.Text = "초보 투자자. " & UserName End If 'PicLevel.BackgroundImage = PicLevelNone.BackgroundImage ElseIf MyWallet < 90000 Then If lang = "ENG" Then lblUser.Text = "Intermediate investor. " & UserName ElseIf lang = "KOR" Then lblUser.Text = "중급 투자자. " & UserName End If 'PicLevel.BackgroundImage = PicLevelBronze.BackgroundImage ElseIf MyWallet < 900000 Then If lang = "ENG" Then lblUser.Text = "Experienced investor. " & UserName ElseIf lang = "KOR" Then lblUser.Text = "숙련된 투자자. " & UserName End If 'PicLevel.BackgroundImage = PicLevelSilver.BackgroundImage ElseIf MyWallet < 1000000 Then 'starting money * 50 If lang = "ENG" Then lblUser.Text = "Millionaire. " & UserName ElseIf lang = "KOR" Then lblUser.Text = "백만장자. " & UserName End If 'PicLevel.BackgroundImage = PicLevelGold.BackgroundImage ElseIf MyWallet < 100000000 Then If lang = "ENG" Then lblUser.Text = "Multimillionaire. " & UserName ElseIf lang = "KOR" Then lblUser.Text = "천만장자. " & UserName End If 'PicLevel.BackgroundImage = PicLevelEmerald.BackgroundImage ElseIf MyWallet >= 100000000 And MyWallet < 500000000000 Then ' 1000 ouk < mywallet < 50 jo If lang = "ENG" Then lblUser.Text = "Billionarie. " & UserName ElseIf lang = "KOR" Then lblUser.Text = "억만장자. " & UserName End If 'PicLevel.BackgroundImage = PicLevelDiamond.BackgroundImage Else If lang = "ENG" Then lblUser.Text = "God of Economy. " & UserName ElseIf lang = "KOR" Then lblUser.Text = "돈의 신. " & UserName End If 'PicLevel.BackgroundImage = PicLevelRainbow.BackgroundImage End If 'Ending If txtHolding1.Text = "M&A" And txtHolding2.Text = "M&A" And txtHolding3.Text = "M&A" And txtHolding4.Text = "M&A" And txtHolding5.Text = "M&A" And txtHolding6.Text = "M&A" And txtHolding7.Text = "M&A" And txtHolding8.Text = "M&A" And txtHolding9.Text = "M&A" And txtHolding10.Text = "M&A" And txtHolding11.Text = "M&A" And txtHolding12.Text = "M&A" And txtHolding13.Text = "M&A" And txtHolding14.Text = "M&A" And txtHolding15.Text = "M&A" And txtHolding16.Text = "M&A" And txtHolding17.Text = "M&A" And txtHolding18.Text = "M&A" And txtHolding19.Text = "M&A" And txtHolding20.Text = "M&A" Then 'Stop this timer TimerLevelUpdater.Enabled = False 'Show the ending message box MsgBox(lblMonths.Text & " " & lblCalender.Text & vbCrLf & "You have acquired all companies in the world. Everyone uses products and services from your companies.", , "Stock War Ending") End If End Sub 'Mouse hover changes of lblMoney Private Sub lblMoney_MouseHover(sender As Object, e As EventArgs) Handles lblMoney.MouseHover lblMoney.ForeColor = Color.Goldenrod End Sub Private Sub lblMoney_MouseLeave(sender As Object, e As EventArgs) Handles lblMoney.MouseLeave lblMoney.ForeColor = Color.Black End Sub Private Sub PicTime_Click(sender As Object, e As EventArgs) Handles PicTime.Click If PicTimeCounter = False Then 'False status is processing game. 'Stop GameTimer TimerCalender.Enabled = False 'Change Counter Value PicTimeCounter = True 'True status is 'Pause' 'Change graphic PicTime.BackgroundImage = PicPause.BackgroundImage Me.BackColor = Color.WhiteSmoke lblCalender.ForeColor = Color.Red 'Ban all Buy and Sell actions BuySellEnabledFalse() Else 'if PicTimerCounter = True then TimerCalender.Enabled = True PicTimeCounter = False PicTime.BackgroundImage = PicStart.BackgroundImage Me.BackColor = Color.White lblCalender.ForeColor = Color.Black 'Accept players to act 'buy' and 'sell' BuySellEnabledTrue() End If End Sub 'Calculator Private Sub menuToolsCalculator_Click(sender As Object, e As EventArgs) Handles menuToolsCalculator.Click frmCalculator.Show() frmCalculator.Focus() End Sub Private Sub menuSettingsCheat_Click(sender As Object, e As EventArgs) Handles menuSettingsCheat.Click frmCheat.Show() frmCheat.Focus() End Sub Private Sub menuFileExit_Click(sender As Object, e As EventArgs) Handles menuFileExit.Click 'Close all the window froms related to the game Me.Close() frmLogin.Close() frmCalculator.Close() frmCheat.Close() frmRule.Close() End Sub Private Sub mnuHelpRules(sender As Object, e As EventArgs) Handles menuHelpRules.Click frmRule.Show() End Sub End Class