Скачать 2.57 Mb.
|
---------------------------------------------------------------------------------- Dim lmn(2000000) As String Private Sub CommandCreate_Click() nmcrd = "*LOAD_MOTION_NODE" mark = "$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8" namvar = "$ NODE1 DOF1 LCID SF CID1 NODE2 DOF2 CID2" ende = "*END" nz = Val(TextStart.Text) kn = Val(TextEnd.Text) dof1 = TextDof1.Text lcid = TextLcid.Text sf = TextSf.Text cid1 = TextCid1.Text node2 = TextNode2.Text dof2 = TextDof2.Text cid2 = TextCid2.Text For i = nz To kn node1 = Str(i) ksn1 = Len(node1) For j = 1 To 10 - ksn1 node1 = " " + node1 Next j If TextNode2.Text = " то же" Then node2 = node1 card = node1 + dof1 + lcid + sf + cid1 + node2 + dof2 + cid2 lmn(i) = card Next i namefile = "D:\Наши документы\Папа\Разное\LOAD MOTION NODE\LoMoNo" + ".inc" Open namefile For Output As #1 Print #1, nmcrd Print #1, mark Print #1, namvar For i = 1 To kn If lmn(i) <> "" Then Print #1, lmn(i) Next i Print #1, mark Print #1, ende Close #1 CommandCreate.Caption = "Готово !!!" End Sub ------------------------------------------------------------------------- Private Sub CommandCreate_LostFocus() CommandCreate.Caption = "Сформировать" End Sub ------------------------------------------------------------------------- Private Sub Form_Load() TextStart.SelStart = 0 TextStart.SelLength = Len(TextStart.Text) End Sub ------------------------------------------------------------------------- Private Sub TextCid1_GotFocus() TextCid1.SelStart = 0 TextCid1.SelLength = Len(TextCid1.Text) End Sub ------------------------------------------------------------------------- Private Sub TextCid1_LostFocus() ks = Len(TextCid1.Text) If ks < 1 Or ks > 10 Then soobsh = "В ОКНЕ CID1 НЕВЕРНОЕ КОЛИЧЕСТВО СИМВОЛОВ" Call Errmes(soobsh) TextCid1.SetFocus TextCid1.SelStart = 0 TextCid1.SelLength = Len(TextCid1.Text) End If For i = 1 To 10 - ks TextCid1.Text = " " + TextCid1.Text Next i End Sub ---------------------------------------------------------------------------- Private Sub TextCid2_GotFocus() TextCid2.SelStart = 0 TextCid2.SelLength = Len(TextCid2.Text) End Sub ---------------------------------------------------------------------------- Private Sub TextCid2_LostFocus() ks = Len(TextCid2.Text) If ks < 1 Or ks > 10 Then soobsh = "В ОКНЕ CID2 НЕВЕРНОЕ КОЛИЧЕСТВО СИМВОЛОВ" Call Errmes(soobsh) TextCid2.SetFocus TextCid2.SelStart = 0 TextCid2.SelLength = Len(TextCid2.Text) End If For i = 1 To 10 - ks TextCid2.Text = " " + TextCid2.Text Next i End Sub ---------------------------------------------------------------------------- Private Sub TextDof1_GotFocus() TextDof1.SelStart = 0 TextDof1.SelLength = Len(TextDof1.Text) End Sub ---------------------------------------------------------------------------- Private Sub TextDof1_LostFocus() ks = Len(TextDof1.Text) If ks < 1 Or ks > 10 Then soobsh = "В ОКНЕ DOF1 НЕВЕРНОЕ КОЛИЧЕСТВО СИМВОЛОВ" Call Errmes(soobsh) TextDof1.SetFocus TextDof1.SelStart = 0 TextDof1.SelLength = Len(TextDof1.Text) End If For i = 1 To 10 - ks TextDof1.Text = " " + TextDof1.Text Next i End Sub ---------------------------------------------------------------------------- Private Sub Errmes(soobsh) MsgBox soobsh, vbExclamation, "Неверный ввод данных" End Sub ---------------------------------------------------------------------------- Private Sub TextDof2_GotFocus() TextDof2.SelStart = 0 TextDof2.SelLength = Len(TextDof2.Text) End Sub ---------------------------------------------------------------------------- Private Sub TextDof2_LostFocus() ks = Len(TextDof2.Text) If ks < 1 Or ks > 10 Then soobsh = "В ОКНЕ DOF2 НЕВЕРНОЕ КОЛИЧЕСТВО СИМВОЛОВ" Call Errmes(soobsh) TextDof2.SetFocus TextDof2.SelStart = 0 TextDof2.SelLength = Len(TextDof2.Text) End If For i = 1 To 10 - ks TextDof2.Text = " " + TextDof2.Text Next i End Sub ----------------------------------------------------------------------------- Private Sub TextEnd_GotFocus() TextEnd.SelStart = 0 TextEnd.SelLength = Len(TextEnd.Text) End Sub ----------------------------------------------------------------------------- Private Sub TextEnd_LostFocus() ks = Len(TextEnd.Text) If ks < 1 Or ks > 10 Then soobsh = "В ОКНЕ END НЕВЕРНОЕ КОЛИЧЕСТВО СИМВОЛОВ" Call Errmes(soobsh) TextEnd.SetFocus TextEnd.SelStart = 0 TextEnd.SelLength = Len(TextEnd.Text) End If End Sub ----------------------------------------------------------------------------- Private Sub TextLcid_GotFocus() TextLcid.SelStart = 0 TextLcid.SelLength = Len(TextLcid.Text) End Sub ----------------------------------------------------------------------------- Private Sub TextLcid_LostFocus() ks = Len(TextLcid.Text) If ks < 1 Or ks > 10 Then soobsh = "В ОКНЕ LCID НЕВЕРНОЕ КОЛИЧЕСТВО СИМВОЛОВ" Call Errmes(soobsh) TextLcid.SetFocus TextLcid.SelStart = 0 TextLcid.SelLength = Len(TextLcid.Text) End If For i = 1 To 10 - ks TextLcid.Text = " " + TextLcid.Text Next i End Sub ------------------------------------------------------------------------------ Private Sub TextNode2_GotFocus() TextNode2.SelStart = 0 TextNode2.SelLength = Len(TextNode2.Text) End Sub ------------------------------------------------------------------------------- Private Sub TextNode2_LostFocus() ks = Len(TextNode2.Text) If ks < 1 Or ks > 10 Then soobsh = "В ОКНЕ NODE2 НЕВЕРНОЕ КОЛИЧЕСТВО СИМВОЛОВ" Call Errmes(soobsh) TextNode2.SetFocus TextNode2.SelStart = 0 TextNode2.SelLength = Len(TextNode2.Text) End If For i = 1 To 10 - ks TextNode2.Text = " " + TextNode2.Text Next i End Sub ----------------------------------------------------------------------------- Private Sub TextSf_GotFocus() TextSf.SelStart = 0 TextSf.SelLength = Len(TextSf.Text) End Sub ---------------------------------------------------------------------------- Private Sub TextSf_LostFocus() ks = Len(TextSf.Text) If ks < 1 Or ks > 10 Then soobsh = "В ОКНЕ SF НЕВЕРНОЕ КОЛИЧЕСТВО СИМВОЛОВ" Call Errmes(soobsh) TextSf.SetFocus TextSf.SelStart = 0 TextSf.SelLength = Len(TextSf.Text) End If For i = 1 To 10 - ks TextSf.Text = " " + TextSf.Text Next i End Sub ----------------------------------------------------------------------------- Private Sub TextStart_GotFocus() TextStart.SelStart = 0 TextStart.SelLength = Len(TextStart.Text) End Sub ----------------------------------------------------------------------------- Private Sub TextStart_LostFocus() ks = Len(TextStart.Text) If ks < 1 Or ks > 10 Then soobsh = "В ОКНЕ START НЕВЕРНОЕ КОЛИЧЕСТВО СИМВОЛОВ" Call Errmes(soobsh) TextStart.SetFocus TextStart.SelStart = 0 TextStart.SelLength = Len(TextStart.Text) End If End Sub Приложение 6 Свидетельство о допустимых условиях ледового плавания судна
|
Общие правила плавания и стоянки судов в морских портах Российской Федерации и на подходах к ним Омский институт водного транспорта (филиал) фбоу впо «Новосибирская государственная академия водного транспорта» | Отчет о научно-исследовательской работе Разработка критериев оценки качества очистки внутренних поверхностей трубопроводов систем теплоснабжения жилого фонда г. Красноярска... | ||
Программа по формированию навыков безопасного поведения на дорогах... Обеспечить усвоение учащимися особенностей экономико-географического положения, природных условий и природных ресурсов района, акцентировать... | Объединение специалистов по охране труда прошлое, настоящее, будущее Президент Межрегиональной Ассоциации содействия обеспечению безопасных условий труда «эталон» | ||
Рабочая программа по дисциплине «Элементы систем автоматики судов» Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования | Задачи автоматизированного проектирования 4 развитие cad/cam/cae-систем 10 Остальные, так называемые косвенные проектные работы, занимающие примерно одну треть общего времени на конструирование, могут быть... | ||
Положение о режиме работы гоу сош №1173 Положение разработано для регламентирования безопасных условий воспитательно-образовательного процесса и четкой организации труда... | О назначении ответственных лиц за организацию безопасной работы В целях обеспечения здоровых и безопасных условий труда и проведения учебно – воспитательного процесса, во исполнение ст ст. 212,... | ||
Программа по формированию навыков безопасного поведения на дорогах... Распределение обязанностей в работе по созданию безопасных условий труда и предупреждению детского травматизма между членами администрации... | 1 История развития спортивного плавания Построить график рекордов... Кафедра теории и методики спортивного и синхронного плавания, аквааэробики, прыжков в воду и водного поло | ||
1 История развития спортивного плавания Построить график рекордов... Кафедра теории и методики спортивного и синхронного плавания, аквааэробики, прыжков в воду и водного поло | Программа по формированию навыков безопасного поведения на дорогах... Цель урока: Добиться усвоения учащимися условий плавания тел на основе изученного понятия об архимедовой силе | ||
Задачами контрольно-пропускного режима в образовательном учреждении... Оу и создание безопасных условий для обучающихся и работников оу и других лиц, находящихся в здании и на территории оу | Процедуры контроля судов государством порта Ссылаясь на статью 15 (j) Конвенции о Международной морской организации, касающуюся функций Ассамблеи в отношении правил и руководств,... | ||
Программа по формированию навыков безопасного поведения на дорогах... В связи с установлением электронного прибора учета посещения обучающихся и работников школы, а также в целях создания безопасных... | Город окружного значения нижневартовск В целях эффективной организации образовательного процесса, обеспечения безопасных условий для жизнедеятельности школы, в соответствии... |