hakanight

tam olarak mevzuyu anlamadım ama useridsini değişken olarak kullanmak işini görmüyor mu?

Mesela not alma programı diyelim.

Kendisi bir not eklicek programıma. Sonsuza kadar ekliyebilcek mesela.

Daha sonra eklediği herhangi bir notu silmek istiycek.

Mesela 100. not.

Onu silme butonuna basınca program 100. notu silmek istediğini nerden anlıcak.

Umarım anlatabilmişimdir.

Merhaba

Benim projem şöyle ;

if fileread("klasor.hakanight") < 1 Then
   filedelete("klasor.hakanight")
   filewrite("klasor.hakanight",0)
EndIf

Local $k[1]
$form1 = GUICreate("Window",700,600)
if fileread("klasor.hakanight") = 0 Then

Else
filedelete("now.hakanight")
  ; filewrite("now.hakanight",1)
   $now = 1
   $h = 20
   For $now = 1 to fileread("klasor.hakanight")
	 $k[fileread("now.hakanight")] = GUIctrlcreatelabel("KLASOR",20,$h)
	 $h = $h + 30
	 msgbox(0,"",fileread("now.hakanight"))
$now = fileread("now.hakanight")
 filedelete("now.hakanight")
 ;  filewrite("now.hakanight",$now + 1)
	  Next
EndIf

Local $idContextmenu = GUICtrlCreateContextMenu()

    Local $idNewsubmenu = GUICtrlCreateMenu("Yeni", $idContextmenu)
    Local $new = GUICtrlCreateMenuItem("Yeni Klasör", $idNewsubmenu)
    GUICtrlCreateMenuItem("", $idContextmenu)
GUIsetstate()


While 1
   Switch GUIgetmsg()
   case -3
	  Exit

   Case $new


   EndSwitch
   WEnd

Kullanıcı istediği kadar klasör oluşturabilecek ve hepsinin farklı farklı id si olacak.

ve o id ye basınca farklı bir işlem görecek. Bunu nasıl yapabilirim ? $a[$b] şeklinde yapsam hata veriyor.

Merhaba arkadaşlar.

Sizlere bir sorum olacak.

AutoIt ile flash belleği nasıl çıkarabilirim ?

Yani usb yi güvenle nasıl çıkarabilicem autoIt ile?

Kardeş.

Biliyorum TCP yi.

TCPsend komutu da var autoIt de.

Fakat nasıl kullanabilceğim ibilmiyorum.

Bi yardımcı olsanız?

Merhaba arkadaşlar.

Ben autoit ile server ,client yapıp komut göndermek istiyorum.

Fakat nasıl yapabilirim?

Evet. BEn sadece öylesine dedim.

Fakat chrome ile yapılamıyormu?

Merhaba.

Ben tarayıcı yapıcam.

Fakat internet explorer üzerine olmasını istemiyorum.

Chrome,firefox,opera gibi özgür ve kendi yapımım gibi olmasını istiyorum.

Eğer öyle birşey mümkün değil ise internet explorer yerine barii chrome gibi bir tarayıcı üzerine olabilirmi?

Teşekkürler.

Merhaba arkadaşlar.

Ben notdefteri yapıyorum fakat GUIctrlcreateedit de ctrl + a yapınca hepsini seçmiyor.

Nasıl düzeltebilirim?

Yardımcı olacak yokmu?

Onu yapmak daha kolay kardeş.

 

Mesela Sol fonksiyonunun en başına önce resmin boyutunu ayarlayacaksın sonrada resmi objede göstereceksin
 

AMS'de şu şekilde

 

Image.SetSize("Image1",100,100)

Image.Load("Image1", nData) gibi gibi

 

Autoit öğrenmeye alışıyorum ama mantık bu.

Kardeşim. Ben şu şekil diyorum.

Gta da nasıl araba sağa sola dönüyor? O şekil.

Hotkeyset("{RIGHT}","_SAG")
Hotkeyset("{LEFT}","_SOL")
Hotkeyset("{DOWN}","_ASAGI")
HotKeySet("{UP}","_YUKARI")

#include "_GUIResourcePic.au3"
#include <GDIPlus.au3>
#include <WINAPI.au3>
#include <ScreenCapture.au3>

