讀心術(社交遊戲)

讀心術(社交遊戲)

“讀心術”一款有意思的社交遊戲。依託社交遊戲開放平台,社交遊戲“讀心術”的套用得到了快速的普及。目前,“讀心術”已經成為網際網路上最流行的社交遊戲之一。

基本介紹

  • 中文名:讀心術
  • 外文名:Mind Reading
  • 類型社交遊戲
  • 平台社交遊戲
  • 來源:數學過程
  • 流行時代:20世紀
遊戲玩法,程式代碼,

遊戲玩法

“讀心術”是來源於下面的數學過程,並不是仙術。在“讀心術”設計中,設這個數是10a+b,則有10a+b-a-b=9a,在看所有9的倍數都是一個圖,而水晶球里顯現出的就是這個圖。
1、如果你心中想了一個數,是一個個位數為A,十位數為B的(A+10B)。如25=5+2×
10。
2:按照讀心數的要求,你要把A和B相加:
(A+B) 如2+5=7
3、然後用原來的數減去加的結果:
A+10B-(A+B)=9B。如25-7=18=2×9。
4、從上面就可以看到,你無論選個什麼數,按照占心術的算法,最後都會是9的倍數的數!
5、你看看網頁上右邊的那些符號,是不是凡是9的倍數的如9,18,27等等數後面的符號都是一樣的?對了 ,那些符號都是一樣的。
而水晶球裡面的圖像,在電腦程式設計的時候,就保證它和外面9的倍數的數後面的符號是一樣的。
6、所以,你一點水球,就出來個和外面9的倍數數字後面的圖,你就認為是自己心中想的。
7、要注意個問題,就是你點了水晶球一次後,電腦程式會使球里的圖變化,同時外面所有九的倍數的數字後面的圖也跟著變成和水晶球裡面的圖一樣的圖。
8、你再點,還是……
注意: 圖片是不斷變化著的 每次都不同 比如您算出一次 等於54 那么請看 所有的9的倍數都是54相同的圖片. 比如 9 18 27 36 45 54 63 72 81

程式代碼

下面是VB的程式代碼
Dim a(13) As Integer
Dim inti As Integer
Private Sub Form_Load()
lbl1.Top = 4800
lbl1.Left = 7800
a(0) = 7
a(1) = 8
a(2) = 11
a(3) = 12
a(4) = 14
a(5) = 15
a(6) = 17
a(7) = 18
a(8) = 19
a(9) = 20
a(10) = 26
a(11) = 27
a(12) = 36
a(13) = 37
For i = 1 To 99
Load lbl(i)
lbl(i).Top = lbl(0).Top + lbl(0).Height + 600 * (i \ 12)
lbl(i).Left = lbl(0).Left + lbl(0).Width + 600 * (i Mod 12)
lbl(i).Visible = True
Next
lbl(0).Top = lbl(0).Top + lbl(0).Height
lbl(0).Left = lbl(0).Left + lbl(0).Width
nsu
End Sub
Public Sub nsu()
Randomize
inti = Int((1500232 * Rnd) Mod 14)
For i = 0 To 99
intj = Int((1500232 * Rnd) Mod 14)
Do While (intj = inti)
intj = Int((1500232 * Rnd) Mod 14)
Loop
lbl(i).Caption = (99 - i) & Chr(a(intj))
If (99 - i) Mod 9 = 0 And (99 - i) < 82 Then lbl(i).Caption = (99 - i) & Chr(a(inti))
Next
End Sub
Private Sub Label2_Click()
Label2.Visible = False
lbl1.Caption = "尐"
For i = 0 To 99
lbl(i).Visible = True
Next
nsu
End Sub
Private Sub lbl1_Click()
If lbl1.Caption = "尐" Then
lbl1.Caption = Chr(a(inti))
Label2.Visible = True
Label2.Caption = Chr(a(inti))
For i = 0 To 99
lbl(i).Visible = False
Next
Else
Label2.Visible = False
lbl1.Caption = "尐"
For i = 0 To 99
lbl(i).Visible = True
Next
nsu
End If
End Sub
==================================

相關詞條

熱門詞條

聯絡我們