„Heiner Ernő/2H Axion” változatai közötti eltérés
Új oldal, tartalma: „alt=A 2H Informatika Axion projektjének háttérképe.|bélyegkép|599x599px|A 2H Informatika Axion projektjének háttérképe. Ernő 2025. január 25-én alkotta meg az első Axion Projekt elnevezésű, közösségi felhasználásra szánt Windows 11 24H2 verziójú, bárki által szabadon letölthető integrált rendszerét. Az Axion Projekt a fizetős FoxComm rendszer ingyenes alternatívájaként, egyfajta béta tesztelésre szá…” |
Nincs szerkesztési összefoglaló |
||
7. sor: | 7. sor: | ||
A következő hetekben Ernő és csapata folyamatosan figyelemmel kíséri a rendszer használata során keletkezett visszajelzéseket, és ígéretet tett arra, hogy minden jelentős hibát vagy optimalizálási lehetőséget mielőbb javítanak. Az Axion Projekt egy hosszú távú fejlesztési terv első lépése, amelynek célja egy nyílt, közösség által támogatott, és mindenki számára elérhető reklámmentes operációs rendszer megalkotása, valamint a fizetős FoxComm rendszer fejlesztése az új igények és tapasztalatok alapján. | A következő hetekben Ernő és csapata folyamatosan figyelemmel kíséri a rendszer használata során keletkezett visszajelzéseket, és ígéretet tett arra, hogy minden jelentős hibát vagy optimalizálási lehetőséget mielőbb javítanak. Az Axion Projekt egy hosszú távú fejlesztési terv első lépése, amelynek célja egy nyílt, közösség által támogatott, és mindenki számára elérhető reklámmentes operációs rendszer megalkotása, valamint a fizetős FoxComm rendszer fejlesztése az új igények és tapasztalatok alapján. | ||
== Forráskód (részlet) == | |||
[[Fájl:Axion shield.png|bélyegkép|348x348px]] | |||
<syntaxhighlight lang="vb.net"> | |||
Imports System.Runtime.InteropServices | |||
Imports System.IO | |||
Public Class Form1 | |||
' Param szekció | |||
Private Const SPI_SETDESKWALLPAPER As Integer = 20 | |||
Private Const SPIF_UPDATEINIFILE As Integer = &H1 | |||
Private Const SPIF_SENDCHANGE As Integer = &H2 | |||
<DllImport("user32.dll", CharSet:=CharSet.Auto)> | |||
Private Shared Function SystemParametersInfo( | |||
ByVal uAction As Integer, | |||
ByVal uParam As Integer, | |||
ByVal lpvParam As String, | |||
ByVal fWinIni As Integer) As Boolean | |||
End Function | |||
' Saját definíciók ACV. | |||
Dim HatterkepFile As String = "c:\.2H_Axion\etc\wall\AxionWallpaper.jpg" | |||
Dim ProgramHelye As String = "C:\.2H_Axion\var\programs\" | |||
Private Sub CButton8_ClickButtonArea(Sender As Object, e As MouseEventArgs) Handles CButton8.ClickButtonArea | |||
Try | |||
Process.Start(ProgramHelye & "sab.exe") | |||
Catch ex As Exception | |||
MsgBox("A fájl nem található!") | |||
End Try | |||
End Sub | |||
End Class | |||
</syntaxhighlight> | |||
<syntaxhighlight lang="vb.net" line="1"> | |||
Public Class Form1 | |||
Dim Programhelye As String = "C:\.2H_Videocsatorna\var\programs\" | |||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click | |||
Try | |||
Process.Start(Programhelye & "sab.exe") | |||
Catch ex As Exception | |||
MsgBox("A fájl nem található!") | |||
End Try | |||
End Sub | |||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click | |||
Try | |||
Process.Start(Programhelye & "re-edge.exe") | |||
Catch ex As Exception | |||
MsgBox("A fájl nem található!") | |||
End Try | |||
End Sub | |||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click | |||
Try | |||
Process.Start("control.exe") | |||
Catch ex As Exception | |||
MsgBox("A fájl nem található!") | |||
End Try | |||
End Sub | |||
End Class | |||
</syntaxhighlight> | |||
[[Kategória:Heiner Ernő]] |
A lap 2025. január 26., 13:05-kori változata

