Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование (VB,C#,ASP,.NET): новости, советы, примеры



Выпуск # 173


http://www.kbyte.ru/

 

Новый выпуск!

Здравствуйте дамы и господа!
Очередной выпуск рассылки Kbyte.Ru!

 

Содержание выпуска

Система ЭКСПЕРТ

    Вопрос #000408: Работа с текстовой базой данных.

    Вопрос #000406: VB-6_и__текстовоый_файл

    Вопрос #000401: Запись данных в последовательный и параллельный...

    Вопрос #000400: Работа с сокетами

    Вопрос #000389: Программный перевод компьютера в спящий режим

Последнее на форумах

    VB6: 32-битные иконки в приложении

    Лиственный текст

    Неоновое лого

    Пара микро вопросов по javascript

    Свет из текста

Последние статьи

    Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)

    Работа с SQL – Запросы

    Использование XML.Serialization

    Выбор языка программирования для научных работ (2-я редакция)

    Работаем с MIME

Интересные коды и решения

Юмор на Kbyte.Ru

 

Система ЭКСПЕРТ

 

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)


Вопрос #000408: Работа с текстовой базой данных.

Автор вопроса: Григорьев // 09.08.2007 / 10:58

Здравствуйте, Эксперты!

VB-6 не воспринимает строку
Dim [To] As String - выдаёт сообщение:

Ошибка компиляции:
Ошибка синтаксиса.

Видимо, скобки не помогли :)
Может, посоветуете, как это обойти?

С уважением,
Григорьев Николай.

Отвечает: Алексей Немиро // 09.08.2007 / 11:14

Может, посоветуете, как это обойти?

Можно, поменяйте имя переменной, вместо To, на что-нибудь другое:
Dim To1 As String

 

Вопрос #000406: VB-6_и__текстовоый_файл

Автор вопроса: Григорьев // 06.08.2007 / 11:35

Здравствуйте, expert.

Подскажите, пожалуйста, как в VB-6 организовать извлечение данных из текстового файла?
Например, задав ID =F9 и число 15,7 (лежит в диапазоне 14...18), нужно получить +0,059 и +0.016 для дальнейших расчётов.
Фрагмент текстового файла -во вложении.
Таких "Таблиц" много готовых, поэтому преобразовывать их в какой-либо другой формат нецелесообразно.

С уважением, Григорьев Николай.

