iseebi

MODE_EASY      = 1
MODE_DIFFICULT = 2

OP_ADD   = 0
OP_SUB   = 1
OP_MULTI = 2
OP_DIV   = 3

QUESTIONS = 100

iseebi

'------------------------------------------------------------------------------------------
' Amazon Web Service Access Module for VBA
'------------------------------------------------------------------------------------------

Option Explicit
Option Compare Database

' Amazon の Web サービスを使用するのに必要な認証キー
' 会員登録すると発行されます：http://www.amazon.co.jp/gp/feature.html/ref=amb_link_14390606_7/503-5734628-1617548?ie=UTF8&docId=451209
Public Const AmazonDevToken As String = ""

iseebi

require 'rubygems'
require 'mechanize'
require 'hpricot'
require 'twitter'

JOYSOUND_ID_MAIL = ''
JOYSOUND_ID_PASS = ''
TWITTER_ID   = ''
TWITTER_PASS = ''
FLAG_FILE = 'utasukipost.dat'

iseebi

using System;
using System.Collections.Generic;
using System.Linq;
using MonoTouch.Foundation;
using MonoTouch.UIKit;

namespace EbiSoft.Sample
{
	public partial class TableViewSampleViewController : UIViewController
	{

iseebi

using System;
using System.Collections.Generic;
using System.Text;
using EbiSoft.Imadoko.Plugins;
using System.Net;
using System.IO;
using System.Xml.Serialization;

namespace EbiSoft.Imadoko.FormData
{

iseebi

<phone:PhoneApplicationPage
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:phone="clr-namespace:Microsoft.Phone.Controls;assembly=Microsoft.Phone"
    xmlns:shell="clr-namespace:Microsoft.Phone.Shell;assembly=Microsoft.Phone"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    xmlns:System="clr-namespace:System;assembly=mscorlib" 
    x:Class="AjaxIMETest.MainPage"
    SupportedOrientations="Portrait" Orientation="Portrait"

iseebi

void Main()
{
	const string rssNs = "{http://purl.org/rss/1.0/}";
	const string contentNs = "{http://purl.org/rss/1.0/modules/content/}";
	const string dcNs = "{http://purl.org/dc/elements/1.1/}";
	const string hatenaNs = "{http://www.hatena.ne.jp/info/xmlns#}";
	var root = XElement.Load("http://f.hatena.ne.jp/hotfoto?mode=rss");
	var q = root.Descendants(rssNs + "item").Select(e => new HatenaFotolifeItem {
		Title = e.Element(rssNs + "title").Value,
		Link = e.Element(rssNs + "link").Value,

iseebi

using System;
using MonoTouch.UIKit;
using MonoTouch.Foundation;
using System.Collections.Generic;

namespace EbiSoft.Library.iPhone
{ 
	/// <summary>
	/// ATOK Pad と連携するための処理を行うクラスです
	/// </summary>

iseebi

<?xml version="1.0" encoding="utf-8"?>
<SwatchLibrary xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Name="Windows Phone 7" xmlns="http://schemas.microsoft.com/expression/design/2007">
  <SolidColorSwatch Color="#FF000000" />
  <SolidColorSwatch Color="#FFFFFFFF" />
  <SolidColorSwatch Color="#FF181C18" />
  <SolidColorSwatch Color="#FFFF0094" />
  <SolidColorSwatch Color="#FFA500FF" />
  <SolidColorSwatch Color="#FF00AAAD" />
  <SolidColorSwatch Color="#FF8CBE21" />
  <SolidColorSwatch Color="#FF9C4D00" />

iseebi

Option Explicit

Function dirname(ByVal inVal As String, Optional directorySeparater As String = "/") As String
    Dim basenameStr As String
    basenameStr = basename(inVal, directorySeparater)
    If basenameStr <> inVal Then
        dirname = Left(inVal, Len(inVal) - Len(basenameStr) - 1)
    Else
        dirname = "."
    End If