Arsha's posts with tag: code stuff

What are tags? You can give your posts a "tag", which is like a keyword. Tags help you find content which has something in common. You can assign as many tags as you wish to each post.
View posts by people in your network with tag code stuff
Blog EntryLeft n RightAug 20, '07 11:18 PM
for everyone
Udah lama ga make VB.Net (keseringan bikin aplikasi yg web based), kemaren pas harus make, ada beberapa syntax yang lupa. Misalnya mo nyoba ngambil beberapa karakter dari suatu string, dari kiri maupun dari kanan. Biasa di VB make left(str, 4) ato right(str, 4). Lhah kok di VB.Net ga bisa sih? Padahal di ASP.Net pake script VB tuh bisa. Ternyata oh ternyata, mesti ditambahin strings, jadinya strings.left(str, 4) ato strings.right(str,4). Syntaxnya rada beda antara ASP.net pake script VB ama VB.Net. Daripada ntar lupa lagi, catet disini aja deh..hehehe...

Blog EntryMenyimpan Teks dari TextBox ke File .txtNov 12, '06 8:30 PM
for everyone

Kemaren nanya2 ke orang2 blum ada yg tau jelasnya...yawda deh akhirnya tadi nanya ke mbah gugel, nemu!!! Misal di VB .Net kita punya form yg ada satu textbox (yg namanya textbox1) trus ada juga satu tombol (yg namanya Button1), trus kita pengen nyimpan teks di textbox itu ke file .txt baru (yg namanya test.txt) di drive C (atau bisa juga diganti2, terserah deh mo di file apa path-nya dimana). Ini ni caranya:

Private Sub BSimpan1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim filePath = "C:\test.txt"
 Dim objWriter As New System.IO.StreamWriter(filePath, False)
        Dim strData As String = TextBox1.Text

        objWriter.Write(strData)
        objWriter.Close()t
        MsgBox("Text telah disimpan dalam file " & filePath)
End Sub

Kalo misal file .txt-nya udah ada, baris yg ini:

Dim objWriter As New System.IO.StreamWriter(filePath, False)

ganti ama yg ini:

Dim objWriter As New System.IO.StreamWriter(filePath, True)


Blog EntryNgerjain Apa?Nov 8, '06 9:36 PM
for everyone

Kemaren bingung deh, mo ngubah string ke bentuk datetime yg sebelumnya udah dipisah-pisahin. Tapi kok hasilnya kebalik2 gitu sih? Misalnya string 040906 harusnya kan jadi 09/04/2006, tapi kok malah jadi 04/09/2006...Kalo stringnya 130906 udah bener jadi 09/13/2006..berarti bukan code-nya dong yg salah?? Munyeng2 mikir...akhirnya dikasih tau pa Hendrik, query SQL-nya ditambahin SET dateformat mdy sebelum kalimat INSERT, jadi gini ni: "SET dateformat mdy; INSERT INTO nmTabel VALUES(....)"