Текстовой файл:
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
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:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
* Предельные отклонения отверстий по СТ СЭВ 144-88
* Для отверстий диаметром свыше "От" до диаметра "До"
** Не трогать колонки здесь и в других таблицах стандарта!
ID  От  До  ВО   НО
A9  3  6  +0.30  +0.27
A11  3  6  +0.345 +0.270
A13  3  6  +0.45  +0.27
B9  3  6  +0.17  +0.14
B11  3  6  +0.215 +0.140
B12  3  6  +0.26  +0.14
B13  3  6  +0.32  +0.14
C8  3  6  +0.088 +0.070
C9  3  6  +0.10  +0.07
C11  3  6  +0.145 +0.070
C12  3  6  +0.19  +0.07
C13  3  6  +0.25  +0.07
D6  3  6  +0.038 +0.030
D7  3  6  +0.042 +0.030
D8  3  6  +0.048 +0.030
D9  3  6  +0.06  +0.03
D10  3  6  +0.078 +0.030
D11  3  6  +0.105 +0.030
D12  3  6  +0.15  +0.03
E5  3  6  +0.025 +0.020
E6  3  6  +0.028 +0.020
E7  3  6  +0.032 +0.020
E8  3  6  +0.038 +0.020
E9  3  6  +0.05  +0.02
E10  3  6  +0.068 +0.020
F5  3  6  +0.015 +0.010
F6  3  6  +0.018 +0.010
F7  3  6  +0.022 +0.010
F8  3  6  +0.028 +0.010
F9  3  6  +0.04  +0.01
F10  3  6  +0.058 +0.010
G5  3  6  +0.009 +0.004
G6  3  6  +0.012 +0.004
G7  3  6  +0.016 +0.004
H4  3  6  +0.004
H5  3  6  +0.005
H6  3  6  +0.008
H7  3  6  +0.012
H8  3  6  +0.018
H9  3  6  +0.03
H10  3  6  +0.048
H11  3  6  +0.075
H12  3  6  +0.12
H13  3  6  +0.18
H14  3  6  +0.3
H15  3  6  +0.4
H16  3  6  +0.75
J6  3  6  +0.005 -0.003
J7  3  6  +0.006 -0.006
J8  3  6  +0.010 -0.008
Js4  3  6  +0.002 -0.002
Js5  3  6  +0.0025 -0.0025
Js6  3  6  +0.004 -0.004
Js7  3  6  +0.006 -0.006
Js8  3  6  +0.009 -0.009
Js9  3  6  +0.015 -0.015
Js10 3  6  +0.024 -0.024
Js11 3  6  +0.037 -0.037
Js12 3  6  +0.06  -0.06
Js13 3  6  +0.09  -0.09
Js14 3  6  +0.15  -0.15
K5  3  6      -0.005
K6  3  6  +0.002 -0.006
K7  3  6  +0.003 -0.009
K8  3  6  +0.005 -0.013
M5  3  6  -0.003 -0.008
M6  3  6  -0.001 -0.009
M7  3  6      -0.012
M8  3  6  +0.002 -0.016
N5  3  6  -0.007 -0.012
N6  3  6  -0.005 -0.013
N7  3  6  -0.004 -0.016
N8  3  6  -0.002 -0.020
N9  3  6      -0.03
N10  3  6      -0.048
P5  3  6  -0.011 -0.016
P6  3  6  -0.009 -0.017
P7  3  6  -0.008 -0.020
P8  3  6  -0.012 -0.030
P9  3  6  -0.012 -0.042
R6  3  6  -0.012 -0.020
R7  3  6  -0.011 -0.023
R8  3  6  -0.015 -0.033
S6  3  6  -0.016 -0.024
S7  3  6  -0.015 -0.027
T6  3  6
T7  3  6
U7  3  6  -0.019 -0.031
U8  3  6  -0.023 -0.041
Z8  3  6  -0.035 -0.053
A9  6  10  +0.316 +0.280
A11  6  10  +0.37  +0.28
A13  6  10  +0.50  +0.28
B9  6  10  +0.186 +0.150
B11  6  10  +0.24  +0.15
B12  6  10  +0.30  +0.15
B13  6  10  +0.37  +0.15
C8  6  10  +0.102 +0.080
C9  6  10  +0.116 +0.080
C11  6  10  +0.17  +0.08
C12  6  10  +0.23  +0.08
C13  6  10  +0.30  +0.08
D6  6  10  +0.049 +0.040
D7  6  10  +0.055 +0.040
D8  6  10  +0.062 +0.040
D9  6  10  +0.076 +0.040
D10  6  10  +0.098 +0.040
D11  6  10  +0.13  +0.04
D12  6  10  +0.19  +0.04
E5  6  10  +0.031 +0.025
E6  6  10  +0.034 +0.025
E7  6  10  +0.040 +0.025
E8  6  10  +0.047 +0.025
E9  6  10  +0.061 +0.025
E10  6  10  +0.083 +0.025
F5  6  10  +0.019 +0.013
F6  6  10  +0.022 +0.013
F7  6  10  +0.028 +0.013
F8  6  10  +0.035 +0.013
F9  6  10  +0.049 +0.013
F10  6  10  +0.071 +0.013
G5  6  10  +0.011 +0.005
G6  6  10  +0.014 +0.005
G7  6  10  +0.020 +0.005
H4  6  10  +0.004
H5  6  10  +0.006
H6  6  10  +0.009
H7  6  10  +0.015
H8  6  10  +0.022
H9  6  10  +0.036
H10  6  10  +0.058
H11  6  10  +0.09
H12  6  10  +0.15
H13  6  10  +0.22
H14  6  10  +0.36
H15  6  10  +0.58
H16  6  10  +0.9
J6  6  10  +0.005 -0.004
J7  6  10  +0.008 -0.007
J8  6  10  +0.012 -0.010
Js4  6  10  +0.002 -0.002
Js5  6  10  +0.003 -0.003
Js6  6  10  +0.0045 -0.0045
Js7  6  10  +0.007 -0.007
Js8  6  10  +0.011 -0.011
Js9  6  10  +0.018 -0.018
Js10 6  10  +0.029 -0.029
Js11 6  10  +0.045 -0.045
Js12 6  10  +0.075 -0.075
Js13 6  10  +0.11  -0.11
Js14 6  10  +0.18  -0.18
K5  6  10  +0.001 -0.005
K6  6  10  +0.002 -0.007
K7  6  10  +0.005 -0.010
K8  6  10  +0.006 -0.016
M5  6  10  -0.004 -0.010
M6  6  10  -0.003 -0.012
M7  6  10      -0.015
M8  6  10  +0.001 -0.021
N5  6  10  -0.008 -0.014
N6  6  10  -0.007 -0.016
N7  6  10  -0.004 -0.019
N8  6  10  -0.003 -0.025
N9  6  10      -0.036
N10  6  10      -0.058
P5  6  10  -0.013 -0.019
P6  6  10  -0.012 -0.021
P7  6  10  -0.009 -0.024
P8  6  10  -0.015 -0.037
P9  6  10  -0.015 -0.051
R6  6  10  -0.016 -0.025
R7  6  10  -0.013 -0.028
R8  6  10  -0.019 -0.041
S6  6  10  -0.020 -0.029
S7  6  10  -0.017 -0.032
T6  6  10
T7  6  10
U7  6  10  -0.022 -0.037
U8  6  10  -0.028 -0.050
Z8  6  10  -0.042 -0.064
A9  10  14  +0.333 +0.29
A11  10  14  +0.40  +0.29
A13  10  14  +0.56  +0.29
B9  10  14  +0.193 +0.150
B11  10  14  +0.26  +0.15
B12  10  14  +0.33  +0.15
B13  10  14  +0.42  +0.15
C8  10  14  +0.122 +0.095
C9  10  14  +0.138 +0.095
C11  10  14  +0.205 +0.095
C12  10  14  +0.275 +0.095
C13  10  14  +0.365 +0.095
D6  10  14  +0.061 +0.050
D7  10  14  +0.068 +0.050
D8  10  14  +0.077 +0.050
D9  10  14  +0.093 +0.050
D10  10  14  +0.12  +0.05
D11  10  14  +0.16  +0.05
D12  10  14  +0.23  +0.05
E5  10  14  +0.040 +0.032
E6  10  14  +0.043 +0.032
E7  10  14  +0.050 +0.032
E8  10  14  +0.059 +0.032
E9  10  14  +0.075 +0.032
E10  10  14  +0.102 +0.032
F5  10  14  +0.024 +0.016
F6  10  14  +0.027 +0.016
F7  10  14  +0.034 +0.016
F8  10  14  +0.043 +0.016
F9  10  14  +0.059 +0.016
F10  10  14  +0.086 +0.016
G5  10  14  +0.014 +0.006
G6  10  14  +0.017 +0.006
G7  10  14  +0.024 +0.006
H4  10  14  +0.005
H5  10  14  +0.008
H6  10  14  +0.011
H7  10  14  +0.018
H8  10  14  +0.027
H9  10  14  +0.043
H10  10  14  +0.07
H11  10  14  +0.11
H12  10  14  +0.18
H13  10  14  +0.27
H14  10  14  +0.43
H15  10  14  +0.7
H16  10  14  +1.1
J6  10  14  +0.006 -0.005
J7  10  14  +0.010 -0.008
J8  10  14  +0.015 -0.012
Js4  10  14  +0.0025 -0.0025
Js5  10  14  +0.004 -0.004
Js6  10  14  +0.0055 -0.0055
Js7  10  14  +0.009 -0.009
Js8  10  14  +0.013 -0.013
Js9  10  14  +0.021 -0.021
Js10 10  14  +0.035 -0.035
Js11 10  14  +0.055 -0.055
Js12 10  14  +0.09  -0.09
Js13 10  14  +0.135 -0.135
Js14 10  14  +0.215 -0.215
K5  10  14  +0.002 -0.006
K6  10  14  +0.002 -0.009
K7  10  14  +0.006 -0.012
K8  10  14  +0.008 -0.019
M5  10  14  -0.004 -0.012
M6  10  14  -0.004 -0.015
M7  10  14      -0.018
M8  10  14  +0.002 -0.025
N5  10  14  -0.009 -0.017
N6  10  14  -0.009 -0.020
N7  10  14  -0.005 -0.023
N8  10  14  -0.003 -0.030
N9  10  14      -0.043
N10  10  14      -0.07
P5  10  14  -0.015 -0.023
P6  10  14  -0.015 -0.026
P7  10  14  -0.011 -0.029
P8  10  14  -0.018 -0.045
P9  10  14  -0.018 -0.061
R6  10  14  -0.020 -0.031
R7  10  14  -0.016 -0.034
R8  10  14  -0.023 -0.050
S6  10  14  -0.025 -0.036
S7  10  14  -0.021 -0.039
T6  10  14
T7  10  14
U7  10  14  -0.026 -0.044
U8  10  14  -0.033 -0.060
Z8  10  14  -0.050 -0.077
A9  14  18  +0.333 +0.290
A11  14  18  +0.40  +0.29
A13  14  18  +0.56  +0.29
B9  14  18  +0.193 +0.150
B11  14  18  +0.26  +0.15
B12  14  18  +0.33  +0.15
B13  14  18  +0.42  +0.15
C8  14  18  +0.122 +0.095
C9  14  18  +0.138 +0.095
C11  14  18  +0.205 +0.095
C12  14  18  +0.275 +0.095
C13  14  18  +0.365 +0.095
D6  14  18  +0.061 +0.050
D7  14  18  +0.068 +0.050
D8  14  18  +0.077 +0.050
D9  14  18  +0.093 +0.050
D10  14  18  +0.12  +0.05
D11  14  18  +0.16  +0.05
D12  14  18  +0.23  +0.05
E5  14  18  +0.040 +0.032
E6  14  18  +0.043 +0.032
E7  14  18  +0.050 +0.032
E8  14  18  +0.059 +0.032
E9  14  18  +0.075 +0.032 
E10  14  18  +0.102 +0.032
F5  14  18  +0.024 +0.016
F6  14  18  +0.027 +0.016
F7  14  18  +0.034 +0.016
F8  14  18  +0.043 +0.016
F9  14  18  +0.059 +0.016  Пример из этой строки: ID =F9 и число 15,7 (лежит в диапазоне 14...18)
F10  14  18  +0.086 +0.016              надо получить: ВО= +0.059   НО= +0.016
G5  14  18  +0.014 +0.006
G6  14  18  +0.017 +0.006
G7  14  18  +0.024 +0.006
H4  14  18  +0.005
H5  14  18  +0.008
H6  14  18  +0.011
H7  14  18  +0.018
H8  14  18  +0.027
H9  14  18  +0.043
H10  14  18  +0.07
H11  14  18  +0.11
H12  14  18  +0.18
H13  14  18  +0.27
H14  14  18  +0.43
H15  14  18  +0.7
H16  14  18  +1.1
J6  14  18  +0.006 -0.005
J7  14  18  +0.010 -0.008
J8  14  18  +0.015 -0.012
Js4  14  18  +0.0025 -0.0025
Js5  14  18  +0.004 -0.004
Js6  14  18  +0.0055 -0.0055
Js7  14  18  +0.009 -0.009
Js8  14  18  +0.013 -0.013
Js9  14  18  +0.021 -0.021
Js10 14  18  +0.035 -0.035
Js11 14  18  +0.055 -0.055
Js12 14  18  +0.09  -0.09
Js13 14  18  +0.135 -0.135
Js14 14  18  +0.215 -0.215
K5  14  18  +0.002 -0.006
K6  14  18  +0.002 -0.009
K7  14  18  +0.006 -0.012
K8  14  18  +0.008 -0.019
M5  14  18  -0.004 -0.012
M6  14  18  -0.004 -0.015
M7  14  18      -0.018
M8  14  18  +0.002 -0.025
N5  14  18  -0.009 -0.017
N6  14  18  -0.009 -0.020
N7  14  18  -0.005 -0.023
N8  14  18  -0.003 -0.030
N9  14  18      -0.043
N10  14  18      -0.07
P5  14  18  -0.015 -0.023
P6  14  18  -0.015 -0.026
P7  14  18  -0.011 -0.029
P8  14  18  -0.018 -0.045
P9  14  18  -0.018 -0.061
R6  14  18  -0.020 -0.031
R7  14  18  -0.016 -0.034
R8  14  18  -0.023 -0.050
S6  14  18  -0.025 -0.036
S7  14  18  -0.021 -0.039
T6  14  18
T7  14  18
U7  14  18  -0.026 -0.044
U8  14  18  -0.033 -0.060
Z8  14  18  -0.060 -0.087

Отвечает: Алексей Немиро // 06.08.2007 / 11:53

Здравствуйте, Николай!

Ваш текстовой файл имеет определенную структуру, Вы можете
прочитать файл построчно, занося в переменные параметры, которые
находятся в файле, например:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
Dim sReadLine As String
'открываем файл для чтения
Open "C:\Данные.txt" For Input As #1
'считываем файл и выводим построчно _
пока EOF равен False
Do Until EOF(1)
 'читаем строку
 Line Input #1, sReadLine
 'если это не комментарий
 If Not Left(Trim(sReadLine), 1) = "*" Then
  'это не комментарий, значит это данные
  Dim ID As String
  Dim From As String
  Dim [To] As String 'в скобках, поскольку To является ключевым словом Visual Basic
  Dim BO As String
  Dim HO As String
  ID = Trim(Mid(sReadLine, 1, 6)) 'первые 6 символов в строке
  'функция Trim удаляет все пробелы по бокам
  If UCase(ID) = "F9" Then 'вместо "F9" надо поставить переменную, которая будет содержать искомое значение
   'нашли идишник, который нам нужен, получаем остальные данные
   From = Trim(Mid(sReadLine, 7, 5))
   'далее, поскольку это число, можем его преобразовать в число
   Dim dFrom As Double
   If IsNumeric(From) Then dFrom = CDbl(From)
   'остальные параметры
   [To] = Trim(Mid(sReadLine, 12, 5))
   '.. делаем тоже самое что и с From
   '..
   '...
   'и т.д. и т.п
   Exit Do 'выходим из цикла, т.к. все что нужно мы уже нашли
  End If
 End If
Loop
Close #1 'закрываем файл


--
С наилучшими пожеланиями,
Немиро Алексей

 

Вопрос #000401: Запись данных в последовательный и параллельный...

Автор вопроса: // 03.08.2007 / 13:35

Как записать двоичные данные в COM и LPT порт из C# ? Приведите,пожалуйста,примеры.
Спасибо!
__________

Отвечает: EROS // 04.08.2007 / 09:37

Здравствуйте.
В NET для работы с портами предусмотрен класс
System.IO.Ports.SerialPort.
Для записи данных в порт используйте один из перегруженных методов
Write или WriteLine
--
С уважением,
EROS

 

Вопрос #000400: Работа с сокетами

Автор вопроса: Николай // 03.08.2007 / 12:55

Система программирования: Visual Basic.NET 2005.
Пишу диплом(приложение типа клиент-сервер) и сталкнулся со следующей проблемой. В VB6 есть Winsock с которым очень лего работать по сети, а в VB.NET такого нету, там испоьзуются сокеты. Прочитал справку в MSDN, полазил по форумам различным, лишь тока кашу создал у себя в голове. Не могу понять как работать с сокетами. Если можете помогите пожалуйста. Или дайте пример программы клиент-сервер, простейший чат какойнибудь.
Да чуть незабыл :) надо все делать на TCP\IP, т.к. через программу будут проходить файлы, а через UDP их опасно высылать.
Заранее спасибо!

