muramoto1041

名札    メイン
変数削除 共通
ライブラリ "C_共通処理.cmx"
手続き実行 p_共通変数宣言()
＊

手続き定義開始　フォーム::フォーム開始(長整数　&表番号)

手続き定義終了

muramoto1041

名札    メイン
ライブラリ "C_共通処理.cmx"
手続き実行 p_共通変数宣言()
＊

手続き定義開始　フォーム::フォーム開始(長整数　&表番号)

手続き定義終了

手続き定義開始　フォーム::フォーム終了()

muramoto1041

from machine import Pin # 入出力モジュールを準備
import utime  			# タイマーモジュールを準備

led = machine.Pin("LED", machine.Pin.OUT)  # LED端子をLedとして出力に設定
while True:  # ずっと繰り返し
    led.value(1)      	# LEDを点灯
    utime.sleep(0.5)  	# 0.5秒待つ
    led.value(0)      	# LEDを消灯
    utime.sleep(0.5)  	# 0.5秒待つ

muramoto1041

'Ver 1.00 2021/07/24 デスクトップに置いて、サクサク使えるメニューを作成する。
'
'[処理]
' ファイル名/Exeファイル/URL/ショートカットを開く
'
'[使い方]
' このファイル(ランチャー.vbs)をデスクトップに置く
'
'[注意]
' エンコードは、ANSI(Shift JIS)で保存すること。

muramoto1041

Sub メニュー()
  On Error GoTo subError
  Dim wMenu  As String
  
  wMenu = "項目の追加,項目位置を保存,フォーム画面表示"
  
  n = f_メニュー("タイトル", wMenu, "選択してください", 0)
  If n = 0 Then Exit Sub
  '--- Exit ---
  

muramoto1041

Protected Sub S_GetID(qTBL As String)
        'Azure
        Dim strSQL As String
        Dim cnnStr As String = ConfigurationManager.AppSettings("apps_BariSpDT_Kava")
        Dim cnn As SqlConnection = New SqlConnection(cnnStr)
        Dim sqlcmdSelect As SqlCommand = New SqlCommand()
        Dim adpt As SqlDataAdapter = New SqlDataAdapter()
        Dim dsDataSet As DataSet = New DataSet

        sIDNew = 0

muramoto1041

'****************************************************************
'作成日：2020/06/01
'                             Fy_メニュー
'作成者：村本俊和
'****************************************************************
Option Explicit
'System
Dim sMsg   As Integer
Dim sWhere As String
'Procedure

muramoto1041

'
' 日本語ローコードYUGE Ver1.19
' (注意)変更しないでください。
' https://excel-databace.hatenablog.com/entry/yuge-help
'
'Ver 1.17  2020/11/16  タイマー機能追加
'    1.18  2020/11/25  ユーザーマクロに説明追加/年月範囲追加/印刷ダイアログ
'    1.19  2020/12/25  テーブル作成/解除
'
Option Explicit

muramoto1041

Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _


ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As LongPtr) As Long

Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, _

ByVal nDEvent As Long) As Long

muramoto1041

#If VBA7 And Win64 Then

  '64bit版 Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hWnd As LongPtr, lpRect As RECT) As Long

#Else

  '32bit版 Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

#End If