Global $hBitmap, $hImage, $sCLSID, $tData, $tParams, $tmp = 0
$sag = 200
$hiz = 0
$son = ""
$ason = ""
$arabaon = 0
$arabaarka = 0
$kullan = "NO"
$form1 = GUICreate("Hakanight Game",1000,100,0,0,0x80000000, 0x00000080 + 0x00000008 + 0x00080000)

GUIsetstate(@SW_SHOW)
GUISetState(@SW_SHOWMAXIMIZED)
$araba = _GUICtrlpic_Create("araba1.png",$sag,200)
AdlibRegister("_KONTROL",0)
adlibregister("MUSIC",35000)
 GUISetBkColor(0xABCDEF)
 _WinAPI_SetLayeredWindowAttributes($form1, 0xABCDEF, 250)
While 1

      $nMsg = GUIGetMsg()
	Switch $nMsg
 Case -3
	Exit


	EndSwitch

	WEnd

	Func _SAG()
	   if $son = "" Then
		  $son = "SAG"
		  EndIF

	     if $son = "SOL" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$son = "SAG"
			 EndIf
			 Else
	   if $sag < @Desktopwidth - 260 Then
		  if $hiz < 15 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag + $hiz
	   GUICtrlSetPos($araba,$sag)
	   $kullan = "SAG"
	   $son = "SAG"
	Else

	   if $arabaon < 3 Then
		  if $hiz > 5 Then
		 $arabaon = $arabaon + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf


$hiz = 0
	   EndIf
	   EndIf
	EndFunc




	Func _SOL()
	     if $son = "" Then
		  $son = "SOL"
		  EndIF
	     if $son = "SAG" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$son = "SOL"
			 EndIf
			 Else
	   if $sag > 1 Then


		  if $hiz < 10 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag - $hiz
	   GUICtrlSetPos($araba,$sag)
	   $kullan = "SOL"
	   $son = "SOL"
	Else
	      if $arabaarka < 3 Then
			 if $hiz > 5 Then
		 $arabaarka = $arabaarka + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf
	   $hiz = 0
	EndIf
 EndIf
	EndFunc



	func _ASAGI()

		   if $ason = "" Then
		  $ason = "ASAGI"
		  EndIF

	     if $ason = "YUKARI" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$ason = "ASAGI"
			 EndIf
			 Else
	   if $sag < @Desktopheight - 260 Then
		  if $hiz < 15 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag + $hiz

	   GUICtrlSetPos($araba,"",$sag)
	   $kullan = "ASAGI"
	   $ason = "ASAGI"
	Else


_GUICtrlpic_setImage($araba,"araba1.png")



$hiz = 0
	   EndIf
	   EndIf


	endfunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	func _YUKARI()
  if $ason = "" Then
		  $ason = "YUKARI"
		  EndIF
	     if $son = "ASAGI" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$ason = "YUKARI"
			 EndIf
			 Else
	   if $sag > 1 Then


		  if $hiz < 10 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag - $hiz
	   GUICtrlSetPos($araba,"",$sag)
	   $kullan = "YUKARI"
	   $ason = "YUKARI"
	Else
	      if $arabaarka < 3 Then
			 if $hiz > 5 Then
		 $arabaarka = $arabaarka + 1
_GUICtrlpic_setImage($araba,"araba1.png")
EndIf
EndIf
	   $hiz = 0
	EndIf
 EndIf
	EndFunc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




	Func _KONTROL()
	     if $hiz < 0.1 Then
		 elseif $kullan = "NO" Then
			if $hiz > 0.1 Then
			   if $son = "SAG" Then
				    if $sag < @Desktopwidth - 260 Then
				    $hiz = $hiz - 1
	   $sag = $sag + $hiz
	   GUICtrlSetPos($araba,$sag)
	Else
	     if $arabaon < 3 Then
		  if $hiz > 3 Then
		 $arabaon = $arabaon + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf
	   $hiz = 0
	   EndIf
	elseif $son = "SOL" Then
	   if $sag > 1 Then
	   $hiz = $hiz - 1
	   $sag = $sag - $hiz
	   GUICtrlSetPos($araba,$sag)
	Else
	     if $arabaon < 3 Then
		  if $hiz > 3 Then
		 $arabaon = $arabaon + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf
	   $hiz = 0
	   EndIf
				  EndIf
			   EndIf
	EndIf
	$kullan = "NO"

	EndFunc