--------------------------------------
Категория: --- Visual Basic .NET

Отвечает: EROS // 04.08.2007 / 08:59

Здравствуйте, Николай.
В VS2005 с сокетами в чистом виде никто не работает (если только для
решения каких то специфичных задач). Для этого используют его
наследников.. в вашем случае это будет TcpClient. Для организации
клиент-севрверного приложения вам понядобятся 2 класса:
TcpClient и
TcpListener.


--
С уважением,
EROS mailto:eros@fromru.com

 

Вопрос #000389: Программный перевод компьютера в спящий режим

Автор вопроса: Игорь Голов // 23.07.2007 / 02:15

Доброго времени суток!
Возникла проблема - необходимо переводить компьютер в спящий режим из разрабатываемой программы.

Как это сделать?

Платформа: Microsoft Visual Basic 2005.

Спасибо!

--------------------------------------
Категория: --- Visual Basic .NET

Отвечает: EROS // 23.07.2007 / 09:38

Application.SetSuspendState Method
Suspends or hibernates the system, or requests that the system be
suspended or hibernated.
 
Подробности тут
 
С Уважением, EROS 

 


Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

 

 

Последнее на форумах

VB6: 32-битные иконки в приложении | Автор: Arcady
Добавлено: 16.08.2007 / 21:13 | ответов: 0 | просмотров: 15