Kerjaan udah selesai...malah bingung mo ngerjain apaan...blum dikasih kerjaan lagi...yang biasa ngasih kerjaan lagi sibuk...(mungkin) lagi nyiapin hari bahagianya.. :(


Blog EntryBikin Tab di ASP.NetAug 28, '06 1:43 AM
for everyone

ASP.Net tuh ga nyediain tool buat bikin tab. Setelah munyeng2 nyari2 gimana caranya bikin tab di ASP.Net, akhirnya bisa juga. Ternyata buat bikin tab itu mesti diakalin, bikin aja menu, banyak item menunya sesuai dengan banyaknya tab yang mau dibikin. Aku nemu source-nya kalo ga salah di codeproject, tapi source itu cuma bisa nampilin dua pilihan yaitu selected tab ama unselected tab, ga bisa dibedain tab satu ama lainnya. Nah, berikut ini source yang udah diubah biar lebih OK.

Pertama bikin aja dulu image buat tab-nya, Misal jumlah tab-nya ada 3, ya udah bikin 6 image, satu tab punya 2 image yaitu image yang tampak waktu tab itu dipilih dan image yang tampak waktu tab tidak dipilih. Trus ini code buat bikin menu:

<%--code menu--%><asp:Menu
        ID="Menu1" Width="168px"
        runat="server" Orientation="Horizontal"
        StaticEnableDefaultPopOutImage="False"
        OnMenuItemClick="Menu1_MenuItemClick">
    <Items>
        <asp:MenuItem ImageUrl="~/selectedtab0.GIF"
                      Text=" " Value="0"></asp:MenuItem>
        <asp:MenuItem ImageUrl="~/unselectedtab1.GIF"
                      Text=" " Value="1"></asp:MenuItem>
        <asp:MenuItem ImageUrl="~/unselectedtab2.GIF"
                      Text=" " Value="2"></asp:MenuItem>
    </Items>
</asp:Menu>

Nah, habis itu bikin multiview dengan banyak view-nya sama dengan banyak tab, dengan kata lain, satu tab berkorespondensi satu-satu dengan satu view (halah!!). Code buat bikin multiview:

<%--code multiview--%><asp:MultiView ID="MultiView1"
    runat="server" ActiveViewIndex="0"  >
   <asp:View ID="Tab1" runat="server"  >
        <table width="600" height="400" cellpadding=0 cellspacing=0>
            <tr valign="top">
                <td class="TabArea" style="width: 600px">
                    <br />
                    <br />
                    TAB VIEW 1
                    INSERT YOUR CONENT IN HERE
                    CHANGE SELECTED IMAGE URL AS NECESSARY
                </td>
            </tr>
        </table>
     </asp:View>
    <asp:View ID="Tab2" runat="server">
        <table width="600px" height="400px" cellpadding=0 cellspacing=0>
            <tr valign="top">
                <td class="TabArea" style="width: 600px">
                <br />
                <br />
                    TAB VIEW 2
                    INSERT YOUR CONENT IN HERE
                    CHANGE SELECTED IMAGE URL AS NECESSARY
                </td>
            </tr>
        </table>
    </asp:View>
    <asp:View ID="Tab3" runat="server">
        <table width="600px" height="400px" cellpadding=0 cellspacing=0>
            <tr valign="top">
                <td class="TabArea" style="width: 600px">
                <br />
                <br />
                  TAB VIEW 3
                  INSERT YOUR CONENT IN HERE
                  CHANGE SELECTED IMAGE URL AS NECESSARY
                </td>
            </tr>
        </table>
    </asp:View>
</asp:MultiView>

Trus, di bagian source-nya, buat nyambungin antara menu ama multiview-nya pake code berikut:

Protected Sub Menu1_MenuItemClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MenuEventArgs) Handles Menu1.MenuItemClick
    MultiView1.ActiveViewIndex = Int32.Parse(e.Item.Value)

    Menu1.Items(0).ImageUrl = "~/Logo/unSelTab0.gif"
    Menu1.Items(1).ImageUrl = "~/Logo/unSelTab1.gif"
    Menu1.Items(2).ImageUrl = "~/Logo/unSelTab2.gif"
    Select Case e.Item.Value
        Case 0 : Menu1.Items(0).ImageUrl = "~/Logo/SelTab0.gif"
        Case 1 : Menu1.Items(1).ImageUrl = "~/Logo/SelTab1.gif"
        Case 2 : Menu1.Items(2).ImageUrl = "~/Logo/SelTab2.gif"
        Case Else : Exit Sub
    End Select

End Sub

Nah, gampang kan ternyata :p Tapi inget, ini cuma code garis besarnya aja, biar tampilannya lebih OK, sesuain sendiri ya...met nyoba...


© 2008 Multiply, Inc.    About · Blog · Terms · Privacy · Corp Info · Contact Us · Help