Jump to content

Mouth on InputBox Edit

Reyzor

By Reyzor,
in AutoIt General Help and Support

 Share

Recommended Posts

Reyzor Seeker

Reyzor

Posted
Posted (edited)

Hello Guys,

 

Im new on Autoit and i need help.

My english is not good but i will try to explain what i pretend.

 

In a Inputbox i pretend a Date! Like this:  12 September 2015.        But show me this: 12 09 2015.   I want in a Portuguese Language too.

I use this:

$TribunalLabel = GUICtrlCreateLabel("Tribunal da Comarca de Lisboa Norte", 8, 232, 301, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Dia = GUICtrlCreateLabel("Dia", 8, 256, 31, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

$DiadeTribunal = GUICtrlCreateInput((@MDAY+1 & "-" & @MON & "-" &@YEAR), 72, 256, 241, 21)  

 

finally the best, if someone can help me to make this: Saturday, 12 September 2015.

 

 

thanks very much!

 

 

Full text autoit:

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\reyz\desktop\autoit\novo detenção.kxf
$DN = GUICreate("DN", 498, 286, 272, 179)

 

;NIP
$NIP = GUICtrlCreateLabel("NIP", 48, 8, 33, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$NipSistema = GUICtrlCreateInput("NIP", 96, 8, 73, 21)

 

;Nome
$Nome = GUICtrlCreateLabel("Nome", 8, 32, 50, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$NSuspeito = GUICtrlCreateInput("Nome", 72, 32, 417, 21)

;DN mitra
$DN = GUICtrlCreateLabel("DN", 8, 56, 29, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$DataNascimento = GUICtrlCreateInput("DN", 72, 56, 97, 21)

;BI
$BICC = GUICtrlCreateLabel("BI/CC", 8, 80, 51, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$CartaoCidadao = GUICtrlCreateInput("BI", 72, 80, 97, 21)

;Morada
$Moradas = GUICtrlCreateLabel("Morada", 8, 176, 64, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Morada = GUICtrlCreateInput("Morada", 72, 176, 417, 21)


;Nº Porta
$Numero = GUICtrlCreateLabel("Nº", 8, 200, 23, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$NPorta = GUICtrlCreateInput("nPorta", 72, 200, 73, 21)


;Localidade de residencia
$Localidade = GUICtrlCreateInput("LocaldeMorada", 264, 200, 113, 21)
$Local = GUICtrlCreateLabel("Localidade", 168, 200, 91, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

;Naturalidade
$Natural = GUICtrlCreateLabel("Natural", 8, 152, 62, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Naturalidade = GUICtrlCreateInput("Natural", 72, 152, 417, 21)

;Nome Pai
$Pai = GUICtrlCreateLabel("Pai", 8, 104, 29, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$NPai = GUICtrlCreateInput("Pai", 72, 104, 417, 21)

;Nome da mae
$Mae = GUICtrlCreateLabel("Mae", 8, 128, 38, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$NMae = GUICtrlCreateInput("Mae", 72, 128, 417, 21)

;Codigo Postal
$CP = GUICtrlCreateLabel("CP", 384, 200, 27, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$CodigoPostal = GUICtrlCreateInput("CP", 416, 200, 73, 21)


;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

;Dia de Tribunal
$TribunalLabel = GUICtrlCreateLabel("Tribunal da Comarca de Lisboa Norte", 8, 232, 301, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Dia = GUICtrlCreateLabel("Dia", 8, 256, 31, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$DiadeTribunal = GUICtrlCreateInput((@MDAY+1 & "-" & @MON & "-" &@YEAR), 72, 256, 241, 21)

;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

 

; Data Presente
$PData = GUICtrlCreateLabel("Data", 376, 232, 37, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$DataPresente = GUICtrlCreateInput((@MDAY & "-" & @MON & "-" &@YEAR), 416, 232, 73, 21, $ES_READONLY)

 


$Radio1 = GUICtrlCreateRadio("10H00", 320, 256, 73, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Radio2 = GUICtrlCreateRadio("14H00", 400, 256, 81, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

 

 

 

Edited by Reyzor
submit autoit text
Link to comment
Share on other sites
Surya Polymath

Surya

Posted
Posted

First of all welcome to autoit forums

may this code help you:

#include <Date.au3>

GUICreate("")
$TribunalLabel = GUICtrlCreateLabel("Tribunal da Comarca de Lisboa Norte", 8, 232, 301, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Dia = GUICtrlCreateLabel("Dia", 8, 256, 31, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

$DiadeTribunal = GUICtrlCreateInput(_convertweek() &"," &(@MDAY + 1 & " " & _covertmonth(@MON) & " " & @YEAR), 72, 256, 241, 21)

GUISetState(@SW_SHOW)
Sleep(1000)

Func _convertweek($vr = @MDAY)
Return _DateDayOfWeek (_DateToDayOfWeek ( @YEAR, @MON, $vr ), 2 )
EndFunc

Func _covertmonth($var = @MON)
    Switch $var
        Case 1
            Return "January"

        Case 2
            Return "February"

        Case 3
            Return "March"

        Case 4
            Return "April"

        Case 5
            Return "May"

        Case 6
            Return "June"

        Case 7
            Return "July"

        Case 8
            Return "August"

        Case 9
            Return "September"

        Case 10
            Return "October"

        Case 11
            Return "November"

        Case 12
            Return "December"

    EndSwitch
EndFunc   ;==>_covert

 

No matter whatever the challenge maybe control on the outcome its on you its always have been.

MY UDF: Transpond UDF (Sent vriables to Programs) , Utter UDF (Speech Recognition)

Link to comment
Share on other sites
Surya Polymath

Surya

Posted
Posted

Yes it also does the job (Its Simple)

#include <Date.au3>

GUICreate("")
$TribunalLabel = GUICtrlCreateLabel("Tribunal da Comarca de Lisboa Norte", 8, 232, 301, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Dia = GUICtrlCreateLabel("Dia", 8, 256, 31, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

$DiadeTribunal = GUICtrlCreateInput( _DateTimeFormat(_NowCalc(), 1),10,10,100)
GUISetState(@SW_SHOW)
Sleep(1000)

 

No matter whatever the challenge maybe control on the outcome its on you its always have been.

MY UDF: Transpond UDF (Sent vriables to Programs) , Utter UDF (Speech Recognition)

Link to comment
Share on other sites
  • Developers
Jos Universalist

Jos

Posted
  • Developers
Posted

@reyzor, please dont say you have an error but always tell us the exact error you get and show the code you use! Only then we will be able to help. Jos

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.  :)

Link to comment
Share on other sites
Surya Polymath

Surya

Posted
Posted

please post the error:

 

Code more simplified here:

#include <Date.au3>

GUICreate("")
$TribunalLabel = GUICtrlCreateLabel("Tribunal da Comarca de Lisboa Norte", 8, 232, 301, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Dia = GUICtrlCreateLabel("Dia", 8, 256, 31, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")

$DiadeTribunal = GUICtrlCreateInput(_convertweek() &"," &(@MDAY + 1 & " " & _covertmonth(@MON) & " " & @YEAR), 72, 256, 241, 21)

GUISetState(@SW_SHOW)
Sleep(1000)

Func _convertweek($vr = @MDAY)
    $vrs = _DateToDayOfWeek ( @YEAR, @MON, $vr )
    Switch $vrs
        Case 1
            Return "Sunday"

        Case 2
            Return "Monday"

        Case 3
            Return "Tuesday"

        Case 4
            Return "Wednesday"

        Case 5
            Return "Thursday"

        Case 6
            Return "Friday"

        Case 7
            Return "Saturday"

    EndSwitch
EndFunc

Func _covertmonth($var = @MON)
    Switch $var
        Case 1
            Return "January"

        Case 2
            Return "February"

        Case 3
            Return "March"

        Case 4
            Return "April"

        Case 5
            Return "May"

        Case 6
            Return "June"

        Case 7
            Return "July"

        Case 8
            Return "August"

        Case 9
            Return "September"

        Case 10
            Return "October"

        Case 11
            Return "November"

        Case 12
            Return "December"

    EndSwitch
EndFunc   ;==>_covert

 

No matter whatever the challenge maybe control on the outcome its on you its always have been.

MY UDF: Transpond UDF (Sent vriables to Programs) , Utter UDF (Speech Recognition)

Link to comment
Share on other sites
TheSaint Universalist

TheSaint

Posted
Posted

Did you copy & run the whole script, making sure it had #include <Date.au3> at the top?

What value does $vr have? If it is not a number you may get an error.

Using a MsgBox to check on values in a variable is very helpful.

Make sure brain is in gear before opening mouth!
Remember, what is not said, can be just as important as what is said.

Spoiler

What is the Secret Key? Life is like a Donut

If I put effort into communication, I expect you to read properly & fully, or just not comment.
Ignoring those who try to divert conversation with irrelevancies.
If I'm intent on insulting you or being rude, I will be obvious, not ambiguous about it.
I'm only big and bad, to those who have an over-active imagination.

I may have the Artistic Liesense ;) to disagree with you. TheSaint's Toolbox (be advised many downloads are not working due to ISP screwup with my storage)

userbar.png

Link to comment
Share on other sites
Reyzor Seeker

Reyzor

Posted
  • Author
Posted (edited)

Guys, im so dumb!! i dont use the #include <Date.au3> at the top... damm lool

Thanks very much guys!!

 

But now i have another question :/ i want to do this:

Sunday, 01 of January 2015. (today)

In autoit scrit i need: Monday 02 Of January of 2015 (the day is correct in  my script except the name day and moth if is day 31)

More one day in relation of the present day, and jump Saturday and Sunday to Monday. 

 

is that possible?

i do that:

$DiadeTribunal = GUICtrlCreateInput(_convertweek() &"" & " de " & _covertmonth(@MON) & " " & @YEAR & " pelas, ", 72, 256, 241, 21)

GUISetState(@SW_SHOW)
Sleep(1000)

Func _convertweek($vr = @MDAY)
    $vrs = _DateToDayOfWeek ( @YEAR, @MON, $vr )
    Switch $vrs
        Case 1
            Return "Segunda-Feira" & "," & (@Mday +1 )

        Case 2
            Return "Segunda-Feira"

        Case 3
            Return "Terça-Feira"

        Case 4
            Return "Quarta-Feira"

        Case 5
            Return "Quinta-Feira"

        Case 6
             Return "Segunda-Feira" & "," & (@Mday +3 )

        Case 7
            Return "Segunda-Feira" & "," & (@Mday +2 )

    EndSwitch

Edited by Reyzor
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing
×
×
  • Create New...