bonprosoft

from azure.storage import BlobService
import os
import sys

BLOB_ACCOUNT = '[Input account name here]'
BLOB_ACCOUNTKEY = '[Input account key here]'
CONTAINER_NAME = '[Input container name here]'

TARGET_DIR = '[Input local data directory here]'

bonprosoft

    class Program
    {
        static void Main(string[] args)
        {

            var foo = SingletonClass<List<string>>.GetInstance();
            foo.Add("bbb");
            foo.Add("aaa");

            var anotherFoo = SingletonClass<List<string>>.GetInstance();

bonprosoft

class Program
{
    static void Main(string[] args)
    {

        var foo = new[] { 0, 1, 2, 3, 4 }.ToArray();
        var bar = new ArraySegment<int>(foo, 0, 2);
        foo[0] = -1;
        Console.WriteLine(ReferenceEquals(foo, bar.Array)); // True
        Console.WriteLine(bar.ElementAt(0)); // -1

bonprosoft

Option Strict On

Imports System.Runtime.InteropServices

''' <summary>
''' 「ちょっとマウスカーソルの位置ってどうやって取得するのさ！」って言われたので、
''' マウスカーソルの座標を取得するサンプルです。
''' VBなら10分もあれば簡単に組めるよ！よ！
''' </summary>
''' <remarks>経過時間(m_Countrer)のところは、(VBのTimerが適当なため)だいぶずれています。

bonprosoft

'言語を作るなら、言語の仕様を再確認！

Module Module1

    Public Function Test() As String

        Return "Hello from Method"

    End Function

bonprosoft

    ''' <summary>
    ''' 変数/引数管理用の補助クラス(VBPP_Variable、及びその派生の中で使用)
    ''' </summary>
    ''' <remarks></remarks>
    Public Class VBPP_VariableType
        ''' <summary>
        ''' ユーザー定義のもの(クラスや構造体など)か、そうでないか
        ''' </summary>
        Public DefineType As VBPP_DefineType

bonprosoft

    'どちらのほうが、パーサーから見ると、扱いやすいのでしょうか...？
    '１.)VBCPP_Statementを継承したクラスに、直に処理内容をつける。
    '２.)VBCPP_Statementを継承したクラスにはVBCPP_IfStatementのクラスを結びつけるだけで、
    '    処理内容は、単独のVBCPP_IfStatementクラスにつける。

    '1.)の実装例
    Public Class IfStatement
        Inherits VBCPP_Statement

bonprosoft

Option Strict On
Module Module1
    Sub Main()
        'わかりやすくするために、一旦宣言
        Dim str As String

        'ここを知りたい！
        str = GenerateClass("bonpro").GetGreeting
        '出力  ->結果: Hello,bonpro
        Console.WriteLine(str)

bonprosoft

Option Strict On

Module Module1
    Sub Main()
        Dim TestClass As New TestClass
        '<Output> Test.TestClass ->クラスが読み込まれた(同じ階層の変数名を発見して処理が終わった)
        Console.WriteLine(TestClass.ToString)
        '<Output> Function.TestClass ->関数が読み込まれた(1つ階層が上がったところで処理が終わった)
        Console.WriteLine(TestClass2.ToString)

bonprosoft

Option Strict On

'今回は単に編集した情報を拾うだけなので、非常に原始的な方法でやってます...！
'(記事: http://www.bonprosoft.com/modules/blog/?p=282 )

Public Class Form1
    Public WithEvents oSkype As SKYPE4COMLib.Skype

    Private m_status As ReplyStatus
    Private m_timeStamp As Integer