Всем привет! У меня такой вопрос: как можно назначить стандартному PictureBox (в крайнем случае созданному Static) 32-битную иконку ?

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Лиственный текст | Автор: LeX
Добавлено: 14.08.2007 / 20:04 | ответов: 0 | просмотров: 16

Сегодня я покажу вам, как добиться вот такого результата:


1) Создаём холст любого размера, с любым фоном. Я выбрала 550*400
2) Заливаем фон #E3B600
3) Пишем шрифтом Impact #FBE075 любое слово. Обратите внимание:

Идём в blending options=>stroke, ставим настройки:

color обводки-#A0830E
4)Создаём новый слой: Layer-New layer
5) Зажимаем ctrl-клик левой кнопкой мыши на слой с буквами. (создаём выделение)
6)Выбираем , правой кнопкой мыши кликаем на хост, нажимаем в правом верхнем углу стрелочку, из списка выбираем Special Effect Brushes, размер: 37-43, смотря какой размер букв.
7) Проводим кисточкой внутри выделения, смотрим результат, любуемся. Видим, что чего-то не хватает, идём в blending options=>Drop shadow настраиваем:

8)Select-Deselect
9) Создаём новый слой МЕЖДУ фоном и буквами.
10) Опять выбираем кисть, стрелочка, Reset Brushes
11)Выбираем рисунок клёна и проводим кисточкой по фону.
Всё! Рисунок окончен!


Автор: Abstraction
Оригиналт

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Неоновое лого | Автор: LeX
Добавлено: 14.08.2007 / 17:04 | ответов: 0 | просмотров: 17

1.Создайте новый документ, 300*300 с черным фоном, затем используя' Rectangular Marquee Tool' создаём квадрат

2. Применяем 'Filter' > 'Distort' > 'Polar Coordinates'

3.Теперь дублируйте слой и поверните его на 180 ° 'Edit' > 'Transform' > 'Rotate 180°'изменяем режим смешивания на 'Linear Burn'.

4.Прежде, чем мы продолжаем, мы должны слить наши два слоя в один, чтобы сделать это мы щелкаем 'Layer' > 'Merge Down'Теперь щелкните'Filter' > 'Artistic' > 'Plastic Wrap'.с такими настройками:

5.Наконец мы используем 'Filter' > 'Disort' > 'Polar Coordinates'.. Измените параметры настройки на:

6.Теперь, чтобы добавить цвет жмём 'Ctrl и U' – делаем желаемый оттенок для вашего лого


Перевод: OLJKA
источник

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Пара микро вопросов по javascript | Автор: Kolya007
Добавлено: 14.08.2007 / 08:59 | ответов: 6 | просмотров: 72

1) Какой оператор получает данные из URL? Т.е. какой оператор выполняет то же, что и Request в ASP...
2) Есть ещё более короткий вариант? Спрашиваю из интереса... См. код...))
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
function hide_div() {
if ((вот сюда мне нужен ответ на первый вопрос) ="") {
window.div_1.style.visibility = 'hidden';
window.div_2.style.visibility = 'hidden';
}
}

function visible_div() {
if (window.div_1.style.visibility = 'hidden') {
window.div_1.style.visibility = 'visible';
} else {
window.div_1.style.visibility = 'hidden';
}
if (window.div_2.style.visibility = 'hidden') {
window.div_2.style.visibility = 'visible';
} else {
window.div_2.style.visibility = 'hidden';
}
}

