perbandingan kata bahasa c dan assembly

org 100h
start : jmp mulai
        tanya db 'masukan kata anda : $',13,10
kata1 db 'unny cute$' ; lebel untuk menyimpan kata yang akan di ban
                                      ;  dingkan
kata2 db  0ffh,?,0ffh dup(?) ; lebel untuk kata yang di input
                                             ; nantinya

jawaban1 db 13,10,'benar $' ; untuk validasi
jawaban2 db 13,10,'salah $' ; untuk validasi

mulai :
mov ah,09h
mov dx,offset tanya
int 21h

 isi :
mov ah , 0ah
mov dx,offset kata2  ; input untuk kata2 yang akan di bandingkan
int 21h


mov bx,dx
        inc bx
        mov dx,[bx]
xor dh,dh
mov bx ,dx
push dx


mov kata2[bx+2],'$'
   xor bx,bx

 ulang :
mov al,kata1[bx]
cmp al,'$'
je bndk_pnj_str
inc bx       ;untuk mencatat panjang string
loop ulang

bndk_pnj_str :                
        pop dx
mov al,bl
cmp al,dl
je sama   ; jika sama panjang string kata1 dengan kata du maka lompat
                          ; ke lebel sama
        jne t_sama        ; sebaliknya jika tidak sama maka lompat ke lebel
                          ; t_sama
sama :
      push ds
 pop es
 mov si,offset kata1   ; es:[di] = offset kata1
   mov di,offset kata2   ; ds:[si] = offset kata2  
 add di,02h;               ; di + 2 agar di pada lokasi offset kata u / awal
                                          ;string
          xor bh,bh                 ; bh  = 0 stelah di xor
 mov cx,bx                ;disini cx akan menjadi acuan kapan akan berhenti //
                                          ;  atau ulang selama cx != 0 pada saat loop ul_bandingkan_str
                                 
ul_bandingkan_str :
       cmpsb
  jne t_sama
                             
 loop ul_bandingkan_str

      mov ah,09h
      mov dx,offset jawaban1
      int 21h
 jmp exit
t_sama :
      mov ah,09h
      mov dx,offset jawaban2
 int 21h

exit :
 int 20h
 end start

dan ini bahasa c nya



#include <stdio.h>
#include <string.h>
  int pnj(char pjkata[]){
  int x = 0;
   for (;pjkata[x] != '�';x++){
      }
  return x;
}
int bandingkan(char a[],char b[]){
     int kondisi=1;
     int x = 0;
     for(;a[x] == b[x];x++) kondisi = (int)a[x];
     return kondisi ;
     }
int main(){
char kata1[]={"unny cute"};
char kata2[255];
printf("masukan kata2 anda  :  n");
scanf("%[^n]",&kata2[0]);
printf("pass anda = %sn",kata2);
if(pnj(kata1) == pnj(kata2) && bandingkan(kata1,kata2) == 0 )
           printf("sama");
           else
           printf("tidak sama");
           return 0;
           }

read more - perbandingan kata bahasa c dan assembly

memory pada saat penmaligalan fungsi dan priosritas pada saat melakuan expresi

#include<stdio.h>
/*
program : mencari tahu apa yang terjadi pada
memori , pada saat pemaangilan sebuah pungsi
hasil run : alamat nya tetap dan prioritas sebealah kiri
*/

int coba(int x){
printf(" nilai x : %i alamat x %p alamat memory coba %p \n ",x ,&x,&coba);
return x;}

int
main(){
printf("1. nilai kembalian : %i alamat memory coba(3) %p \n",coba(3),&coba);

/* - prioritas di kerjakan paling kiri dulu coba(100)
- jika dilihat dari ouput alamat memori tidak berubah
ketika memangil pungsi
*/

printf("2. nilai kembalian : %i alamat memory coba(3) %p \n",(coba(100)* coba(4)),&coba);
getch();
return 0;
}

read more - memory pada saat penmaligalan fungsi dan priosritas pada saat melakuan expresi

vb (6.0) membuat program antar form

tahapan pertama tambahkan form1 di visual basic lu dulu kayak begini



tahapan kedua tambahkan form 2 kayak begini


tahapan ketiga masukin kode program di bawah ini di form1

Private Sub Command1_Click()
Form2.Show 'untuk menampilkan form2 nya
Form2.Label1.Caption = " berhasil horeeee!!!"
Unload Me ' bisa juga pake juga pake form1.hide
' buat menyembunyikan form1 nya

End Sub

tahapan keempat masukin kode program di bawah ini di form2

Private Sub Command1_Click()
tulis = Form2.Text1
Form1.Show ' buat nampilin form1 nya
Form1.Label1 = tulis
Unload Me 'buat menguload form2 / form yang sedang
'aktif atau bisa juga form2.hide
End Sub

ini hasil pada saat program di jalankan
form1 yang pertama aktif

ini pada saat selah command ke form2



dan ini pada saat ngeklick command balik lagi yuk


atau lu bisa download source programya di sini
visual basic vb 6.0 mengaktif form.rar

good luck selamat belajar vb dan memahaminya

read more - vb (6.0) membuat program antar form

vb (6.0) kode program memisahkan angka dan huruf

pertama bikin form kaya gini dulu di visual basic 6.0 nya kamu


abis itu masukin kode di bawah ini di view code

Dim data(1000) As Variant
Dim info As Boolean
Dim n As Integer
'bikin 3 variable dulu secara explicit
Private Sub Form_Load()
Text1.FontSize = 12
List1.FontSize = 12
List2.FontSize = 12
Command1.FontSize = 12
Command2.FontSize = 12
Label1.FontSize = 12
Label2.FontSize = 12
Label2.FontBold = True
info = False

End Sub
'command untuk inputan data
Private Sub Command1_Click()
x = 1

If Text1.Text = "" Then
MsgBox ("tidak ada jumlah yang di masukan mohon untuk si isi jumlah nya")
ElseIf IsNumeric(Text1) Then
n = Val(Text1)
Do While x <= Val(Text1)

data(x) = InputBox("masukan data " & x)
info = True
x = x + 1
Loop
Else
MsgBox ("jumlah harus numeric")
End If
End Sub
'command untuk proses memisah kan data di list1 dan list2
Private Sub Command2_Click()
List1.Clear
List2.Clear
Dim x As Integer
x = 1
If info = False Then
MsgBox ("data belum terisi")
Else
Do While x <= n
If IsNumeric(data(x)) Then
List1.AddItem data(x)
Else
List2.AddItem data(x)
End If
x = x + 1
Loop
End If

End Sub


dan hasil run nya kayak begini



atau kamu download saja project program yang udah jadinya
disini

read more - vb (6.0) kode program memisahkan angka dan huruf

vb kontrol logika if , for dan array

iseng- iseng balik dari kampus yang kebetulan abis uas praktek visual basic
dari pada gak ada kerjaan diem benggong, tersirat di pikiran saya untuk menyelesaikan program yang gagal waktu uas... ssttt pergi dah kedepan komputer lalu mengambil white board ,spidol lengakap sama penghapusnya terus mikir sama ngotret dan corat-coret tentang logika untuk menyelesakan program memisahkan numeric dan alpanumeric dan data pada index object dari command dan nilai passinggrade kelulusan akhirnya selang berapa menit kemudian
ketumu tuh dah pemecahanya dan setelah itu melakukan implementasi pada program nya abis berapa kali pengujian beserta erronya program pun sesuai denggan saya harapkan atau mungkin harapan si dosen juga .. abis tuh mikir lagi buat apa ini perogram nantinya ?? dan tersirat di pikiran saya untuk menulis di blog dan yang mana dari source program tersebut sang dosen hanya ingin mengetest sejauh mana pemahaman siswanya terhadap penggulangan,array dan kontrol logika if..........
oke dah dari pada berbicara muter - muter engak nyabung mendinggan download aja souce code nya di sini setelalah itu di telaah dan di pahami...... :)))
good luck

read more - vb kontrol logika if , for dan array