Latest Post
Loading...
ExpertAdvisorku.blogspot.com adalah situs pembelajaran bahasa pemograman yang memahami setiap fungsi bahasa perintah dan menterjemahkan bahasa manusia kebahasa mesin selamat datang disitus ini dan mohon maaf jika dalam penulisan ada yang salah atau ada kata yang membuat pengunjung kurang nyaman
Monday, 6 July 2015

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; 



Dapatkan Dollar Disini

[WHAFF] Programmer Antiviruss Hantam Tools WHAFF sudah mengundang Anda ke WHAFF Imbalan! Download WHAFF Imbalan, masukkan kode undangan : [ CG64563 ] dan dapatkan $0,30!!! DAFTAR DISINI

Daftar Seacrh Engines

Suara Hati Programmer

Wahai Para Wanita jika engkau ingin mencari suami yang tidak keluar rumah maka jatuhkanlah pilihanmu kepada seorang programmer setelah engkau mengetahui agamanya demikianlah himbauan ini dibuat agar dapat digunakan sebagaimana mestinya

App Iphone & Smartphone

Markaz Buku

Jasa Acara Pernikahan

Daftar Blog Keilmuan

Beli Domain Hosting Disini

Iyan Goodman. Powered by Blogger.

Dapatkan Buku ini

Dapatkan Buku ini
Buku Mahir Menganalisa Pergerakan harga dan Membuat EA tanpa guru

Follow Me

Popular Posts

Kode Warna HTML

#7FFF00
Chartreuse
#D2691E
Chocolate
#FF7F50
Coral
#64950
Cornflowerblue
#FFF8DC
Cornsilk
#DC143C
Crimson
#00FFFF
Cyan
#00008B
Darkblue
#008B8B
Darkcyan
#B8860B
Darkgoldenrod
#A9A9A9
Darkgray
#006400
Darkgreen
#8B008B
Darkmagenta
#BDB76B
Darkkhaki
#556B2F
Darkolivegreen
#FF8C00
Darkorange
#9932CC
Darkorchid
#8B0000
Darkred
#E9967A
Darksalmon
#8FBC8B
Darkseagreen
#483D8B
Darkslateblue
#2F4F4F
Darkslategray
#00CED1
Darkturquoise
#9400D3
Darkviolet
#FF1493
Deeppink
#00BFFF
Deepskyblue
#696969
Dimgray
#1E90FF
Dodgerblue
#B22222
Firebrick
#FFFAF0
Floralwhite
#228B22
Forestgreen
#FF00FF
Fuchsia
#DCDCDC
Gainsboro
#F8F8FF
Ghostwhite
#FFD700
Gold
#DAA520
Goldenrod
#808080
Gray
#008000
Green
#ADFF2F
Greenyellow
#F0FFF0
Honeydew
#FF69B4
Hotpink
#CD5C5C
Indianred
#4B0082
Indigo
#FFFFF0
Ivory
#F0E68C
Khaki
#E6E6FA
Lavender
#FFF0F5
Lavenderblush
#7CFC00
Lawngreen
#FFFACD
Lemonchiffon
#ADE8E6
Lightblue
#F08080
Lightcoral
#E0FFFF
Lightcyan
#FAFAD2
Lightgoldenrodyellow
#90EE90
Lightgreen
#D3D3D3
Lightgray
#FFB6C1
Lightpink
#FFA072
Lightsalmon
#20B2AA
Lightseagreen
#87CEFA
Lightskyblue
#778899
Lightslategray
#B0C4DE
Lightsteelblue
#FFFFE0
Lightyellow
#00FF00
Lime
#32CD32
Limegreen
#FAF0E6
Linen
#FF00FF
Magenta
#800000
Maroon
#66CDAA
Mediumaquamarine
#0000CD
Mediumblue
#BA55D3
Mediumorchid
#9370DB
Mediumpurple
#3CB371
Mediumseagreen
#7B68EE
Mediumslateblue
#00FA9A
Mediumspringgreen
#48D1CC
Mediumturquoise
#C71585
Mediumvioletred
#191970
Midnightblue
#F5FFFA
Mintcream
#FFE4E1
Mistyrose
#FFE4E1
Moccasin
#FFDEAD
Navajowhite
#000080
Navy
#FDF5E6
Oldlace
#808000
Olive
#6B8E23
Olivedrab
#FFA500
Orange
#FF100%0
Orangered
#DA70D6
Orchid
#EEE8AA
Palegoldenrod
#98FB98
Palgreen
#AFEEEE
Paleturquoise
#DB7093
Palevioletred
#FFEFD5
Papayawhip
#FFDAB9
Peachpuff
#CD853F
Peru
#FFC0CB
Pink
#DDA0DD
Plum
#B0E0E6
Powderblue
#800080
Purple
#FF0000
Red
#BC8F8F
Rosybrown
#4169E1
Royalblue
#8B4513
Saddlebrown
#FA8072
Salmon
#F4A460
Sandybrown
#2E8B57
Seagreen
#FFF5EE
Seashell
#A0522D
Sienna
#C0C0C0
Silver
#87CEEB
Skyblue
#708090
Slategray
#FFFAFA
Snow
#00FF7F
Springgreen
#4682B4
Steelblue
#D2B48C
Tan
#008080
Teal
#D8BFD8
Thistle
#FF6347
Tomato
#40E0D0
Turquoise
#EE82EE
Violet
#F5DEB3
Wheat
#FFFFFF
White
#F5F5F5
Whitesmoke
#FFFF00
Yellow
#9ACD32
Yellowgreen

Support Chat