返回列表 發帖
謝謝~~~~~
 
Pick一片4.5元MARTIN M170弦特價吉他架第2件半價

TOP

是香港的歌喔...
 
Pick一片4.5元MARTIN M170弦特價吉他架第2件半價

TOP

thx for sharing
 
Pick一片4.5元MARTIN M170弦特價吉他架第2件半價

TOP

thx!!!!!!!!!!!!!
 
Pick一片4.5元MARTIN M170弦特價吉他架第2件半價

TOP

thk~~~~~~~~~~~~~~~
 
Pick一片4.5元MARTIN M170弦特價吉他架第2件半價

TOP

thk~~~~~~~~~~~~~~~
 
Pick一片4.5元MARTIN M170弦特價吉他架第2件半價

TOP

<HTML>

<head>
<title>game </title>
<head>小遊戲</head>
</head>

<BODY BGCOLOR=yellow background="bgTable.jpg">

<Script Language="VBScript">
Dim dice_number                      '''''   儲存骰仔數字
Dim money                            '''''   儲存籌碼餘額
Dim point_chosen                     '''''   儲存由1-6 你所選擇的點數

SUB cmdROLL_ONCLICK()                '''''   拋骰仔程序"的開始
  Randomize
  dice_number = Rnd()*6                     ''  隨機產生骰仔數字  dice_number
  If dice_number<1 Then
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77551&CampusMailID=797652"
  ElseIf dice_number<2 Then
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77556&CampusMailID=797652"
  ElseIf dice_number<3 Then
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77553&CampusMailID=797652"
  ElseIf dice_number<4 Then
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77555&CampusMailID=797652"
  ElseIf dice_number<5 Then
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77554&CampusMailID=797652"
  Else
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77552&CampusMailID=797652"
  End If

  call result()                             ''call 表示執行遊戲結果程序

  If money<0 Then
     txtTOTAL.value="No money no talk !有錢再來吧@v@"
     call cmdAGAIN_ONCLICK()
  Else
     txtTOTAL.value=money
  End If               
END SUB                                        ''''' 拋骰仔程序的終結


FUNCTION checkPoint()                   ''''' 核對所選擇點數程序開始
    point_chosen=point_chosen+1
    MsgBox(point_chosen)
END FUNCTION                            ''''' 核對所選擇點數程序終結


FUNCTION result()                       ''''' 遊戲結果的開始
    If dice_number<1  and point_chosen=1 Then
       money=CDbl(txtTOTAL.value)+CDbl(txtEACH.value)
   
   
      
    Else
       money=CDbl(txtTOTAL.value)-CDbl(txtEACH.value)
    End If
END FUNCTION                             '''''遊戲結果的終結



</Script>



<p>籌碼:<input type=text name=txtTOTAL value=0></p>

押注:<input type=text name=txtEACH value=0>

<p>請選擇:<input type=checkbox name=chkC1 onClick="checkPoint()">1點

<input type=button value=擲骰子 name=cmdROLL >
<p> </p>
<p> </p>
<p> </p>
<img src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77551&CampusMailID=797652" name="dice1"

width="78" height="78">
<p>   
  
</BODY>
</HTML>


我想問下點解佢可以加錢同減錢既?
可唔可以比番個句我睇
仲有可唔可以解釋一下
同埋改善既空間
請大大幫幫手吧
 
Pick一片4.5元MARTIN M170弦特價吉他架第2件半價

TOP

<HTML>

<head>
<title>game </title>
<head>小遊戲</head>
</head>

<BODY BGCOLOR=yellow background="bgTable.jpg">

<Script Language="VBScript">
Dim dice_number                      '''''   儲存骰仔數字
Dim money                            '''''   儲存籌碼餘額
Dim point_chosen                     '''''   儲存由1-6 你所選擇的點數

SUB cmdROLL_ONCLICK()                '''''   拋骰仔程序"的開始
  Randomize
  dice_number = Rnd()*6                     ''  隨機產生骰仔數字  dice_number
  If dice_number<1 Then
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77551&CampusMailID=797652"
  ElseIf dice_number<2 Then
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77556&CampusMailID=797652"
  ElseIf dice_number<3 Then
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77553&CampusMailID=797652"
  ElseIf dice_number<4 Then
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77555&CampusMailID=797652"
  ElseIf dice_number<5 Then
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77554&CampusMailID=797652"
  Else
   document.dice1.src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77552&CampusMailID=797652"
  End If

  call result()                             ''call 表示執行遊戲結果程序

  If money<0 Then
     txtTOTAL.value="No money no talk !有錢再來吧@v@"
     call cmdAGAIN_ONCLICK()
  Else
     txtTOTAL.value=money
  End If               
END SUB                                        ''''' 拋骰仔程序的終結


FUNCTION checkPoint()                   ''''' 核對所選擇點數程序開始
    point_chosen=point_chosen+1
    MsgBox(point_chosen)
END FUNCTION                            ''''' 核對所選擇點數程序終結


FUNCTION result()                       ''''' 遊戲結果的開始
    If dice_number<1  and point_chosen=1 Then
       money=CDbl(txtTOTAL.value)+CDbl(txtEACH.value)
   
   
      
    Else
       money=CDbl(txtTOTAL.value)-CDbl(txtEACH.value)
    End If
END FUNCTION                             '''''遊戲結果的終結



</Script>



<p>籌碼:<input type=text name=txtTOTAL value=0></p>

押注:<input type=text name=txtEACH value=0>

<p>請選擇:<input type=checkbox name=chkC1 onClick="checkPoint()">1點

<input type=button value=擲骰子 name=cmdROLL >
<p> </p>
<p> </p>
<p> </p>
<img src="http://eclass.ccgss.edu.hk/home/imail/downloadattachment.php?PartID=77551&CampusMailID=797652" name="dice1"

width="78" height="78">
<p>   
  
</BODY>
</HTML>


我想問下點解佢可以加錢同減錢既?
可唔可以比番個句我睇
仲有可唔可以解釋一下
同埋改善既空間
請大大幫幫手吧
 
Pick一片4.5元MARTIN M170弦特價吉他架第2件半價

TOP

aaaaaaaaaaaaaaaaaaaaaaa
 
Pick一片4.5元MARTIN M170弦特價吉他架第2件半價

TOP

aaaaaaaaaaaaaaaaaaaaaaaaaaaa
 
Pick一片4.5元MARTIN M170弦特價吉他架第2件半價

TOP

返回列表

小新吉他館 157,889人 說讚 關閉


小新吉他館 Facebook破15萬

快來按讚!不定期送卡祖笛、Pick、等抽獎活動,掌握台灣樂器一手消息與動態!


查看
蘆洲學吉他、烏克麗麗、鋼琴 音樂教室(小新吉他館)樂器專賣店

本網站無利用使用者上傳的資料直接營利,且在有著作權人通知網管有侵權資料要求移除時,將立即、也必須馬上移除任何會員上傳資料。
因「即時發表」運作方式所規限,故不能完全監察所有即時文章,若有發現問題,請聯絡我們(於24小時刪除)
著作權聲明 提供來源/黃沛聲律師  
領取樂器購物金