Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Problem] Tablica


buli1984

Rekomendowane odpowiedzi

Opublikowano

for $x = 1 to 2
Global $Nazwa[$x] = IniRead(@AppDataDir & "/rItems/" & $x & ".item", "Item", "Nazwa", "")
Global $Opis[$x] = IniRead(@AppDataDir & "/rItems/" & $x & ".item", "Item", "Opis", "")
Global $Obrazenia[$x] = IniRead(@AppDataDir & "/rItems/" & $x & ".item", "Item", "Dmg", "")
Global $Obrona[$x] = IniRead(@AppDataDir & "/rItems/" & $x & ".item", "Item", "Obrona", "")
Next

 

Czemu wzsędzie są syntax errory?

Opublikowano

#nclude <aray.au3>?
tablice deklaruje się
Dim $Tablica[100] ,---- jedno wymiarowa o pojemności 100 komórek


Zaraz Ci podeślę skrypt który powinien Ci coś wytłumaczyć :)

 

 

#include <array.au3>          ;<----------------- I to musisz miec
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
dim $tab[100][4]   ;<-----------------Tu sie deklaruje tablice
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 244, 219, 192, 124)
$B1 = GUICtrlCreateButton("Button1", 32, 24, 129, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $B1
			test()
			_ArrayDisplay($tab)
	EndSwitch
WEnd


func test ()
For $s = 1 to 2
IniWrite("test","1", $s, "Pierwsze wartosci")
IniWrite("test","2", $s, "Drugie pole ")
IniWrite("test","3", $s, "Trzecie miejsce ")
IniWrite("test","4", $s, "i w koncu czwarte ")
next






for $x = 1 to 2
$tab[$x][0] = IniRead("test","1", $x,"")
$tab[$x][1] = IniRead("test","2", $x,"")
$tab[$x][2] = IniRead("test","3", $x,"")
$tab[$x][3] = IniRead("test","4", $x,"")
Next
endfunc

 

 

$tab [row] [col] powinieneś załapać :)

v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
 

Opublikowano

Global $Nazwa[ 2 ]

...

 

For $i = 1 To 2

$Nazwa[ $i ] = ...

Next

WSZYSTKIE PLIKI W CHMURZE DLA MPCFORUM ZOSTAŁY USUNIĘTE. NIE KORZYSTAĆ Z MOICH PROGRAMÓW.

Proszę nie ingerować w moje posty/tematy, w razie potrzeby usunąć całą zawartość. Nie pomagam.

Opublikowano

#nclude <aray.au3>?

tablice deklaruje się

Dim $Tablica[100] ,---- jedno wymiarowa o pojemności 100 komórek

 

 

Zaraz Ci podeślę skrypt który powinien Ci coś wytłumaczyć :)

 

 

#include <array.au3>          ;<----------------- I to musisz miec
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
dim $tab[100][4]   ;<-----------------Tu sie deklaruje tablice
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 244, 219, 192, 124)
$B1 = GUICtrlCreateButton("Button1", 32, 24, 129, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $B1
			test()
			_ArrayDisplay($tab)
	EndSwitch
WEnd


func test ()
For $s = 1 to 2
IniWrite("test","1", $s, "Pierwsze wartosci")
IniWrite("test","2", $s, "Drugie pole ")
IniWrite("test","3", $s, "Trzecie miejsce ")
IniWrite("test","4", $s, "i w koncu czwarte ")
next






for $x = 1 to 2
$tab[$x][0] = IniRead("test","1", $x,"")
$tab[$x][1] = IniRead("test","2", $x,"")
$tab[$x][2] = IniRead("test","3", $x,"")
$tab[$x][3] = IniRead("test","4", $x,"")
Next
endfunc

 

 

$tab [row] [col] powinieneś załapać :)

Ogarniam już, a jak zrobić w "Main menu" czyli to menu hm, pod tytułem okna w programie żeby ustawić obrazek do podmenu?

http://scr.hu/12lk/jccul

 

Opublikowano

Ogarniam już, a jak zrobić w "Main menu" czyli to menu hm, pod tytułem okna w programie żeby ustawić obrazek do podmenu?

http://scr.hu/12lk/jccul

 

#include <GUIConstantsEx.au3>
#include <GuiToolbar.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <ToolbarConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$bt1= GUICtrlCreateButton("Test",0,0,250,50)
$Graphic1 = GUICtrlCreateGraphic(0, 28, 614, 409)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 81, 76)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, 458, 351)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 113, 324)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, 447, 67)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 89, 72)
GUICtrlSetGraphic(-1, $GUI_GR_BEZIER, 414, 69, 119, 102, 384, 39)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 76, 120)
GUICtrlSetGraphic(-1, $GUI_GR_BEZIER, 255, 357, 106, 150, 225, 327)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 348, 100)
GUICtrlSetGraphic(-1, $GUI_GR_BEZIER, 359, 347, 378, 130, 329, 317)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 44, 204)
GUICtrlSetGraphic(-1, $GUI_GR_BEZIER, 499, 213, 74, 234, 469, 183)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Bt1
			Msgbox(0,"Hmmmm...","cos takiego ?? Niewiem",3)
			MsgBox(0,"moze wielki czas pomyslec ?", "I próbowac samemu ?")
	EndSwitch
WEnd


Przepraszam za spam ale denerwuje mnie gdy ktoś nie umie skorzystać nawet z opcji F1 i praktycznie prosi żeby to za niego zrobić.

Tym bardziej że wczoraj miałem 0 ogaru :D

Nawet nie znałem takiej komendy jak GuiCtrlSetGraphic :D

Jeszcze raz przepraszam Użytkowników jak i Adminów za lekki nieogar

v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
 

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...