Red de conocimiento informático - Aprendizaje de código fuente - Datagrama en lenguaje simple

Datagrama en lenguaje simple

.Versión 2

.Ventana de programa programa 1

.IP del par de variable de ensamblaje, tipo de texto

.Variable de ensamblaje Puerto, entero

.Haga clic en subrutina_Botón 1_

.If (cuadro de edición 2. contenido ≠"")

.if (datagrama 1. enviar datos (cuadro combinado 2. contenido, otros puertos, cuadro combinado 1. contenido + # salto de línea + cuadro de edición 2. contenido))

cuadro de edición 2. contenido = ""

De lo contrario

cuadro de edición 1. Agregue texto ("[Mensaje] ¡Error en el envío de datos!", # Salto de línea)

Si finaliza

De lo contrario

Cuadro de edición 1. Agregue texto (. "[Mensaje] ¡Ingrese lo que desea enviar!", # Salto de línea)

.Si final

Cuadro de edición 2. Obtenga focus()

.Subrutina__Datagrama 1_Llegada de datos

Cuadro de edición 1. Agregar texto (al texto (datagrama 1. buscar datos ()), # salto de línea)

.Subrutina Rutina__Ventana de inicio_Creada

ComboBox1.Add Item ("[Máquina 1]", )

ComboBox1.Add Item ("[Máquina 2]", )

ComboBox2.AddItem("19730", 19730)

ComboBox3. Agregar elemento ("19731", 19731)

Combobox 3. Agregar elemento ("19732", 19732)

Combobox 4.

Combobox 4.

Agregar elemento ("19731", 19731)

Cuadro combinado 4. Agregar elemento ("19732", 19732)

Cuadro combinado 1. Elemento seleccionado actualmente = 0

Cuadro combinado 2. El elemento seleccionado actualmente = 0

Cuadro combinado 3. El elemento seleccionado actualmente = 0

_ComboBox1_ListItemsSelected ()

_ComboBox2_ListItemsSelected ()

_ComboBox3_ListItemsSelected()

_Combobox 4_list_item_selected()

Subrutina _ComboBox1_ListItemsSelected

Título = ComboBox1.FetchItemText (ComboBox1.CurrentSelectedItems)

.Subroutine_ComboBox2_ListItemSelected

IP del oponente = ComboBox2.FetchItemText (ComboBox2.CurrentSelectedItem)

.Subroutine_ComboBox3_ListItemSelected

OtroPuerto = ComboBox3.GetItemValue (ComboBox3.CurrentSelected)

.Subroutine_ComboBox4_ListItemSelected

Datagram1.Port = ComboBox4.TakeItemValue (ComboBox4.CurrentSelectedItem)

.

上篇: ¿Qué significa enrutamiento inalámbrico de doble banda? 下篇: ¿Cómo volver a cambiar la pantalla en blanco y negro del teléfono móvil? ¿Cómo resolver el problema de la pantalla en blanco y negro del teléfono móvil?

Artículos populares