iNET03

All robot is from this board , I'm not creator.
http://amecha.uni.cc/forum/index.php?topic=50.0
 
.:Less custom:.
This guy are perfect , I really like them . With add little reflect they are very cool.

F-91 <Vista>(First I'm think to change his base to Blacksalena but think again , I like his funnel. )

Gundam - Kyrios <2003 Sp1> (He really cool in fly mode. 2k3Sp1 in fly mode is my favority.)

Lancelot <2003>(With black and gold color, He is really royal style.)

Sazabi <BlackSelena>(I'm change his base from Vista.He's switch base with F-91)
(I think his fighting style should like BlackSelena.)
(With this angle in picture , strong and away look down enemy should be his charecter  )

Throne Eins<Viena>(First this place is Qubeley but she isn't fit with some action
 that why this guy be here)


.:Little custom:.
Arbalest<XP>(This lamda drive guy are petty cool. I feel bad for him to be WinMe.)
(I'm change his arms from Sp3 'cause his arms aren't match with XP)
(I'm use shield with wings from Sp2 'cause it is better when fly mode)

WingZero<BlackComb>(He is SUPER cool but his wings is too much for reflect.)
(I'm change his base from BlackSelena and add wings and mini wing from base class.)

Full Ammor ZZ<Xp-Sp2>(I'm change his base to Sp2 without secound think. = =" )
(I'm use gun, shield, arm2 and arm3  from base class.)


.:Full Custom:.
Un Ammor ZZ<Xp-Sp3>(His head is only one path from original. = = ")
(Arms and Body_d from Sp3, Legs from Gundam Mk II, Body from Strike Noir)
(Gun from Kyrios, sword from arbalest and shield from Zeta.)

ZZ Custom<BlackSelena Custom>(I dislike Iris.Her crystal weapon is really cheat.)
With hp and energy 2 time of nomal , he is really dangerous when become enemy.
But he hasn't livestock !!

เป็นแนวใหม่ที่ทาง Afer soft พัฒนาขึ้นมา ใช้หน้าต่างเดียวแต่เหมือนหลายหน้าต่าง
สามารถ Dragmove และ DragDrop ตัว Control ได้สบายมากครับ

ตัวนี้เป็น Vb 100% ไม่มี Xaml มาเจือปนเลย
เรียกได้ว่าเป็น Dynamic  เต็มรูปแบบครับ

Imports swm = System.Windows.Media
Imports sws = System.Windows.Shapes
Imports swc = System.Windows.Controls

Imports Aferplayer_NT.Wpf.Extension

Public Class CtrlForm
    Implements Wpf.WinBase.Basic

#Region "Implement"
    Public WithEvents Base As New Wpf.WinBase _
    With {.IsHide = 0, .IsScreenSize = 0} ' .Width = 300, .Height = 100}
    Public Sub Show() Implements Wpf.WinBase.Basic.Show
        Base += StartUp()
        Base.Show()
    End Sub
#End Region

#Region "Object"

    '____________________________________________________________________
    Public WithEvents FrameBase As New sws.Rectangle With { _
        .RadiusX = 10.0.RX, .RadiusY = 10.0.RY, _
        .Margin = New Double() {0, 0, 20, 20}.Margin, _
        .Fill = "FFffffff".Color.Solid, .Effect = New swm.Effects.DropShadowEffect}

    Public WithEvents MvPlayer As New swc.MediaElement _
    With {.LoadedBehavior = 0, .UnloadedBehavior = 0, .Stretch = 3, _
    .Margin = New Double() { _
    FrameBase.margin.left + 5, FrameBase.margin.top + 5, 0, 0}.Margin, _
    .Width = 70.0.RX, .Height = 70.0.RY}

    Public MusicName As New swc.TextBlock _
    With {.Height = 30, .Margin = New Double() { _
    FrameBase.margin.left + MvPlayer.width + 10, _
    FrameBase.margin.top + 5, 0, 0}.Margin, _
    .IsHitTestVisible = False, .Text = "Era - Hymne", .Foreground = "FF777777".Color.Solid}
    '____________________________________________________________________
    Public CtrlArea As swc.Grid = New Wpf.Grid With {.Width = 300.0.RX, .Height = 100.0.RY} _
                                  + FrameBase + MvPlayer + MusicName
#End Region

#Region "First Run"
    '____________________________________________________________________
    Private Auto As New Wpf.AutoSetControl With {.FrameworkElement = New Wpf.FramePack _
    + CtrlArea + MusicName + MvPlayer}

    Private Move As New Wpf.DragMove With {.IsReTarget = True, _
        .Modifications = New Wpf.FramePack + FrameBase, _
        .ReTarget = New Wpf.FramePack + Base.Layout}
    '____________________________________________________________________
    Private Function StartUp() As Wpf.UIPack Implements Wpf.WinBase.Basic.StartUp
        StartUp = New Wpf.UIPack + CtrlArea '+ FrameBase + MvPlayer
        MvPlayer.Source = "C:\Era - Hymne.mov".URI
    End Function

    Sub FormLoad() Handles Base.Loaded
        MvPlayer.Volume = 1
        MvPlayer.Play()
    End Sub

#End Region
End Class

______________________________________________________________________________________
การใช้งาน

Private TimeSet As New TimeFlow _
With {.Hr = 0, .Min = 1, .Sec = 30 , .Start = Date.Now}

Private Sub Tick() Handles Timer.Tick
    If ( Timeset Or Date.Now) = True Then
         ' Do someting
    Else
         Label.Text = TimeSet Xor Date.Now
    End If
End Sub
______________________________________________________________________________________
ตัวโค๊ด

Structure TimeFlow
Dim Hr, Min, Sec As Integer
Dim Start As Date

Public Shared Operator Or _
(ByVal t As TimeFlow, ByVal d As Date) As Boolean
    Return If(t.Start.Add(New System.TimeSpan(Hr,Min,Sec)) = d, True, False)
End Operator

Public Shared Operator Xor _
(ByVal t As TimeFlow, ByVal d As Date) As String
    Return (t.Start.Add(New System.TimeSpan(Hr,Min,Sec)) - d).ToString
End Operator

End Structure