- iPhone 16e - ellenvetésem lenne
- Xiaomi 15 - kicsi telefon nagy energiával
- Mobil flották
- Prohardver app (nem hivatalos)
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Poco F6 5G - Turbó Rudi
- Magisk
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Fotók, videók mobillal
- Azonnali mobilos kérdések órája
Aktív témák
-
-
Én sem akarlak/akartalak bántani. Én csak meg akarom érteni vagy legalább kapisgálni hogy hogy műxik ez az egész gép közeli programozás. Ezért is nyitottam T-mát a fórumon mert, érdekel! Én úgy gondoltam ha megmutatjátok a kezdő lépéseket akkor onnantól eldöntöm hogy ráálok és megveszem-e hozzá a könyveket/ dokumentációkat.
Valamit nagyon félre olvashattál, mert nem az írtam hogy ''rendszerprogramozó'' hanem hogy rendszer informatikus
Ez kb 2 fokkal jobb egy Rendszergazdánál! 
Programozásunk egy héten 4 van. A többiek lista programozást csinálnak. Én kértem magamnak egyéni feladatot. Megírtam a ''sejtes'' progit. De szvsz te azt vágod és már egyszer le is programoztad.
Kor és értelem különbség van köztünk bőven, de nekem a a programozás csak hobbi, szintű! Én aztmondom szent a béke -
A dolog könnyebik végéről pedig annyit hogy nem fogok több száz oldalas lexikálist tudást felhalmozni azért hogy egy alaplapból kiszedjem a temp. értékeket.
Ha igazán a könnyű utat akarnám választani akkor Delphi 8.0. Mert a .NET résznél van egy ilyen függvény hogy Windows32.temp.probe1
A magyarázásról pedig annyit hogy a tömör lényeget Wnix eddig 2-3 hszban elmondta. Nem utolsó sorban a fórum lényege hogy segítsük egymást. -
A programozást ott kezdtem hogy a könyvtárból kivettem hogy írjunk játékprog.-okat C64-re. Akkor még nem értettem belölle sokat de tetszett mert a progik működtek.
Majd a szomszéd sráctól aki középiskolába járt elkértem a Turbo Pascalt, én akkor ált. iskolás 6.-os voltam. 7.-ben már tudtam működő progit írni. Ekkor vettem hozzá egy könyvet.
Majd később találkoztam a Delphivel és azóta ezt használom. Több mint 5 éve. Az igaz hogy a gépközeli programozásom az a Pascal Sound(frek,time); parancsnál abbamaradt.
Jelenleg Rendszer informatikusnak tanulok. 1 év mulva már be is fejezem. Sajnos mi hardware részt csak elméletben tanulunk. Azt meg könnyebben felejti az ember. Tehát ha ezt ennyi ideig is kell magyarázni annak oka van. Remélem nem és vagyok hozzá a hülye, csak lassan értem meg, és látom át! -
Most $58-on nem $21-et kapok hanem 255t!! Miért? 87-estől kezdve végig 255.
[Szerkesztve] -
válasz
Flashback
#80
üzenetére
Jajj ezer bocs, mostmár felfogtam és le is programoztam amit mondtál. Ha jól értelmeztem akkor ezt adom be neki:
PortOut($295,$4E); // 4Eh-ba írni
PortOut($296,$81); // A 81h-t
PortOut($295,$50); //50h portot kiolvasni
Memo1.Lines.Add(inttostr(PortIn($296))); //kiírni a képernyőre
És tényleg! Műxik! 45-t kaptam vissza és az ABITEQ-is ezt mutatja! 1000 kösz! -
-
Most hogy olvasgattam a chip pdf könyvét. Hát eléggé belezavarodtam a programozásába. A lényeg, hogy már megvan az io.dll. Ezt felhasználva kellen kiolvasni a megfelelő registerből az értéket. Tehát erre a dll-re vetítve leírnátok a lépéseket! Ha a folyamat végére nem értem meg, nem baj a lényeg az hogy működjön...
A dll-hez kapcsolódóan, a felhasználható proc., és func.,-ök:
procedure PortOut(Port : Word; Data : Byte);
procedure PortWordOut(Port : Word; Data : Word);
procedure PortDWordOut(Port : Word; Data : DWord);
function PortIn(Port : Word) : Byte;
function PortWordIn(Port : Word) : Word;
function PortDWordIn(Port : Word) : DWord;
procedure SetPortBit(Port : Word; Bit : Byte);
procedure ClrPortBit(Port : Word; Bit : Byte);
procedure NotPortBit(Port : Word; Bit : Byte);
function GetPortBit(Port : Word; Bit : Byte) : WordBool;
function RightPortShift(Port : Word; Val : WordBool) : WordBool;
function LeftPortShift(Port : Word; Val : WordBool) : WordBool;
function IsDriverInstalled : Boolean;
Rover623-nak köszönöm eddigi türelmét. Bár jó lenne ha itt lenne és tudna válaszolni az előbbi kérdéseimre. -
up!
-
A forrás:
For i:=0 to 20 do
Begin
PortOut($4e,$81);
memo1.Lines.Add(inttostr(PortIn($50)));
memo1.Lines.Add(inttostr(PortIn($51)));
end;
Az eredmény:
166
14
3
6
241
18
1
17
103
5
3
11
12
4
0
13
40
13
1
10
191
13
1
5
208
5
1
2
77
14
0
2
156
15
2
6
208
9
0
9
141
11
Ezzel most mit csináljak? Ez nekem nem tűník temp, értékeknek... -
Ahogy elnéztem a 4Ah-n van 2 temp. érték. Aztán nézem hogy 50h-56h ig is van 2. Ezt most hogy van? Innen hogy szedem ki az értékeket?
-
Akkor ez kéne nekem?
![[kép]](http://hksoft.uw.hu/chip.JPG "[kép]")
[Szerkesztve] -
up
-
up
-
válasz
Flashback
#50
üzenetére
Bocs, egyhelyre írtattam ki. Szóval a teljes lista:
32 = 103
33 = 165
34 = 205
35 = 185
36 = 195
37 = 38
38 = 52
39 = 25
40 = 87
41 = 255
42 = 255
43 = 116
44 = 90
45 = 116
46 = 90
47 = 237
48 = 176
49 = 0
50 = 37
51 = 0
52 = 138
53 = 64
54 = 0
55 = 0
56 = 6
57 = 16
58 = 8
59 = 32
60 = 36
61 = 35
62 = 0
63 = 0
64 = 1
65 = 0
66 = 0
67 = 255
68 = 255
69 = 0
70 = 0
71 = 168
72 = 45
73 = 2
74 = 1
75 = 132
76 = 80
77 = 149
78 = 0
79 = 163
80 = 255
81 = 255
82 = 128
83 = 255
84 = 255
85 = 255
86 = 32
87 = 128
88 = 33
89 = 112
90 = 255
91 = 255
92 = 17
93 = 1
94 = 255
95 = 5 -
Elkezdtem átírni delphire a kódot de erre a sorra:
If ( (PortIn (LMBase) And $80) = 0) Then begin
Ezt dobja ki:
Operator not applicable to this operand type
-
Az maradjon az én titkom
Ezt nézd meg plz Bővebben: link Tudnám-e ezt hasznosítani??? -
A probléma még adott. Van io.dll-em csak nem tudom hogy kell használni! Lásd 16#
-
Naszóval a DLL-t csak egész 10 alapú számrendszer beli számokkal tudom programozni.
Tehát a
295h=661 port
296h=662 port
Szóval a kérdés az hogy mielyen értéket adok be ide? Már sok variációval probálkoztamm de semmilyen értékelhető eredményt nem kaptam a 662s porton... Segítség!!! -
Leszedtem az io.dll-t !. Irtam hozzá egy progit.
A Speedfan aztmondja hogy a $290-es ISA Bus-on van rajta a proci, és a ház Hőmérséklete.
Az én progim a 290-es portra 255-t ír! Je és nem $-el kell beadni a portot. És az hogy van hogy egy porton több érték is van? Ezeket hogy tudom elválasztani? -
valaki akkor ezt a port[]-ot árulja már el....
-
(* Igen tudom van delphi fórum is de ez egy nagyobb volumenű dolog és 1 válasz valószínűleg nem lesz elég... *)
Szóval a cél a következő: a Cpu hőmérőszenzorának az értékét kellene valahonnan megtudni. Sajnos csak egy német fórumot találtam ami a következő technikákat mondja.
1.) A dlportio.dll segítségével kell meghatározni. Megpróbáltam, telepítettem, semmi.
2.) A másikban pedig egy port[] delphi parancsot hívnak meg ami nem létezik... (vagy a comctrls.dcu tartalmazza ami nekem nincs meg)
Az 1. nagyon körülményes hiszen ez teljesen chipkészlet függő... 2. jobb lenne...
Jó móka!
Ez kb 2 fokkal jobb egy Rendszergazdánál! 
![[kép]](http://forum.hwsw.hu/html/emoticons/ico_respect.gif "[kép]")
Csak az maradt le hogy-hogy is adom meg hogy hanyas bankot szeretném másolni a címző chipbe?
Aktív témák
Hirdetés
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Dell notebook topic
- Direct One (műholdas és online TV)
- Háztartási gépek
- A Micron újszerű módszerrel javítja QLC-s SSD-jének sebességét
- Windows 11
- Kutya topik
- Bestbuy játékok
- Xbox tulajok OFF topicja
- sziku69: Fűzzük össze a szavakat :)
- További aktív témák...
- Samsung Galaxy Xcover 5 64GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! HP 255 G7 - AMD A4 I 4GB I 128SSD I HDMI I 15,6" FHD I Radeon I HDMI I W11 I Cam I Gari!
- Új és használt laptopok , üzletitől a gamerig , kedvező áron. Garanciával !
- ÁRGARANCIA!Épített KomPhone i9 14900KF 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- Xbox Game Pass Ultimate kedvező áron, egyenesen a Microsoft-tól! - AUTOMATA BOLT
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged