Turbo Basic - Animasi dan Balik Kata

By -

CodingNYA


cls
text$= " UNISLA SOLUSI MASA DEPAN"
for i=1 to 45 step 0.0003
locate 1,i
?text$
next i
for r=1 to 30 step 0.0003
cls
locate 1,45
color 0
?text$
cls
locate 1,45
color 10
?text$
next r
for i=1 to 5 step 0.0001
cls
locate i,45
?text$
next i
for i=1 to 25 step 0.0003
cls
locate 5,(45-i)
?text$
next i
for r=1 to 4 step 0.0003
cls
locate (5-r),20
?text$
next r
delay 0.03
? "Program Membalik Kata"
balik$=""
input" Masukan Kata :",kata$
for i=len(kata$) to 1 step -1
balik$=balik$+mid$(kata$,i,1)
next i
delay 0.01
print " Kata Yang Dibalik  :";balik$
stop

Comments

Post a Comment

Popular posts from this blog

VB.NET - Membuat Angka Acak

By -
Image
Membuat angka acak dengan Vb.Net, dengan menggunakan rumus random yang ada di visual basic. Khusus untuk XI TKJ SMK Hasyim Asy'ari. Pembuatan anka acak ini bisa diterapkan di beberapa versi VB. berikut langkah langkah membuat sebuah angka acak pada Vb.Net. 1. Buat lah sebuah label dan sebuah button, label untuk menampilkan angka sedangkan butoon untuk mengeksekusi coding. lihat gambar dibawah. 2. Klik dua kali di Button untuk memasukan kode. dan masuka kode seperti dibawah ini. 3. Kemudian jalankan dan hasilnya seerti gambar berikut 4. Kemudian klik acak maka akan muncul angka secara acak tak lebih dari 100 Demikian cara membuat program untuk mengacak angka, dimana nilai 100 merupakan nilai batasan yang berarti program akan mnampilkan angka secara acak mulai 1 sampai 100. Semoga bisa dimengerti dengan jelas. " Jika ada niat, maka tiada yang tidak bisa"
Next »

Kenapa dinamai windows?

By -
Image
Sejarah dari wikipedia - Versi pertama Microsoft Windows, yang disebut dengan Windows 1.0, dirilis pada tanggal  20 November 1985 . Versi ini memiliki banyak kekurangan dalam beberapa fungsionalitas, sehingga kurang populer di pasaran. Pada awalnya Windows versi 1.0 ini hendak dinamakan dengan  Interface Manager , akan tetapi  Rowland Hanson , kepala bagian pemasaran di  Microsoft Corporation , meyakinkan para petinggi Microsoft bahwa nama " Windows " akan lebih "memikat" konsumen. Windows 1.0 bukanlah sebuah sistem operasi yang lengkap, tapi hanya memperluas kemampuan MS-DOS  dengan tambahan antarmuka grafis. Selain itu, Windows 1.0 juga memiliki masalah dan kelemahan yang sama yang dimiliki oleh  MS-DOS . Lebih jauh lagi,  Apple  yang menuntut Microsoft,sehingga Microsoft membatasi feature yang ada di operating systemnya. Sebagai contoh, jendela-jendela di dalam Windows 1.0 hanya dapat ditampilkan di layar secara " tile " saja, sehingga jendela ters
Next »

Konversi Desimal ke Biner Menggunakan Stack - Java

By -
Image
Buatlah New Projrct dengan cara klik file -> new projrct , pilih java application. beri nama project kemudian masukan kode dibawa ini: /*  * To change this template, choose Tools | Templates  * and open the template in the editor.  */ package biner; import java.util.Scanner; /**  *  * @author Moch. Afif  */ public class Biner {     /**      * @param args the command line arguments      */     public static void main(String[] args) {         // TODO code application logic here         System.out.println("Program konversi ke biner dari desimal");         Scanner msk =new Scanner(System.in);         System.out.print("Masukan Nilai Desimal :");         int bil = msk.nextInt();         tumpukan bn=new tumpukan(10);         int n=bil;         while (bil>0){             n=bil%2;                         if (n>0){                 bn.push(1);             }else                 bn.push(0);                         bil=bil/2;    
Next »