-
Notifications
You must be signed in to change notification settings - Fork 0
/
Callback.wbp
238 lines (229 loc) · 12.3 KB
/
Callback.wbp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
'このファイルはウィンドウ定義ファイル(*.wnd)をもとに生成されています
Const GroupBox1=1000
Const Static1=1001
Const EditBox1=1002
Const TrackBar1=1003
Const Static2=1004
Const EditBox2=1005
Const Static3=1006
Const Static4=1007
Const EditBox3=1008
Const TrackBar2=1009
Const Static5=1010
Const EditBox4=1011
Const TrackBar3=1012
Const Static6=1013
Const Static7=1014
Const GroupBox2=1015
Const EditBox5=1016
Const TrackBar4=1017
Const Static9=1018
Const EditBox7=1019
Const TrackBar5=1020
Const Static10=1021
Const EditBox8=1022
Const TrackBar6=1023
Const Static11=1024
Const Static12=1025
Const Static13=1026
Const Static14=1027
Const Static8=1028
Const CommandButton1=1029
Const ComboBox1=1030
Const Static15=1031
Const Static16=1032
Const EditBox9=1033
Const TrackBar7=1034
Const Static17=1035
Const CommandButton2=1036
Const Static18=1037
Const EditBox6=1038
Const Static19=1039
Const Static20=1040
Dim hMainWnd As HWND
Dim hFont_MainWnd As HFONT
hFont_MainWnd=CreateFont(-12,0,0,0,400,0,0,0,128,3,2,1,32,"MS Pゴシック")
Dim h3DFaceBrush As HBRUSH
h3DFaceBrush=CreateSolidBrush(GetSysColor(COLOR_3DFACE))
Sub FT232H_Si5351a_DestroyObjects()
DeleteObject(hFont_MainWnd)
DeleteObject(h3DFaceBrush)
End Sub
Function EventCall_MainWnd(hWnd As HWND, message As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
Select Case message
Case WM_DESTROY
MainWnd_Destroy()
Case WM_CREATE
hMainWnd=hWnd
CreateWindowEx(&H00000000,"BUTTON","VCO",&H50000007,14,28,425,129,hWnd,GroupBox1 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,GroupBox1),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","簡易Si5351A 計算&制御ツール[FT232H-I2C]",&H50000000,12,6,241,12,hWnd,Static1 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static1),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000200,"EDIT","32",&H50000000,361,64,70,18,hWnd,EditBox1 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,EditBox1),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"msctls_trackbar32","",&H50000019,80,66,277,19,hWnd,TrackBar1 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,TrackBar1),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","XTAL[MHz] :",&H50000002,252,45,102,12,hWnd,Static2 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static2),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000200,"EDIT","25",&H50000000,361,41,70,18,hWnd,EditBox2 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,EditBox2),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","m[15-90]",&H50000000,24,68,52,12,hWnd,Static3 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static3),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","n[1048575]",&H50000000,24,91,61,14,hWnd,Static4 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static4),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000200,"EDIT","0",&H50000000,361,88,70,18,hWnd,EditBox3 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,EditBox3),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"msctls_trackbar32","",&H50000019,80,89,278,19,hWnd,TrackBar2 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,TrackBar2),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","d[1048575]",&H50000000,24,114,59,14,hWnd,Static5 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static5),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000200,"EDIT","1",&H50000000,361,112,70,18,hWnd,EditBox4 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,EditBox4),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"msctls_trackbar32","",&H50000019,80,111,278,19,hWnd,TrackBar3 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,TrackBar3),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","fvco = crystal × (m + n/d)",&H50000000,24,46,145,12,hWnd,Static6 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static6),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","vco=0[MHz]",&H50000002,284,137,147,12,hWnd,Static7 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static7),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"BUTTON","Output Frequency",&H50000007,14,164,425,151,hWnd,GroupBox2 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,GroupBox2),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000200,"EDIT","32",&H50000000,361,200,70,18,hWnd,EditBox5 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,EditBox5),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"msctls_trackbar32","",&H50000019,80,202,277,19,hWnd,TrackBar4 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,TrackBar4),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","a[6-1800]",&H50000000,24,204,61,12,hWnd,Static9 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static9),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000200,"EDIT","0",&H50000000,361,224,70,18,hWnd,EditBox7 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,EditBox7),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"msctls_trackbar32","",&H50000019,80,225,278,19,hWnd,TrackBar5 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,TrackBar5),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","c[1048575]",&H50000000,24,250,61,14,hWnd,Static10 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static10),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000200,"EDIT","1",&H50000000,361,248,70,18,hWnd,EditBox8 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,EditBox8),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"msctls_trackbar32","",&H50000019,80,247,278,19,hWnd,TrackBar6 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,TrackBar6),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","fout = fvco / ( (a + (b/c)) * Rdiv ) [6-1800]",&H50000000,24,182,234,12,hWnd,Static11 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static11),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","fout=0[MHz]",&H50000002,284,297,147,12,hWnd,Static12 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static12),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","Text13",&H50000000,24,137,272,12,hWnd,Static13 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static13),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","b[1048575]",&H50000000,24,227,61,14,hWnd,Static14 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static14),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","Text8",&H50000000,24,297,305,12,hWnd,Static8 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static8),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"BUTTON","適用",&H50000000,351,346,88,21,hWnd,CommandButton1 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,CommandButton1),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"COMBOBOX","",&H50200002,72,346,214,84,hWnd,ComboBox1 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,ComboBox1),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","FT232H : ",&H50000100,21,349,46,12,hWnd,Static15 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static15),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","Rdiv[128]",&H50000000,24,274,57,12,hWnd,Static16 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static16),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000200,"EDIT","0",&H50000000,361,271,38,18,hWnd,EditBox9 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,EditBox9),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"msctls_trackbar32","",&H50000019,80,270,278,19,hWnd,TrackBar7 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,TrackBar7),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","=128",&H50000002,403,274,25,12,hWnd,Static17 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static17),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"BUTTON","計算",&H50000000,350,320,88,21,hWnd,CommandButton2 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,CommandButton2),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","パラメータ計算:",&H50000000,165,326,83,12,hWnd,Static18 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static18),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000200,"EDIT","25000",&H50000002,252,324,58,18,hWnd,EditBox6 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,EditBox6),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","KHz",&H50000000,315,329,25,12,hWnd,Static19 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static19),WM_SETFONT,hFont_MainWnd As WPARAM,0)
CreateWindowEx(&H00000000,"STATIC","by RGBA_CRT 2017",&H58000000,340,6,108,12,hWnd,Static20 As HMENU,GetModuleHandle(0),0)
SendMessage(GetDlgItem(hWnd,Static20),WM_SETFONT,hFont_MainWnd As WPARAM,0)
MainWnd_Create(ByVal (lParam As VoidPtr))
Case WM_HSCROLL
MainWnd_HScroll(LOWORD(wParam),HIWORD(wParam),lParam As HWND)
Case WM_CLOSE
Dim cancel=0 As Integer
If cancel=0 Then DestroyWindow(hWnd)
Case WM_COMMAND
Select Case LOWORD(wParam)
Case EditBox1
Select Case HIWORD(wParam)
Case EN_KILLFOCUS
MainWnd_EditBox1_KillFocus()
End Select
Case EditBox3
Select Case HIWORD(wParam)
Case EN_KILLFOCUS
MainWnd_EditBox3_KillFocus()
End Select
Case EditBox4
Select Case HIWORD(wParam)
Case EN_KILLFOCUS
MainWnd_EditBox4_KillFocus()
End Select
Case EditBox5
Select Case HIWORD(wParam)
Case EN_KILLFOCUS
MainWnd_EditBox5_KillFocus()
End Select
Case EditBox7
Select Case HIWORD(wParam)
Case EN_KILLFOCUS
MainWnd_EditBox7_KillFocus()
End Select
Case EditBox8
Select Case HIWORD(wParam)
Case EN_KILLFOCUS
MainWnd_EditBox8_KillFocus()
End Select
Case EditBox9
Select Case HIWORD(wParam)
Case EN_KILLFOCUS
MainWnd_EditBox9_KillFocus()
End Select
Case CommandButton1
Select Case HIWORD(wParam)
Case BN_CLICKED
MainWnd_CommandButton1_Click()
End Select
Case Static15
Select Case HIWORD(wParam)
Case STN_CLICKED
MainWnd_Static15_Click()
End Select
Case CommandButton2
Select Case HIWORD(wParam)
Case BN_CLICKED
MainWnd_CommandButton2_Click()
End Select
End Select
Case Else
EventCall_MainWnd=DefWindowProc(hWnd,message,wParam,lParam)
Exit Function
End Select
EventCall_MainWnd=0
End Function
Function DefaultCallProc(hWnd As HWND, message As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
DefaultCallProc=DefWindowProc(hWnd,message,wParam,lParam)
End Function
Dim _RadSys_dlgwcl As WNDCLASSEX
FillMemory(VarPtr(_RadSys_dlgwcl),Len(_RadSys_dlgwcl),0)
_RadSys_dlgwcl.cbSize=Len(_RadSys_dlgwcl)
_RadSys_dlgwcl.hInstance=GetModuleHandle(0)
_RadSys_dlgwcl.style=CS_HREDRAW or CS_VREDRAW or CS_DBLCLKS
_RadSys_dlgwcl.hIcon=LoadIcon(NULL,MAKEINTRESOURCE(IDI_APPLICATION))
_RadSys_dlgwcl.hIconSm=LoadIcon(NULL,MAKEINTRESOURCE(IDI_WINLOGO))
_RadSys_dlgwcl.hCursor=LoadCursor(NULL,MAKEINTRESOURCE(IDC_ARROW))
_RadSys_dlgwcl.lpszClassName="NORMALDLG"
_RadSys_dlgwcl.hbrBackground=h3DFaceBrush
_RadSys_dlgwcl.lpfnWndProc=AddressOf(DefaultCallProc)
RegisterClassEx(_RadSys_dlgwcl)
Function DialogBox(hOwnerWnd As HWND, TemplateName As LPSTR) As LONG_PTR
Dim hDlg As HWND
End Function
Sub EndDialog(hWnd As HWND, lResult As Long)
EnableWindow(GetWindow(hWnd,GW_OWNER),1)
DestroyWindow(hWnd)
PostMessage(0,WM_QUIT,lResult,0)
End Sub
Function CreateDialog(hOwnerWnd As HWND, TemplateName As LPSTR) As HWND
End Function