Jump to content

hackerteam35

Üye
  • Posts

    16
  • Joined

  • Last visited

Posts posted by hackerteam35

  1. [codebox]Private Sub Form_Load()Dim Komut As New AutoItX3Lib.AutoItX3#include <GUIConstants.au3>#include <Date.au3>#include <IE.au3>Opt("GUIOnEventMode", 1)#Region ### START Koda GUI section$Form1_1 = GUICreate("TariH - SaaT", 282, 290, 194, 111)GUISetBkColor(0xD8E4F8)GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1_1Close")GUISetOnEvent($GUI_EVENT_MINIMIZE, "AForm1_1Minimize")GUISetOnEvent($GUI_EVENT_MAXIMIZE, "AForm1_1Maximize")GUISetOnEvent($GUI_EVENT_RESTORE, "AForm1_1Restore")$Button1 = GUICtrlCreateButton("Tarih Saat", 16, 8, 121, 49, 0)GUICtrlSetOnEvent(-1, "AButton1Click")$Button3 = GUICtrlCreateButton("Tarih", 144, 8, 121, 49, 0)GUICtrlSetOnEvent(-1, "AButton3Click")$Button4 = GUICtrlCreateButton("Haftanın Hangi Günü?", 144, 64, 121, 49, 0)GUICtrlSetOnEvent(-1, "AButton4Click")$Button5 = GUICtrlCreateButton("TNCTR", 16, 64, 121, 49, 0)GUICtrlSetOnEvent(-1, "AButton5Click")$MonthCal1 = GUICtrlCreateMonthCal("2009/08/03", 16, 120, 169, 161)GUICtrlSetOnEvent(-1, "AMonthCal1Change")$Button2 = GUICtrlCreateButton("Hakkında", 192, 120, 73, 161, 0)GUICtrlSetOnEvent(-1, "AButton2Click")GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###While 1 Sleep (100)Wend Func AButton1Click()MsgBox(4096, "TariH - SaaT", & @MDAY "/" & @MON & @YEAR, 0)EndFunc Func AButton2Click()MsgBox(4096, "Hakkında", "Bu program TnC TR adına CaN tarafından yazılmıştır.", 0)EndFunc Func AButton3Click()MsgBox( 4096, "Tarih", _DateTimeFormat( _NowCalc(),1))EndFunc Func AButton4Click()$sLongDayName = _DateDayOfWeek( @WDAY ); Retrieve the abbreviated name$sShortDayName = _DateDayOfWeek( @WDAY, 1 )MsgBox( 4096, "Haftanın Hangi Günü", "Bugün: " & $sLongDayName & " (" & $sShortDayName & ")" )EndFunc Func AButton5Click()$oIE = _IECreate ("www.tnctr.com")EndFunc Func AForm1_1Close()ExitEndFunc Func AForm1_1Maximize()EndFunc Func AForm1_1Minimize()EndFunc Func AForm1_1Restore()EndFunc Func AMonthCal1Change()EndFuncEnd Sub[/codebox]

    örneğin böyle yapıyorum hata veriyor.
  2. merhaba arkadaşlar uzaktan kontrolü bir aio nasıl yaparım acaba*


    bir ödev projesine ödev ekleme gibi.
    güncelli yani bir ödev arama programı bir arama kısmı olucak birde ödev ekleme yeri ekleyince tüm programlada gözükcek?
×
×
  • Create New...