Sunday, July 20, 2025

MSCI Indonesia Index, June-August 2025

17 stocks

BBCA, BBRI, BMRI, TLKM, ASII, BBNI, AMMN, ADRO, AMRT, GOTO, TPIA, CPIN, INDF, KLBF, ICBP, BRPT, UNTR

Rebalancing MSCI Edisi 2025 : Ini Deretan Siapa Masuk & Keluar!

Saturday, July 19, 2025

What makes bitcoin enter bear market, according history

2011: Bitcoin plunged from $32 to $2, a staggering 94% decline. This crash was fueled by early-stage market speculation, security flaws in exchanges, and Bitcoin’s status as a relatively unknown asset.

2014-2015: The collapse of Mt. Gox, once the world’s largest Bitcoin exchange, resulted in the loss of approximately 850,000 BTC. Trader confidence took a massive hit, causing Bitcoin’s price to drop from $1,100 to under $200, an 82% decline. This event raised serious concerns about exchange security and the need for stronger regulatory oversight.

2018: The ICO boom of 2017 brought an influx of speculative projects, many of which lacked substance. As regulatory crackdowns increased and fraudulent projects were exposed, market confidence crumbled. Bitcoin tumbled from $20,000 to nearly $3,000, losing 85% of its value.

2022: A series of major industry failures, including the collapse of Terra (LUNA), the depegging of UST, and the bankruptcy of FTX, led to a widespread market meltdown. Bitcoin dropped from its all-time high of $69,000 to around $16,000, a 77% decline. This downturn was further exacerbated by rising interest rates, institutional sell-offs, and regulatory pressures.

Each bear market has had different triggers, from exchange failures and speculation to regulatory shifts and economic downturns.

Wednesday, July 16, 2025

[Laptop] Screen brightness auto decrease when displaying dark color

Lenovo. Windows 10. Intel HD Graphics.

How to non-active that setting?

Launch Intel HD Graphics setting.

Choose: System > Power.

Display Power Saving, choose OFF.


Wednesday, June 25, 2025

Macro VBA script: Change 1st column width for all table

 Sub SetFirstColumnWidthInPicas()

    Dim tbl As Table

    Dim r As Long

    Dim desiredWidthPicas As Single

    Dim desiredWidthPoints As Single


    ' Set desired width in picas

    desiredWidthPicas = 30 ' ? Change this as needed

    desiredWidthPoints = desiredWidthPicas * 12 ' Convert picas to points


    For Each tbl In ActiveDocument.Tables

        With tbl

            For r = 1 To .Rows.Count

                On Error Resume Next ' In case cell doesn't exist (e.g. merged)

                With .cell(r, 1)

                    .Width = desiredWidthPoints

                End With

                On Error GoTo 0

            Next r

        End With

    Next tbl


    MsgBox "First column width updated to " & desiredWidthPicas & " picas.", vbInformation

End Sub

Macro VBA script: Change Font name and size in the 2nd column for all table

 Sub ChangeFontInSecondColumn()

    Dim tbl As Table

    Dim r As Long, c As Long

    Dim cell As cell

    Dim targetCol As Long

    Dim rng As Range

    

    targetCol = 2 ' Second column


    For Each tbl In ActiveDocument.Tables

        With tbl

            For r = 1 To .Rows.Count

                On Error Resume Next ' In case cell(2) doesn't exist in a row

                Set cell = .cell(r, targetCol)

                If Not cell Is Nothing Then

                    Set rng = cell.Range

                    rng.End = rng.End - 1 ' Exclude end-of-cell marker

                    With rng.Font

                        .Name = "STIX Two Text"

                        .Size = 10

                    End With

                End If

                Set cell = Nothing

                Set rng = Nothing

                On Error GoTo 0

            Next r

        End With

    Next tbl


    MsgBox "Font updated in second column of all tables.", vbInformation

End Sub

Monday, May 19, 2025

Word save to pdf, downloaded font not bold

I write a Word file using STIX Two Text, downloaded somewhere. After saving to PDF, the bold formatting is not saved in PDF version.

Solution: 

Try to save pdf using Print, choose Microsoft Print to PDF.

Sunday, April 13, 2025

Tilawah pembuka Halal bi Halal

Al-Hujurat 10 & 13

Al-Maidah 7-10

Tuesday, February 18, 2025

Word: How to prevent Update Fields when saving

Follow these steps:
1. Save your document.
2. Press Ctrl+A. This selects your entire document.
3. Press Ctrl+F11. This "locks" all fields, so they are not updated.
4. Print your document or convert it to a PDF file.
5. Close the document without saving

Note: To 'unclocks', press Ctrl+Shift+F11.

Sunday, January 26, 2025

Saya mengalami 'Word found unreadable content ...'

Ada file Microsoft Word tiba-tiba crash saat saya mengedit equation. Saya coba buka lagi, tidak bisa, dengnan pesan error "Word found unreadable content...."

Saya coba fitur 'Open and repair' tidak berhasil. Saya coba Open pakai 'Recover from any file' juga tidak berhasil. Saya coba ganti ekstensi ke .rtf juga tidak berhasil.

Setelah iseng saya buka pakai Google Drive document, ternyata berhasil terbuka. Saya edit sedikit lalu saya download lagi sebagai .docx.

[PROBLEM SOLVED]

Wednesday, November 27, 2024

Sistem koordinat posisi pesawat di Xplane

Umumnya, sistem koordinat posisi pesawat (X1 Y1 Z1) mewakili North-East-Down (NED).

Di Xplane, (X2 Y2 Z2) mewakili East-Up-South (EUS).

Jadi, konversi dari Xplane (EUS) ke NED adalah 

X1 = -Z2, Y1 = X2, Z1 = -Y2.