Membuat Aplikasi Biodata Visi dan Misi Calon pemimpin


Aplikasi Biodata visi misi calon pemimpin dan wakil rakyat dengan VB6, C++ dan Java di Expertadvisorku.blogspot.com By Elfiansyah Elham

Aplikasi ini sangat amat berguna bagi masyarakat di era digital saat ini untuk mengetahui siapa yang akan mewakili mereka di DPR dan siapa Yang akan memimpin mereka diwilayahnya masing-masing sampai kepada RI 1.

Aplikasi ini menggunakan Visual Basic 6 namun dapat di Converter ke C++ dan Java sehingga dapat dinikmati di Android, linux dan Mac, oleh sebab itu aplikasi ini mudah digunakan jika sudah di install maka akan automatis selalu memberikan Berita Disertakan gambar calon-calon pemimpinnya disertakan Visi dan Misi dan dilengkapi Biodata, maka bagi masyarakat dapat langsung membacanya yang mana aplikasi ini secara bergantian akan mengeluarkan calon-calon pemimpin sesuai aturan jika 10 detik maka setiap 10 detik akan berganti dengan calon yang lain.

Aplikasi ini juga dapat terkonek dengan server tertentu jika sudah selesai pemilu maka akan dapat diganti dengan berita-berita terbaru yang lainnya sehingga masyarakat selalu terupdate suatu berita terbaru.


Apakah sudah dapat dipahami penjelasan diatas, jika masih gagal paham, maka bacalah kembali, adapun bahasa pemograman untuk VB 6 ada dibawah ini:
Private Const SPI_GETWORKAREA As Long = 48&
Private Type RECT
    Left   As Long
    Top    As Long
    Right  As Long
    Bottom As Long
End Type
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
    (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Type OSVERSIONINFO
    OSVSize       As Long
    dwVerMajor    As Long
    dwVerMinor    As Long
    dwBuildNumber As Long
    PlatformID    As Long
    szCSDVersion  As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
    (lpVersionInformation As OSVERSIONINFO) As Long

Private m_iChangeSpeed    As Long
Private m_iCounter        As Long
Private m_iScrnBottom     As Long
Private m_bOnTop          As Boolean
Private m_iWindowCount    As Long
Private m_bManualClose    As Boolean
Private m_bCodeClose      As Boolean
Private m_bFade           As Boolean
Private m_iOSver          As Byte
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Dim tg As Byte
Dim co As Byte
'Dim LLL As Integer

Private Sub cmdcancel_Click()
Unload Me
End Sub

Private Sub Form_Load()
On Error Resume Next
SetOpagueForm False, Me
reg.SaveSettingLong HKEY_CURRENT_USER, "Software\Bechair IT Solutions Samarinda\Hantam", "Transparent", 1

Dim WindowRegion As Long
picMainSkin2.ScaleMode = vbPixels
picMainSkin2.AutoRedraw = True
picMainSkin2.AutoSize = True
picMainSkin2.BorderStyle = vbBSNone
Me.BorderStyle = vbBSNone
Me.Width = picMainSkin2.Width
Me.Height = picMainSkin2.Height
WindowRegion = MakeRegion(picMainSkin2)
SetWindowRgn Me.hWnd, WindowRegion, True

    Dim RC         As RECT
    Dim scrnRight  As Long
    Dim OSV        As OSVERSIONINFO
   
    OSV.OSVSize = Len(OSV)
    If GetVersionEx(OSV) = 1 Then
        If OSV.PlatformID = 1 And OSV.dwVerMinor >= 10 Then m_iOSver = 1
        If OSV.PlatformID = 2 And OSV.dwVerMajor >= 5 Then m_iOSver = 2
    End If
  
    Call SystemParametersInfo(SPI_GETWORKAREA, 0&, RC, 0&)
   
    m_iScrnBottom = RC.Bottom * Screen.TwipsPerPixelY
  
    scrnRight = (RC.Right * Screen.TwipsPerPixelX)
   
    Me.Move scrnRight - Me.Width, m_iScrnBottom, lblValue(3).Left + lblValue(3).Width + 300, cmdcancel.Top + 2750

    tmrFadeIn.Enabled = True
    tg = 15   
End Sub

Private Sub Main_GUI2_Click()
frmMain.Show
Unload Me
'TampilkanBalon frmMain, "Anda saat ini menggunakan Aplikasi Berita Terupdate Calon Pemimpin" & vbNewLine & vbNewLine & "Akurat Tajam & terpercaya" & vbNewLine & vbNewLine & "Bechair IT Solutons Samarinda 2011-2012", "Hantam", NIIF_INFO
End Sub

'Private Sub TmAnim_Timer()
'If LLL > 15 Then
  '  lblTreat(0).Visible = False
  '  LLL = LLL + 1
'Else
   ' lblTreat(0).Visible = True
   ' LLL = LLL + 1
'End If
'If LLL > 20 Then LLL = 0
    'lblTreat(0).ForeColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)

'End Sub

Private Sub tmrFadeIn_Timer()
    If Me.Top < m_iScrnBottom - Me.Height Then
        tmrUpdate.Enabled = True
        tmrFadeIn.Enabled = False
    Else
        Me.Move Me.Left, Me.Top - 125, lblValue(3).Left + lblValue(3).Width + 100, cmdcancel.Top + 2750
    End If

End Sub

Private Sub tmrFadeOut_Timer()

    If Me.Top > m_iScrnBottom Then
        Unload Me
    Else
        Me.Move Me.Left, Me.Top + 125, lblValue(3).Left + lblValue(3).Width + 100, cmdcancel.Top + 2750
    End If
Call UpdateIcon(frmMain.Icon, "Hantam Antivirus & Tools", frmMain)
End Sub

Private Sub tmrUpdate_Timer()
 If tg - co > 0 Then
        co = co + 1
    Else
        tmrFadeOut.Enabled = True
    End If
End Sub
Bagi para programmer sangat mudah untuk mengembangkannya dan sangat familiar sehingga ditangan anda maka aplikasi ini semakin bermakna dan bermanfaat, namun bagi pemula tentu seperti bahasa planet apa yang ditulis diatas tadi.

Adapun untuk videonya dapat dilihat disini; 



Komentar