好きに使ってください
第1回、abwiki杯プログラミングコンテストを開催いたします!
:目的
|画面上に256回「エレガント佐藤」を表示させる。
:使用言語
|ActiveBasic(4.24推奨)
:条件
|ActiveBasicで記述すること。特別なモジュールDLLを必要としないこと。
:評価
|ソースの美しさやアルゴリズムはもちろん、実行したときの芸術性なども評価の対象になります。
表示1回毎に色を変えたり音を出したり等、演出を凝らすのは大歓迎です。各自工夫してプログラムしてみましょう。
ネタ大大大歓迎!!
:エントリー
|エントリーする方は、zipで圧縮したソースをアップロードしてください。
必ずドキュメントに、(1)プログラムの簡単な説明、(2)使用したActiveBasicのバージョン、(3)動作すると思われる環境、を記載してください。
#archive
#bf
ActiveBasicユーザーに50の質問 Beta2
(C) 2004- Sinryow
:01.軽く自己紹介をお願いします。
|カズヒコと申します、よろしく。
:02.ActiveBasic(以下"AB")歴は何年ですか?
|6年くらい。
:03.その時ABのバージョンは何でしたか?
|3のどれか。
:04.ABを初めて知ったのはどこですか?
|BASICの処理系の紹介サイト。詳しくは覚えていない。
:05.ABを使うことにした理由は何ですか?
|N88BASICが使えるらしい。
:06.ABを使っての第一印象はいかがでしたか?
|手も足も出ない。
:07.ABを使って予想以上だったことは何ですか?
|RADツール。
:08.それでは,予想以下だったことは何ですか?
|名ばかりのN88BASIC互換性。コンパイラとしての性能。
:09.ABを始める前にやっていたプログラム言語はありますか?それは何ですか?
|N88BASIC。
:10.ABを始めてから始めたプログラム言語はありますか?それは何ですか?
|C/C++/DualBasic。
:11.ABは他の言語と比べてどうだと思いますか?
|中途半端で食べ過ぎてお腹壊した感じ。
:12.ABを使ったことで他の言語を使うのに出た影響はありますか?
|構造化。
:13.逆に,他の言語を使ったことでABを使うのに出た影響はありますか?
|ポインタ。
:14.ABと他の言語を使い分けしていますか?
|いいえ。
:15.ABと,別の言語で作成したプログラムを連携させたソフトを作ったことはありますか?
|はい。
:16.ずばりABの長所は何だと思いますか?
|RADツール。
:17.それではABの短所は何だと思いますか?
|RADツール以外。
:18.ABを使って初めて作ったまともなプログラムは何ですか?
|ファイルのリネームツール。
:19.ABでのプログラミングにはすぐ慣れましたか?
|いいえ。
:20.ABでのプログラミングで最初つまづいたことはありますか?
|N88BASICが通用しないすべての事柄。
:21.ABが自分にもたらした影響はありますか?
|Windowsの知識。WinAPIとか。
:22.ABでのプログラミングで自分の得意分野はありますか?
|致命的なバグ持ちプログラムを作ること。
:23.それでは,不得意分野はありますか?
|すべて。日々勉強。
:24.今後ABでやってみたいことはありますか?
|いいえ。
:25.ABでできたソフトで「これはすごい!」と思ったものはありますか?
|暇人13世さんのActiveBaca。こういった遊び心は大切だと思います。
:26.Discoversoft(※activebasic.com)のサイトはどれ位の頻度で訪問していますか?
|コミュニティのRSSリーダが反応したときだけ。
:27.それ以外のAB関連サイトで頻繁に行っているサイトはありますか?
|なし。
:28.その中で,特におすすめなのはどこですか?
|
:29.AB関連サイト以外で,ABでのプログラム制作に役立てているサイトがあれば教えて下さい。
|MSDN。
:30.AB掲示板などで,よくお世話になるABユーザーがいたら教えて下さい。
|konisiさん。彼しか回答者いない。。。
:31.ActiveBasicウェブリングは知っていますか/入っていますか?
|知っている。
:32.ABユーザーは日本に全部で何人くらいいると思いますか?
|30人。
:33.ABの新バージョンが出ているのを見ると,すぐにバージョンアップするほうですか?
|いいえ。
:34.AB2・AB3・AB4のどれをメインに使っていますか?
|4.24。
:35.N88BASICで作ったソフトをABに移植したことはありますか?その時の感想はどうでしたか?
|はい。面倒。
:37.↑を買った方は,読んでの感想をお願いします。買っていない方はその理由をお願いします。
|
:38.Includeフォルダのファイルはよくいじくりますか?
|たまに。
:39.作成したプログラムソースを,MyProjectsフォルダ以外に保存していますか?
|はい。
:40.デスクトップや「クイック起動」に,ABのショートカットを作っていますか?
|はい。
:41.ABのRADツールの使い心地はどうですか?
|楽。
:42.ABで,RADツールなしでWindowsGUIのプログラムを作れますか?
|はい。
:43.コンソール(#console)とN88BASICモード(#N88BASIC/#prompt)ではどちらを多く使いますか?(笑)
|断然N88BASIC。
:44.ABでプログラムを作成する際,何かこだわっていることがあったら教えて下さい。
|なし。
:45.ABでプログラムを作成する際,何かABそのもの(ProjectEditor.exe,BasicCompiler.exe)以外に使っているアプリケーションはありますか?
|KbMedia Playerで音楽を聴きながら。
:46.今後,ABに期待すること(機能面で)は何ですか?
|落ちないエディタ。
:47.今後,ABに期待すること(全体として)は何ですか?
|ライブラリの充実。
:48.ABの作者・山本さんに一言お願いします。
|素晴らしいソフトをありがとう。
:49.他のABユーザーに一言お願いします。
|愛してる。
:50.最後に一言お願いします。
|こんなABが大好きです。ありがとう。
:532 名前:デフォルトの名無しさん[] 投稿日:2010/04/28(水) 11:58:00
|そうか、あんたも大変だな
:533 名前:デフォルトの名無しさん[] 投稿日:2010/04/29(木) 00:48:09
|探し物は何ですか?
まだまだ探す気ですか?
現在、paintプラグインはご利用いただけません。
void → ぼいど
char → ちゃー
wchar_t → だぶるちゃーてぃー
short → しょーと
int → いんと
long → ろんぐ
signed → さいんど
unsigned → あんさいんど
double → だぶる
float → ふろーと
const → こんすと
volatile → ぼらちれ
static → すたてぃっく
auto → おおと
typedef → たいぷでふ
struct → すとらくと
atoi → あとい
malloc → まろっく
printf → ぷりんとふ
strcpy → すとらこぴー
system → とんとかいも
\n → えんえぬ
<= → くいこーる
→ こめ
; → ころん
→ しゃーぷいんくるーど
テスト
<>
wiki練習用
コメント
#co(){}
{
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ねむかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
むかつくむかつく氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
}
素因数分解
#N88BASIC
Dim num As QWord
*start
Print "素因数分解する数を入力してください。"
Input num
Print soinsuu(num)
Goto *start
Function soinsuu(num As QWord) As String
Dim n As QWord
Dim i As QWord
Dim count As QWord
Dim result As String
n=num
i=2
result=""
While n>1
count=0
While n mod i=0
count++
n=n/i
Wend
If count>0 Then
If count=1 Then result=result+Str$(i)+"*" Else result=result+Str$(i)+"^"+Str$(count)+"*"
End If
i++
Wend
If result="" Then
result=Str$(n)+"*"
End If
soinsuu=Left$(result,Len(result)-1)
End Function
その他
abcdefg
- 555 -- 444 (2010-01-18 04:41:48)
- あ -- あ (2010-01-18 07:08:48)
- 男のポニーテールだけは許せない ポニーテールに対する冒涜。 -- 名無しさん (2010-02-10 13:58:58)
- a -- a (2010-03-07 16:44:05)
- おまえらまだオモチャで遊んでるのか。 はやく大人の言語に移行しろやwww -- 名無しさん (2010-03-07 17:31:12)
- あかさたなはまやらわ -- ああああ (2010-03-14 08:21:40)
- 珍客の宝庫 ABCDE -- 栗山 (2010-04-17 03:49:03)
- てすと -- マントル (2010-04-21 21:21:54)
2024-04-30 14:52:51 (Tue)