Home

Aplikasi Mengetahui Nama Bulan Dan Hari Visual Basic 2010

Techannel 4 Mar, 2021

Aplikasi Mengetahui Nama Bulan Dan Hari

Form Design

Code

Public Class Latihan_6

    Dim angkabulan, jumlahHari As Integer
    Dim namaBulan As String

Sub cariNamaBulan()
        angkabulan = Val(Me.txtAngkabulan.Text)
        Select Case (angkabulan)
            Case 1
                namaBulan = "januari"
                jumlahHari = 31
            Case 2
                namaBulan = "februari"
                jumlahHari = 28
            Case 3
                namaBulan = "maret"
                jumlahHari = 31
            Case 4
                namaBulan = "april"
                jumlahHari = 30
            Case 5
                namaBulan = "mei"
                jumlahHari = 31
            Case 6
                namaBulan = "juni"
                jumlahHari = 30
            Case 7
                namaBulan = "juli"
                jumlahHari = 31
            Case 8
                namaBulan = " agustus"
                jumlahHari = 30
            Case 9
                namaBulan = "september"
                jumlahHari = 30
            Case 10
                namaBulan = "oktober"
                jumlahHari = 31
            Case 11
                namaBulan = "nopember"
                jumlahHari = 30
            Case 12
                namaBulan = "desember"
                jumlahHari = 31
            Case Else
                namaBulan = ""
                jumlahHari = 0

        End Select

        Me.LBnamabulan.Text = namaBulan.ToString
        Me.lbjumlahhari.Text = jumlahHari.ToString

    End Sub

Start Debuging

Artikel Selanjutnya Artikel Sebelumnya

Tambahkan Komentar

<script src='https://www.blogger.com/static/v1/jsbin/1167892209-comment_from_post_iframe.js' type='text/javascript'></script>

<!--