Ernő 2025. január 25-én alkotta meg az első Axion Projekt elnevezésű, közösségi felhasználásra szánt Windows 11 24H2 verziójú, bárki által szabadon letölthető integrált rendszerét. Az Axion Projekt a fizetős FoxComm rendszer ingyenes alternatívájaként, egyfajta béta tesztelésre szánt kiadás. A terméket bemutató videó a rendszer megalkotásának másnapján, 2025. január 26-án reggel debütált a nagyközönség számára ISO letöltési lehetőséggel.
A telepítő egy tisztított Windows rendszert rejt, és a korábbi "2H Video" elnevezésre hallgató VB integrált alrendszer teljes újra tervezéseként az "Axion" nevű integrált alrendszert tartalmazza a munkafolyamatok megkönnyítésére. Az Axion rendszer kiemelkedő újdonsága, hogy korlátozott terméktámogatás is jár mellé Ernő részéről, a megszokott módú kapcsolatfelvétel után. Ezzel a 2H Informatika Innovatív Fejlesztő Csapata hasznos betekintést nyerhet a kiadás működésére, emellett a béta tesztelőiket segíthetik a felmerülő problémák megoldásával.
Ernő úgy fogalmazott, hogy az Axion Projekt nem csupán egy technológiai újítás, hanem egy közösségi kezdeményezés is, amely bizonyítja, hogy az együttműködés és a nyílt fejlesztési modell komoly eredményekhez vezet. A projekt már most nagy érdeklődést váltott ki a magyarországi tech közösségben, és a rendszer letöltéseinek száma az első néhány órában magasan meghaladta az elvárásokat.
A következő hetekben Ernő és csapata folyamatosan figyelemmel kíséri a rendszer használata során keletkezett visszajelzéseket, és ígéretet tett arra, hogy minden jelentős hibát vagy optimalizálási lehetőséget mielőbb javítanak. Az Axion Projekt egy hosszú távú fejlesztési terv első lépése, amelynek célja egy nyílt, közösség által támogatott, és mindenki számára elérhető reklámmentes operációs rendszer megalkotása, valamint a fizetős FoxComm rendszer fejlesztése az új igények és tapasztalatok alapján.
Forráskód (részlet)

Imports System.Runtime.InteropServices
Imports System.IO
Public Class Form1
' Param szekció
Private Const SPI_SETDESKWALLPAPER As Integer = 20
Private Const SPIF_UPDATEINIFILE As Integer = &H1
Private Const SPIF_SENDCHANGE As Integer = &H2
<DllImport("user32.dll", CharSet:=CharSet.Auto)>
Private Shared Function SystemParametersInfo(
ByVal uAction As Integer,
ByVal uParam As Integer,
ByVal lpvParam As String,
ByVal fWinIni As Integer) As Boolean
End Function
' Saját definíciók ACV.
Dim HatterkepFile As String = "c:\.2H_Axion\etc\wall\AxionWallpaper.jpg"
Dim ProgramHelye As String = "C:\.2H_Axion\var\programs\"
Private Sub CButton8_ClickButtonArea(Sender As Object, e As MouseEventArgs) Handles CButton8.ClickButtonArea
Try
Process.Start(ProgramHelye & "sab.exe")
Catch ex As Exception
MsgBox("A fájl nem található!")
End Try
End Sub
End Class
Public Class Form1
Dim Programhelye As String = "C:\.2H_Videocsatorna\var\programs\"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Process.Start(Programhelye & "sab.exe")
Catch ex As Exception
MsgBox("A fájl nem található!")
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Process.Start(Programhelye & "re-edge.exe")
Catch ex As Exception
MsgBox("A fájl nem található!")
End Try
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Try
Process.Start("control.exe")
Catch ex As Exception
MsgBox("A fájl nem található!")
End Try
End Sub
End Class