Lune de Diamantみちょプロゼミ FreeBASIC初級 第2回

みちよチャンねる『みちょプロゼミ』
小学生のためのプログラミング講座
FreeBASIC 初級コース
第2回 なにができるようになるの？

今回は、このコースを経験したら、なにができるようになるのかを見てみるわ✨

下のZIPファイルをダウンロードして解凍したら、３つのファイルができるから🎶

それを３つとも一緒に『myprog』フォルダの中にコピーしてね😉

そのままの状態でmichyoder.txtをFBiconにドラッグ＆ドロップしたら👀

一緒の場所にmichyoder.exeが出来上がるわ😆

それが、さっきのプログラムから出来上がった実行ファイル🌟

EXEって拡張子のファイルが、Windowsが実行できるファイルなの💎

ちなみにmichyoder.txtの中身のプログラムは、こんな感じよ✨

'//------------------------------------//
'///// みちょだージャンプ ///////////////
'////////////// Created by みっちょ /////
'//------------------------------------//
 
'////////// じゅんび ////////////////////
SCREEN 18
DIM MYX AS INTEGER, MYY AS INTEGER
DIM IMGMY AS ANY PTR, IMGKS AS ANY PTR
DIM I AS STRING, JX AS INTEGER
MYX=288:MYY=384 

'////////// 絵を読みこむ ////////////////
IMGMY = IMAGECREATE(64,64)
BLOAD "michyoder.bmp",IMGMY
IMGKS = IMAGECREATE(640,32)
BLOAD "kusa.bmp",IMGKS 

'////////// メイン //////////////////////
MAIN:
CLS
PUT (0,448),IMGKS
PUT (MYX,MYY),IMGMY
IF JX=1 then MYY=MYY-15
IF MYY<100 THEN JX=2 IF JX=2 THEN MYY=MYY+10 IF MYY>384 THEN
  MYY=384
  JX=0
END IF 

I=INKEY
IF I=CHR(27) THEN GOTO XEND
IF I=" " THEN JX=1 

SLEEP 100,1
GOTO MAIN 
 
'///////// お片付け /////////////////////
XEND:
IMAGEDESTROY(IMGMY)
IMAGEDESTROY(IMGKS) 

あ、INKEYだけ、動画を撮った直後にFreeBASICに仕様変更が入ってて💦

$を付けたらダメになっちゃったから、プログラムは変更してるわ😅

このコースを終わった頃には、みんなこの中身は理解できるようになるし🙂

自分で、似たようなものを作ることができるくらいまでにはなるわ🌟

まだ初級コースだし、ゲームにはちょっと遠いかもしれないけど💦

パソコンくんに、自分のやって欲しいことをやって貰えるようになる第一歩よ✨

プログラミングができれば、パソコンでできることはとっても多くなるから👍

楽しみながら、やってみてね😉

🎁みちょだージャンプの配布ファイルはこちら💙
https://lgbtiqa.com/files/mcyodrjp.zip

関連の投稿

みちょプロゼミ FreeBASIC初級 第20回 みちょプロゼミ FreeBASIC初級 第19回 みちょプロゼミ FreeBASIC初級 第9回 みちょプロゼミ FreeBASIC初級 第10回