[ 2009/11/19 更新 ] ☆☆☆ かってに ＶＢ ☆☆☆
情報化社会の発展を図る活動として、
( 単にＮＰＯ協賛活動として )
無料で利用可能な、Linuxの普及の為、
★ Linuxで、インターネット等を、
ＭＳ−Ｗｉｎｄｏｗｓ と同じ様に
快適にする情報を無料提供。
410-0022 JAPAN by H.MATSUMOTO ( MACMIL.CO.JP (有)松商商会 )
・PC9801, DOS/V, Win9X, Win2000,WinXP, UNIX, Linux の各種ソフト作成、
メインは、Ｃ(言語)、現在は、Linux ３０台位使用して、システム研究開発中。
27年近く(PC8001 〜 現在まで)、各種業務システム構築の現役者が提供。(松本英男)
"マックミル" は、(有)松商商会 の登録商標です。( MACMIL.CO.JP )
当HPでの "かってに" は、観自在(かんじざい)的、意味合いの方の、
"自由に(freely)"である [ 義務を果たしたうえでの ]
上記コーナー( かってにLinux )の、アクセス増大に伴い、
同コーナーに、毎日情報追加中！！
Linuxで、民放TV録画(予約)しながら、インターネット等利用してます。
( 当方の Linux ツールは、通常のTVが不要の為、協会受信不可 )
( 光インターネットTV Gyao, YAHOO TVが、無料で可能 )
快適で、しかも、無料ソフトが、たくさん手に入ります。
ＭＳ−Ｗｉｎｄｏｗｓに比べ、お金がかかりません。
実際に利用した際の各種情報を無料で、
上記コーナーで、毎日情報提供中！！
●検索は、Ctrl + F で。
・もっと下側に、サンプル画像がありますよ！！
・macmil.dll を使用した場合、
MS-DOS, Win9X, Win2000, WinXP, Linux(UNIX) で、
共通の、モジュールが使用でき、システムソフト等の
作制コスト、改造が容易に可能となり、資産のムダが
ありません。
・VB で、DOS画面風に作りたいのだが.....
N88BASIC みたいな 80chr x 25xhr の画面に配置したい.....
NEC PC-PR201 等のラインプリンタに、１行づつ印刷したい.....
画像を画面の好きな位置に表示したい.....
そこで、せめて画面出力だけでも上記の様にできればと、
作制してみました。
当方の、ダウンロードにある、macmil.dll が、VC, VB から
利用可能なので、それを使用します。
ソフトダウンロードから、ダウンロードするもの
"macmil.dll"
"macmil.bas" ( VB で、macmil.dll を使うモジュール )
NEC PC-PR201 等のラインプリンタに、１行づつ印刷するには、
Call open_LPT1_win() '印刷開始宣言
Call klprint2("TEST印刷")
Call lcrlf() '改行
| '必要なだけ、印刷
du$ = Chr(12) '改頁
Call lprint2(du$)
Call close_LPT1_win() '印刷終了宣言
上記の様に、印刷開始宣言と、印刷終了宣言 する以外は、
N88BASIC と同じ様に、簡単に印刷できます。
(プリンタドライバの、双方向サポートは必ず無効にして下さい)
とりあえず、サンプルを下に表示しておきますが、
"macmil.bas" モジュールを現在、更新しておりますので、
ある程度できた時点で、C のサンプル(ソフトダウンロードにある)と
同じ様に、VBサンプルも、ダウンロードできるようにします。
★ ソフトダウンロードへ行くには、下の方にリンクがあります。
・以下に、macmil.dll の機能の一覧を表示しますが、macmil.bas では、
とりあえず、一部の機能のみサポートしています。( C では、全て使用可能 )
・詳細のファイルは、★ ソフトダウンロードに、ありますので、
ダウンロードして使用して下さい。
・下記の機能は、PC9801, DOS/V, Win9X, Win2000, WinXP, UNIX, Linux を
サポートし、実際に 27年近く(PC8001 〜 現在まで)、実践で各種業務に
使用して来ているものです。
ＩＴ利用先進度(2003/11/19現在)、
日本は、178カ国中、１５位で、
韓国、香港、台湾にも、負けている。
世界の、１５位から、
ベスト８に、入れるように、
情報化社会の発展を図る活動として、
各種、実践済みの、ツール、部品、情報等を
無料提供中！
・PC9801, DOS/V, Win9X, Win2000,
WinXP, UNIX, Linux をサポートし、
実際に 27年近く(PC8001 〜 現在まで)、
実践で各種業務に使用して来ているものです。
410-0022 JAPAN by H.MATSUMOTO
( MACMIL.CO.JP (有)松商商会 )
★ ソフトダウンロードへ
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-----<< start 機能一覧 >>---------------------------------------------------
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
【 グレゴリオ暦 】 [ afterday(), calendisp(), dayspan(), youbi() ]
太陽暦法の一種。1582年10月、ローマ法王グレゴリウス十三世により施行された。
当時使用されていたユリウス暦は1年の平均日数が365.25日であったため、
この暦法に従って閏(うるう)日を置いていると、100年間で18時間、1000年で8日近く
実際の季節と相違をきたし、真の春分は暦上の春分よりそれだけ早くなる。
16世紀終わりころになると、325年にニカイアの宗教会議で定められた3月21日の
春分は3月11日となり、10日も早まった状態となった。
ときのローマ法王グレゴリウス十三世は、1582年の春分が3月21日となるように
10日間を省いて10月4日の次の日を15日とし、将来も相違がおきないようにするため、
4年に一度閏年を置いたそれまでの置閏(ちじゆん)法を改め、
「西暦紀元年数が四で割り切れる年を閏年とする。ただし100で割り切れる年のうち
四で割り切れない年は平年とする。閏日は2月28日の次の日に置く」とした。
これをグレゴリオ暦という。
この置閏法によると1年の平均日数は (365日x303+366日x97)/400=365.2425日と
なり、100年に0.03日、1万年で3日の違いである。
1万年で3日の狂いは実際問題として日常生活の妨げとなるほどのものではない。
この改暦にはクラビウスが大いに寄与している。
グレゴリオ暦は置閏法が簡明であり、しかもその誤差も小さいので、
今日世界の各国で採用している [ スーパー・ニッポニカより ]
グレゴリオ暦 1582/10/15 〜
C0
C0
C0 ==========================================================================
C1 ========== 画面操作 ====================================================
C2 ==========================================================================
C3
C9 attr_conv_98 .............................................. ibmlib01.txt
C9 attr_conv_at .............................................. ibmlib01.txt
C9 attr_sub .................................................. ibmlib01.txt
C9 blockcls .................................................. ibmlib01.txt
C9 cls ....................................................... ibmlib01.txt
C9 cls_line .................................................. ibmlib01.txt
C9 color ..................................................... ibmlib01.txt
C9 ucrt_sub .................................................. ibmlib06.txt
C9 locate .................................................... ibmlib03.txt
C9 ubox_print ................................................ ibmlib06.txt
F0
F0
F0 ==========================================================================
F1 ========== 入出力ルーチン ==============================================
F2 ==========================================================================
F3
F6 fkey ...................................................... ibmlib02.txt
F6 fkey_init ................................................. ibmlib02.txt
F9 func_disp ................................................. ibmlib02.txt
F6 getch2 .................................................... ibmlib03.txt
F9 get_key_sts [WIN] ......................................... ibmlib03.txt
F6 inkey ..................................................... ibmlib03.txt
F6 inkey_close ............................................... ibmlib03.txt
F6 inkey_open ................................................ ibmlib03.txt
F6 inkey_usleep_2 ............................................ ibmlib03.txt
F6 key_buff_clr .............................................. ibmlib03.txt
F6 kmode_off ................................................. ibmlib03.txt
F6 kmode_open ................................................ ibmlib03.txt
F6 print ..................................................... ibmlib04.txt
F6 print2 .................................................... ibmlib04.txt
F6 putchar2 .................................................. ibmlib04.txt
F6 uprint .................................................... ibmlib04.txt
F6 uprint2 ................................................... ibmlib04.txt
F6 text_crt_off .............................................. ibmlib06.txt
F6 text_crt_on ............................................... ibmlib06.txt
F6 xinput1 ................................................... ibmlib06.txt
F6 xinput2 ................................................... ibmlib06.txt
F6 xinput3 ................................................... ibmlib06.txt
F6 xinput4 ................................................... ibmlib06.txt
F7
F8 ---------- 入出力ルーチン ( FILE ) -------------------------------------
F9 check_drive [WIN] ......................................... ibmlib01.txt
F9 check_fd .................................................. ibmlib01.txt
F9 dskf ...................................................... ibmlib02.txt
F9 file_len .................................................. ibmlib02.txt
F9 get_data .................................................. ibmlib03.txt
F9 get_data_hand [W32] ....................................... ibmlib03.txt
F9 get_master ................................................ ibmlib03.txt
F9 get_r ..................................................... ibmlib03.txt
F9 get_rmax .................................................. ibmlib03.txt
F9 get_rmax2 ................................................. ibmlib03.txt
F9 get_rmax2_hand [W32] ...................................... ibmlib03.txt
F9 init_pip .................................................. ibmlib03.txt
F9 msload2 ................................................... ibmlib04.txt
F9 mssave2 ................................................... ibmlib04.txt
F9 put_data .................................................. ibmlib04.txt
F9 put_data_hand [W32] ....................................... ibmlib04.txt
F9 put_master ................................................ ibmlib04.txt
F9 put_r ..................................................... ibmlib04.txt
F9 put_rmax .................................................. ibmlib04.txt
F9 put_rmax2 ................................................. ibmlib04.txt
F9 put_rmax2_hand [W32] ...................................... ibmlib04.txt
F9 set_drive_all [WIN] ....................................... ibmlib04.txt
G0
G0
G0 ==========================================================================
G1 ========== グラフィクス ================================================
G2 ==========================================================================
G3
G9 bmp_g_x_y_width ........................................... ibmlib01.txt
G9 calc_g_x_y_width .......................................... ibmlib01.txt
G9 disp_bmp_file [WIN] ....................................... ibmlib02.txt
G9 disp_image [UNIX] ......................................... ibmlib02.txt
G9 disp_jpeg_unix [UNIX] ..................................... ibmlib02.txt
G9 disp_jpeg_win [WIN] ....................................... ibmlib02.txt
G9 disp_wimage_true [WIN] .................................... ibmlib02.txt
G9 gram_all .................................................. ibmlib03.txt
G9 gram_cls .................................................. ibmlib03.txt
G9 gram_init ................................................. ibmlib03.txt
G9 gram_off .................................................. ibmlib03.txt
G9 gram_on ................................................... ibmlib03.txt
G9 jpeg_g_x_y_width .......................................... ibmlib03.txt
G9 x_pset .................................................... ibmlib06.txt
G9 x_circle .................................................. ibmlib06.txt
G9 save_crt_data ............................................. ibmlib05.txt
I0
I0
I0 ==========================================================================
I1 ========== 割り込み ====================================================
I2 ==========================================================================
I3
I9 nothing
L0
L0
L0 ==========================================================================
L1 ========== ロック関数 ==================================================
L2 ==========================================================================
L3
L9 lock2 ..................................................... ibmlib03.txt
L9 unlock2 ................................................... ibmlib06.txt
M0
M0
M0 ==========================================================================
M1 ========== 文字列操作, 漢字 ============================================
M2 ==========================================================================
M3
M9 akcnv ..................................................... ibmlib01.txt
M9 akcnv2 .................................................... ibmlib01.txt
M9 asc2bin ................................................... ibmlib01.txt
M9 ascbin .................................................... ibmlib01.txt
M9 bcdpack ................................................... ibmlib01.txt
M9 bcdunpack ................................................. ibmlib01.txt
M9 bin2asc ................................................... ibmlib01.txt
M9 binasc .................................................... ibmlib01.txt
M9 bstr ...................................................... ibmlib01.txt
M9 bstr2 ..................................................... ibmlib01.txt
M9 bstrl ..................................................... ibmlib01.txt
M9 catdbuff .................................................. ibmlib01.txt
M9 catsbuff .................................................. ibmlib01.txt
M9 cbuff ..................................................... ibmlib01.txt
M9 chrl ...................................................... ibmlib01.txt
M9 chrs ...................................................... ibmlib01.txt
M9 cmpbuff ................................................... ibmlib01.txt
M9 delbuff ................................................... ibmlib02.txt
M9 delspc .................................................... ibmlib02.txt
M9 delspc_r .................................................. ibmlib02.txt
M9 delzero ................................................... ibmlib02.txt
M9 delzero2 .................................................. ibmlib02.txt
M9 dleadd .................................................... ibmlib02.txt
M9 dlesub .................................................... ibmlib02.txt
M9 ebcdic .................................................... ibmlib02.txt
M9 eskanji ................................................... ibmlib02.txt
M9 filstr .................................................... ibmlib02.txt
M9 gbuff ..................................................... ibmlib02.txt
M9 jis8 ...................................................... ibmlib03.txt
M9 jkanji .................................................... ibmlib03.txt
M9 mebcdic ................................................... ibmlib03.txt
M9 mjis8 ..................................................... ibmlib03.txt
M9 mid ....................................................... ibmlib03.txt
M9 midbuff ................................................... ibmlib03.txt
M9 midg ...................................................... ibmlib03.txt
M9 midpbuff .................................................. ibmlib03.txt
M9 pbuff ..................................................... ibmlib04.txt
M9 posbuff ................................................... ibmlib04.txt
M9 posrbuff .................................................. ibmlib04.txt
M9 rightbuff ................................................. ibmlib05.txt
M9 sekanji ................................................... ibmlib05.txt
M9 skanji .................................................... ibmlib05.txt
M9 str_cat ................................................... ibmlib06.txt
M9 str_cmp ................................................... ibmlib06.txt
M9 str_cpy ................................................... ibmlib06.txt
M9 str_len ................................................... ibmlib06.txt
M9 strfill ................................................... ibmlib06.txt
M9 strmid .................................................... ibmlib06.txt
M9 strpos .................................................... ibmlib06.txt
M9 strrpos ................................................... ibmlib06.txt
M9 using ..................................................... ibmlib06.txt
M9 using2 ( for VC++ )
M9 using_d ( for double ) .................................... ibmlib06.txt
M9 using_long_sub2 ........................................... ibmlib06.txt
P0
P0
P0 ==========================================================================
P1 ========== プリンター ==================================================
P2 ==========================================================================
P3
P9 attr_lprint ............................................... ibmlib01.txt
P9 barcode ................................................... ibmlib01.txt
P9 barcode2
P9 barcode3
P9 box_lprint ................................................ ibmlib01.txt
P9 copy2 ..................................................... ibmlib02.txt
P9 close_lprint_win [WIN] .................................... ibmlib01.txt
P9 c_printer ................................................. ibmlib01.txt
P9 klprint ................................................... ibmlib03.txt
P9 lcrlf ..................................................... ibmlib03.txt
P9 lprint .................................................... ibmlib03.txt
P9 lprint2 ................................................... ibmlib03.txt
P9 lprint_bmp_file [WIN] ..................................... ibmlib03.txt
P9 lprint_win [WIN] .......................................... ibmlib03.txt
P9 mslprint .................................................. ibmlib04.txt
P9 mslprint2 ................................................. ibmlib04.txt
P9 open_lprint_win [WIN] ..................................... ibmlib04.txt
P9 tail_lprint ............................................... ibmlib06.txt
P9 text_lprint ............................................... ibmlib06.txt
Q0
Q0
Q0 ==========================================================================
Q1 ========== ソート、サーチ ==============================================
Q2 ==========================================================================
Q3
Q9 usearch1 .................................................. ibmlib06.txt
Q9 usearch2 .................................................. ibmlib06.txt
Q9 usort ..................................................... ibmlib06.txt
R0
R0
R0 ==========================================================================
R1 ========== 通信 ========================================================
R2 ==========================================================================
R3
R7 com1get ................................................... ibmlib02.txt
R7 com_get ................................................... ibmlib02.txt
R7 com_put ................................................... ibmlib02.txt
R7 cputget ................................................... ibmlib02.txt
R7 crget ..................................................... ibmlib02.txt
R7 crlfput ................................................... ibmlib02.txt
R7 hayes ..................................................... ibmlib03.txt
R7 rsclose ................................................... ibmlib05.txt
R7 rscrget ................................................... ibmlib05.txt
R7 rsget ..................................................... ibmlib05.txt
R7 rsinit .................................................... ibmlib05.txt
R7 rsinput ................................................... ibmlib05.txt
R7 rsopen .................................................... ibmlib05.txt
R7 rsprint ................................................... ibmlib05.txt
R7 rsput ..................................................... ibmlib05.txt
R7 rsread .................................................... ibmlib05.txt
R7 rswrite ................................................... ibmlib05.txt
R7 setbaud ................................................... ibmlib05.txt
R7 setterm ................................................... ibmlib05.txt
R7 tel_in2 ................................................... ibmlib06.txt
R7 tel_out2 .................................................. ibmlib06.txt
R7 ucom_file ................................................. ibmlib06.txt
R7 wait_connect .............................................. ibmlib06.txt
R8 ---------- SOCKET ------------------------------------------------------
R9 accept .................................................... ibmlib0?.txt
R9 close_accept1 ............................................. ibmlib0?.txt
R9 close_socket .............................................. ibmlib0?.txt
R9 open_socket ............................................... ibmlib0?.txt
R9 open_socket_client ........................................ ibmlib0?.txt
R9 open_socket_server ........................................ ibmlib0?.txt
R9 write_socket .............................................. ibmlib0?.txt
S0
S0
S0 ==========================================================================
S1 ========== 数値演算 ====================================================
S2 ==========================================================================
S3
S9 bcc ....................................................... ibmlib01.txt
S9 bcc2 ...................................................... ibmlib01.txt
S9 bcc_long .................................................. ibmlib01.txt
S9 crc ....................................................... ibmlib02.txt
S9 cvd ....................................................... ibmlib02.txt
S9 cvi ....................................................... ibmlib02.txt
S9 cvl ....................................................... ibmlib02.txt
S9 cvs ....................................................... ibmlib02.txt
S9 ecc ....................................................... ibmlib01.txt
S9 fmod2 ..................................................... ibmlib02.txt
S9 gcvt2 ..................................................... ibmlib03.txt
S9 hex2 ...................................................... ibmlib03.txt
S9 hex4 ...................................................... ibmlib03.txt
S9 hex8 ...................................................... ibmlib03.txt
S9 hexval .................................................... ibmlib03.txt
S9 hexvallong ................................................ ibmlib03.txt
S9 mkd ....................................................... ibmlib04.txt
S9 mki ....................................................... ibmlib04.txt
S9 mks ....................................................... ibmlib04.txt
S9 pow2 ...................................................... ibmlib04.txt
S9 random2 ................................................... ibmlib05.txt
S9 randomize2 ................................................ ibmlib05.txt
S9 val ....................................................... ibmlib06.txt
S9 vallong ................................................... ibmlib06.txt
T0
T0
T0 ==========================================================================
T1 ========== タイマー、時刻、日付管理、乱数 ==============================
T2 ==========================================================================
T3
T9 afterday .................................................. ibmlib01.txt
T9 calc_gmt_sec .............................................. ibmlib01.txt
T9 calc_week_no .............................................. ibmlib01.txt
T9 calendisp ................................................. ibmlib01.txt
T9 dayspan ................................................... ibmlib02.txt
T9 gengou .................................................... ibmlib03.txt
T9 msecint ................................................... ibmlib04.txt
T9 msecmin ................................................... ibmlib04.txt
T9 msecstr ................................................... ibmlib04.txt
T9 msecsub ................................................... ibmlib04.txt
T9 seireki ................................................... ibmlib05.txt
T9 set_date .................................................. ibmlib05.txt
T9 set_time .................................................. ibmlib05.txt
T9 sleep_cnt_sub ............................................. ibmlib06.txt
T9 sleep_cnt_sub_hund ........................................ ibmlib06.txt
T9 stpdate ................................................... ibmlib06.txt
T9 stptime ................................................... ibmlib06.txt
T9 stptime_hund .............................................. ibmlib06.txt
T9 usleep_2 .................................................. ibmlib06.txt
T9 usleep_2_sys5 ............................................. ibmlib06.txt
T9 youbi ..................................................... ibmlib06.txt
Y0
Y0
Y0 ==========================================================================
Y1 ========== メモリ、プロテクトメモリ操作 ================================
Y2 ==========================================================================
Y3
Y9 calcaddr32 ................................................ ibmlib01.txt
Y9 calcspage ................................................. ibmlib01.txt
Y9 mstrget ................................................... ibmlib04.txt
Y9 mstrput ................................................... ibmlib04.txt
Y9 peekb [MSC] ............................................... ibmlib04.txt
Y9 peekw [MSC] ............................................... ibmlib04.txt
Y9 pokeb [MSC] ............................................... ibmlib04.txt
Z0
Z0
Z0 ==========================================================================
Z1 ========== その他 ======================================================
Z2 ==========================================================================
Z3
Z9 beep ...................................................... ibmlib01.txt
Z9 beep_off .................................................. ibmlib01.txt
Z9 beep_on ................................................... ibmlib01.txt
Z9 check_code39 .............................................. ibmlib01.txt
Z9 check_peekmsg [WIN] ....................................... ibmlib01.txt
Z9 shutdown.exe [WIN] ........................................ ibmlib05.txt
Z9 system_run_wait [WIN] ..................................... ibmlib06.txt
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-----<< start 機能一覧 >>---------------------------------------------------
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
=====<< 上記画像のサンプル >>=====
VERSION 5.00
' .ps20
' xvbmain.frm
' ver 1.2
' jul.16,2002
' jun.20,1998
' by H.MATSUMOTO [ 055-952-4040 ]
' .ps99
' Copyright (C) 1998-2002 by H.MATSUMOTO [ 055-952-4040 ]
' 制作・著作 by H.MATSUMOTO
' (各自の責任において、配布は自由です)
Begin VB.Form Xvbmain
Caption = "X VB Main"
ClientHeight = 7260
ClientLeft = 60
ClientTop = 345
ClientWidth = 9660
LinkTopic = "Form1"
ScaleHeight = 7260
ScaleWidth = 9660
StartUpPosition = 3 'Windows の既定値
Begin VB.PictureBox Picture1
Height = 6080
Left = 0
ScaleHeight = 6015
ScaleWidth = 9675
TabIndex = 5
Top = 0
Width = 9735
End
Begin VB.CommandButton cmdDemo
Caption = "開始"
Height = 345
Left = 120
TabIndex = 0
Top = 6360
Width = 1095
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "ＭＳ Ｐゴシック"
Size = 12
Charset = 128
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 7200
TabIndex = 4
Text = "Text6"
Top = 6840
Width = 2295
End
Begin VB.Timer Timer1
Interval = 500
Left = 480
Top = 6840
End
Begin VB.Label labe1
BackStyle = 0 '透明
BorderStyle = 1 '実線
Caption = "選ばれたボタンを表示します。"
BeginProperty Font
Name = "ＭＳ Ｐゴシック"
Size = 12
Charset = 128
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 795
Left = 1440
TabIndex = 1
Top = 6360
Width = 2895
End
Begin VB.Label labe2
BackStyle = 0 '透明
Caption = "test "
BeginProperty Font
Name = "ＭＳ Ｐゴシック"
Size = 12
Charset = 128
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 4440
TabIndex = 2
Top = 6360
Width = 2415
End
Begin VB.Label Label_Date
Caption = "****/**/**"
BeginProperty Font
Name = "ＭＳ Ｐゴシック"
Size = 12
Charset = 128
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7200
TabIndex = 3
Top = 6120
Width = 1335
End
Begin VB.Label Label_Time
Caption = "**:**:**"
BeginProperty Font
Name = "ＭＳ Ｐゴシック"
Size = 12
Charset = 128
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 8640
TabIndex = 6
Top = 6120
Width = 975
End
End
Attribute VB_Name = "Xvbmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit '未宣言の変数使用時、エラーが発生する
Private Sub cmdDemo_Click()
If (End_flag <> ) Then
cmdDemo.Caption= "終了"
Call dlltest2
End If
cmdDemo.Caption= "開始"
End_flag = 888
End Sub
'===================================================================
Sub Form_Initialize()
''' 開始処理
End_flag = 111
End Sub 'Form_Initialize
Private Sub Timer1_Timer()
Dim date1$
Dim time1$
date1$ = String(256, Chr(0)) 'init
time1$ = String(256, Chr(0)) 'init
Call stpdate(date1$)
Call print2(66 - 3, 0, &HA1, date1$)
Call stptime(time1$)
Call print2(75 - 3, 0, &HA1, time1$)
'日付と時間の表示
''' Label_Date.Caption = Format(Date, "yyyy年mm月dd日")
''' Label_Time.Caption = Format(Time, "hh時mm分ss秒")
Label_Date.Caption = Format(Date, "yyyy/mm/dd")
Label_Time.Caption = Format(Time, "hh:mm:ss")
End Sub
Sub Form_Terminate()
''' 終了処理
''' Call usleep_2(300&) ' 100& -> 1sec ( sec_cnt& * 10msec )
Call del_hdc_mem
End_flag = 999
End Sub 'Form_Terminate
Sub Picture1_Paint()
'+++++++++++++++++++++++++++++++++++
''''' Begin VB.PictureBox Picture1
''''' Height = 6080
''''' Left = 0
''''' ScaleHeight = 6015
''''' ScaleWidth = 9675
''''' TabIndex = 5
''''' Top = 0
''''' Width = 9735
''''' End
'+++++++++++++++++++++++++++++++++++
'/*===<< Windows は、ピクセル単位で描画します >>===*/
''' これは、使用しないこと(dllで表示できなくなる) -> Picture1.AutoRedraw= True
''' Picture1.Refresh は使用しないこと
Dim c_no&
Dim du_long&
Dim du$
du$ = String(256, Chr(0)) 'init
If (End_flag <> ) Then
Call set_hdc(Picture1.hwnd, Picture1.hdc, 8, 16)
Picture1.ScaleMode = vbPixels
Picture1.BackColor = RGB(&H0, &H0, &H20) ' Back_win_color= 0x000020L; ("xwinmain.h")
Picture1.Cls 'MainPicをクリアする
Call put_hdc_mem '***** need Call del_hdc_mem()
Call initgraph(du_long, du_long, du$) ' all dummy data
End If
Call get_hdc_mem ' Call put_hdc_mem() の処理の後に実施
c_no = 13 '( 9:blue, 12:red, 13:magenta, 10:green, 11:cyan, 14:yellow )
Call setcolor(c_no)
' Call setfillstyle(1, c_no) ' 1 -> SOLID_FILL
Call bar(0, 280, 639, 290)
c_no = 14 '( 9:blue, 12:red, 13:magenta, 10:green, 11:cyan, 14:yellow )
Call setcolor(c_no)
' Call setfillstyle(1, c_no) ' 1 -> SOLID_FILL
Call bar(0, 290, 639, 300)
Call set_def_rgb_16(&HCC, &H99, &HFF)
' "#f7f3f7" white に近い
' "#f0f0f0" white に近い
' "#e6e6e6" うすいグレイに近い
' "#575757" グレイに近い
' "#fff8dc" うすい肌色 に近い
' "#e0e0d0" うすい肌色 に近い
' "#fff0aa" アイボリー に近い
' "#ff9999" 赤pink に近い
' "#f7cfd6" pink に近い
' "#99ccff" blue に近い
' "#55e1d5" 水色 に近い
' "#84e138" 黄緑 に近い
' "#cc99ff" 紫 に近い
' "#4bcf30" green に近い
' "#00fd10" 緑
c_no = 16 '( used set_def_rgb_16() )
Call setcolor(c_no)
Call setfillstyle(1, c_no) ' 1 -> SOLID_FILL
''' Call bar(0, 300, 639, 350)
'/* circle は、使用不可 */
Call circle2(150, 50, 50)
'/* arc 30 to 330 */
Call arc(150, 150, 30, 330, 50)
Call print2(0, 0, &H85, " Paint ")
''' End_flag = ' 最初の、 Sub の中で実施のこと
End Sub 'Picture1_Paint
Sub Picture1_GotFocus()
''''' Dim sts1& ' Long
''''' Dim wait_flag& ' Long
''''' Dim system_name$
''''' system_name$ = String(256, Chr(0)) 'init
''''' wait_flag& = 1
''''' system_name$ = "\bc\xedatw32.exe"
''''' sts1& = system_run_wait(wait_flag&, system_name$)
Call get_hdc_mem ' Call put_hdc_mem() の処理の後に実施
Call print2(0, 0, &HA5, " GotFocus ")
End Sub 'Picture1_GotFocus
'===================================================================
'===================================================================
Sub dlltest2()
Attribute dlltest2.VB_ProcData.VB_Invoke_Func = " \n14"
Dim dummy As Integer
Dim date_len&
Dim sts1&
Dim after_day&
Dim day_span&
Dim week_no&
Dim youbi_cnt&
Dim mounth_2&
Dim wait_flag&
Dim sec_hund_long&
Dim t_min&
Dim t_msec&
Dim cnt&
Dim double_du1#
Dim date1$
Dim time1$
Dim ldata$
Dim day$
Dim gengou_name$
Dim gengou_date$
Dim system_name$
Dim work$
Dim data99$
Dim du$
Dim du2$
date1$ = String(256, Chr(0)) 'init
time1$ = String(256, Chr(0)) 'init
ldata$ = String(256, Chr(0)) 'init
day$ = String(256, Chr(0)) 'init
gengou_name$ = String(256, Chr(0)) 'init
gengou_date$ = String(256, Chr(0)) 'init
system_name$ = String(256, Chr(0)) 'init
work$ = String(256, Chr(0)) 'init
data99$ = String(256, Chr(0)) 'init
du$ = String(256, Chr(0)) 'init
End_flag = ' 最初の、 Sub の中で実施のこと
du2$ = " abc"
Call cnv_cc_data(du2$)
Call delspc_r(du2$)
Call cnv_vb_data(du2$)
' Range("D1").Select
' ActiveCell.FormulaR1C1 = du2$
double_du1# = -789876543.14159
Call using_d(double_du1#, 18, 3, 1, 1, data99$)
Call cnv_vb_data(data99$)
' Range("B1").Select
' ActiveCell.FormulaR1C1 = data99$
double_du1# = -12345678901234#
Call using_d(double_du1#, 18, 0, 0, 0, work$)
Call cnv_vb_data(work$)
' Range("B2").Select
' ActiveCell.FormulaR1C1 = work$
'aaaaaaaaaa
labe2.Caption = work$
'aaaaaaaaaa
used_auto_lprint = 1
''' Call set_used_auto_lprint(used_auto_lprint)
wait_flag& = 1
system_name$ = "\mc\xgraph01.exe"
''' sts1& = system_run_wait(wait_flag&, system_name$)
' Range("A1").Select
' ActiveCell.FormulaR1C1 = sts1&
after_day& = 2
week_no& = 0
Call stpdate(date1$)
day$ = "20" + date1$
' Range("A2").Select
' ActiveCell.FormulaR1C1 = day$
day$ = Chr(str_len(day$)) + day$
Call gengou(day$, gengou_name$, gengou_date$)
''' Call open_lprint_win
''' Call lprint_win(gengou_name$)
du$ = Chr(1) & Chr(12)
''' Call lprint_win(du$)
''' Call close_lprint_win
' (プリンタドライバの、双方向サポートは必ず無効にして下さい)
' Call open_LPT1_win()
' Call klprint(data99$)
' Call lcrlf()
' Call klprint(work$)
' Call lcrlf()
' Call klprint(gengou_name$)
' Call lcrlf()
' Call klprint(gengou_name$)
' Call lcrlf()
' du$ = Chr(1) & Chr(12)
''' Call lprint(du$)
' Call close_LPT1_win()
Call afterday(after_day&, week_no&, day$)
Call cnv_vb_data(day$)
' Range("A3").Select
' ActiveCell.FormulaR1C1 = week_no&
' Range("A4").Select
' ActiveCell.FormulaR1C1 = day$
'*********************************
'/*===<< Windows は、ピクセル単位で描画します >>===*/
''' これは、使用しないこと(dllで表示できなくなる) -> Picture1.AutoRedraw= True
''' Picture1.Refresh は使用しないこと
'''***** Picture1.Picture= LoadPicture("c:\bc\tanuki.bmp")
Call disp_bmp_file("c:\bc\tanuki.bmp", 320, 0)
Picture1.Line (540, 160)-(639, 192), RGB(255, 0, 0), BF
Call print2(0, 0, &H25, "1")
Call print2(1, 0, &H85, "2")
Call print2(2, 0, &HA5, "3")
Call print2(3, 0, &HC5, "4")
Call print2(1, 1, &H45, "拝啓testdataprint")
Call print2(2, 2, &H65, "拝啓testdataprint")
Call print2(3, 3, &H85, "拝啓testdataprint")
Call print2(4, 4, &HA5, "拝啓testdataprint")
Call print2(5, 5, &HC5, "拝啓testdataprint")
Call print2(6, 6, &HE5, "拝啓testdataprint")
'''*** Call set_hdc(Picture1.hdc, 16, 16)
Call print2(7, 7, &H1C5, "拝啓testdataprint")
Call bstr(32767, data99$)
Call print1(0, 9, &H1A1, data99$)
Call bstr2(-32767, data99$)
Call print1(6, 9, &H1A1, data99$)
Call bstrl(123456789, data99$)
Call print1(13, 9, &H1A1, data99$)
Call print2(0, 19, &HC5, day$)
Call print2(0, 20, &H65, "00000000001111111111222222222233333333334444444444555555555566666666667777777")
Call print2(0, 21, &HE5, "00000000001111111111222222222233333333334444444444555555555566666666667777777")
Call print2(0, 22, &H85, "00000000001111111111222222222233333333334444444444555555555566666666667777777")
Call print2(0, 23, &HC5, "00000000001111111111222222222233333333334444444444555555555566666666667777777")
Call print2(0, 24, &HA5, "00000000001111111111222222222233333333334444444444555555555566666666667777777")
'*********************************
'*********************************
Call print2(5, 16, &H81, " ")
If (str_len(Text6.Text) > 0) Then
Call print2(0, 16, &HC5, Text6.Text)
End If
'*********************************
Call bstrl(Msg_ex2_no, data99$)
Call print1(0, 11, &H85, data99$)
sts1& = str_cmp("a", "1")
Call bstrl(sts1&, data99$)
Call print1(3, 11, &HC5, data99$)
Call str_cpy(data99$, "a")
Call print2(6, 11, &H85, data99$)
Call str_cat(data99$, "b")
Call print2(8, 11, &H85, data99$)
Call cnv_cc_data(data99$)
Call cbuff(work$, data99$)
Call catsbuff(work$, data99$)
Call catdbuff(work$, data99$)
Call print1(11, 11, &HA5, work$)
Call hex2(17&, data99$)
Call print1(18, 11, &H85, data99$)
Call hex4(17&, data99$)
Call print1(21, 11, &H85, data99$)
Call hex8(&H12345, data99$)
Call print1(26, 11, &H85, data99$)
Call str_cpy(data99$, "123")
Call cnv_cc_data(data99$)
cnt&= val(data99$)
Call bstrl(cnt&, data99$)
Call print1(35, 11, &HC5, data99$)
Call str_cpy(data99$, "1234567")
Call cnv_cc_data(data99$)
Call vallong(cnt&, data99$)
Call bstrl(cnt&, data99$)
Call print1(26, 10, &HC5, data99$)
Call str_cpy(data99$, "aA1")
Call cnv_cc_data(data99$)
Call bcdunpack(data99$)
Call print1(0, 12, &Ha5, data99$)
Call pbuff(work$, data99$)
Call bcdpack(work$)
Call print1(7, 12, &Ha5, work$)
Call str_cpy(data99$, "00012")
Call cnv_cc_data(data99$)
Call delzero(2, data99$)
Call print1(11, 12, &Ha5, data99$)
Call str_cpy(data99$, "00012")
Call delzero2(2, data99$)
Call print2(17, 12, &Ha5, data99$)
Call pbuff(data99$, "aBCDE")
Call chrl(data99$)
''' Call chrs(data99$)
Call delbuff(data99$, 2, 3)
Call akcnv(data99$)
Call print1(23, 12, &Ha5, data99$)
Call pbuff(data99$, " ﾊｲｹｲ ")
Call delspc(data99$)
Call delspc_r(data99$)
''' Call pbuff(work$, "12")
''' Call mid(data99$, 2, 2, work$)
''' Call midbuff(work$, data99$, 2, 2)
''' Call cbuff(data99$, work$)
''' Call midpbuff(data99$, "123456790", 2, 2)
''' Call pbuff(work$, "AB")
''' Call str_cpy(data99$, "123456790")
''' Call midg(data99$, 2, 2, work$)
''' Call cnv_cc_data(data99$)
Call rightbuff(data99$, 4)
''' Call pbuff(work$, "ｹ")
''' sts1& = posbuff(work$, data99$)
''' sts1& = posrbuff(work$, data99$)
''' sts1& = strpos("1234", "34")
''' sts1& = strrpos("1234", "34")
''' Call bstr(sts1&, data99$)
Call akcnv_kana(data99$)
Call print1(28, 12, &Ha5, data99$)
Call stptime_hund(sec_hund_long&, time1$)
Call print2(0, 13, &He5, time1$)
Call bstrl(sec_hund_long&, data99$)
Call print1(12, 13, &HC5, data99$)
Call cbuff(data99$, "0")
Call cnv_cc_data(data99$)
''' Call asc2bin(data99$)
''' Call binasc(data99$)
''' Call bin2asc(data99$)
Call ascbin(data99$)
Call print1(20, 13, &Ha5, data99$)
''' Call pbuff(work$, "012")
''' Call pbuff(work$, "233")
Call pbuff(work$, "123")
Call pbuff(data99$, "123")
sts1& = cmpbuff(work$, data99$)
Call bstr2(sts1&, data99$)
Call print1(29, 13, &He5, data99$)
Call stpdate(date1$)
day$ = "20" + date1$
Call cnv_cc_data(day$)
Call youbi(week_no&, mounth_2&, day$)
Call bstr(week_no&, data99$)
Call print1(31, 13, &H65, data99$)
Call bstr(mounth_2&, data99$)
Call print1(33, 13, &H65, data99$)
''' Call pbuff(data99$, "j")
''' Call filstr(2, data99$)
''' Call cnv_vb_data(data99$)
Call strfill(data99$, asc("z"), 2)
Call print2(36, 13, &H85, data99$)
double_du1# = -12345678901234#
Call gcvt2(double_du1#, 18, data99$)
Call print1(39, 13, &Ha5, data99$)
Call pbuff(data99$, "FF")
''' cnt& = hexval(data99$)
Call hexvallong(cnt&, data99$)
Call bstrl(cnt&, data99$)
Call print1(55, 13, &H85, data99$)
Call pbuff(data99$, "01:10:10.56")
Call msecint(t_min&, t_msec&, data99$)
Call bstrl(t_min&, data99$)
Call print1(59, 13, &H85, data99$)
Call bstrl(t_msec&, data99$)
Call print1(62, 13, &H85, data99$)
Call msecstr(t_min&, t_msec&, data99$)
Call print1(67, 13, &H85, data99$)
Call gbuff(data99$, gengou_name$)
Call print2(0, 14, &Ha5, data99$)
Call gbuff(data99$, gengou_date$)
Call print2(5, 14, &Ha5, data99$)
Call seireki(gengou_date$, data99$)
Call print1(16, 14, &Ha5, data99$)
Call strmid(data99$, "12345678", 5, 2)
Call print2(27, 14, &Ha5, data99$)
Call pbuff(data99$, "2002/07/20")
Call pbuff(work$, "2002/08/20")
Call dayspan(day_span&, work$, data99$)
Call bstr(day_span&, data99$)
Call print1(30, 14, &Hc5, data99$)
Call pbuff(data99$, "02/07/20") ' "yy/mo/dd"
''' week_flag& -> (0:1~54, 1:0~53, 2:pam, 3:1~5[月毎] )
Call calc_week_no(0&, youbi_cnt&, day_span&, mounth_2&, work$, data99$)
Call cbuff(data99$, work$)
''' Call bstr(youbi_cnt&, data99$)
''' Call bstr(mounth_2&, data99$)
''' Call bstr(day_span&, data99$)
Call print1(33, 14, &H85, data99$)
Call using_long_sub2(123456789&, data99$, 18, 4, 10000&)
Call print1(36, 14, &H85, data99$)
Call pbuff(work$, "01:05:00.33")
Call pbuff(data99$, "01:07:00.33")
Call msecmin(work$, data99$)
Call print1(55, 14, &Ha5, data99$)
Call pbuff(data99$, "01:02:00.00")
Call pbuff(work$, "01:05:00.33")
Call msecsub(data99$, work$)
Call print1(67, 14, &Ha5, data99$)
Call put_hdc_mem '***** need Call del_hdc_mem()
'aaaaaaaaaa
''' Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
''' MessageBeep (vbExclamation)
'aaaaaaaaaa
MsgBox "test", vbOKOnly + vbExclamation, "macmil.bas"
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++++++<< start MsgBoxEx2 >>+++++++++++++++++++++++++++++++++++++++++++
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
With MsgBoxEx2
.Prompt = "MsgBoxEx2を使えば、" _
& vbLf _
& "ボタンのキャプションを自由にカスタマイズできます。" _
& vbLf _
& "ボタン数は自由、" _
& vbLf _
& "カスタムアイコンにも対応可能。"
.Buttons = Array("OK(&Y)", "NO(&N)", "ｷｬﾝｾﾙ(&C)", "3(&3)", "4(&4)", "長いボタン名(&L)")
.Default = 0 '***** 0 ~ (n - 1)
.Cancel = 2 '***** 0 ~ (n - 1)
''' .MsgIcon = "Critical" ' X
''' .MsgIcon = "Question" ' ?
''' .MsgIcon = "Exclamation" ' !
.MsgIcon = "Information" ' I
Msg_ex2_no = .ShowBox
End With 'MsgBoxEx2
labe1.Caption = "選ばれたボタンは " & Msg_ex2_no & " です。"
labe2.Caption = "test " & Msg_ex2_no & " です。"
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++++++<< end MsgBoxEx2 >>+++++++++++++++++++++++++++++++++++++++++++
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
cnt& = 0&
Do While (End_flag = )
cnt& = cnt& + 1&
Call bstrl(cnt&, data99$)
' /* using2(all_len, right_len, yen_mark, comma_mark, data) */
Call using2(18, 0, 0, 0, data99$)
Call print1(0, 15, &HC5, data99$)
DoEvents
Loop
End Sub 'dlltest2
*******<< ★ かってにＣＧＩへ [ 開始 ] >>*******
★ かってにＣＧＩヘ
*******<< ★ かってにＣＧＩへ [ 終り ] >>*******
● 本サイトに掲載されている情報は個人の責任において、
使用のこと。
利用により、問題が発生しても、
当方は一切責任を負いかねます。
リンクは、自由に。
The information carried by this site is set
with individual responsibility. Use it.
Even if a problem occurs by use We cannot take any responsibility.
A link is free.
410-0022 JAPAN by H.MATSUMOTO ( MACMIL.CO.JP 有限会社 松商商会 )
410-0022 JAPAN by H.MATSUMOTO ( MACMIL.CO.JP MATSUSHOW CO.,LTD.)
(C) 1998-2009 H.MATSUMOTO All Rights Reserved ( MACMIL.CO.JP )
★ ソフトダウンロードへ
topヘ、戻る