@(h) Select.vb ver 1.1 ( Select.vb ver 1.0 ( Option Explicit Private Structure SYMBOLINFO Dim SyDataType As String Dim

Size: px

Start display at page:

Download "@(h) Select.vb ver 1.1 ( 07.09.15 ) @(h) Select.vb ver 1.0 ( 07.09.13 ) @(s) Option Explicit Private Structure SYMBOLINFO Dim SyDataType As String Dim"

あいねつちた
7 years ago
Views:

1 A HotDocument A HotDocument A HotDocument A HotDocument A HotDocument A HotDocument A HotDocument A HotDocument

2 @(h) Select.vb ver 1.1 ( Select.vb ver 1.0 ( Option Explicit Private Structure SYMBOLINFO Dim SyDataType As String Dim SyDataTypeDef As String End Structure As Private Type TYPE_SYMBOLINFO Dim TpSyDataType As String As Dim TpSyDataTypeDef As String End Type Public Interface IInfoBlock Property Selected() As Boolean Sub UpdateDataSet() End Interface Declare Function ExitWindow Lib "USER" () As Integer Windows Public Delegate Sub FractalDoneCallback() Public Event ClickFileMenu(ByVal sender As Object, _ ByVal Index As Integer) Public gsymboldata As SYMBOLINFO Public Const APPNAME = "HotDoc" Public Const LOGDIR = "C:LOG" Public gselectappno As Integer Public gtmpdir As String Private Const FRMTITLE = "Select" Private Const FRMNO = 1 Private mselectmouduleno As Integer Private minfilename As String Namespace OpenNewDatas Public Class AddInNewMenu Implements Extensibility.IDTExtensibility2 Const MEMBERMAX = 256 Const ARGSMAX = 256 End Class End Namespace Public Enum WeekDay Sun = 1 Mon = 2 Tue = 3 Wed = 4 Thu = 5 Fri = 6 Sat = 7 End Enum

13 ) @(s) Option Explicit Private Structure SYMBOLINFO Dim SyDataType As String Dim SyDataTypeDef As String End Structure As Private Type TYPE_SYMBOLINFO Dim TpSyDataType As String As Dim

3 : : : ARG1 - ARG2 - : : 80 Private Function GetMsg(FileNum As Integer, Index As Index) As String OpenMsgFile(FileNum) If (FileNum < 0) Then End Select.vb ver 1.1 ( Select.vb ver 1.0 ( ZZDebug_Print() GetMsg = ReadMsgFile(FileNum, Index) CloseMsgFile(FileNum) End Function

4 Private Structure SYMBOLINFO Dim SyDataType As String Dim SyDataTypeDef As String End Structure As Private Type TYPE_SYMBOLINFO Dim TpSyDataType As String As Dim TpSyDataTypeDef As String End Type Public Enum WeekDay Sun = 1 Mon = 2 Tue = 3 Wed = 4 Thu = 5 Fri = 6 Sat = 7 End Enum Public Interface IInfoBlock Property Selected() As Boolean Sub UpdateDataSet() End Interface Public Const APPNAME = "HotDoc" Public Const LOGDIR = "C: LOG" Private Const FRMTITLE = "Select" Private Const FRMNO = 1 A HotDocument Public gselectappno As Integer Public gtmpdir As String Private mselectmouduleno As Integer Private minfilename As String

Property Selected() As Boolean Sub UpdateDataSet() End Interface Public Const APPNAME = "HotDoc" Public Const LOGDIR = "C: LOG" Private Const FRMTITLE =

5 Declare Function ExitWindow Lib "USER" () As Integer Windows Public Delegate Sub FractalDoneCallback() Public Event ClickFileMenu(ByVal sender As Object, _ ByVal Index As Integer) Namespace OpenNewDatas Public Class AddInNewMenu Implements Extensibility.IDTExtensibility2 : : : ARG1 - ARG2 - : : 80 A HotDocument"@(f)" Const MEMBERMAX = 256 Const ARGSMAX = 256 End Class End : A HotDocument A HotDocument

Public Class AddInNewMenu Implements Extensibility.

6 A HotDocument : : : ARG1 - : : : : A HotDocument OpenMsgFile(FileNum) If (FileNum < 0) Then End If Comment.cpp ver 2.0 ( Comment.cpp ver 1.0 ( I/O #define HC_MAX_PATH128 #define HC_MAX_EXT3 #define HC_MAX_FILENAME128 #define HC_MAX_DATE9 "YY/MM/DD" #define NUMBER_OF(a) ( sizeof(a) / sizeof(a[0]) ) typedef struct Memory char *s; struct Memory *next; MEMORY; union u_tag int ival; float fval; char *sval; u; GetMsg = ReadMsgFile(FileNum, Index) CloseMsgFile(FileNum)

7 enum Boolean False, True ; class Box private: int height; int width; int depth; public: Box(int,int,int); int volume(void); int surface(void); ; : : [byte]( 0) : : pstrinstr( "a#c#d#eeee", "#" ) -> 2 pstrinstr( "a#c#d##eeee", "##" ) -> 6 pstrinstr( "abcdeabcde", "AA" ) -> 0 int pstrinstr(const char *tarstr, const char *srcstr) int nsrc = strlen(srcstr); int ntar = strlen(tarstr); int i; / for (i = 0; i < ntar; i++) if (strncmp(tarstr+i, srcstr, nsrc) == 0) return i+1; return Comment.cpp ver 2.0 ( Comment.cpp ver 1.0 ( I/O typedef struct Memory char *s; struct Memory *next; MEMORY; union u_tag int ival; float fval; char *sval; u; enum Boolean False, True ;

strlen(srcstr); int ntar = strlen(tarstr); int i; / for (i = 0; i < ntar; i++) if (strncmp(tarstr+i, srcstr, nsrc) == 0) return i+1; return 0; @(h) Comment.cpp ver 2.0 ( 07.09.

8 #define HC_MAX_FILENAME128 #define NUMBER_OF(a) ( sizeof(a) / sizeof(a[0]) ) class Box private: int height; int width; int depth; public: Box(int,int,int); int volume(void); int surface(void); ; : : [byte]( 0) : : pstrinstr( "a#c#d#eeee", "#" ) -> 2 pstrinstr( "a#c#d##eeee", "##" ) -> 6 pstrinstr( "abcdeabcde", "AA" ) -> 0 char *cm_getmessage( char *msg_filename, int msg_number) int i; char *cm_getmessage(msg_filename, msg_number) char *msg_filename; int msg_number; int i; A HotDocument : : [byte]( 0) : : : : pstrinstr( "a#c#d#eeee", "#" ) -> 2 pstrinstr( "a#c#d##eeee", "##" ) -> 6 pstrinstr( "abcdeabcde", "AA" ) -> 0 :

"AA" ) -> 0 char *cm_getmessage( char *msg_filename, int msg_number) int i; char *cm_getmessage(msg_filename, msg_number) char *msg_filename; int msg_number;

9 A HotDocument/ / int nsrc = strlen(srcstr); int ntar = strlen(tarstr); int i; / for (i = 0; i < ntar; i++) if (strncmp(tarstr+i, srcstr, nsrc) == 0) return i+1; return 0; /* */ *c */ /*t */ t Comment.c ver 2.0 ( ) */ Comment.c ver 1.0 ( ) */ * I/O * * */ #define HC_MAX_PATH128 /* */ #define HC_MAX_EXT3 /* */ #define HC_MAX_FILENAME128 /* */ #define HC_MAX_DATE9 /* "YY/MM/DD" */ #define NUMBER_OF(a) ( sizeof(a) / sizeof(a[0]) )/* */ typedef struct Memory /* */ char *s; /* */ struct Memory *next; /* */ MEMORY; union u_tag /* */ int ival; /* */ float fval; /* */ char *sval; /* */ u; enum Boolean /* */ False, /* */ True /* */ ;

13 ) */ /* @(h) Comment.c ver 1.0 ( 07.09.

10 /* * : * * : [byte]( 0) * * : * * : pstrinstr( "a#c#d#eeee", "#" ) -> 2 * pstrinstr( "a#c#d##eeee", "##" ) -> 6 * pstrinstr( "abcdeabcde", "AA" ) -> 0 */ int pstrinstr(tarstr, srcstr) const char *tarstr; /* */ const char *srcstr; /* */ int nsrc = strlen(srcstr); int ntar = strlen(tarstr); int i; /*c */ for (i = 0; i < ntar; i++) /*t */ if (strncmp(tarstr+i, srcstr, nsrc) == 0) return (i+1); /*tt */ return Form1.cs ver 1.0 ( Form1.cs ver 1.1 ( Form1 using System; using System.Drawing; using System.Collections; using System.ComponentModel; using System.Windows.Forms; using System.Data;

i < ntar; i++) /*t */ if (strncmp(tarstr+i, srcstr, nsrc) == 0) return (i+1); /*tt */ return (0); @(h) Form1.cs ver 1.0 ( 07.09.15 ) @(h) Form1.cs ver 1.1 ( 07.

11 namespace Sample Form1 / <summary> / Form1 / / / </summary> public class Form1 : System.Windows.Forms.Form public const int LOOP_COUNT = 2; public static int nsize = 10; public interface InterSample interface event MyDelegate MyEvent1; MyEvent1 event MyDelegate MyEvent2; MyEvent2 public struct PERSON struct string Name; int Age; public enum WeekDay Sun = 1, Mon = 2, Tue = 3, Wed = 4, Thu = 5, Fri = 6, Sat = 7, enum : : LOOP_COUNT : ARG1 - ARG2 - : : private void button1_click (Object sender, System.EventArgs e) int i; String Buf; / Buf = ""; / for (i = 0; i < LOOP_COUNT; i++) String MessageString; MessageString = i + Buf; MessageBox.Show(MessageString); public delegate void MyDelegate(int i); delegate public event MyDelegate MyEvent1; event public event MyDelegate Event2 event add [DllImport("user32.dll", EntryPoint="GetDC")] extern private static IntPtr GetDC(IntPtr hdc); DllImport

struct string Name; int Age; public enum WeekDay Sun = 1, Mon = 2, Tue = 3, Wed = 4, Thu = 5, Fri = 6, Sat = 7, enum : : LOOP_COUNT : ARG1 - ARG2 - : : private void button1_click (Object sender,

12 @(h) Form1.cs ver 1.0 ( Form1.cs ver 1.1 ( Form1 / <summary> / Form1 / / / </summary> public class Form1 : System.Windows.Forms.Form : : LOOP_COUNT : ARG1 - ARG2 - : : public const int LOOP_COUNT = 2; public static int nsize = 10;

20 ) @(s) Form1 / <summary> / Form1 / / / </summary> public class

13 namespace Sample Form1 public interface InterSample interface event MyDelegate MyEvent1; MyEvent1 event MyDelegate MyEvent2; MyEvent2 public struct PERSON struct string Name; int Age; public enum WeekDay enum Sun = 1, Mon = 2, Tue = 3, Wed = 4, Thu = 5, Fri = 6, Sat = 7, public delegate void MyDelegate(int i); delegate public event MyDelegate MyEvent1; event public event MyDelegate Event2 event add [DllImport("user32.dll", EntryPoint="GetDC")] extern private static IntPtr GetDC(IntPtr hdc); DllImport

5, Fri = 6, Sat = 7, public delegate void MyDelegate(int i); delegate public event MyDelegate MyEvent1; event public event

14 summary param A HotDocumentHC / <summary> /XML / / </summary> / <remarks> / / </remarks> / <param name="coumment"></param> / <param name="size"></param> / <returns> / / </returns> / <exception> / / </exception> private void WebPageBuildComment(string Coumment, int Size) / <summary> / / </summary> public const int LOOP_COUNT = 2; / <summary> / / </summary> public static int nsize = 10; / <summary> / interface / </summary> public interface InterSample event MyDelegate MyEvent1; MyEvent1 event MyDelegate MyEvent2; MyEvent2 / <summary> / struct / </summary> public struct PERSON string Name; int Age; / <summary> / enum / </summary> public enum WeekDay Sun = 1, Mon = 2, Tue = 3, Wed = 4, Thu = 5, Fri = 6, Sat = 7, / <summary> / delegate / </summary> public delegate void MyDelegate(int i);

<summary> / interface / </summary> public interface InterSample event MyDelegate MyEvent1; MyEvent1 event MyDelegate MyEvent2; MyEvent2 / <summary> / struct / </summary> public struct PERSON string

15 A HotDocument : : [byte]( 0) : : : : pstrinstr( "a#c#d#eeee", "#" ) -> 2 pstrinstr( "a#c#d##eeee", "##" ) -> 6 pstrinstr( "abcdeabcde", "AA" ) -> 0 : /<summary> /XML / /</summary> /<newtag> / /</newtag> /<value> / /</value> /<returns> / /</returns> A HotDocument/ / int i; String Buf; / Buf = ""; / LOOP_COUNT for (i = 0; i < LOOP_COUNT; i++) String MessageString; MessageString = i + Buf; MessageBox.Show(MessageString);

/<value> / /</value> /<returns> / /</returns> A HotDocument/ / int i; String Buf; / Buf = ""; / LOOP_COUNT

16 @(h) Form1.java ver 1.0 ( Form1.java ver 1.1 ( Form1 package Sample; import System.Drawing.*; import System.Collections.*; import System.ComponentModel.*; import System.Windows.Forms.*; import System.Data.*; public class Form1 extends System.Windows.Forms.FormForm1 private System.Windows.Forms.Button button1; private System.ComponentModel.Container components = null; public static final int LOOP_COUNT = 2; public static int nsize = 0; : : LOOP_COUNT : : private void button1_click (Object sender, System.EventArgs e) int i; String Buf; / Buf = ""; / LOOP_COUNT for (i = 0; i < LOOP_COUNT; i++) String MessageString; MessageString = i + Buf; MessageBox.Show(MessageString); /** * JavaDoc * * */ private void JavaDoc() /

Container components = null; public static final int LOOP_COUNT = 2; public static int nsize = 0; : : LOOP_COUNT : : private void button1_click (Object sender, System.

17 @(h) Form1.java ver 1.0 ( Form1.java ver 1.1 ( Form1 public class Form1 extends Form public class Class1 : : LOOP_COUNT : : private void button1_click (Object sender, System.EventArgs e)

20 ) @(s) Form1 public class Form1 extends Form public

18 B A HotDocumentHC /** * JavaDoc * * */ private void JavaDoc() / A HotDocument : : [byte]( 0) : : : : pstrinstr( "a#c#d#eeee", "#" ) -> 2 pstrinstr( "a#c#d##eeee", "##" ) -> 6 pstrinstr( "abcdeabcde", "AA" ) -> 0 : /** * JavaDoc * * */

: : 20070915 : : pstrinstr( "a#c#d#eeee", "#" ) -> 2 pstrinstr( "a#c#d##eeee", "##" ) ->

19 A HotDocument/ / int i; String Buf; / Buf = ""; / LOOP_COUNT for (i = 0; i < LOOP_COUNT; i++) String MessageString; MessageString = i + Buf; MessageBox.Show(MessageString);

????? 1???

????? 1??? SUN MON TUE WED THU FRI SAT SUN MON TUE WED THU FRI SAT SUN MON TUE WED THU FRI SAT SUN MON TUE WED THU FRI SAT SUN MON TUE WED THU FRI SAT SUN MON TUE WED THU FRI SAT SUN MON TUE WED THU FRI SAT SUN MON