PureBoard

Code: Alles auswählen

#PBFORMS CREATED V1.51


#COMPILE EXE
#DIM ALL

'------------------------------------------------------------------------------
'   ** Includes **
'------------------------------------------------------------------------------
#PBFORMS BEGIN INCLUDES
#IF NOT %DEF(%WINAPI)
    #INCLUDE "WIN32API.INC"
#ENDIF
#PBFORMS END INCLUDES
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Constants **
'------------------------------------------------------------------------------
#PBFORMS BEGIN CONSTANTS
%IDD_DIALOG1       =  101
%IDC_TEXTAUSGABE   = 1001
%IDC_TEXTEINGABE   = 1002
%IDC_BUTTON_Senden = 1003
%WM_Empfangen      = 10000
#PBFORMS END CONSTANTS
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Declarations **
'------------------------------------------------------------------------------
DECLARE CALLBACK FUNCTION ShowDIALOG1Proc()
DECLARE FUNCTION ShowDIALOG1(BYVAL hParent AS DWORD) AS LONG
#PBFORMS DECLARATIONS
DECLARE FUNCTION Empfangen() AS STRING

GLOBAL hDlg  AS DWORD
GLOBAL myserver AS LONG
GLOBAL myname AS STRING

'------------------------------------------------------------------------------
'Meine Funktionen

FUNCTION ip2num (BYVAL sIP AS STRING) AS LONG
   LOCAL ix AS LONG
   LOCAL nResult AS LONG
   LOCAL pb AS BYTE PTR
   pb = VARPTR(nResult) + SIZEOF(nResult) - 1

   FOR ix = 4 TO 1 STEP -1
      @pb = VAL(PARSE$(sIP, ".", ix))
      DECR pb

   NEXT
FUNCTION = nResult
END FUNCTION

FUNCTION empfangen() AS STRING
   LOCAL sendIP&
   LOCAL sendPort&
   LOCAL mytext AS STRING

   UDP RECV myserver, FROM sendIP, sendPort, myText

   FUNCTION = myText
END FUNCTION




FUNCTION sendText(BYVAL newtext AS STRING) AS LONG
   LOCAL ip&
   ip = ip2num("192.168.73.255")
   UDP SEND myserver, AT ip , 2323, newtext
END FUNCTION



FUNCTION setText(BYVAL newtext AS STRING) AS LONG
   LOCAL oldtext AS STRING

   CONTROL GET TEXT hdlg, %IDC_TEXTAUSGABE TO oldtext
   newtext = CHR$(oldtext,13,10,newtext)
   CONTROL SET TEXT hdlg, %IDC_TEXTAUSGABE, newtext

END FUNCTION



FUNCTION GetName() AS STRING
   LOCAL myName AS STRING

   WHILE myname = ""
      myname = INPUTBOX$("Geben Sie Ihren Namen ein:",, "")
   WEND

   FUNCTION = myname
END FUNCTION


FUNCTION OeffneServer(BYVAL myPort AS LONG) AS LONG
   LOCAL myServer AS LONG
   LOCAL myError AS LONG

   myserver = FREEFILE

   UDP OPEN PORT 2323 AS myserver TIMEOUT 1000

   IF ERR THEN
      MSGBOX "Konnte Port nicht oeffnen oder UDP-Server nicht starten!"
      myError = 1
      ELSE
      UDP NOTIFY myServer, RECV TO hdlg AS %WM_Empfangen
   END IF

   IF myError <> 1 THEN
         FUNCTION = 1
      ELSE
         FUNCTION = 0
   END IF
END FUNCTION



'Ende meiner Funktionen




'------------------------------------------------------------------------------
'   ** Main Application Entry Point **
'------------------------------------------------------------------------------
FUNCTION PBMAIN()
    ShowDIALOG1 %HWND_DESKTOP
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** CallBacks **
'------------------------------------------------------------------------------
CALLBACK FUNCTION ShowDIALOG1Proc()



    SELECT CASE AS LONG CBMSG
        CASE %WM_INITDIALOG
            LOCAL myTEXT AS STRING
            myname = getname()

            IF oeffneserver(2323) THEN
               CONTROL SET TEXT cbhndl,%IDC_TEXTAUSGABE, "Server erfolgreich geöffnet!"
            ELSE
               CONTROL SET TEXT cbhndl,%IDC_TEXTAUSGABE, "Konnte Server oder Port nicht öffnen...!"
            END IF


        CASE %WM_NCACTIVATE
            STATIC hWndSaveFocus AS DWORD
            IF ISFALSE CBWPARAM THEN
                ' Save control focus
                hWndSaveFocus = GetFocus()
            ELSEIF hWndSaveFocus THEN
                ' Restore control focus
                SetFocus(hWndSaveFocus)
                hWndSaveFocus = 0
            END IF

        CASE %WM_COMMAND
            ' Process control notifications
            SELECT CASE AS LONG CBCTL
                CASE %IDC_TEXTAUSGABE

                CASE %IDC_TEXTEINGABE

                CASE %IDC_BUTTON_Senden
                    IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
                     CONTROL GET TEXT cbhndl, %IDC_TEXTEINGABE TO myTEXT
                     CONTROL SET TEXT cbhndl, %IDC_TEXTEINGABE, ""
                     myText = myName + ": " + myText
                     setText(myTEXT)
                     sendText(myText)
                    END IF

               CASE %WM_Empfangen
                  settext(empfangen())

               END SELECT





    END SELECT
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Dialogs **
'------------------------------------------------------------------------------
FUNCTION ShowDIALOG1(BYVAL hParent AS DWORD) AS LONG
    LOCAL lRslt AS LONG

#PBFORMS BEGIN DIALOG %IDD_DIALOG1->->


    DIALOG NEW hParent, "Marc-Chat Version 1.0", 244, 137, 201, 132, _
        %WS_POPUP OR %WS_BORDER OR %WS_DLGFRAME OR %WS_CAPTION OR _
        %WS_SYSMENU OR %WS_MINIMIZEBOX OR %WS_MAXIMIZEBOX OR _
        %WS_CLIPSIBLINGS OR %WS_VISIBLE OR %DS_MODALFRAME OR %DS_3DLOOK OR _
        %DS_NOFAILCREATE OR %DS_SETFONT, %WS_EX_CONTROLPARENT OR %WS_EX_LEFT _
        OR %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR, TO hDlg

    CONTROL ADD TEXTBOX, hDlg, %IDC_TEXTAUSGABE, "", 5, 5, 185, 90, %WS_CHILD _
        OR %WS_VISIBLE OR %ES_LEFT OR %ES_MULTILINE OR %ES_AUTOHSCROLL OR _
        %ES_READONLY, %WS_EX_CLIENTEDGE OR %WS_EX_LEFT OR %WS_EX_LTRREADING _
        OR %WS_EX_RIGHTSCROLLBAR

    CONTROL ADD TEXTBOX, hDlg, %IDC_TEXTEINGABE, "", 5, 100, 150, 25, _
        %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %ES_LEFT OR %ES_MULTILINE _
        OR %ES_AUTOHSCROLL, %WS_EX_CLIENTEDGE OR %WS_EX_LEFT OR _
        %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR

    CONTROL ADD BUTTON,  hDlg, %IDC_BUTTON_Senden, "Absenden", 160, 105, 40, _
        15
#PBFORMS END DIALOG

    DIALOG SHOW MODAL hDlg, CALL ShowDIALOG1Proc TO lRslt

#PBFORMS BEGIN CLEANUP %IDD_DIALOG1
#PBFORMS END CLEANUP

    FUNCTION = lRslt
END FUNCTION





'-------------------------------ENDE-------------------------------------