Mencantumkan kode program di posting Anda, tolong ikuti aturan yang sesuai, baca http://diskusiweb.com/discussion/39204/aturan-cara-menyisipkan-kode-program-di-diskusiweb
Tolong pilih kategori sesuai, jenis posting (pertanyaan atau bukan) dan sertakan tag/topik yang sesuai misal komputer, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus.
Aturan & Cara Menyisipkan Kode Program di Diskusiweb
  • adminadmin
    Posts: 647
    Kalau ingin posting kode dan tampil dengan format sintaks, gunakan tag pre dengan atribut lang diisi dengan nama bahasa programnya.

    Contoh:
    <pre lang="php">
    <?php
    $variabel = "VARIABEL";
    echo "NGETEST";
    ?>
    < /pre>


    Hasilnya akan jadi seperti berikut:
    <?php 
    $variabel = "VARIABEL";
    echo "NGETEST";
    ?>
  • Perl. lang="perl"
    $n = '3 apples';
    $m = '2 oranges';
    print $n + $m;


    Ruby. lang="ruby"
    say['test'] = "saya cinta ruby"
    puts say.upcase


    Python. lang="python"
    >>> import math
    >>> print('The value of PI is approximately %5.3f.' % math.pi)


    Javascript. lang="javascript"
    for (i=0;i<=10;i++) {
    if (i==3) {
    break;
    }
    document.write("The number is " + i);
    document.write("<br />");
    }


    ASP. lang="asp"
    <%
    Dim fs,fo
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set fo=fs.GetFolder("c:\test")
    Response.Write("Folder created: " & fo.DateCreated)
    set fo=nothing
    set fs=nothing
    %>


    Pascal. lang="pascal"
    procedure MWritei(const i: Integer);
    begin
    Write(i);
    end;


    C++. lang="c"
    #include <iostream>
     
    int main()
    {
    std::cout << "Hello, world!\n";
    }


    C#. lang="c"
    public class Foo
    {
    /* A Multi-Line
    comment */

    public static void Bar(int firstParam) {}
    }


    Java. lang="java"
    package org.kodejava.example.java.util;
     
    import java.text.DateFormat;
    import java.text.SimpleDateFormat;
    import java.util.Calendar;
    import java.util.Date;
     
    public class DateToString
    {
    public static void main(String[] args)
    {
    // Create an instance of SimpleDateFormat used for formatting
    // the string representation of date (month/day/year)
    DateFormat df = new SimpleDateFormat("MM/dd/yyyy");
     
    // Get the date today using Calendar object.
    Date today = Calendar.getInstance().getTime();
    // Using DateFormat format method we can create a string
    // representation of a date with the defined format.
    String reportDate = df.format(today);
     
    // Print what date is today!
    System.out.println("Report Date: " + reportDate);
    }
    }


    SQL. lang="sql"
    SELECT *
    INTO new_table_name
    FROM old_tablename;
     
    SELECT *
    FROM a
    INNER JOIN b
    ON b.id = a.id_b
    WHERE a.active = 'yes' OR a.active = TRUE
    LIMIT 5;
  • untuk C++ dan C# belum highlight tuh. :D langnya diisi apa? "ceples-ples" kah? "cesarap" kah?
    atau ini diskriminasi syntax highlight dalam bahasa pemrograman. [-(

    yang C udah bisa, entah bener apa ngga. :D
  • @Skatel_Linux_com : kren om... ahhahaa
    bisa smua bhsa pemrograman ya om??
    hihihi
    :)
  • HusniHusni
    Posts: 3,255
    lang="vb"
    Public Function TestMethod() As Collection
    Dim c As New Collection
    For i As Integer = 0 To 10
    c.Items.Add(i)
    Next
    TestMethod = c
    End Function
     
    TestMethod()


    lang="vbnet"
    Public Class TestClass
    Public Shared Function TestMethod() As Collection
    Dim c As New Collection
    For i As Integer = 0 To 10
    c.Items.Add(i)
    Next
    Return c
    End Function
    End Class
     
    ' wedew, kenapa keyword: Module gak berwarna yah?
    Public Module TestModule
    Public Sub Main()
    Dim c As Collection = TestClass.TestMethod() ' <----- ini kok malah berwarna @_@
    End Sub
    End Class


    lang="aspnet"
    Public Class TestClass
    Public Shared Function TestMethod() As Collection
    Dim c As New Collection
    For i As Integer = 0 To 10
    c.Items.Add(i)
    Next
    Return c
    End Function
    End Class
     
    ' wedew, kenapa keyword: Module gak berwarna yah?
    Public Module TestModule
    Public Sub Main()
    Dim c As Collection = TestClass.TestMethod() ' <----- ini kok malah berwarna @_@
    End Sub
    End Class


    lang="csharp"
        class TestClass {
    public static string TestMethod() {
    return 'Test';
    }
    }


    lang="cpp"
        class TestClass {
    public static string TestMethod() {
    return 'Test';
    }
    }


    lang="xml"
        <div id="TestDiv">
    <!-- coba mouse over, ada yang aneh -->
    <a href="http://www.google.com&quot;>Test Link</a>
    </div>
    <div id="TestDiv2">
    <a href="javascript:alert('oke')">Test Link 2</a>
    </div>


    lang="css"
        #TestDiv {
    font-weight:bold;
    color:whitesmoke;
    }
    #TestDiv2 {
    border: 1px solid black;
    padding: 10px;
    }
    a {
    color: steelblue;
    text-decoration: none;
    }
    a:hover {
    color:orange;
    }


    lang="actionscript"
        class com.test.TestClass extends MovieClip {
    public function TestClass() {}
    public function onLoad() :Void {
    var txtTest:TextField = this.createTextField("Test", 0, 0, 0, 100, 100);
    txtTest.text = "Test";
    }
    }


    lang="vbscript"
       ' gak kerender
    Dim x As String
    x = "Test"
    alert(x)


    lang="jsharp"
        /* gak kerender */
    class TestClass {
    public static string TestMethod() {
    return 'Test';
    }
    }


    lang="dos"
        rem Tes Ping
    @echo off
    echo Sedang ngeping detik.com, tekan Ctrl C untuk berhenti
    ping detik.com -l 1 -t > detik.txt


    lang="bash"
        cd /var/www
    echo "php_value magic_quotes_gpc 0" > .htaccess


    lang="asm"
        org 100h
     
    mov ah, 02
    mov dl, 07h
    int 21h
     
    int 20h
     
    ret


    lang="matlab"
        % Test
     
    variable1 = 2;
    variable2 = 4;
    variable3 = 8;
     
    fprintf('v1: %f, v2: %f, v3: %f\n', variable1, variable2, variable3);
     
    fprintf(['This is a long string that',...
    ' will have to be split!',...
    ' Here are the variables: ',...
    ' variable1: %f, variable2: %f,',...
    ' variable3: %f\n\n'], variable1,...
    variable2, variable3);
  • HusniHusni
    Posts: 3,255

    untuk C++ dan C# belum highlight tuh. :D langnya diisi apa? "ceples-ples" kah? "cesarap" kah?
    atau ini diskriminasi syntax highlight dalam bahasa pemrograman. [-(

    yang C udah bisa, entah bener apa ngga. :D



    coba liat kodingan di atas om :D

  • bro, kalau coding kita yg di tag
     itu panjang ke kanan kok tidak ada scrollnya ya?
  • kang admin, itu tag codenya masih kepotong yak kalau kodingnya memanjang ke kanan gitu? apa gak lebih baik dikasih ada scrollnya? :)
  • Ane malah ga bisa enter..... -_-'
  • xyzzyxyzzy
    Posts: 1
    coba ah
    #include <stdio.h>
     
    const char *s = "abcdefghijklmnopqrstuvwxyz";
     
    int main (void)
    {
    return(printf("%s\n", s) && *s++ && main());
    }
  • syuaasyuaa
    Posts: 199
    Nah, trus klo mo insert images pake code apa tah?
  • adminadmin
    Posts: 647
    ya pake img src aja bisa
  • <?php
    echo "Test PHP Code, dan berhasil! haha ..thanks infonya :)";
    ?>
  • LOCAL lcTes
    lcTes = "Hello World.."
     
    MESSAGEBOX(lcTes, 0+64, "Info")
  • untuk visual foxpro ga ada syntax coloring-nya om admin?
  • sonisansonisan
    Posts: 1
    tes vb
    dim a as string
    a="Hello World"
    print a
  • mw nanya ... :-/ Gimana cara membuat report di delphi tapi gak semua data yg muncul...

    contohnya kita mau data yg di report hanya dari tanggal sekian sampe tanggal sekian....


    tolong bantuin ya... [-O<
    tugas PKL ni...
  • adminadmin
    Posts: 647
    Nyoba ruby ah:
    class MessagesController < ApplicationController
    before_filter :authenticate_user!, :only => [:create]
     
    respond_to :html, :json, :xml, :except => :create
     
    def index
    @raw_messages = current_convo.messages
    @messages = @raw_messages.collect{|m| {:uuid => m.uuid, :id => m.id, :text => m.body, :gravatar_url => m.owner.gravatar }}
    respond_with @messages do |format|
    format.html { redirect_to convo_url(current_convo) }
    end
    end
     
    def create
    @message = Message.create(:convo => current_convo, :owner => current_user, :body => params[:text], :uuid => params[:uuid])
    respond_with([current_convo, @message]) do |format|
    format.js do
    Socky.send({ :text => params[:text],
    :uuid => params[:uuid],
    :gravatar_url => params[:gravatar_url] }.to_json,
    :channels => "convo_#{current_convo.id}" )
    current_user.visit current_convo # make sure to reset stats for this current convo
    render :nothing => true
    end
    end
    end
     
    private
     
    def current_convo
    @current_convo ||= Convo.find(params[:convo_id])
    end
     
    end
  • fatihurrfatihurr
    Posts: 7
    $name = "fatihurr";
    $kenal = $_POST["salam"];
    if($kenal=="ya"){
    echo "nama saya $name, salam kenal";
    }else{
    echo "kalo gitu aku aja deh yang kenalan, salam kenal semua";
    }
  • ijenk86ijenk86
    Posts: 78
    klo mau masukin gambar di postingan atw di komen gmna mr.admin??
  • nyimak aja belum paham php.
  • ga ngerti
  • salam kenal... saya baru bergabung di forum ini...
  • public class diskusiweb{
    public static void main(String[]args){
     
    String a="Salam Kenal admin, ayas dari PARE-KEDIRI";
    String b="Terima kasih atas info-infonya sangat membantu belajar program";
    String c="See you again";
     
    System.out.println("Assalamu'alaikum");
    System.out.println(a);
    System.out.println(b);
    System.out.println(c);
    }
    }
  • <pre lang="php">
    <?php
    echo "mantap gan tapi masih bisa emot? :-?";
    ?>
    </pre>

    kok gak bisa :((
  • adminadmin
    Posts: 647
    Ngetiknya di mode source code dong... Klik tanda <> di samping icon printer
  • sun4sonsun4son
    Posts: 147
    echo "test doank";


  • Om @admin, kok template hightlight code-nya jadi jelek begini? background kuning yang width-nya tidak 100%, ga da nomor barisnya juga.


  • .  .
    Posts: 1,028
    kreatip dikit gitu lho go ...
    ambil cat item ama kuas, nah monitor nya elo coret-coret sendiri pake cat buat nulis nomer baris

    gitu aja pake komplen ke admin







    ;))
  • Udah normal, ternyata pengaruh Opera Turbo. wkakakatrok. =))
  • .  .
    Posts: 1,028
    @mimin

    miinnnn ... tuntut ajah tu yugo ke pulisi, tuduhan : pencemaran nama baik :))
  • adminadmin
    Posts: 647
    Hayah ... ngitung aja baris ke berapa susah, bisa ngitung gaaak?? Ga bisa ngitung jangan jadi programmer deeee  ;))
  • tes yak gan
  • <meta http-equiv="content-type" content="text/html; charset=utf-8">
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
    <meta http-equiv="content-language" content="en">
    <link rel="shortcut icon" href="favicon.ico">


    akhirnya
  • admin said:

    Hayah ... ngitung aja baris ke berapa susah, bisa ngitung gaaak?? Ga bisa ngitung jangan jadi programmer deeee  ;))



    saya ini memang bukan programmer min, saya ini tukang kritik programmer. :))
  • algealge
    Posts: 7
    <pre lang="vb.net">
    <?php
    $variabel = "VARIABEL";
    echo "ko ga jalan yaa?apa yang salah?";
    ?>
    < /pre>


  • algealge
    Posts: 7


    Private Sub cmdsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click
    Dim sql As String
    Dim strtemp As String = ""
    Dim strvalue As String = ""
    sql = "INSERT INTO pelanggan(kd_plg, nm_plg, alamat, noktp, hp, telp, fax) " & _
    "VALUES('" & txtkd_plg.Text & _
    "','" & txtnm_plg.Text & "','" & txtalamat.Text & "','" & txtnoktp.Text & "','" & txthp.Text & "," & _
    txttelp.Text & "','" & txtfax.Text & "')"

    cmmd = New OleDbCommand(sql, cnn)


    Dim x As Integer = cmmd.ExecuteNonQuery

    If x = 1 Then
    MessageBox.Show("DATA BERHASIL DISIMPAN")
    sql = "SELECT * FROM pelanggan ORDER BY kd_plg DESC"
    cmmd = New OleDbCommand(sql, cnn)
    dreader = cmmd.ExecuteReader
    If dreader.Read Then
    strtemp = Mid(dreader.Item("kd_plg"), 3, 5)
    Else
    txtkd_plg.Text = "PL00001"
    Exit Sub
    End If

    strvalue = Val(strtemp) + 1
    txtkd_plg.Text = "PL" & Mid("0000", 3, 5 - strvalue.Length) & strvalue
    txtnm_plg.Text = ""
    txtalamat.Text = ""
    txtnoktp.Text = ""
    txthp.Text = ""
    txttelp.Text = ""
    txtfax.Text = ""
    txtnm_plg.Focus()
    Else
    MessageBox.Show("GAGAL MENYIMPAN DATA")
    End If
    End Sub


  • <?php
    echo "Hello";
    ?>


    Bisa euy...
  • #include<stdio.h>
    #include<conio.h>
    void main()
    {
    printf("Den ayunk")
    getche();
    }</conio.h></stdio.h>
  • <?php
    // Test PHP
    $nama = "Fery";
    $masih = "newbie";
    $pingin = "blajar pemrograman";
    ?>
  • hendra21hendra21
    Posts: 1
    Mas Admin, aq blm tau mau nulis apa ne, soal nya ane baru pengen belajar jadi programer, tolong dibantu ya.
  • Se7enSe7en
    Posts: 3
    Ane Admin Baru gan... Ngk Tahu mo Nulis Apa_An ... Pengen Tau AJa gmna sih Caranya pemograman OS Itu..??
  • Se7enSe7en
    Posts: 3
    <?php
    // Test PHP
    $nama = "Fery";
    $masih = "newbie";
    $pingin = "blajar pemrograman";
    ?>
  • Vanz_Vanz_
    Posts: 1
    salam kenal bang,, saya bru forum ini ..
    mhon bantuan ny ya ..

    makasiii bang
    :)>-
  • numpang nyimak
  • reycomreycom
    Posts: 4
    SALAM PEACE BROOOO
  • terimakasih saya sudah dapat bergabung. salam
  • import.java.io.*;
     class cobabelajar {
    public static void main{string[]args}{
    system.out.println (" salam kenal" );
    syatem.out.println(" salam belajar ");
    system.out.println (" mohon ilmunya dibagibagi");
      }
    }
  • static void Main()
    {
    //C# is cool
    string str = "this is C# code";
    Action lambdaExp = () => Console.WriteLine("this is lambda expression");
    }
  • static void Main()
    {
    //C# is cool
    string str = "this is C# code";
    Action lambdaExp = () => Console.WriteLine("this is lambda expression");
  • UdhinkUdhink
    Posts: 1
    <?php
    // Test PHP
    $nama = "Udhink";
    $masih = "newbie jg";
    $pingin = "blajar pemrograman n postgreSQL";
    ?>

Selamat datang,

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

Tagged

Top Posters