nalulabo

dim voices[] = ""
recostate(true)
voice = dictate()
repeat
    resize(voices, length(voices))
    voices[length(voices) -1] = voice
    voice = dictate()
until voice = "終わり"
dim f = fopen("voice.txt", f_write)
fput(f, trim(join(voices,"<#cr>")))

nalulabo

Option Explicit

Sub powerpo()
    Dim s As Slide
    Dim sh As Shape
    Dim tr As TextRange
    Dim fr As TextRange
    
    Set s = Presentations(1).Slides(1)
    For Each sh In s.Shapes

nalulabo

Sub note_mu()
    Dim a As New ADOX.Catalog
    Dim mdb As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim fi As Variant
    Dim constr As String
    Dim dbpath As String
    Dim row() As String
    
    '' データベース接続用

nalulabo

Option Explicit

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Macro1()
    Dim moon As Shape
    Set moon = ActiveSheet.Shapes.AddShape(msoShapeMoon, 162, 55, 145.5, 135)
    With moon
        .ShapeStyle = msoShapeStylePreset61
        .Adjustments.Item(1) = 0.13918

nalulabo

Sub note_mu()
    Const tablerange As String = "A1:C16"
    Const pivotrange As String = "E1"
    Dim cache, piv As PivotTable
    Dim field As PivotField
    Dim pivchart, delchart As Shape
    
    For Each cache In Sheet1.PivotTables
        If Format(Now, "ピボットyyyymmdd") = cache.Name Then
            For Each delchart In Sheet1.Shapes

nalulabo

# Welcome to Sonic Pi v2.9
use_bpm 132
live_loop :nalulabo do
  with_fx :echo, mix: 0.8 do
    use_synth :prophet
    cue :tick
    play chord(:e4, :minor).choose, attack: 0,release: 0.2, cutoff: rrand(80, 100)
    sleep 0.75
    play chord(:e4, :minor).choose, attack: 0,release: 0.1, cutoff: rrand(80, 100)
    sleep 0.75