[ 2009/11/19 更新 ]   ☆☆☆ かってに VB ☆☆☆
                    情報化社会の発展を図る活動として、
                     ( 単にNPO協賛活動として )
                 無料で利用可能な、Linuxの普及の為、

★ Linuxで、インターネット等を、
             MS−Windows と同じ様に
                             快適にする情報を無料提供。
   410-0022 JAPAN  by H.MATSUMOTO ( MACMIL.CO.JP  (有)松商商会 )

・PC9801, DOS/V, Win9X, Win2000,WinXP, UNIX, Linux の各種ソフト作成、
メインは、C(言語)、現在は、Linux 30台位使用して、システム研究開発中。
27年近く(PC8001 〜 現在まで)、各種業務システム構築の現役者が提供。(松本英男)
       "マックミル" は、(有)松商商会 の登録商標です。( MACMIL.CO.JP )

       当HPでの "かってに" は、観自在(かんじざい)的、意味合いの方の、
           "自由に(freely)"である [ 義務を果たしたうえでの ]
  上記コーナー( かってにLinux )の、アクセス増大に伴い、
             同コーナーに、毎日情報追加中!!

Linuxで、民放TV録画(予約)しながら、インターネット等利用してます。
( 当方の Linux ツールは、通常のTVが不要の為、協会受信不可 )
    ( 光インターネットTV Gyao, YAHOO TVが、無料で可能 ) 
     快適で、しかも、無料ソフトが、たくさん手に入ります。
       MS−Windowsに比べ、お金がかかりません。
            実際に利用した際の各種情報を無料で、
            上記コーナーで、毎日情報提供中!!
●検索は、Ctrl + F で。 ・もっと下側に、サンプル画像がありますよ!!
・macmil.dll を使用した場合、
  MS-DOS, Win9X, Win2000, WinXP, Linux(UNIX) で、
  共通の、モジュールが使用でき、システムソフト等の
  作制コスト、改造が容易に可能となり、資産のムダが
  ありません。

・VB で、DOS画面風に作りたいのだが.....
  N88BASIC みたいな 80chr x 25xhr の画面に配置したい.....
  NEC PC-PR201 等のラインプリンタに、1行づつ印刷したい.....
  画像を画面の好きな位置に表示したい.....
  そこで、せめて画面出力だけでも上記の様にできればと、
 作制してみました。
  当方の、ダウンロードにある、macmil.dll が、VC, VB から
 利用可能なので、それを使用します。
  ソフトダウンロードから、ダウンロードするもの
   "macmil.dll"
   "macmil.bas" ( VB で、macmil.dll を使うモジュール )

  NEC PC-PR201 等のラインプリンタに、1行づつ印刷するには、
  
     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 〜 現在まで)、実践で各種業務に
使用して来ているものです。
IT利用先進度(2003/11/19現在)、
日本は、178カ国中、15位で、
韓国、香港、台湾にも、負けている。 

世界の、15位から、
ベスト8に、入れるように、

情報化社会の発展を図る活動として、
各種、実践済みの、ツール、部品、情報等を
無料提供中!

・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            =   "MS Pゴシック"
         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            =   "MS Pゴシック"
         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            =   "MS Pゴシック"
         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            =   "MS Pゴシック"
         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            =   "MS Pゴシック"
         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
*******<< ★ かってにCGIへ [ 開始 ] >>******* ★ かってにCGIヘ *******<< ★ かってにCGIへ [ 終り ] >>*******
● 本サイトに掲載されている情報は個人の責任において、
   使用のこと。
   利用により、問題が発生しても、
   当方は一切責任を負いかねます。 
   リンクは、自由に。

   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 )
新会社法施行(2006/05/01施行)後、有限会社 松商商会 は、
特例有限会社という、新会社法の、株式会社です。(商号は、有限会社 を継続)
創業 1983/05/20 法人設立 1984/09/29
★ ソフトダウンロードへ

topヘ、戻る