hide_div() выполняется в body на событие onload...
visible_div() выполняется при клике на ссылку(при этом происходит обновление страницы и как назло срабатывает hide_div(), потому и первый вопрос)...

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: Алексей
Добавлено:14.08.2007 / 09:11
1) Какой оператор получает данные из URL? Т.е. какой оператор выполняет то же, что и Request в ASP...

Насколько мне известно, нет такого в JavaScript.
2) Есть ещё более короткий вариант? Спрашиваю из интереса... См. код...))

Смотрю :)

1. Лучше юзай display:
div_1.style.display = "none"
и
div_1.style.display = "inline"

Работает во всех популярных браузерах, проверял на IE 6.0/7.0, FF 1.5/2.0 и Opera.

2. <a href="" onclick="visible_div(); return false;">ссылка</a>

3. Хочешь короткий код, юзай ? : вместо if { ... }:
div_1.style.display = "none" ? div_1.style.display = "inline" : div_1.style.display = "none";

это тоже самое что и:

001:
002:
003:
004:
005:
if (window.div_1.style.visibility = 'none') {
  window.div_1.style.visibility = 'inline';
} else {
  window.div_1.style.visibility = 'none';
}


_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: Алексей
Добавлено:14.08.2007 / 09:19
хотя, нет, короткий код не правильный :) вот так круче:
div_1.style.display = (div_1.style.display == "none" ? "inline" : "none")

зы: в моем первом варианте тоже два равно надо при сравнении (перед оператором ?)

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 3 | Автор: Kolya007
Добавлено:14.08.2007 / 09:44
А как мне тогда быть с hide_div() она ведь перебивает работу visible_div()...
Или с display этого небудет?..

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 4 | Автор: Алексей
Добавлено:14.08.2007 / 09:54
А как мне тогда быть с hide_div() она ведь перебивает работу visible_div()...
Или с display этого небудет?..

ну если у тебя скрытие происходит при загрузке страницы, то в данном
случае visible_div будет вызываться только один раз, хотя это не
оправдано, лучше уж самому в ручную в style у дива написать display:none;..

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 5 | Автор: Kolya007
Добавлено:14.08.2007 / 22:09
Ок. Понял. Спасибо...))

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 6 | Автор: Korkinet
Добавлено:16.08.2007 / 12:54
Если ипользуются URL типа doc.html?a=1&b=2, то есть такое свойство в javascript - location.search, которое возвращает строку в URL после знака "?". Ну а дальше уже юзаем indexOf...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Свет из текста | Автор: LeX
Добавлено: 14.08.2007 / 08:52 | ответов: 1 | просмотров: 30

Мой первый урок.
1.Создаем новый документ 400*400
Параметры у него вот такие должны быть..
Color Mode>RGB Color.
Background>Transparet.
2. Заливаем его черным
3.Текст пишем белым цветом.
4.Выравниваем текст.
5.Склеиваем слои CTRL+E
6.Filter>Blur>Gaussion Blur>1.5 px.
7.Filter>Stylizer>Solarize.
8.Делаем копию слоя CTRL+J.
9.Filter>Distort>Polar-Выбираем там пункт 2-Polar to Rectangular.
10.Rotate Cavans 90*CW.
11.Stylize>Wind-два раза жмем ctrl+f.
12.Image>Adjusmenst>Auto Levels.
13.Rotate Cavans 90*CCW.
14.Filter>Distrot>Polar>Вы бираем там пункт 1-Rectangular Polar to.
15.Cтавим режим слоя на Screуn.
Все...
Если что не так пишите.
Вот что должно получится с надписью..



Оригинал
Автор: Rossi

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: Алексей
Добавлено:14.08.2007 / 08:55
у меня получился вот такой глюк:

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Наверх

 

Последние статьи

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 440

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 775

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 190

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 1912

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. ...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 1851

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

 

Статьи на Kbyte.Ru

Наверх

 

Интересные коды и решения

Получение многоразрядного числа
Дата добавления: 31.07.2006 / 12:32 | просмотров: 514 | платформа: VB