Func MUSIC()
   SoundPlay("music.mp3", 0)
 SoundSetWaveVolume(100)

   EndFunc

Bu kodlarla yukarı ve aşağı oluyor . Autoit bilmediğim için bazı hatalar olabilir.

 

Kardeş. İlk başta düşündüğün için saol.

FAkat öyle yapmayı bende biliyorum.

Ancak araba aşağı doğru dönmüyor. İşte tıkandığım nokta orası.

Herkes projemi alabilir. Belki işinize yarar.

VE size hatırlatmak isterim.

Ben bu projeyi sizin sayenizde yaptım.

Adlibregister komutunu sizden öğrendim.

arkaplanın saydam olmasını sizden öğrendim.

Yanii sizin sayenizde yaptım.

run("notepad.exe "&@scriptdir&"\çalışma.txt")

Bu şekilde olabilir.

cevap verebilirmisiniz arkadaşlar?

AutoIt ile yazdım.

Arkadaşlar birazcık daha geliştirdim.

Hataları giderdim. Arkaplan müziği filan koydum.

Buyrun ;

https://hotfile.com/dl/243298410/4c0eb53/game.rar.html

 

- Lütfen yardım edin arkadaşlar.

Merhaba arkadaşlar.

Ben can sıkıntısından 2d araba oyunu yaptım.

Fakat bu oyunun gelişmesi gerekiyor.

Ben arabanın sağa sola dönmesini yapamadım.

Yardımcı olursanız sevinirim.

Eskisi : https://hotfile.com/dl/243292684/aec98b1/game.rar.html

Yenisi [Biraz Geliştirdim. arka plan müziği,hata giderme, arkaplan saydam] : https://hotfile.com/dl/243346711/18677d0/game.rar.html

 

Oktuşlarıyla gidiliyor.

Sağ oktuşu ileri - Sol oktuşu geri

Merhaba arkadaşlar.

Ben bir kelime yazacağım o kelimeyi metnin içinde arıycak.

Veya bir dosya arıycak.

Veya benim hazırladığım programda bir yazı arıycak.

Onun gibi birşey biliyormusunuz?

Yardım edermisiniz?

işime yaradı saol.

_GDIPlus_MatrixRotate fonksiyonu ile yapabilirsin. Yardım dosyasında kullanımıyla ilgili örnek var. 

Kardeş inceledim fakat bir sonuca ulaşamadım.

Yapmaya çalıştım Program Yanıt vermiyor. Acaba sen yapıp açıklamalı şekilde yazarmısın?

Merhaba arkadaşlar.

Atıyorum ben GUICtrlcreatepic ile bir resim oluşturdum.

Onu nasıl döndürebilirim?

[Programın içinde dönücek]

Merhaba arkadaşlar.

Konunun başlığında belirttiğim gibi acaba autoit ile bir dosyanın kısayolunu masaüstüne oluşturabilirmiyiz?

Teşekkürler.

 

Ayrıca dosya türlerini programınızla bütünleştirmek için Dosya_Iliski() UDF'sini de kullanabilirsin.

http://www.tnctr.com/topic/206273-dosya-iliski/

İşte bu! Diğer aradığım cevaplardan! Hepsini teker teker regwrite yapmama gerek kalmadı!

Merhaba,

Mesela uzantısı txt olan bir dosyamız var.

O dosyayı benim yaptığım program ile birlikte aç yapınca o txt dosyasını okumasını istiyorum.

Mesela hakan.txt diye bir dosyamız var.

Ona sağ tıklayıp birlikte aç yaptık.

Ve benim yaptığım programı seçtik.

Benim yaptığım program o hakan.txt ile açıldığını nerden okuyacak?

Yani onun içeriğini nasıl okuyacak.

{Lütfen Fileread demeyin. Fileread ile okutulduğunu biliyorum fakat o birlikte açılan dosyanın dosyanın adını,konumunu nerden bulucam?}

Programımın içinde mesela GUIctrlcreatepic ile bir resim oluşturdum.

O resim.