<script type="text/javascript" src="https://www.blogger.com/static/v1/widgets/2422103421-widgets.js"></script>
<script type='text/javascript'>
window['__wavt'] = 'AOuZoY5JSYeF9pAlVBLBelgZECGIhK0SqA:1755819225831';_WidgetManager._Init('//www.blogger.com/rearrange?blogID\x3d3719205137979014249','//rickytechannel.blogspot.com/2016/01/latihan-6.html','3719205137979014249');
_WidgetManager._SetDataContext([{'name': 'blog', 'data': {'blogId': '3719205137979014249', 'title': 'Techannel', 'url': 'https://rickytechannel.blogspot.com/2016/01/latihan-6.html', 'canonicalUrl': 'https://rickytechannel.blogspot.com/2016/01/latihan-6.html', 'homepageUrl': 'https://rickytechannel.blogspot.com/', 'searchUrl': 'https://rickytechannel.blogspot.com/search', 'canonicalHomepageUrl': 'https://rickytechannel.blogspot.com/', 'blogspotFaviconUrl': 'https://rickytechannel.blogspot.com/favicon.ico', 'bloggerUrl': 'https://www.blogger.com', 'hasCustomDomain': false, 'httpsEnabled': true, 'enabledCommentProfileImages': true, 'gPlusViewType': 'FILTERED_POSTMOD', 'adultContent': false, 'analyticsAccountNumber': '', 'encoding': 'UTF-8', 'locale': 'id', 'localeUnderscoreDelimited': 'id', 'languageDirection': 'ltr', 'isPrivate': false, 'isMobile': false, 'isMobileRequest': false, 'mobileClass': '', 'isPrivateBlog': false, 'isDynamicViewsAvailable': true, 'feedLinks': '\x3clink rel\x3d\x22alternate\x22 type\x3d\x22application/atom+xml\x22 title\x3d\x22Techannel - Atom\x22 href\x3d\x22https://rickytechannel.blogspot.com/feeds/posts/default\x22 /\x3e\n\x3clink rel\x3d\x22alternate\x22 type\x3d\x22application/rss+xml\x22 title\x3d\x22Techannel - RSS\x22 href\x3d\x22https://rickytechannel.blogspot.com/feeds/posts/default?alt\x3drss\x22 /\x3e\n\x3clink rel\x3d\x22service.post\x22 type\x3d\x22application/atom+xml\x22 title\x3d\x22Techannel - Atom\x22 href\x3d\x22https://www.blogger.com/feeds/3719205137979014249/posts/default\x22 /\x3e\n\n\x3clink rel\x3d\x22alternate\x22 type\x3d\x22application/atom+xml\x22 title\x3d\x22Techannel - Atom\x22 href\x3d\x22https://rickytechannel.blogspot.com/feeds/6649474234086430183/comments/default\x22 /\x3e\n', 'meTag': '', 'adsenseHostId': 'ca-host-pub-1556223355139109', 'adsenseHasAds': false, 'adsenseAutoAds': false, 'boqCommentIframeForm': true, 'loginRedirectParam': '', 'view': '', 'dynamicViewsCommentsSrc': '//www.blogblog.com/dynamicviews/4224c15c4e7c9321/js/comments.js', 'dynamicViewsScriptSrc': '//www.blogblog.com/dynamicviews/9d4094f02100fbb8', 'plusOneApiSrc': 'https://apis.google.com/js/platform.js', 'disableGComments': true, 'interstitialAccepted': false, 'sharing': {'platforms': [{'name': 'Dapatkan link', 'key': 'link', 'shareMessage': 'Dapatkan link', 'target': ''}, {'name': 'Facebook', 'key': 'facebook', 'shareMessage': 'Bagikan ke Facebook', 'target': 'facebook'}, {'name': 'BlogThis!', 'key': 'blogThis', 'shareMessage': 'BlogThis!', 'target': 'blog'}, {'name': 'X', 'key': 'twitter', 'shareMessage': 'Bagikan ke X', 'target': 'twitter'}, {'name': 'Pinterest', 'key': 'pinterest', 'shareMessage': 'Bagikan ke Pinterest', 'target': 'pinterest'}, {'name': 'Email', 'key': 'email', 'shareMessage': 'Email', 'target': 'email'}], 'disableGooglePlus': true, 'googlePlusShareButtonWidth': 0, 'googlePlusBootstrap': '\x3cscript type\x3d\x22text/javascript\x22\x3ewindow.___gcfg \x3d {\x27lang\x27: \x27id\x27};\x3c/script\x3e'}, 'hasCustomJumpLinkMessage': false, 'jumpLinkMessage': 'Baca selengkapnya', 'pageType': 'item', 'postId': '6649474234086430183', 'postImageThumbnailUrl': 'https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi3Eop5QrvFul08ukXCHKWpVqTn-jTBymLrCECF2gDqP6SiZG5IdYGjcjVv33rKXlfRR44nc4LFsSrT1Dhtt_xKw2GnF6TxzkK6ACtSJVL44hgkmuXQG6pPlUwsu2OPIxVyXv8MKpLHs5t6/s72-c/Latihan+6.png', 'postImageUrl': 'https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi3Eop5QrvFul08ukXCHKWpVqTn-jTBymLrCECF2gDqP6SiZG5IdYGjcjVv33rKXlfRR44nc4LFsSrT1Dhtt_xKw2GnF6TxzkK6ACtSJVL44hgkmuXQG6pPlUwsu2OPIxVyXv8MKpLHs5t6/s640/Latihan+6.png', 'pageName': 'Aplikasi Mengetahui Nama Bulan Dan Hari Visual Basic 2010', 'pageTitle': 'Techannel: Aplikasi Mengetahui Nama Bulan Dan Hari Visual Basic 2010', 'metaDescription': ''}}, {'name': 'features', 'data': {}}, {'name': 'messages', 'data': {'edit': 'Edit', 'linkCopiedToClipboard': 'Tautan disalin ke papan klip!', 'ok': 'Oke', 'postLink': 'Tautan Pos'}}, {'name': 'template', 'data': {'name': 'custom', 'localizedName': 'Khusus', 'isResponsive': true, 'isAlternateRendering': false, 'isCustom': true}}, {'name': 'view', 'data': {'classic': {'name': 'classic', 'url': '?view\x3dclassic'}, 'flipcard': {'name': 'flipcard', 'url': '?view\x3dflipcard'}, 'magazine': {'name': 'magazine', 'url': '?view\x3dmagazine'}, 'mosaic': {'name': 'mosaic', 'url': '?view\x3dmosaic'}, 'sidebar': {'name': 'sidebar', 'url': '?view\x3dsidebar'}, 'snapshot': {'name': 'snapshot', 'url': '?view\x3dsnapshot'}, 'timeslide': {'name': 'timeslide', 'url': '?view\x3dtimeslide'}, 'isMobile': false, 'title': 'Aplikasi Mengetahui Nama Bulan Dan Hari Visual Basic 2010', 'description': 'Ricky Rinaldy Blog', 'featuredImage': 'https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi3Eop5QrvFul08ukXCHKWpVqTn-jTBymLrCECF2gDqP6SiZG5IdYGjcjVv33rKXlfRR44nc4LFsSrT1Dhtt_xKw2GnF6TxzkK6ACtSJVL44hgkmuXQG6pPlUwsu2OPIxVyXv8MKpLHs5t6/s640/Latihan+6.png', 'url': 'https://rickytechannel.blogspot.com/2016/01/latihan-6.html', 'type': 'item', 'isSingleItem': true, 'isMultipleItems': false, 'isError': false, 'isPage': false, 'isPost': true, 'isHomepage': false, 'isArchive': false, 'isLabelSearch': false, 'postId': 6649474234086430183}}, {'name': 'widgets', 'data': [{'title': 'Logo', 'type': 'HTML', 'sectionId': 'header-main', 'id': 'HTML50'}, {'title': 'Menu', 'type': 'PageList', 'sectionId': 'header-main', 'id': 'PageList50'}, {'title': 'Postingan Blog', 'type': 'Blog', 'sectionId': 'blog-post', 'id': 'Blog50', 'posts': [{'id': '6649474234086430183', 'title': 'Aplikasi Mengetahui Nama Bulan Dan Hari Visual Basic 2010', 'featuredImage': 'https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi3Eop5QrvFul08ukXCHKWpVqTn-jTBymLrCECF2gDqP6SiZG5IdYGjcjVv33rKXlfRR44nc4LFsSrT1Dhtt_xKw2GnF6TxzkK6ACtSJVL44hgkmuXQG6pPlUwsu2OPIxVyXv8MKpLHs5t6/s640/Latihan+6.png', 'showInlineAds': false}], 'footerBylines': [{'regionName': 'footer1', 'items': [{'name': 'author', 'label': 'Diposting oleh'}, {'name': 'comments', 'label': 'Review'}]}], 'allBylineItems': [{'name': 'author', 'label': 'Diposting oleh'}, {'name': 'comments', 'label': 'Review'}]}, {'title': 'Post Terpopuler', 'type': 'PopularPosts', 'sectionId': 'sticky-sidebar', 'id': 'PopularPosts50', 'posts': [{'title': 'Aplikasi Menentukan Genap Ganjil Visual Basic 2010', 'id': 1339125925827401855}, {'title': 'Aplikasi Jumlah \x26 Rata-Rata Visual Basic 2010', 'id': 4008741078796492683}, {'title': 'Aplikasi Perulangan/Looping Visual Basic 2010', 'id': 4683667519015836039}]}, {'title': 'Post Terbaru', 'type': 'HTML', 'sectionId': 'sticky-sidebar', 'id': 'HTML54'}, {'title': 'Tentang', 'type': 'HTML', 'sectionId': 'footer-widget', 'id': 'HTML55'}, {'title': 'Learn More', 'type': 'LinkList', 'sectionId': 'footer-widget', 'id': 'LinkList50'}, {'title': 'Sosial Media', 'type': 'LinkList', 'sectionId': 'footer-widget', 'id': 'LinkList51'}, {'title': 'Copyright', 'type': 'HTML', 'sectionId': 'copyright', 'id': 'HTML56'}]}]);
_WidgetManager._RegisterWidget('_HTMLView', new _WidgetInfo('HTML50', 'header-main', document.getElementById('HTML50'), {}, 'displayModeFull'));
_WidgetManager._RegisterWidget('_PageListView', new _WidgetInfo('PageList50', 'header-main', document.getElementById('PageList50'), {'title': 'Menu', 'links': [{'isCurrentPage': false, 'href': 'https://rickytechannel.blogspot.com/', 'title': 'Home'}, {'isCurrentPage': false, 'href': '/search/label/Tech?max-results\x3d10', 'title': 'Tech'}, {'isCurrentPage': false, 'href': '#', 'title': 'sub-start'}, {'isCurrentPage': false, 'href': '#', 'title': 'Dropdown'}, {'isCurrentPage': false, 'href': '#', 'title': 'Dropdown'}, {'isCurrentPage': false, 'href': '#', 'title': 'sub-start'}, {'isCurrentPage': false, 'href': '#', 'title': 'Dropdown 2'}, {'isCurrentPage': false, 'href': '#', 'title': 'Dropdown 2'}, {'isCurrentPage': false, 'href': '#', 'title': 'sub-end'}, {'isCurrentPage': false, 'href': '#', 'title': 'Dropdown'}, {'isCurrentPage': false, 'href': '#', 'title': 'sub-end'}, {'isCurrentPage': false, 'href': '/#footer', 'title': 'Contact'}, {'isCurrentPage': false, 'href': '/#footer', 'title': 'About'}], 'mobile': false, 'showPlaceholder': true, 'hasCurrentPage': false}, 'displayModeFull'));
_WidgetManager._RegisterWidget('_BlogView', new _WidgetInfo('Blog50', 'blog-post', document.getElementById('Blog50'), {'cmtInteractionsEnabled': false, 'lightboxEnabled': true, 'lightboxModuleUrl': 'https://www.blogger.com/static/v1/jsbin/497930099-lbx.js', 'lightboxCssUrl': 'https://www.blogger.com/static/v1/v-css/123180807-lightbox_bundle.css'}, 'displayModeFull'));
_WidgetManager._RegisterWidget('_PopularPostsView', new _WidgetInfo('PopularPosts50', 'sticky-sidebar', document.getElementById('PopularPosts50'), {}, 'displayModeFull'));
_WidgetManager._RegisterWidget('_HTMLView', new _WidgetInfo('HTML54', 'sticky-sidebar', document.getElementById('HTML54'), {}, 'displayModeFull'));
_WidgetManager._RegisterWidget('_HTMLView', new _WidgetInfo('HTML55', 'footer-widget', document.getElementById('HTML55'), {}, 'displayModeFull'));
_WidgetManager._RegisterWidget('_LinkListView', new _WidgetInfo('LinkList50', 'footer-widget', document.getElementById('LinkList50'), {}, 'displayModeFull'));
_WidgetManager._RegisterWidget('_LinkListView', new _WidgetInfo('LinkList51', 'footer-widget', document.getElementById('LinkList51'), {}, 'displayModeFull'));
_WidgetManager._RegisterWidget('_HTMLView', new _WidgetInfo('HTML56', 'copyright', document.getElementById('HTML56'), {}, 'displayModeFull'));
</script>
</body><head>
<link href='https://www.blogger.com/dyn-css/authorization.css?targetBlogID=3719205137979014249&zx=48eb72e0-f3ff-48db-9eed-61b4e073dfdd' media='none' onload='if(media!='all')media='all'' rel='stylesheet'/><noscript><link href='https://www.blogger.com/dyn-css/authorization.css?targetBlogID=3719205137979014249&zx=48eb72e0-f3ff-48db-9eed-61b4e073dfdd' rel='stylesheet'/></noscript>
<meta name='google-adsense-platform-account' content='ca-host-pub-1556223355139109'/>
<meta name='google-adsense-platform-domain' content='blogspot.com'/>

</head>

-->