Hallo assalammualaikum kali ini saya posting mengenai pemograman visual basic menngunakan visual studio 2012, aplikasi yang saya buat adalah aplikasi restoran yang saya namakan 'Gendats Cafe' saya membuat project ini dikarenakan kewajiban saya sebagai mahasiswi untuk mengerjakan tugas yang diberikan oleh dosen pemograman saya yaitu Bapak Agus Suharto,kenapa saya memilih membuat aplikasi.
Bentuk form sesuai dengan gambar
Bosan dengan tampilan form yang berbentuk persegi? Ingin mengubahnya dengan bentuk lain yang lebih dinamis? Simak penjelasannya berikut ini!
Ubah BorderStyle form menjadi 0-None, tempatkan sebuah PictureBox, namai dengan “picMainSkin”. Tambahkan sebuah Module, ketik kode di bawah:
Declare Function DeleteObject Lib “gdi32” _
(ByVal hObject As Long) As Long
Declare Function GetPixel Lib “gdi32” _
(ByVal hDC As Long, _
ByVal X As Long, ByVal Y As Long) As Long
Declare Function CreateRectRgn Lib “gdi32” _
(ByVal x1 As Long, _
ByVal y1 As Long, _
ByVal x2 As Long, _
ByVal y2 As Long) As Long
Declare Function CombineRgn Lib “gdi32” _
(ByVal hDestRgn As Long, _
ByVal hSrcRgn1 As Long, _
ByVal hSrcRgn2 As Long, _
ByVal nCombineMode As Long) As Long
Public Declare Function _
ReleaseCapture Lib “user32” () As Long
Declare Function SetWindowRgn Lib “user32” _
(ByVal hwnd As Long, _
ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
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
Public StartX!
Public StartY!
Public Function BentukDaerah(picSkin As PictureBox) As Long
Dim X As Long, Y As Long
Dim AwalGaris As Long
Dim DaerahPenuh As Long
Dim GarisDaerah As Long
Dim GarisDalam As Boolean
Dim AwalDaerah As Boolean
Dim hDC As Long
Dim Lebar As Long
Dim Tinggi As Long
hDC = picSkin.hDC
Lebar = picSkin.Width / Screen.TwipsPerPixelX
Tinggi = picSkin.Height / Screen.TwipsPerPixelY
Authenticate louis vuitton by number. Since the 1980s, Louis Vuitton has used date codes and serial numbers to track its products. Little is published about how these combinations of numbers and letters are arranged, but there is method to the code madness. With a little perseverance, cracking the code becomes second nature. Identify Authentic Louis Vuitton Date and Production Codes. How can the answer be improved?
AwalDaerah = True: GarisDalam = False
X = AwalGaris = 0
Y = 200
For Y = 0 To Tinggi – 1
For X = 0 To Lebar – 1
If GetPixel(hDC, X, Y) = vbWhite Or X = Lebar Then
Enid blyton the mystery of the burnt cottage pdf. The Mystery of the Burnt Cottage is the first in the series of children's novels the Five Find-Outers by Enid Blyton.It was first published in 1943 and continues to be frequently reissued. The Mystery of the Burnt Cottage is the first of the series and opens with siblings Laurence “Larry” and Margaret “Daisy” Daykin waking up to the smell of a fire. They and th Findouters Challenge: Book 1. Enid Blyton - Mystery 01 - Mystery Of The Burnt Cottage Mystery 01- Mystery of the Burnt Cottage - Blyton, Enid. The Five Find-Outers and Buster the Dog. The Burning Cottage. It was at half-past nine on a dark April night that all the excitement began. The village of Peterswood was perfectly quiet and peaceful, except for a dog barking somewhere. Mystery 01- Mystery of the Burnt Cottage - Blyton, Enid. The Five Find-Outers and Buster the Dog. The Burning Cottage. It was at half-past nine on a dark April night that all the excitement began. Enid Blyton wrote many popular series including the Famous Five, the Five Find-Outers, the Barney Mysteries, Malory Towers, St Clare's, the Secret Seven, the Adventure Series, the Secret Series, and many more. The Mystery of the Burnt Cottage Review by Keith Robinson (January 1, 2005).
If GarisDalam Then
GarisDalam = False
GarisDaerah = CreateRectRgn(AwalGaris, Y, X, Y + 1)
If AwalDaerah Then
DaerahPenuh = GarisDaerah
AwalDaerah = False
Else
CombineRgn DaerahPenuh, DaerahPenuh, GarisDaerah, 2
DeleteObject GarisDaerah
End If
End If
Else
If Not GarisDalam Then
GarisDalam = True
Contoh Program Visual Basic Dengan Metode Looping
AwalGaris = X
End If
End If
Next
Next
BentukDaerah = DaerahPenuh
End Function
Public Sub PindahDonk(ctl As Object, Button As Integer, _
X As Single, Y As Single)
If Button = 1 Then
ctl.Left = IIf(X < StartX, ctl.Left – (StartX – X), _
ctl.Left + (X – StartX))
ctl.Top = IIf(Y < StartY, _
ctl.Top – (StartY – Y), ctl.Top + (Y – StartY))
End If
End Sub
Ketik kode di bawah ini pada form:
Option Explicit
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim WindowRegion As Long
‘
With Me.picMainSkin
.ScaleMode = 3
.Move 0, 0
.DrawWidth = 10
.FillStyle = 0
.FillColor = vbRed
PACES form MediaFire.com link RapidShare, ifile.it, Uploaded.to, Zippyshare. An Aid to the MRCP PACES 4th Edition. An aid to mrcp paces free download 1–20 of 689603. Aid to the mrcp paces rapidshare.
Me.picMainSkin.Circle (105, 105), 90, vbYellow
.FillColor = vbBlue
Me.picMainSkin.Circle (400, 105), 40, vbYellow
.FillStyle = 1
.ForeColor = vbYellow
Me.picMainSkin.Line (105, 10)-(400, 60.5)
Me.picMainSkin.Line (105, 200)-(400, 150)
Width = .Width
Height = .Height
End With
WindowRegion = BentukDaerah(Me.picMainSkin)
SetWindowRgn Me.hwnd, WindowRegion, True
End Sub
Private Sub picMainSkin_MouseDown(Button As Integer, _
Contoh Program Visual Basic
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Nov 18, 2013 Download Fast And Furious 6 (2013)[HINDI] HD torrent or any other torrent from Dubbed Movies category. Direct download via HTTP available as well. Download Fast And Furious 6 (2013)[HINDI] HD Torrent - kickasstorrents. Fast and furious 6 hindi dubbed download 720p kickass torrents free. Picktorrent: fast furious 6 hindi hd - Free Search and Download Torrents at search engine. Download Music, TV Shows, Movies, Anime, Software and more. Fast furious 6 hindi hd - Search and Download. 2 Fast 2 Furious (2003) Hindi Dubbed full movie download Bluray 720p khatrimaza Watch online 2 Fast 2 Furious (2003) Movie Hindi Dubbed Torrent mkv 2 Fast 2 Furious (2003) movie mp4 1080p 1.2Gb extra kickass torrent free download hd Quality 2 Fast 2 Furious (2003) Hindi Dubbed. Apr 12, 2006 Picktorrent: fast and furious 7 in hindi torrent - Free Search and Download Torrents at search engine. Download Music, TV Shows, Movies, Anime, Software and more. Picktorrent: fast and furious 8 in hindi torrent - Free Search and Download Torrents at search engine. Download Music, TV Shows, Movies, Anime, Software and more. Download Fast And Furious All Parts 720p Dual Audio (Hindi English) Great Quality.(Aman Verma)Torrent: Video.
StartX = X
Contoh Program Visual Basic Penjualan
StartY = Y
Program Visual Basic
End If
End Sub
Private Sub picMainSkin_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
PindahDonk Me, Button, X, Y
End Sub
Tampilan form ketika dijalankan:
Silakan ambil contoh kode sumbernya di:
http://www.4shared.com/file/71705289/6512a690/34_Menyesuaikan_bentuk_form.html