3420 lines
No EOL
164 KiB
VB.net
Executable file
3420 lines
No EOL
164 KiB
VB.net
Executable file
'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 |