ざっぺく どっと jp

 CITROEN C2
 PEUGEOT306
 PRODUCTS
 日記

 DF冒険もの
 滑りもの
 球入れもの
 パソコンとか

 LINK
 Mail

 その他のコンテンツは
 TOPページからどうぞ

xappec.jp→日記(xappec NEWS)
written by xappec
Last-modified: Sun, 19 May 2019 10:17:02 JST
Access Count : 120
最新7日分


□ 2003年6月21日 (土)

[打球]

打ちっぱなしに逝きました。。。。。

'-- ゴルフボールを打つ --
Public Function 打つ_fnc(クラブ As String) As Boolean

  Select Case クラブ
    Case "ドライバー"
      Call ルーレット☆チャンス_sub '神頼みルーチンへ
      打つ_fnc = False
    Case "3W" to "6I"
      MsgRet = MsgBox("申し訳ありません。そのクラブは使用できません" , vbOkOnly + vbExclamation)
      打つ_fnc = False
    Case "7I"
      If 事前儀式.クラブ握り = True And _
        事前儀式.左足位置 = True And _
        事前儀式.スタンス = True And _
        事前儀式.左手状態 = True And _
        スイング.テイクバック.左手真っ直ぐ = True And _
        スイング.テイクバック.トップ位置 = True Then

        If スイング.インパクト.ヘッドアップ = True Then
          Call 空振り_sub '空振り+照れ隠し後処理
          打つ_fnc = False
          Exit Function
        End If
        If スイング.インパクト.キタ━━━(゚∀゚)━━━!!!!! = True Then
          Call ヘタレ弾道_sub 'キタ━━━(゚∀゚)━━━!!!!! 弾道計算
          打つ_fnc = True
        Else
          Call ショボーン弾道_sub '(´・ω・`)ショボーン 弾道計算
          打つ_fnc = True
        End If
      Else
        Call 罰ゲーム_sub '打つ以前の問題ルーチンへ
        打つ_fnc = False
      End If
    Case "8I" to "SW"
      MsgRet = MsgBox("申し訳ありません。そのクラブは使用できません" , vbOkOnly + vbExclamation)
      打つ_fnc = False
    Case "PT"
      MsgRet = MsgBox("申し訳ありません。そのクラブは握ったこともありません" , vbOkOnly + vbCritical)
      打つ_fnc = False
  End Select

End Function

VB厨なオレを勘弁してくだちい (;´Д`)
本当にヤルこと大杉。覚えきれねぇ (;゚∀゚)
今日はボスと一緒に逝ったので、色々教えていただいて、結構な成果がありました。
構えた時の左手の位置を前方に移動しただけで、かなりマトモに飛ぶようになりました。
あと、ヘッドアップは重要ですた。アドバイスありがとう!! >dakenta

自分で見てもヘタレなスイング模様 約2MB、AVI、コーデック注意
とにかく、ヘッドアップだけ気を取られている様子が、まざまざと分ります (^^;



最新7日分

[2018年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2017年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2016年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2015年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2014年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2013年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2012年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2011年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2010年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2009年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2008年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2007年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2006年]
1月] [2月] [3月] [4月] [5月] [6月] [7月] [8月] [9月] [10月] [11月] [12月
[2005年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2004年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2003年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2002年]
12月] [11月] [10月] [9月] [8月] [7月] [6月] [5月] [4月] [3月] [2月] [1月
[2001年]
12月] [11月] [10月


※リンク等の制限はありませんので、自由に張ってやって下さい (^^;


xdg  Powered by x-Diary Generator
 (xappecさんだけが使えれば(゚∀゚)イイ!!と思って作った古今東西dat互換な日記生成システム ver.0.02β)
非常口