Как загрузить текстовой файл целиком?
Дата добавления: 31.07.2006 / 17:12 | просмотров: 438 | платформа: ASP .NET (VB)

Как изменить раскладку клавиатуры (Ru-En-Du ...)?
Дата добавления: 16.08.2006 / 19:44 | просмотров: 573 | платформа: VB

Как запретить пользователю перемещать форму?
Дата добавления: 31.07.2006 / 12:05 | просмотров: 415 | платформа: VB

Как получить данные из базы данных?
Дата добавления: 31.07.2006 / 12:50 | просмотров: 1359 | платформа: VB

Как запретить пользователю закрыть форму?
Дата добавления: 31.07.2006 / 12:10 | просмотров: 494 | платформа: VB

Как отправить файл в корзину? (!API!)
Дата добавления: 24.03.2007 / 12:23 | просмотров: 355 | платформа: VB .NET

Как отправить E-Mail?
Дата добавления: 01.08.2006 / 11:52 | просмотров: 1322 | платформа: ASP

Получение многоразрядного числа2
Дата добавления: 31.07.2006 / 12:33 | просмотров: 450 | платформа: VB

Перекодировка текста из DOS в Windows и обратно
Дата добавления: 31.07.2006 / 12:31 | просмотров: 658 | платформа: VB

 

Универсальные коды на Kbyte.Ru

Наверх

 

Юмор на Kbyte.Ru

Вовочка приходит домой.
В: мама, знаешь сегодня что в школе случилось?
-нет.
В: училка несла в класс клей, упала и приклеилась.
- ну и что? Вы ее отодрали?
В: да, а тот, кто смелый, тот и по-два раза...

 

Рейтинг: 22
Всего голосов: 26
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Красный свет. На перекрёстке останавливается навороченная, тонированная "девятка", тут же сзади врубается старая "Тойота". Из "девятки" вылезает амбал, подходит к левой дверце "Тойоты", вытаскивает оттуда маленького мужичка в очках и начинает его гвоздить мордой об капот. Тут тихо открывается правая дверь "Тойоты", выходит амбал в два раза больше этого и говорит: - Ох, неправ ты, братан, так неправ! (Разминая с хрустом руки) - У японских машин руль справа! Как же ты неправ, братан...

 

Рейтинг: 29
Всего голосов: 31
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Все люди делятся на две категории: Первые не знают кто такой Билл Гейтс, а вторые его не любят.

 

Рейтинг: 646
Всего голосов: 975
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

- Чем же объяснить, что ты не умер, когда тебе прострелили грудь?
- Тем, что у меня в эту минуту сердце ушло в пятку.

 

Рейтинг: 33
Всего голосов: 40
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Приходит хакер к пианисту, а тот ему хвалиться новым пианино. Хакер посмотрел оценивающее и сказал:
- Клавиатура, конечно хреновая, но то что shift ногами нажимать надо-это круто.

 

Рейтинг: 46
Всего голосов: 73
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Весь покрытый BADами абсалютно весь HARDDISC невезения в магазине есть...

 

Рейтинг: 42
Всего голосов: 78
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Билл Гейтс: - Если бы автомобилестроение развивалось такими темпами, как компьютерная промышленность, то сегодня автомобили бы ездили со скоростью 600 км/ч и расходовали 2 литра бензина на 100 километров! General Motors: - Да, но хотелось бы вам чинить ваш автомобиль 2 раза в день?

 

Рейтинг: 368
Всего голосов: 519
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Удалить папку вместе с ее содержимым?

 

Рейтинг: 354
Всего голосов: 526
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Идет третий этап завершения продолжения окончания установки Microsoft Office 2000

 

Рейтинг: 45
Всего голосов: 77
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Парень берет девушку на руки и несет в кровать.
— Дорогой, а может лучше после свадьбы?
— Ты что, а вдруг муж ревнивый попадется!

 

Рейтинг: 675
Всего голосов: 984
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Весь юмор на Kbyte.Ru

Наверх


Выпуск подготовил: R-KDR-19826

Редактор: Немиро Алексей

Copyright (c) Nemiro AS, 2005-2007


В избранное